Macro som sletter rækker og kolonner udenfor navngivet område

Husk backup er en go ting :-)

Sub RydOp()
flag = True
For Each v In Range("A1:Q30")
For Each c In Range("print_area")
If c.Address = v.Address Then flag = False
Next
If flag = True Then v.Clear
flag = True
Next
End Sub

Det er alle tiders kode. Den virker umiddelbart men fejler dog til sidst efter den har clearet cellerne.

Det er dog ikke helt hvad jeg leder efter.
Jeg jo kun får clearet cellerne og ikke slettet dem. Jeg kan dog godt se at kompleksiteten stiger for jeg er jo nødt til at teste på om rækken eller kolonnen har fælles celler før jeg kan slette.

Jeg skulle gerne ende op med kun at have data i Print_area tilbage i sheetet og disse data vil da blive placeret med udgangspunkt i A1 da rækker over og kolonner til venstre for området er slettet.

prøv:

Sub Terminator()
On Error Resume Next
Rows("1:" & Range("print_area").Row - 1).EntireRow.Delete
If Range("print_area").Column - 1 >= 1 Then
For t = Range("print_area").Column - 1 To 1 Step -1
Columns(t).EntireColumn.Delete
Next
End If
End Sub

Genialt Jeg takker og bukker :-)

velbekom :-)

husk lige at lukke

Jeg var nok lige hurtig nok.
Nedenstående kode sletter ganske rigtigt kolonner til venstre for og rækker over et givet navngivet område. Det sletter dog ikke kolonner til højre og rækker under et navngivet område. Man det lade sig gøre at udvide koden til at gøre dette også?

Sub Terminator()
On Error Resume Next
Rows("1:" & Range("print_area").Row - 1).EntireRow.Delete
If Range("print_area").Column - 1 >= 1 Then
For t = Range("print_area").Column - 1 To 1 Step -1
Columns(t).EntireColumn.Delete
Next
End If
End Sub

ok prøv :

Sub Terminator()
On Error Resume Next
Rows("1:" & Range("print_area").Row - 1).EntireRow.Delete
If Range("print_area").Column - 1 >= 1 Then
For t = Range("print_area").Column - 1 To 1 Step -1
Columns(t).EntireColumn.Delete
Next
End If

lastRK = Range("A1").SpecialCells(xlLastCell).Row
lastKOL = Range("A1").SpecialCells(xlLastCell).Column
Rows(Range("print_area").Rows.Count + 1 & ":" & lastRK).EntireRow.Delete

Range("print_area").Offset(0, Range("print_area").Columns.Count).Resize(1, lastKOL).EntireColumn.Delete

End Sub

Virker som en drøm. Takker igen.