Můj pokus "funguje" až do řádku 2000
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For i = 1 To 2000
If Cells(i, 6).Value = "ahoj" Then
Rows(i).ClearContents
End If
Next i
Application.ScreenUpdating = True
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For i = 1 To 2000
If Cells(i, 6).Value = "ahoj" Then
Rows(i).ClearContents
End If
Next i
Application.ScreenUpdating = True
End Subcitovat
\n
RSS nejnovější články