Dante Amor

H o la: Envíame tu archivo que contiene el listbox, me dices qué datos y cómo quieres filtrar. Luego en otro libro me pones el resultado que esperas después de copiar los datos filtrados. Si puedes explícame con ejemplos, comentarios y colores dentro...

H o la: Envíame un archivo con ejemplos. En la hoja1 pon tus datos tal cual los tienes. En la hoja2 pon el resultado de dividir la hoja1 en filas. Procura que en la hoja1, vengan los ejemplos reales, es decir, pon la cantidad en la columna real,...

H o l a: Te anexo la macro Sub Extraer_Letras() 'Por.Dante Amor Range(Cells(2, "C"), Cells(Rows.Count, Columns.Count)).ClearContents n = 3 For i = 2 To 7 j = 3 nom = Cells(i, "B") For k = 1 To Len(nom) Cells(i, j) = Mid(nom, k, 1) Cells(10, n) =...

Te recomiendo lo siguiente, primero, cambia el evento textbox_change por un botón, actualmente por cada letra que pones en le textbox realiza la búsqueda, cuando son pocos registros, es muy práctico, pero cuando son muchos registros, lo mejor es que...

H o l a: Te anexo la macro Sub Imprimir_Factura() 'Por.Dante Amor Set h1 = Sheets("FACTURA") Set h2 = Sheets("HISTORICOFACTURAS") Set h3 = Sheets("MODULOFACTURACION") celdas = Array("F6", "F8", "B8", "F36", "F40", "F41") h2.Rows(2).Insert For c =...

Tienes que reemplazar hoja por hoja, puede ser de esta forma: Sub Reemplazar() For Each h In Sheets h.Cells.Replace What:="\Centros\", Replacement:="\locales\", lookat:=xlPart Next MsgBox "Fin" End Sub 'S aludos. Dante Amor. Recuerda valorar la...

H ol a: Te anexo la macro Sub Insertar_Filas() 'Por.Dante Amor Application.ScreenUpdating = False For i = Range("H" & Rows.Count).End(xlUp).Row To 1 Step -1 num = Cells(i, "H") If num <> "" And IsNumeric(num) Then Rows(i).Copy Rows(i + 1 & ":" & i +...

Te anexo el código actualizado Private Sub CommandButton1_Click() 'Asignando Objetos de busqueda y hojas Set h1 = Sheets("Hoja1") Set b = h1.Columns("B").Find(TextBox1, lookat:=xlWhole) 'Asignando condicional de validacion de codigo If Not b Is...

H o l a: Te anexo la macro Sub Copiar_Hoja() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("TRIM") Set h2 = Sheets("APU-") valor = h2.Visible h2.Visible = -1 ' col = "A" 'columna código fil = 2 'fila donde empiezan los nombres '...

Pon lo siguiente TextBox1 = Format(Range("B3"), "hh:mm") Cambia Range("B3") por tu referencia. De igual forma, si vas a pasar una hora a una celda, en el textbox la tienes como texto, por lo tanto, tienes que convertir ese texto a hora, utiliza lo...