Adriel Ortiz Mangia

H o l a: Separa datos de la columna A y lo pondrå en la columna B y C Sub separa() For i = 1 To 10 j = 3 For k = 1 To 4 Cells(i, j) = Mid(Cells(i, "A"), k, 1) j = j + 1 Next Next End Sub

H o l a: Como están ordenados tus datos en que fila empieza, columnas

H o l a: Ta paso la rutina actualizada items = Hoja12.Range("A" & Rows.Count).End(xlUp).Row For i = 3 To items If LCase(Hoja12.Cells(i, 1).Value) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then Me.ListBox1.AddItem Hoja12.Cells(i, 2)...

H o l a Usa la función SUSTITUIR Me comentas y valoras

H o l a: Muestra una imagen de la hoja y tu formulario, para ver el nombre de la hoja y las columnas para adecuar el código saludos!

H o l a : Prueba con esto Dim CARPETA CARPETA = ActiveWorkbook.Path & "\PDF\" & Range("AG9").Value & "\" & Range("Archivo").Value ActiveSheet.PageSetup.PrintArea = "$B$2:$AE$70" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CARPETA _...

Ho la: ¿Cuál es la celda y la carpeta? Para adecuar la macro saludos!

H o l a : Muestra la imagen de las dos hojas indicando el resultado deseado

H o l a. Felix la verdad que hay muchas David Asurmendi http://davidasurmendi.blogspot.pe/p/cursos-de-excel-gratis-online.html https://www.youtube.com/channel/UCfoCe_a1EPntK64tD1Z8yMg Otto Javier Gonzales...

Private Sub TextBox1_Change() Label1.Caption = TextBox1.Text End Sub Me comentas y valoras para finalizar saludos!