• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Formule blad ledigen na printen

Status
Niet open voor verdere reacties.
C

coolsluc

Gebruiker
Lid geworden
2 mei 2013
Berichten
332
Aan iedereen die wil helpen
Ik heb een formule (samengesteld met de hulp van het forum).
Graag zou ik deze laten aanpassen.
Na de actie print zou de tabel terug moeten geledigd worden,heb geprobeerd de macro aan te passen maar dit werkt niet.
wat doe ik verkeerd?

Sub Knop1_Klikken()
'

' Knop1_Klikken Macro

'
If WorksheetFunction.CountA(Range("B1:E33")) > 0 Then
LaatsteRij = Range("B1:E33").Find(What:="*", After:=[B1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If
Range("B1:E" & LaatsteRij).PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "0"
Range("A2").Select
ActiveWorkbook.Save

End Sub




mvg,Luc
 
Dit moet voldoende zijn:
Code: 
Sub Knop1_Klikken()
'
' Knop1_Klikken Macro
'
 If WorksheetFunction.CountA(Range("B1:E33")) > 0 Then
  LaatsteRij = Range("B1:E33").Find(What:="*", After:=[B1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 End If
   Range("B1:E" & LaatsteRij).PrintOut Copies:=1, Collate:=True[COLOR="#FF0000"][B]
   Range("B1:E33").ClearContents[/B][/COLOR]
 'ActiveWorkbook.Save

End Sub

Die Save-opdracht heeft dan ook geen zin meer aangezien je steeds de tabel leeg maakt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan