een macro maken voor knopen

[jannesgk]

hallo

ik heb een klein probleem heb veen exel bestand gemaakt met hulp
nu wil ik daar twee knopen invoegen om op te slaan met een macro
maar heb hier nog geen kennis van was wel al het zoeken geweest maar kom er niet uit
heb het bestand bij gevoegd de knoppen staan er al in met uitleg op sheet cluster3 en route met wat ik graag wil doen als dit mogelijk is
wie weet raad

 

[HSV]

Hang het eens aan de knop, en vul een datum in in C6.

Sub hsv()
If Range("C6") <> "" Then
 ActiveSheet.Copy
 ActiveWorkbook.SaveAs Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Range("C6"), 51
End If
End Sub

 

[jannesgk]

Harry
bedankt ga het proberen
groet
jannes

 

[HSV]

Proberen, en graag reactie als het óók gelukt is (voor de zoekenden op het forum).

 

[jannesgk]

harry
het werkt heb onder de knop gehangen en heb er een actie bij gevoegd
om de knop te verwijderen van het blad
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
Selection.Delete
dit werkt wel alleen zie het nog wel als ik op de knop gedrukt heb als ik afsluit en dan weer open is hij wel weg
en kan er voor de datum nog een naam komen bv back
tot zover eerst bedankt

groeten
jannes

 

[HSV]

Bij het opslaan van de kopie is er bij mij geen knop aanwezig.

 

[jannesgk]

ja klopt ik was te voorbadig het werkt goed
nog een vraag hoe kan ik deze code aanpassen voor meerdere sheets in een nieuw werkmap
groetjes jannes

 

[HSV]

Als op elk blad een knop staat, kun je de code daar ook aanhangen.

 

[jannesgk]

nee de bedoeling is op een sheet een knop staat en dat het dan meerdere sheets kopieert

 

[HSV]

In één dezelfde map.

Sheets(Array("Cluster 3", "Blad 1")).Copy

 

[HSV]

Ik dacht dat we hier goed bezig waren, maar als je aan crossposting doet zal niemand je meer willen helpen.
http://www.worksheet.nl/forumexcel/...assen-voor-opslaan-van-sheets.html#post684582

 

[jannesgk]

sorry dat was niet de bedoeling
zal het daar even verwijderen het was in een inpuls dat het geplaatst is

 

[jannesgk]

harry

sorry nog voor de dubbel plaatsing
ja we waren zeker goed bezig ben ik ook blij met de hulp die ik gekregen heb

nu heb ik dat laatste stuk tekst in de code geplakt op de plek van ActiveSheet.Copy maar ik krijg het niet werkend
wat doe ik fout heb er berip voor als je zegt ik help je niet meer om de crossposting zal het alleen jammer vinden wantje hebt me zeker goed geholpen

groet jannes

 

[HSV]

Probeer het zo eens Jannes.

Sub hsv()
If Range("C6") <> "" Then
 Sheets(Array("Cluster 3", "Blad 1")).Copy
 ActiveWorkbook.SaveAs Environ("USERPROFILE") & "\Desktop\" & thisworkbook.sheets("cluster 3")..Range("C6"), 51
End If
End Sub

 

[jannesgk]

harry
bedankt dat je me verder helpt
heb de code er in geplakt maar dan wordt deze lijn rood
ActiveWorkbook.SaveAs Environ("USERPROFILE") & "\Desktop\" & thisworkbook.sheets("cluster 3")..Range("C6"), 51
als ik de macro gebruik zegt het progamma compileerfout / syntaxisfout
wat doe ik fout

grt jannes

 

[HSV]

Mij excuses,

Er staat een punt dubbel in die regel.

 

[jannesgk]

harry
oke prefect het werkt bedankt voor je hulp topper
mijn probleem is opgelost
zal de vraag op opgelost zetten