Excel file bewaren dmv ctl+shift+s lukt niet

[Dutchie]

Ik krijg het niet voor elkaar om een file te safen in een andere map op de pc
Op 1 of andere manier werkt de opdrachtgever niet omdat ik waarschijnlijk een routine/aangever mis
Wie weet er raad?

 

[VenA]

Weinig te zien dit plaatje. Druk na het laatste " eens op <Enter> en probeer het dan nog eens.

 

[Cobbe]

Post die code apart ipv een foto aub

 

[Dutchie]

Post die code apart ipv een foto aub

Wat jullie waarschijnlijk willen weten =


Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "C:\Users\Frans\Desktop\Facturen\Fact" & Range("B6").Value & ".xlsx" ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub

 

[Cobbe]

Misschien werkt het zo:

Public Sub OpslBestand()
 Dim NieuwFact As Variant
 'kopiëren document als nieuwe factuur
 ActiveSheet.Copy
 NieuwFact = "C:\Users\Frans\Desktop\Facturen\Fact" & Range("B6").Value & ".xlsx"
 NieuwFact.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
 ActiveWorkbook.Close
 VolgFact
 End Sub

 

[VenA]

Volgens mij kan het ook wel zonder variabelen. Pad en range nog wel even aanpassen.

Sub VenA()
ActiveSheet.Copy
With ActiveWorkbook
    .SaveAs "D:\Temp\" & [a1] & ".xlsx"
    .Close
End With
End Sub

 

[Dutchie]

Misschien werkt het zo:

Public Sub OpslBestand()
 Dim NieuwFact As Variant
 'kopiëren document als nieuwe factuur
 ActiveSheet.Copy
 NieuwFact = "C:\Users\Frans\Desktop\Facturen\Fact" & Range("B6").Value & ".xlsx"
 NieuwFact.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
 ActiveWorkbook.Close
 VolgFact
 End Sub

Dank je wel Cobbe de foutmelding is er uit.

Nu moet hij hem alleen nog opslaan in de geopende map en dat doet hij nog niet :-(

 

[Dutchie]

Volgens mij kan het ook wel zonder variabelen. Pad en range nog wel even aanpassen.

Sub VenA()
ActiveSheet.Copy
With ActiveWorkbook
    .SaveAs "D:\Temp\" & [a1] & ".xlsx"
    .Close
End With
End Sub

Dank je VenA

Geen foutmelding maar ook geen registratie in de daarvoor bestemde map

Nog andere ideeën?

Hoor het graag van je

gr
Frans

 

[VenA]

Het elke keer quoten is niet nodig. Blijkbaar heb je dit gemist "Pad en range nog wel even aanpassen."

 

[Dutchie]

Ik heb het aangepast maar hij schrijft nog niets weg

Sub OpslBestand()
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\Users\Frans\Desktop\Facturen\Fact" & Range("B6").Value & ".xlsx"

.Close
End With
End Sub

 

[edmoor]

En wat staat er in B6?
En dan graag niet een beschrijving maar de exacte waarde.

 

[VenA]

Dan krijg je een melding dat het pad niet bestaat? Of dat de naam in B6 ongeldig is? Tussen Fact en " hoort ook nog een "\" te staan denk ik. Maar ik weet natuurlijk niet wat er in B6 staat.

Nb. Code kan je het beste even tussen codetags plaatsen dat maakt het wat beter leesbaar.

 

[Dutchie]

De exacte waarde B6 (correctie) B10 is het automatisch gegenereerde Factuurnr.

Dit zijn de complete opdrachtregels voor het automatisch doortellen van het factuurnummer en de opslaan van de factuur in de daarvoor bestemde map. Hierbij aantekenend dat het automatisch doortellen van factuurnr wel werkt.

[Sub VolgFact()
Range("B10").Value = Range("B10").Value + 1
Range("A20:A24").ClearContents
Range("B9").Value = Date
End Sub




Sub OpslBestand()
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\Users\Frans\Desktop\Facturen\Fact" & Range("B10").Value & ".xlsx"

.Close
End With
End Sub]

 

[edmoor]

Krijg je een melding bij het uitvoeren van die macro?
Plaats anders je document of een relevant voorbeeld.

 

[Dutchie]

nee geen meldingen ook niet een piep of iets dergelijks

update knop
Factuur

De rest hadden jullie al

 

[edmoor]

Ik heb alleen maar plaatjes gezien, geen document.

 

[VenA]

En als je met de rest dan ook wat doet .........

Wordt wel een gok omdat er in de plaatjes niets relevants staat.

.SaveAs "C:\Users\Frans\Desktop\Facturen\Fact[COLOR="#FF0000"][SIZE=6]\[/SIZE][/COLOR]" & Range("B10").Value & ".xlsx"

 

[edmoor]

Het bestand zal opgeslagen moeten worden als Fact20160002.xlsx in de map C:\Users\Frans\Desktop\Facturen, gok ik.

 

[Dutchie]

@Edmoor
Het plaatje van de factuur IS HET Document! Iets anders heb ik niet voor je

@VenA Jammer maar dat werkt ook niet

 

[edmoor]

Het plaatje is geen document, het is een plaatje. Ik vroeg dus je document Excel document te plaatsen.