macro cel opschonen

Status
Niet open voor verdere reacties.

baukjen

Gebruiker
Lid geworden
14 sep 2006
Berichten
275
onderstaande deel vaneen macro geeft aan na verzenden een deel van de cellen op te schonen.
Nu wil ik ook graag een aantal cellen in een ander werkblad laten opschonen.
Hoe moet ik dat aangeven?

Dit hieronder is voor werkblad verzenden.
[S2].ClearContents
[B18:B44].ClearContents
[B5].Select

Wens is om een aantal cellen te schonen in een werkblad berekening. Beide in hetzelfde bestand

Alvast bedankt voor de tip
vr.gr.
Baukjen
 
Zoiets:
Code:
With Sheets("Berekening")
    .[S2].ClearContents
    .[B18:B44].ClearContents
End With

NB:
VBA heeft niets met Visual Basic .Net te maken.
 
Laatst bewerkt:
bedankt voor de snelle reactie en het werk. Sorry dat ik de vraag misschien op de onjuiste plek heb geplaatst.
een mooie voort zetting van de dag
goede groet
Baukjen
:thumb:
 
Laatst bewerkt:
Geen probleem :)
 
Ik ben nu al even bezig hoe ik nog een With Sheets er bij kan zetten (dus een 3de) tot nog toe lukt dit niet. Is daar een speciale regel voor die ik moet toepassen?
Zo heb ik het nu staan maar die werk niet.
[S2].ClearContents
[B18:B44].ClearContents
[B5].Select
With Sheets("Berekening")
.[C5:C6].ClearContents
.[E2].ClearContents
.[E5].ClearContents
End With

With Sheets("bereken Milimeter")
.[D10:H10].ClearContents
.[D11:H11].ClearContents
.[D12:H12].ClearContents
.[G9:H9].ClearContents
End With
End Sub
 
De syntax is zo in orde maar ik kan uiteraard niet zien wat er niet goed gaat en waarom als je dat document niet plaatst.
Zet tevens, als je code plaatst, deze in code tags.
 
Laatst bewerkt:
Met een plaatje kunnen we niks.
 
is dit voldoende?
Sub FactuurAlsPDF()
[E3] = [E3] + 1
Bestandsnaam = "Bestelling " & [E3] & " " & Date
' Bestandsnaam = "Bestelling " & [E3]

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=Bestandsnaam, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

[S2].ClearContents
[B18:B44].ClearContents
[B5].Select
With Sheets("Berekening")
.[C5:C6].ClearContents
.[E2].ClearContents
.[E5].ClearContents
End With

With Sheets("bereken Milimeter")
.[D10:H10].ClearContents
.[D11:H11].ClearContents
.[D12:H12].ClearContents
.[G9:H9].ClearContents
End With

End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan