Dante Amor

Ho la y bienvenido a TodoExpertos. ¿Qué formato tienes en la celda? Puedes poner una imagen para ver la fórmula, el formato y el resultado.

Lo siguiente funciona Sub PintarCeldas() Dim i As Long Dim ant As Variant For i = 7 To Range("H" & Rows.Count).End(3).Row ant = Cells(i - 1, "H") If Cells(i, "H") = ant Then Cells(i, "H").Interior.Color = RGB(Int((200 * Rnd) + 1), Int((200 * Rnd) +...

Prueba: Sub test1() Dim ruta As String ruta = "D:\Fundicion del Centro\BACKUP" If Dir(ruta, vbDirectory) = "" Then MkDir ruta End If End Sub

Ejecuta la siguiente macro. Actualiza en la macro, el nombre de las hojas "original" y "resultado" por el nombre de tus hojas. Si tienes algún detalle de formato con alguna columna, simplemente pon el formato que desees en la hoja "resultado". Sub...

Te envié la respuesta en tu primer pregunta: Asignar 1 valor de combobox de 2 columnas a un texbox

Sigue el siguiente ejemplo: Label1.Caption = Format(Range("C9").Value, "$#,##0.00")

Prueba lo siguiente en tu userform. La macro crea un nuevo libro con la plantilla, la llena y puedes imprimir o guardar en PDF. No guardes datos en la plantilla, solamente para no tener que limpiarlos más adelante. Completa los datos que faltan....

Revisa la siguiente propuesta: Para proteger la hoja y bloquear las columnas "E", "I" La hoja se protege con el password "admin" Sub Proteger() Dim pass As String ' pass = "admin" ' ActiveSheet.Unprotect pass With Range("E:E, I:I") .Locked = True...

Pon la siguiente fórmula en la celda C1: =A1&REPETIR(" ",50-LARGO(A1)) Con esa fórmula agregas los espacios necesarios para tener 50. Después, si quieres tener valores en lugar de fórmulas, puedes copiar los datos de la columna C y pegarlos como valores.

Además del código, puedes poner una imagen mostrando las celdas de cómo quieres las palabras en "Negro".