Ik heb een Macro opgenomen, deze selecteert 3 werkbladen en doet ze snel afdrukken.
Hierna gaat deze naar een werkblad en wordt de inhoud van 2 cellen aangepast.
Cel B14 was E2 wordt aangepast naar E3
Cel B3737 was B2 wordt aangepast naar B3
-------------------------------------------------------------------------------------------
Sub Macro2()
'
' Macro2 Macro
'
'
Sheets(Array("Blad1", "Blad2", "Blad3")).Select
Sheets("Blad1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Blad1").Select
Range("B14").Select
ActiveCell.FormulaR1C1 = "=Blad4!R[-11]C[3]"
Range("B15").Select
ActiveWindow.SmallScroll Down:=27
Range("B3737").Select
ActiveCell.FormulaR1C1 = "=Blad4!R[-34]C"
Range("B38:E38").Select
End Sub
-------------------------------------------------------------------------------------------
Als ik de Macro nu nog een keer gebruik, wordt de cel inhoud niet aangepast naar B4 en E4
Dit wil ik graag wel, iedere keer als de Macro gebruikt wordt moet deze de 2 waarden doorlopen.
Kan iemand mij hier mee helpen (de 2 smileys komt door : D aan elkaar)
Hierna gaat deze naar een werkblad en wordt de inhoud van 2 cellen aangepast.
Cel B14 was E2 wordt aangepast naar E3
Cel B3737 was B2 wordt aangepast naar B3
-------------------------------------------------------------------------------------------
Sub Macro2()
'
' Macro2 Macro
'
'
Sheets(Array("Blad1", "Blad2", "Blad3")).Select
Sheets("Blad1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Blad1").Select
Range("B14").Select
ActiveCell.FormulaR1C1 = "=Blad4!R[-11]C[3]"
Range("B15").Select
ActiveWindow.SmallScroll Down:=27
Range("B3737").Select
ActiveCell.FormulaR1C1 = "=Blad4!R[-34]C"
Range("B38:E38").Select
End Sub
-------------------------------------------------------------------------------------------
Als ik de Macro nu nog een keer gebruik, wordt de cel inhoud niet aangepast naar B4 en E4
Dit wil ik graag wel, iedere keer als de Macro gebruikt wordt moet deze de 2 waarden doorlopen.
Kan iemand mij hier mee helpen (de 2 smileys komt door : D aan elkaar)
Laatst bewerkt: