data wissen macro werkt niet (goed)

[arjoderoon]

Ik heb onderstaande macro om op het blad samenvoeging de laatste gevulde cel te bepalen en dan vanaf cel a2 t/m deze cel alles te wissen:

Sub datawissen()
Dim lastrow As Integer
Dim lastcolumn As Integer


Application.ScreenUpdating = False
Sheetnames = Array("food-drug", "aswatson", "food")

lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

lastcolumn = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

adres = Sheets("samenvoeging").Cells(lastrow, lastcolumn).Address

Sheets("samenvoeging").Range("A2", adres).ClearContents

End Sub

Deze werkt alleen maar deels helaas. Het result van de lastrow en last column is $U$36 terwijl bij mij nu de data gevuld is t/m $DE$401

ik snap alleen niet waarom de code niet verder komt dan u36..

er omheen zijn de cellen gevuld met data (wel nullen).

 

[Niels28]

er van uitgaande dat er altijd 1 rij en 1 kolom helemaal gevuld is.

Lastrow = cells(rows.count,1).end(xlup).row
Lastcolumn = cells(1,columns.count).end(xltoleft).column

kijk eens in de help file naar

CurrentRegion 
of
usedrange

Niels

 

[Warme bakkertje]

Dit al eens geprobeerd ?

With Sheets("samenvoeging")
    lastrow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    lastcolumn = .Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

    adres = .Cells(lastrow, lastcolumn).Address

    .Range("A2", adres).ClearContents
End With

 

[arjoderoon]

thansk voor de suggesties. ik heb verschillende opties geprobeerd. ik heb nu het volgende gedaan:

worksheets("schaduwblad").Cells.ClearContents