opslaan van cellen met VBA

[meule]

Beste,
ik heb een blad aangemaakt met gegevens, daarbij heb ik een knop gemaakt voor het opslaan.
als ik op die knop druk zou hij de cellen A1 t/m S25 op moeten slaan met de weeknummer wat in de cel M2 staat in de map documenten.
zou u me kunnen helpen met de VBA code?
Mvrg Henny

 

[edmoor]

Wellicht handig om er ook bij te vertellen hoe, wat en waar de cellen moeten worden opgeslagen. Een voorbeeld documentje er bij is nog veel beter.

 

[gast0660]

Hoi,
IDD zoals Edmoor al aan gaf.
Maar mischien is dit voldoende

Sub dotchie()
Dim Wbnew As Workbook, Wbname As Variant
Set Wbnew = Workbooks.Add
ThisWorkbook.ActiveSheet.Columns("a:s").Copy Wbnew.Sheets(1).Cells(1)
Wbname = Application.Dialogs(xlDialogSaveAs).Show
End Sub

Greetz

 

[HSV]

op moeten slaan met de weeknummer wat in de cel M2 staat in de map documenten.
Mvrg Henny

Dan kan je maar eenmaal per week het bestand opslaan met die knop, of steeds overschrijven.