leunamme

caranbis respondió: No necesitas crear formatos condicionales. Simplemente dale el color a la celda. Porque: Sub colorcelda() Select Case Worksheets("hoja1").Cells(2, 2) Case "CDR": Worksheets("hoja1").Cells(2, 2).Interior.ColorIndex = 3 Case "CRR":...

dtorrado respondió: Podría quedar algo así: Sub InsertaFinde() For i = 1 To 100 Cells(i * 7 - 1, 1).Select Selection.EntireRow.Insert ActiveCell.FormulaR1C1 = "Sábado" Cells(i * 7, 1).Select Selection.EntireRow.Insert ActiveCell.FormulaR1C1 = "Domingo" Next End Sub Está...