Dante Amor

Ya que tienes los datos en la hoja1, carga los datos en el listbox utilizando la propiedad rowsourse del listbox También tienes que poner la propiedad del listbox de columnheads = true Por ejemplo en el evento activate de tu userform: uf =...

Puede ser así, antes del msgbox Cells(fila, 3).select Pero me llama la atención, que después del msgbox tienes exit function, ¿Eso significa que es una función y que dentro de esta función estás llamando a la función validar longitud? Puedes comentar...

Te anexo la macro Sub Copiar_Color() 'Por.Dante Amor For i = 4 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") >= 1000 And Cells(i, "A") <= 1999 Then Rows(i).Interior.Color = Range("B1").Interior.Color ElseIf Cells(i, "A") >= 2000 And...

Te anexo la macro, cada que la ejecutes te creará una hoja nueva. Sub Macro9() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets.Add(after:=Sheets(Sheets.Count)) u = h1.Range("A" & Rows.Count).End(xlUp).Row h1.Range("D2:D" & u & ",F2:F" & u &...

Después de esta línea: .Subject = "Reporte " & Fecha2 'Asunto Pon esta: .SendUsingAccount = "[email protected]" sal u dos

Entiendo que el formato en España para las cantidades es 123.456,00 Es decir, utilizan el punto como separador de millares y la coma para serparar decimales. Si es así, y suponiendo que tienes en la columna A las celdas1 y la colunma B las celdas2...

Ayudaría si pones tu macro para saber en dónde están los rangos origen 1, 2 y 3. Te anexo un ejemplo con comentarios para ayudarte y puedas adaptarlo a tu macro. Sub Copiar_Rangos() ' Por Dante Amor ' Application.ScreenUpdating = False Set l1 =...

Al principio de tu macro pon la siguiente línea: if activecell.row < 6 then exit sub sal u dos

Revisa la siguiente respuesta: Insertar una imagen en Excel 2013 desde una base de imágenes en el mismo archivo Sal u dos

Va la macro Sub Poner_color() For i = 3 To Range("B" & Rows.Count).End(xlUp).Row Select Case Cells(i, "B").Value Case 1: Cells(i, "D").Interior.ColorIndex = 5 'azul Case 2: Cells(i, "D").Interior.ColorIndex = 6 'amarillo Case 3: Cells(i,...