mám níže uvedené makro kde, když zadám například podmínku "čas" ,tak makro najde všechny řádky,
které obsahují slovo "čas" a ty odstraní, takže makro jako takové funguje dokonale.
A já mám dotaz, zdali by bylo možné toto makro upravit, tak aby pokud najde řádek, který obsahuje slovo "čas",
tak tento řádek smazalo, tak jak to dělá teď a navíc ještě smazalo i řádek pod řádkem, který obsahuje to
slovo "čas".
Tedy nalezneli na řádku 3 slovo "čas" smaže zároveň i následující řádek číslo 4 a nalezneli dále slovo "čas"
na řádku třeba 6 smaže zároveň i řádek pod ním tedy 7 a tak dále....
Věděl by prosím někdo z Vás, jak toto makro takhle upravit?
Kód: Vybrat vše
Sub smazat_cas()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
Dim Kde As Integer
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With
With ActiveSheet
.Select
ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView
.DisplayPageBreaks = False
Firstrow = .UsedRange.Cells(1).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
For Lrow = Lastrow To Firstrow Step -1
With .Cells(Lrow, "A") ' Sloupec s hledanou podmínkou
If Not IsError(.Value) Then
On Error Resume Next
Kde = WorksheetFunction.Search("čas", .Value, 1)
If Err.Number = 0 Then
.EntireRow.Delete 'podmínka je v uvozovkách
End If
Err.Clear
End If
End With
Next Lrow
End With
ActiveWindow.View = ViewMode
With Application
.Calculation = CalcMode
End With
End Sub
