Excel ili Visual Basic - brisanje reda?

[IntelEkt]

Imam sledeci problem: u Excelu dobijam stanje razne robe. Medju njima se nalaze i stavke koje mi ne trebaju. Potrebno mi je da obrisem red u kome se nalaze nepotrebne stavke.
Npr: ako negde u nekom redu imam npr. "Monitor", potrebno je obrisati ceo taj red.
To sam uradio u VB preko ove formule:
Dim rng As Range
Set rng = Range("A1😀600") ' change to your range

For Each cell In rng
If InStr(cell.Value, "Monitor") = 1 Then
cell.EntireRow.Delete
End If
Next

I ovo radi.
Medjutim, problem mi je kada imam npr. stavku "TFT Monitor" ili "Monitor FC123". Kako da "kazem" VB-u da hocu da obrisem red u kome se nalazi rec "Monitor" i jos neka rec, ispred ili iza?

 

[joojant200]

Sub Macro1()
Dim rng As Range
Dim what As String
what = "onitor"
Do
Set rng = ActiveSheet.UsedRange.Find(what)
If rng Is Nothing Then
Exit Do
Else
Rows(rng.Row).Delete
End If
Loop
End Sub


__
izvor: http://www.mvps.org/dmcritchie/excel/delempty.htm

 

[IntelEkt]

Nece da radi 🙁 Ne prijavljuje nikakvu gresku, ali i ne radi nista.

 

[joojant200]

Meni je radilo (excel2003), probaj primer u attachmentu.

 

[IntelEkt]

Da, proradilo je kada sam zatvorio i ponovo otvorio Excel, nesto sam cackao po Personal.xls pa nista nije radilo.
Hvala puno 🙂