Optellen en openen document.

[Paul-RT]

Ik heb weer eens wat.

Cel Y6 heeft een volgnummer die ik handmatig kan wijzigen tussen 000 en 999 (cijfers)

Na klikken op "Commandbutton 1"| moet het volgende gebeuren:
Y6 moet 1 worden opgeteld.
X4 moet de waarde krijgen: "FACPW0902001" waarbij de opmaak is: FACPWYYMMnmr (jaar, maand, volgnummer in 3 cijfers, afgeleid van waarde Y6)

Dus bij FACPW0902012 is het jaar 2009, maand 2 en volgnummer (waarde Y6) is 12.
Daarna moet er een document worden geopend.
Die pakt vanzelf de ontstane waarde uit X4.

Ik ben aan de hand van andere werkende docuemnten van mij wat gaan experimenteren, maar het wil niet gaan werken.
Ik heb de volgende code in "Blad1".

Private Sub CommandButton1_Click()
    
    Dim fn As Integer
      fn = Value("Y6")
      fn = fn + 1
      

    With ActiveWorkbook.Sheets("Artikellijst")
        .Range("X4") = "FACPW" & Format(Date, "yymm") & Format(fn, "000")
    End With
  
  Workbooks.Open ("G:\Microsoft Office 2003\Excel\Postma\Postma Webshop\Factuur LEEG.xls")

End Sub

 

[Roncancio]

Private Sub CommandButton1_Click()
Worksheets("Artikellijst").Range("Y6").Value = Worksheets("Artikellijst").Range("Y6").Value + 1
Worksheets("Artikellijst").Range("X4").Value = "FACPW" & Format(Date, "yymm") & Format(Worksheets("Artikellijst").Range("Y6").Value, "000")
Workbooks.Open ("G:\Microsoft Office 2003\Excel\Postma\Postma Webshop\Factuur LEEG.xls")

End Sub

Met vriendelijke groet,


Roncancio

 

[snb]

Private Sub CommandButton1_Click()
    [Y6]=[Y6]+1
    [X4]= "FACPW" & Format(Date, "yymm") & Format([Y6], "000")
   
    With Workbooks.Add( "G:\Microsoft Office 2003\Excel\Postma\Postma Webshop\Factuur LEEG.xls")
      .SaveAs "G:\Microsoft Office 2003\Excel\Postma\Postma Webshop\" & [X4} & ".xls"
    End With
End Sub

 

[Paul-RT]

tekst aangepast en zip toegevoegd.....

Jullie zijn te snel

Thanx ga het uitproberen.

Dat stukje save van SNB staat in "this workbook".
Dat werkt goed

 

[Paul-RT]

Ok, dat stukje werkt.

Wat gaat er met dit opslaan nog fout?
Commandbutton 1, als die geklikt wordt, opslaan met de naam van de file (waarde uit cel D10)
Daarna betreffende document afsluiten.

Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs .Filename=("G:\Microsoft Office 2003\Excel\Postma\Postma Webshop\Faturen").Sheets=("Factuur").Range("D10").Value
ThisWorkbook.Close
End Sub

Is het mogelijk, om bij openen en opslaan de schijfpartitie achterwege te laten?
Ik weet niet waar mijn kennis de gegevens gaat opslaan.
Dus "G:\Microsoft Office 2003\Excel\Postma\" geheel weg.

 

[snb]

Dan hoeft in de knop alleen te staan

Private Sub CommandButton1_Click()
  Workbooks.Add createobject("Wscript.shell").specialfolders(13) & Factuur LEEG.xls"
End Sub

Specialfolders(13) is de map Mydocuments

Zet dan in

Private sub Workbook_close()
   [Blad1!Y6]=[Blad1!Y6] +1
   Thisworkbook.SaveAs createobject("Wscript.shell").specialfolders(13) & "FACPW" & Format(Date, "yymm") & Format([Blad1!Y6], "000") & ".xls"
End Sub

 

[Paul-RT]

Nu halen we 2 documenten door elkaar.
Het eerste deel van de vraag ging over een Artikelenlijst.
1 van de buttons opent een document"factuur".

Dat gaat dan ook over de laatste vraag.
Via een formule haal ik het factuurnummer op, en stop dat in cel D10.
Na een druk op commandbutton 1 moet de gehele waarde uit cel D10 de naam van het document worden, en dan sluiten.