Stergere continut coloane

[popa.catalin]

Buna ziua
Va rog ajutati-ma
In codul de mai jos se sterge incepand cu celula A6 continutul din randuri si toate coloanele.
Eu as dori sa se stearga continutul incepand cu A6 in jos si doar continutul din primele 4 coloane
Va multumesc frumos.


'sterge informatia veche din foaia
With Sheets("sheet2").Range("A6").CurrentRegion.Offset(6, 1)
.Borders.LineStyle = xlNone
.ClearContents
End With

[Indigo-ONE]

Salut,

Testeaza:

Cod: Selectaţi tot

lastRow = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row
With Sheets("sheet2").Range("A6:D" & LastRow)
.Borders.LineStyle = xlNone
.ClearContents
End With

[popa.catalin]

Multumesc frumos, e super.
Asa novice cum sunt, sper sa ajut si eu pe cineva pe acest forum.
Inca odata MULTUMESC!

[Indigo-ONE]

Toti am fost începători....