factuur opslaan in bestandje, printen en gegevens toevoegen in ander tabblad

[ven0minal]

Ik heb een simpele boekhouding gemaakt waarin ik een paar dingen dmv vba wil laten gebeuren. ik heb 2 verschillende tabbladen een met een standaard factuur en 1 met de inkomsten. ik wil een knop maken waarbij het volgende gebeurt:

1. het tabblad (de factuur) wordt afgedrukt
2. het tablad wordt opgeslagen met als bestandsnaam het factuurnummer
3. De cellen met omschrijving, bedrag en klantnaam worden geknipt en geplakt naar eerstvolgende lege cellen in het tabblad inkomsten onder omschrijving, bedrag en klantnaam.

mijn vraag is of dit mogelijk is en of iemand een soortgelijke code heeft of wellicht kan iemand mij een site aanraden waar dit soort dingen worden uitgelegd.

alvast bedankt!

nick

 

[Wigi]

mijn vraag is of dit mogelijk is en of iemand een soortgelijke code heeft of wellicht kan iemand mij een site aanraden waar dit soort dingen worden uitgelegd.

Dag Nick

In de Excelsectie van het forum vind je zeker het antwoord op die vragen:

1. zoek op PrintOut
2. zoek op SaveAs
3. iets in deze stijl:

Sheets("doelsheet").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Sheets("bronsheet").Range("B2").Value

Wigi

 

[ven0minal]

bedankt voor de snelle reactie wigi

ik ben al een eind op weg maar uit 2 ding kom ik niet:

1. bij het opslaan van het bestand wil ik dat het bestand wordt opgeslagen in een nieuw bestand maar dat ik in het oude bestand(hoofdbestand) blijf. hoe het nu is kom ik terecht in het nieuw aangemaakte filetje.

2 hij slaat het hele werkboek op maar ik wil dat hij alleen het sheetje met de factuur opslaat

ik heb de volgende code:

Sub opslaan()

Dim myDir As String
Dim mySaveNaam As String

'
' Basisdirectory vastleggen en opslagnaam voorbereiden.
myDir = "E:\Documents and Settings\nick meulendijks\Desktop\flat\"

' mySaveNaam vragen
mySaveNaam = InputBox("geef het factuurnummer .xls ", "Opslaan")

If Len(mySaveNaam) > 0 Then
' ChDir myDir
With ActiveSheet
ActiveWorkbook.SaveAs Filename:=myDir & mySaveNaam & ".xls", FileFormat:=xlNormal
End With
MsgBox "Bestand is opgeslagen in " & myDir & " onder de naam " & mySaveNaam & ".xls"
Else
' Als niets wordt ingevuld wordt er niets opgeslagen
MsgBox "U hebt geen naam opgegeven", vbExclamation, "Er wordt niet opgeslagen"
End If

pad$ = Application.DefaultFilePath
controle = Dir(pad$ + "\FactuurNummer.txt")
If controle = "" Then GoTo EerstAanmaken
Open pad$ + "\Factuurnummer.txt" For Input As #10
Input #10, Nummer1
Close #10
EerstAanmaken:
Nummer1 = Nummer1 + 1
Open pad$ + "\FactuurNummer.txt" For Output As #10
Print #10, Nummer1
Close #10
'Noteer nu het opgehaalde factuurnummer in het werkblad
Application.Goto Reference:="Factuurnr."
ActiveCell.FormulaR1C1 = Nummer1
End Sub

als ik niet in de goede richting zit met de code hoor ik dat ook graag