Adriel Ortiz Mangia

[Hola Te paso la macro. Para que busques con la primer option "INGRESO" Has lo mismo para el resto, solo cambia las columnas Private Sub Buscar_Click() 'Fuente Dante 'Act. por Adriel Set h1 = Sheets("Hoja1") ' If OpcionIngreso Then ListBuscar.Clear...

[Hola Eliminar solo del listbox o también de la hoja

[Hola Muestra la macro

[Hola Envíame tu archivo archivo. Ya no lo tengo Si por ejemplo tuvieras estos datos Nombre---Apellidos ---Edad Pepe sánchez 55 Pepe arcila 20 Busco el nombre pepe, hubiera redundancia porque no supiera cual de ellos devolver a los textbox. A lo...

[Hola Te paso la macro, suponiendo que los títulos esta en la fila 1 tus datos a partir de la fila 2 Sub ordenar() 'Fuente: Dante ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add...

[Hola macro Sub MetodoAbrirLibro() Workbooks.Open "TuRuta\NombreLibro.xlsx" End Sub guía https://www.gerencie.com/macro-para-abrir-un-libro-de-excel-desde-otro-libro.html

[Hola Te paso la macro No observo las columnas, te paso un ejemplo y lo adecuas a tu necesidad Private Sub CommandButton1_Click() u = Range("A" & Rows.Count).End(xlUp).Row + 1 Cells(u, "A") = TextBox1 Cells(u, "B") = TextBox2 Cells(u, "C") = TextBox3...

[Hola Te paso la macro, agregado el color de fondo wcolor = vbBlack: wbold = False 'pase de datos Cells(fil, 1) = TextBox1 'Item # Cells(fil, 2) = TextBox2 'Producto # Cells(fil, 3) = TextBox3 'Descripcion del Producto Cells(fil, 4) = TextBox4 'Cant....

[Hola te paso la macro Sub validar() Set h1 = Sheets("Formulario") Set h2 = Sheets("BDC RAW DATA") ' ced = h1.[B1] If ced = "" Then MsgBox "Ingrese un cédula" Exit Sub End If Set b = h2.Columns("L").Find(ced, lookat:=xlWhole) If Not b Is Nothing Then...

[Hola Te paso la macro, lo pones en el evento Private Sub Workbook_Open() de tu libro En la hoja1 en la celda A1 guardará las veces que abres tu archivo, lo cambias a tu manera. Private Sub Workbook_Open() '[Por Adriel Ortiz '...