Colorear una celda con código VBA
Necesito cololear una celda después de haber ingresado un dato desde un formulario. El código que tengo va así :
If Hoja2.Cells(z, 2) <> Empty Then
Do While Hoja2.Cells(z, c1) <> Empty
c1 = c1 + 4
Loop
Hoja2.Cells(z, c1).Value = Date
Hoja2.Cells(2, c1).Value = "Fecha de mantención"
Else
Hoja2.Cells(z, 2).Value = Date
End If ' fin ingreso de fecha
Me gustaría poder colorear la celda (2, c1) de color verde o lo más similar posible.
Respuesta de Adriel Ortiz Mangia
1
H o l a
prueba así
Private Sub CommandButton1_Click() If Hoja2.Cells(Z, 2) <> Empty Then Do While Hoja2.Cells(Z, c1) <> Empty c1 = c1 + 4 Loop Hoja2.Cells(Z, c1).Value = Date Hoja2.Cells(2, c1).Value = "Fecha de mantención" Hoja2.Cells(2, c1).Interior.ColorIndex = 4 Else Hoja2.Cells(Z, 2).Value = Date End If ' fin ingreso de fecha End Sub
Valora la respuesta Excelente o bueno Saludos!
