VBA opslaan als op locatie cel

[maartenmars]

Ik heb een klein probeem. Mijn macro werkt. Alleen wil ik nu zorgen dat de locatie aangepast kan worden door mensen. Dus wil ik graag de locatie in een cel neerzetten. Hoe doe ik dit??
Dit is de macro.

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
Columns("F:M").Select
Selection.EntireColumn.Hidden = True
Columns("O:V").Select
Selection.EntireColumn.Hidden = True
Columns("X:AE").Select
Selection.EntireColumn.Hidden = True
Columns("AG:AN").Select
Selection.EntireColumn.Hidden = True
Columns("AP:AW").Select
Selection.EntireColumn.Hidden = True
Range("B6").Select
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 14

Dim Bestandsnaam As String

Bestandsnaam = "G:\DATAPROJ\riolen\Weekstaten\Weekstaten" & CStr(Range("A1").Value) & ".xls"
ThisWorkbook.SaveAs Bestandsnaam


End Sub


Nu moet hij opslaan op de locatie die in de cel A2 vermeld staat. Dus G:\DATAPROJ\riolen\Weekstaten\Weekstaten moet iets van [A2] worden, maar daar kom ik niet uit.

Antwoord bleek zo simpel als verwacht. Range("A2")

 

[Cobbe]

Deze werkt ook:

Private Sub test()
Dim Bestandsnaam As String
Application.ScreenUpdating = False
Columns("F:M").EntireColumn.Hidden = True
Columns("O:V").EntireColumn.Hidden = True
Columns("X:AE").EntireColumn.Hidden = True
Columns("AG:AN").EntireColumn.Hidden = True
Columns("AP:AW").EntireColumn.Hidden = True
Application.ScreenUpdating = False

Bestandsnaam = "G:\DATAPROJ\riolen\Weekstaten\Weekstaten" & CStr(Range("A1").Value) & ".xls"
ThisWorkbook.SaveAs Bestandsnaam
End Sub

Zo vermijdt je in elk geval die select's

Cobbe

 

[maartenmars]

Weer wat geleerd, dankje

 

[snb]

of

Range("F:M,O:V,X:AE,AG:AN,AP:AW").EntireColumn.Hidden = True