Hei!
Onko mahdollista tehdä semmoinen makro, joka tunnistaa G sarakkeesta sanan peruutettu ja poistaa sen rivin kokonaan taulukosta?
Elikkä tarkoituksena on poistaa taulukosta rivit, jotka ovat merkitty "poistetuksi". Poistettu teksti sijaitsee G sarakkeessa.
Etukäteen kiitokset.
Onko mahdollista tehdä semmoinen makro, joka tunnistaa G sarakkeesta sanan peruutettu ja poistaa sen rivin kokonaan taulukosta?
Elikkä tarkoituksena on poistaa taulukosta rivit, jotka ovat merkitty "poistetuksi". Poistettu teksti sijaitsee G sarakkeessa.
Etukäteen kiitokset.
Vastaukset 5
Vanhimmat
tälleen
Sub poista()
Dim alue As Range
Application.ScreenUpdating = False
With ActiveSheet
.AutoFilterMode = False
.Range("G1:G" & .Rows.Count).AutoFilter Field:=1, Criteria1:="peruutettu"
With .AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then rng.EntireRow.Delete
End With
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub
Hei!
Olisiko mahdollista saada homma toimimaan myös sellai et jos solussa on sana peruutettu? Nimittäin tällä hetkellä solussa saattaa olla myös muuta tietoa, kuten päivämääriä jne. ja homma ei toimi niiden osalta.
Kiitos ja Kumarrus
Sub poista()
Dim alue As Range
Application.ScreenUpdating = False
With ActiveSheet
.AutoFilterMode = False
.Range("G1:G" & .Rows.Count).AutoFilter Field:=1, Criteria1:="*peruutettu*"
With .AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then rng.EntireRow.Delete
End With
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub
Hei!
Jostain syystä makro pysähtyy seuraavaan lauseeseen:
If Not rng Is Nothing Then rng.EntireRow.Delete. Minkä takia?`
Kiitos ja kumarrus.
Sub poista()
Dim alue As Range
Application.ScreenUpdating = False
With ActiveSheet
.AutoFilterMode = False
.Range("G1:G" & .Rows.Count).AutoFilter Field:=1, Criteria1:="*peruutettu*"
With .AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
If Not rng Is Nothing Then rng.EntireRow.Delete
End With
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub