Uzamčeno - nelze přidávat nové příspěvky.
třeba ...
Dim param As String
Dim rd2 As Single
param = InputBox("Zadej znak jehož výskyt mám hledat", "Parametr", "3")
If param = none Then Exit Sub
For rd = 2 To List1.UsedRange.Rows.Count
If InStr(1, Cells(rd, 1), param, vbTextCompare) <> 0 Then
rd2 = List2.UsedRange.Rows.Count + 1
List1.Rows(rd & ":" & rd).Copy List2.Rows(rd2 & ":" & rd2)
End If
Next
M@
Dim param As String
Dim rd2 As Single
param = InputBox("Zadej znak jehož výskyt mám hledat", "Parametr", "3")
If param = none Then Exit Sub
For rd = 2 To List1.UsedRange.Rows.Count
If InStr(1, Cells(rd, 1), param, vbTextCompare) <> 0 Then
rd2 = List2.UsedRange.Rows.Count + 1
List1.Rows(rd & ":" & rd).Copy List2.Rows(rd2 & ":" & rd2)
End If
Next
M@
Příloha: 
8515_kopirovani.zip (9kB, staženo 28x)
citovat8515_kopirovani.zip (9kB, staženo 28x)
RSS nejnovější články