Adriel Ortiz Mangia

[Hola Prueba esto Sub BUSCAR() busca = InputBox("Ingresa Dato a buscar") If busca = "" Then Exit Sub Set R = Range("A1:A50") Set b = R.Find(busca, LOOKAT:=xlWhole) If Not b Is Nothing Then MsgBox "Dato encontrado", vbInformation, "Aviso" b.Select End...

[Hola On Error Resume Next ' Sheets("BalanceB").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Hoja39.Cells(4, 6)

[Hola Va la macro Private Sub Cmdguardar_Click() Set h2 = Sheets("DATOS") ' 'REGISTRO u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 If u < 8 Then u = 8 ' h2.Cells(u, "B") = Txtidentidad h2.Cells(u, "C") = Txtcaso.Text h2.Cells(u, "D") =...

[Hola Te paso la macro Sub GENERAR() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' n = 1 k = 2 h2.Cells.ClearContents For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row cad = Split(h1.Cells(i, "D"), ",") For j = 1 To UBound(cad) + 1...

[Hola prueba con esto Sub mostrar_ocultar() fila_ini = 1 col = "A" ' For i = fila_ini To Range("A" & Rows.Count).End(xlUp).Row Cells(i, col).EntireRow.Hidden = False If Cells(i, col) = 0 Then Cells(i, col).EntireRow.Hidden = True End If Next i End Sub

[Hola Usa el nitro pdf Link de descarga http://www.intercambiosvirtuales.org/software/nitro-pro-enterprise-v12-3-0-240-espanol-cree-y-edite-archivos-pdf-facilmente

[Hola Muestra tus datos y ver como están organizados

[Hola cambia esto a = Lista.ListCount por esto a = Lista.ListCount - 1

[Hola Prueba la siguiente macro y me comentas Sub AOM() 'Por Adriel ' u = Range("A" & Rows.Count).End(xlUp).Row ' For i = 2 To u dato = Cells(i, "A") If Cells(i, "B") = "" Then If InStr(dato, "S") > 0 Then num = Right(dato, Len(dato) - 1) If Len(num)...

[Hola prueba la macro con los ajustes solicitada Sub Buscar_3() 'Por Dante Amor Application.ScreenUpdating = False ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") h3.Cells.ClearContents u3 = 2 ' For i = 2 To h2.Range("D"...