Ahoj,
třeba takto:
For rd = 1 To ActiveSheet.UsedRange.Rows.Count
If UCase(Cells(rd, 4)) = "NE" Then
Cells(rd, 4).Interior.Color = vbRed
If Cells(3, 6) <> "" Then Cells(3, 6) = Cells(3, 6) & ";D" & rd Else Cells(3, 6) = "D" & rd
End If
Next
M@citovat
třeba takto:
For rd = 1 To ActiveSheet.UsedRange.Rows.Count
If UCase(Cells(rd, 4)) = "NE" Then
Cells(rd, 4).Interior.Color = vbRed
If Cells(3, 6) <> "" Then Cells(3, 6) = Cells(3, 6) & ";D" & rd Else Cells(3, 6) = "D" & rd
End If
Next
M@citovat