🟢 # 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ú

[@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.

[@GuiovannySuarezRiveraRobotica]

Muchas 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

[@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..?