Hoi allemaal!
Ik heb een Excel bestand waarin ik de volgende functies automatisch wil laten uitvoeren:
- Selectie van 1 rij, meerdere kolommen (A13 – N13)
- Doorvoeren, onder voorwaarde dat er in de A-kolom een geldige datum staat (dus niet 00-01-00)
- Werkblad opslaan als: c:\temp\renteberekening{waarde in cel C3}.xls
- Oorspronkelijke werkblad mag niet wijzigen.
Volgens mij kan dit wel met een macro, maar hier heb ik geen verstand van. Het volgende heb ik al wel:
Sub AUTOVUL()
'
' AUTOVUL Macro
' De macro is opgenomen op 16-6-2004 door Monica .
'
'
Range("A13:N13").Select
Selection.AutoFill Destination:=Range("A13:N256"), Type:=xlFillDefault
Range("A13:N256").Select
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 1
Range("O15").Select
ChDir "C:\temp"
ActiveWorkbook.SaveAs Filename:="C:\temp\vb_renteberekening1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Iemand suggesties?
Alvast heel erg bedankt!
Monica.
Ik heb een Excel bestand waarin ik de volgende functies automatisch wil laten uitvoeren:
- Selectie van 1 rij, meerdere kolommen (A13 – N13)
- Doorvoeren, onder voorwaarde dat er in de A-kolom een geldige datum staat (dus niet 00-01-00)
- Werkblad opslaan als: c:\temp\renteberekening{waarde in cel C3}.xls
- Oorspronkelijke werkblad mag niet wijzigen.
Volgens mij kan dit wel met een macro, maar hier heb ik geen verstand van. Het volgende heb ik al wel:
Sub AUTOVUL()
'
' AUTOVUL Macro
' De macro is opgenomen op 16-6-2004 door Monica .
'
'
Range("A13:N13").Select
Selection.AutoFill Destination:=Range("A13:N256"), Type:=xlFillDefault
Range("A13:N256").Select
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 1
Range("O15").Select
ChDir "C:\temp"
ActiveWorkbook.SaveAs Filename:="C:\temp\vb_renteberekening1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Iemand suggesties?
Alvast heel erg bedankt!
Monica.