🟢 # 20 Crea un Formulario con Pestañas para Guardar, Editar y Eliminar Datos | Curso de VBA

[@albertomorales3794]

Excelente!!!!! Gracias, gracias, gracias por compartir sus conocimientos. Desde Venezuela.

[@grijalvaescobedo158]

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 🇲🇽

[@grijalvaescobedo158]

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

[@Bravo_2001]

Gracias por este proyecto desde Perú

[@JONRESTREPO]

Hola, Cuando vas a sacar nuevos Videos????

[@alezsamirtabordaserna5595]

Buen dia , tienes un video donde explique la búsqueda de imágenes dinámica en una base de datos según varios filtros o características hasta encontrar la imagen que se acomode a las características o filtros seleccionados? gracias.

[@armansan-y3k]

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

[@GuiovannySuarezRiveraRobotica]

Muchas gracias

[@alfredoraya2994]

Hola qué tal buen día
Es muy bien material quiero aplicarlos pero no me lo permite que me faltará..?

[@falconPDL]

63 / 5.000
VLookup non funziona con Excel 2019, in cosa devo cambiarlo?

[@cesarbriceno701]

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

[@jhonrodriguez5510]

Puede colocar me.lista= clear

[@AprendamosExcel]

por favor intente colocar Me.Listbox=CLEAR

[@AlfonsoLandero-pw2cp]

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¡¡¡¡¡

[@AlfonsoLandero-pw2cp]

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

[@CristianRemix]

NO ENTENDI LA FORMA =+MAX(B4:B3200)+1 NO ENCUENTRO LA FORMA DE APLICARLA A MI TABLA, SOY NOVATO UTILIZANDO EXCEL

[@AnaMendoza-zu2ke]

cuando seleccione el rango presione f4

[@CooperadoraISEFN27-Administrac]

Hola, para el comando del Botón Buscar, BT_Buscar he escrito las siguientes lineas . y entiendo que es correcto, pero me arroja el error de "END IF SIN BLOQUE IF", y no encuentro elerror por ningun lado
Private Sub BTBuscar2_Click()
Dim ULTIMAFILA As Variant
Dim FILA As Variant
ULTIMAFILA = ThisWorkbook.Sheets("ORIGEN").Range("A" & Rows.Count).End(x1Up).Row
Me.ListBox2.Clear
MsgBox "INGRESE UMENTO DEL ASPIRANTE"
For FILA = 2 To ULTIMAFILA

If ThisWorkbook.Sheets("ORIGEN").Range("A" & FILA).Value Like Me.TBBuscar2.Value Then Me.ListBox2.AddItem
Me.ListBox2.List(ListBox2.ListCount - 1, 0) = Thisworkboox.Sheets("ORIGEN").Cells(FILA, 1)
Me.ListBox2.List(ListBox2.ListCount - 1, 1) = Thisworkboox.Sheets("ORIGEN").Cells(FILA, 2)
Me.ListBox2.List(ListBox2.ListCount - 1, 2) = Thisworkboox.Sheets("ORIGEN").Cells(FILA, 3)
Me.ListBox2.List(ListBox2.ListCount - 1, 3) = Thisworkboox.Sheets("ORIGEN").Cells(FILA, 4)
Me.ListBox2.List(ListBox2.ListCount - 1, 4) = Thisworkboox.Sheets("ORIGEN").Cells(FILA, 5)
Me.ListBox2.List(ListBox2.ListCount - 1, 5) = Thisworkboox.Sheets("ORIGEN").Cells(FILA, 6)
End If
Next FILA
End Sub

[@armansan-y3k]

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

[@juanitopictures2328]

ES XLUP

[@alfredoraya2994]

An me sigue dando el problema 😵‍💫 ​@@juanitopictures2328

[@alfredoraya2994]

​@@juanitopictures2328o debo hacer todo de nuevo..?