pentru colorat celule … in curand o sa scot o carte de colorat in excel. vrea cineva sa fie co-autor? vand meditatii!
Sub Lenght()
Dim Counter As Integer
Dim Current As Worksheet

For Each Current In Worksheets
Current.Select
For Counter = 6 To 1000
If Len(Cells(Counter, 1)) > 255 Then
Cells(Counter, 12).Select
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
End If
Next Counter
Next
End Sub