Adriel Ortiz Mangia

[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

En esta línea ActiveSheet.Hyperlinks.Add Anchor:=Cells(f, 1), Address:=NombreCompleto cambia cells(f,1) por cells(f,"B") o columna que deseas

[Hola Si los nombres están en la columna A y los apellidos en B En C entonces pon esto usando la función concatenar =CONCATENAR(A2," ",B2) revisa si tus separadores es , o ;

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

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