Helemaal gelijk, zonder studeren (zelf lering) geraak je niet verder in VBA.
Maar zonder voorbeeld is het wel lastig om ergens een idee van te krijgen.
Kijk eens hier voor aan te raden sites voor extra info over VBA.
http://www.helpmij.nl/forum/showthread.php?t=258691
Voor jouw probleem, bekijk de volgende file eens.
Je komt bij de code door:
alt + F11 te drukken
in de linker kolom klik op modules
dubbelklik op module 1
De regels welke groen van kleur zijn zijn info regels, deze krijg je door de ' er voor te zetten.
Denk wel dat ik het goed heb uitgelegd, nu is het aan jouw om dit te gaan snappen / uitpluizen hoe de werking nu precies is. Op de gegeven website kan je de achtergrond info vinden. Teven is de helpfile Excel VBa een goede tool om snel inzicht te krijgen van de werking van de verschillende functies.
Voor de gevorderden welke de code alleen willen bekijken:
Code:
Sub Opslaan_r20()
'*** met dank aan R. de Bruin voor de opzet
'*** http://www.rondebruin.nl/saveas.htm
'Declareer eerst je variabelen
Dim FileNaam, PadFile As String
'Zet het beeldscherm updaten en de foutmelding van Excel uit
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Bepaal de filenaam van je nieuw op te slaan bestand.
'Deze wordt nu uit de cel A1 gehaald en aangevuld met de datum van vandaag
FileNaam = Sheets("Blad1").Range("A1").Value & " " & Format$(Date, "dd-mm-yyyy")
'Bepaal de locatie waar je je bestand wil op laten slaan, op dit moment je standaar windows folder MyDocument onder je inlognaam.
'De kan je veranderen in wata jij wil bv. : "C:\Temp\nieuwe files\"
'pad wel tussen "" tekens plaatsen en beeindigen met een \.
PadFile = Application.DefaultFilePath & "\"
'Het te kopieren bereik
Sheets("Blad1").Range("A2:B25").Copy
'open een nieuwe Excel file
Workbooks.Add
'Plak de gekopieerde data in je nieuwe blad
ActiveSheet.Paste
'Zet de kopieer modus uit zodat er geen gegevens meer blijven in het geheugen
Application.CutCopyMode = False
'Sla het nieuwe bestand op onder de gegeven naam en sluit deze gelijk af
With ActiveWorkbook
'naam van je bestand is: gegeeens uit variabele PadFile + variabele FileNam + .r20 als extensie
.SaveAs PadFile & FileNaam & ".r20"
.Close SaveChanges:=False
End With
'laat een tekstbox zien met een bericht erin, deze kan je zelf aanpassen tussen de "" tekens
MsgBox "U kunt de nieuwefile vinden op locatie: " & Application.DefaultFilePath
'Zet het beeldscherm updaten en de foutmelding van Excel aan
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Succes met je VBA avontuur en we zullen je vast nog wel gaan tegenkomen op het forum.
ps
Hou me altijd aanbevolen voor verbeteringen op de code
.
