Knop opslaan in C:\

[wieter]

Dag mensen
Een kort vraagje, zou iemand de knop "Factuur opslaan" werkend kunnen krijgen
Ik zou de factuurnummer als bestandsnaam willen gebruiken
Is er iemand die hiervoor de moeite wil doen
Dank aan wie wil helpen
Wieter

 

[Wigi]

Zet spaties rond de ampersand.

Die regel wordt rood gemarkeerd door VBA, dus erg ver kan de fout niet zitten hé...

 

[wieter]

Klopt Wim, dat was het probleem.
Maar nu blijkt dat er met het selecteren van de Range een probleem te zijn in

.Range("A1").Select

Mij lijkt hier niets mis mee te zijn
Toch werkt het nog niet
Wieter

 

[Wigi]

Je mag blij zijn dat je die foutmelding krijgt, want als je die gaat onderzoeken ga je vaststellen dat het kopiëren en plakken als waarden niet in de gewenste file gebeurt.

 

[wieter]

Juist Wim, die select was zelfs overbodig.
Bedankt om beginnelingen steeds maar opnieuw verder te helpen
Groeten

 

[Wigi]

Gewoon ter controle, heb je nu ook de juiste cellen die je kopieert en plakt?

 

[wieter]

Ondanks je aanwijzigingen kwam ik er niet helemaal uit.
Het boeltje werkte nu wel, maar toch niet helemaal zoals ik het wou.
Ik heb de code dan maar vervangen door de code van een specialist als snb
Dank
Wieter

 

[Wigi]

Als je deze code uitvoert, zal je wel begrijpen wat er niet werkt.

Private Sub CommandButton3_Click()
    Dim Bestandsnaam As String
    With Sheets("Blad1")
        'H11 = factuurnummer
        Bestandsnaam = .Range("H11").Value & ".xls"
        .Copy
        MsgBox ActiveWorkbook.Name
    End With
    With Cells
        MsgBox .Parent.Parent.Name
        .Copy
        .PasteSpecial xlPasteValuesAndNumberFormats, xlNone, False, False
        .Range("A1").Select
    End With
    'In C:\ de map aanmaken
    ActiveWorkbook.SaveAs "c:\Facturen\" & Bestandsnaam, xlNormal
    ActiveWorkbook.Close
End Sub

Vergelijk de 2 Message Boxes die je op het scherm gaat krijgen.

Wigi

 

[wieter]

Ja! Wim, nu is de frank gevallen
With sheets ("Blad1")
en
With Cells