Adriel Ortiz Mangia

[Hola Application. Quit

[Hola te paso la macro actualizada Private Sub CommandButton2_Click() ' If OptionButton1 = False And OptionButton2 = False Then MsgBox "Seleccione un option" Exit Sub End If ' vcs = Array("TextBox5", "Código", "Nombre", "Apellidos", "DNI", _...

[Hola Te paso la macro Sub separa() ' '[Por Adriel Ortiz ' uc = 21 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row For k = 1 To 6 Cells(1, uc) = Mid(Cells(i, "A"), k, 1) uc = uc + 1 Next k Next i MsgBox "finalizado" End Sub Valora la respuesta...

[Hola Tienes problemas con algunas teclas por lo visto que es la tecla F7, ya que con ésta la opción de revisión ortográfica. Imagino que el Ms Word te pasará lo mismo. Tu teclado requiere limpieza, y si persiste cambiar el teclado.

[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