Super excelente ING desde cuando buscaba uno de como crear este tipo de pestañas de super lujo muy agradecido con todo lo que nos compartes abrazos desde León Guanajuato México 🇲🇽
ING un gusto y cada vez. Qué nececito me ilustró con lo que nos enseña no ha sacado ya videos los extrañamos ING saludoss desde León Guanajuato México un abrazo y muchas bendiciones
Hola y gracias por la oportunidad de aprender por este canal, realizando la practica en el momento de GUARDAR, dio el siguiente error (SE PRODUJO ERROR 1004 EN TIEMPO DE EJECUCION: Error definido por la aplicación del objeto), seguidamente le di clic al Botón Depurar y me lleva al código señalando en color amarillo la siguiente línea: ULFILA = ThisWorkbook.Sheets("BASE").Cells(Rows.Count, "B").End(x1Up).Row + 1 Gracias de antemano
hola de nuevo, en la siguiente hoja del formulario pasa exactamente lo mismo, en fin... todo muy chulo y muy bien pero, no sirve para nada, tampoco es que haya una respuesta para sacarnos de errores, gracias por el aporte, aunque sin utilidad
hola, me ocurre lo mismo que a "@user-rc1pb1pw9l" yo no doy con la tecla ya que soy muy inexperto en excel pero, entiendo que esto no será respondido por el tiempo transcurrido. graciasss¡¡¡¡¡
Hola copio el código, pero quise hacerlo diferente al ejemplo Nº 20 Crea un Formulario con Pestañas para Guardar, Editar y Eliminar Datos | Curso de VBA. seguidamente le di clic al Botón Depurar y me lleva al código señalando en color amarillo la siguiente línea: ULFILA = ThisWorkbook.Sheets("BASE").Cells(Rows.Count, "B").End(x1Up).Row + 1 Gracias de antemano Private Sub BT_Guardar_Click() Dim ULFILA As Variant If Me.TextFecha = "" Then MsgBox "Coloque el dato fecha a guardar" Else ULFILA = ThisWorkbook.Sheets("BASE").Cells(Rows.Count, "B").End(x1Up).Row + 1 ThisWorkbook.Sheets("BASE").Range("B" & ULFILA) = ThisWorkbook.Sheets("Base").Range("B2") ThisWorkbook.Sheets("BASE").Range("C" & ULFILA) = Me.TextFecha ThisWorkbook.Sheets("BASE").Range("D" & ULFILA) = Me.TextNombre ThisWorkbook.Sheets("BASE").Range("E" & ULFILA) = Me.TextApellido ThisWorkbook.Sheets("BASE").Range("F" & ULFILA) = Me.TextEmpresa ThisWorkbook.Sheets("BASE").Range("G" & ULFILA) = Me.TextTelefono ThisWorkbook.Sheets("BASE").Range("H" & ULFILA) = Me.TextCorreo ThisWorkbook.Sheets("BASE").Range("I" & ULFILA) = Me.TextPropuesta Me.TextFecha = Empty Me.TextNombre = Empty Me.TextApellido = Empty Me.TextEmpresa = Empty Me.TextTelefono = Empty Me.TextCorreo = Empty Me.TextPropuesta = Empty MsgBox "REGISTRO GUARDADO" ThisWorkbook.Save End If End Sub
Excelente!!!!! Gracias, gracias, gracias por compartir sus conocimientos. Desde Venezuela.
Super excelente ING desde cuando buscaba uno de como crear este tipo de pestañas de super lujo muy agradecido con todo lo que nos compartes abrazos desde León Guanajuato México 🇲🇽
ING un gusto y cada vez. Qué nececito me ilustró con lo que nos enseña no ha sacado ya videos los extrañamos ING saludoss desde León Guanajuato México un abrazo y muchas bendiciones
Gracias por este proyecto desde Perú
Muchas gracias
Hola y gracias por la oportunidad de aprender por este canal, realizando la practica en el momento de GUARDAR, dio el siguiente error (SE PRODUJO ERROR 1004 EN TIEMPO DE EJECUCION: Error definido por la aplicación del objeto), seguidamente le di clic al Botón Depurar y me lleva al código señalando en color amarillo la siguiente línea: ULFILA = ThisWorkbook.Sheets("BASE").Cells(Rows.Count, "B").End(x1Up).Row + 1
Gracias de antemano
Hola qué tal buen día
Es muy bien material quiero aplicarlos pero no me lo permite que me faltará..?
Buen día profesor! Le agradezco mucho su video el único error que me aparece es cuando coloco “Me.Lista.Clear” como puedo solucionar esto
Puede colocar me.lista= clear
por favor intente colocar Me.Listbox=CLEAR
63 / 5.000
VLookup non funziona con Excel 2019, in cosa devo cambiarlo?
hola de nuevo, en la siguiente hoja del formulario pasa exactamente lo mismo, en fin... todo muy chulo y muy bien pero, no sirve para nada, tampoco es que haya una respuesta para sacarnos de errores, gracias por el aporte, aunque sin utilidad
hola, me ocurre lo mismo que a "@user-rc1pb1pw9l" yo no doy con la tecla ya que soy muy inexperto en excel pero, entiendo que esto no será respondido por el tiempo transcurrido. graciasss¡¡¡¡¡
NO ENTENDI LA FORMA =+MAX(B4:B3200)+1 NO ENCUENTRO LA FORMA DE APLICARLA A MI TABLA, SOY NOVATO UTILIZANDO EXCEL
cuando seleccione el rango presione f4
Hola copio el código, pero quise hacerlo diferente al ejemplo Nº 20 Crea un Formulario con Pestañas para Guardar, Editar y Eliminar Datos | Curso de VBA.
seguidamente le di clic al Botón Depurar y me lleva al código señalando en color amarillo la siguiente línea: ULFILA = ThisWorkbook.Sheets("BASE").Cells(Rows.Count, "B").End(x1Up).Row + 1
Gracias de antemano
Private Sub BT_Guardar_Click()
Dim ULFILA As Variant
If Me.TextFecha = "" Then
MsgBox "Coloque el dato fecha a guardar"
Else
ULFILA = ThisWorkbook.Sheets("BASE").Cells(Rows.Count, "B").End(x1Up).Row + 1
ThisWorkbook.Sheets("BASE").Range("B" & ULFILA) = ThisWorkbook.Sheets("Base").Range("B2")
ThisWorkbook.Sheets("BASE").Range("C" & ULFILA) = Me.TextFecha
ThisWorkbook.Sheets("BASE").Range("D" & ULFILA) = Me.TextNombre
ThisWorkbook.Sheets("BASE").Range("E" & ULFILA) = Me.TextApellido
ThisWorkbook.Sheets("BASE").Range("F" & ULFILA) = Me.TextEmpresa
ThisWorkbook.Sheets("BASE").Range("G" & ULFILA) = Me.TextTelefono
ThisWorkbook.Sheets("BASE").Range("H" & ULFILA) = Me.TextCorreo
ThisWorkbook.Sheets("BASE").Range("I" & ULFILA) = Me.TextPropuesta
Me.TextFecha = Empty
Me.TextNombre = Empty
Me.TextApellido = Empty
Me.TextEmpresa = Empty
Me.TextTelefono = Empty
Me.TextCorreo = Empty
Me.TextPropuesta = Empty
MsgBox "REGISTRO GUARDADO"
ThisWorkbook.Save
End If
End Sub
ES XLUP
An me sigue dando el problema 😵💫 @@juanitopictures2328
@@juanitopictures2328o debo hacer todo de nuevo..?