Geachte,
Onderstaande macro werkt perfect, hij kijkt naar het aantal op blad 1(voorblad cel b14 en kopieert op blad 2(PM1) kolom 6 x gevraagde aantal.
Nu wil ik deze gebruiken voor een ander document waarin in de kolom een button staat, deze wordt alleen op de eerst volgende kolom geplaatst maar niet op de daarop op volgende kolomen hoe kan ik dit eenvoudig oplossen?
Sub VenA()
Sheets("PM1").Visible = True
Sheets("PM1").Select
ActiveSheet.Unprotect
Sheets("voorblad").Select
If IsNumeric([B14]) And [B14] > 1 Then Blad2.Columns(6).Copy Blad2.Columns(7).Resize(, [B14] - 1)
Sheets("voorblad").Select
Columns("E:F").Select
Selection.EntireColumn.Hidden = True
Columns("g").Select
Selection.EntireColumn.Hidden = False
Sheets("PM1").Visible = True
Sheets("PM1").Select
Range("f6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowInsertingColumns:=True
end sub
BVD
Botje
Onderstaande macro werkt perfect, hij kijkt naar het aantal op blad 1(voorblad cel b14 en kopieert op blad 2(PM1) kolom 6 x gevraagde aantal.
Nu wil ik deze gebruiken voor een ander document waarin in de kolom een button staat, deze wordt alleen op de eerst volgende kolom geplaatst maar niet op de daarop op volgende kolomen hoe kan ik dit eenvoudig oplossen?
Sub VenA()
Sheets("PM1").Visible = True
Sheets("PM1").Select
ActiveSheet.Unprotect
Sheets("voorblad").Select
If IsNumeric([B14]) And [B14] > 1 Then Blad2.Columns(6).Copy Blad2.Columns(7).Resize(, [B14] - 1)
Sheets("voorblad").Select
Columns("E:F").Select
Selection.EntireColumn.Hidden = True
Columns("g").Select
Selection.EntireColumn.Hidden = False
Sheets("PM1").Visible = True
Sheets("PM1").Select
Range("f6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowInsertingColumns:=True
end sub
BVD
Botje