opslaan als

[DirkB]

ik heb een sheet waarin ik een berekening maak.
de berekening is voor alle adressen gelijk
in 1 kolom heb ik alle adressen staan.
nu wil ik graag per adres een bestand maken.

hoe kan ik met een macro zoveel bestanden maken en opslaan als er adressen in de lijst staan?

 

[edmoor]

Als je even een voorbeeldje plaatst krijg je veel sneller en beter antwoord.

 

[DirkB]

sorry voor late reactie.

bijgaand een voorbeeldje
in kolom c staan een aantal postcodes
wat ik wil bereiken is dat ik dmv een macro, deze sheet zovaak opsla in een map als er postcodes zijn.
en dat elk bestand als naam de waarde krijgt ui kolom c

gr Dirk

 

[OctaFish]

Een voorbeeldje. Ik heb een dynamische range toegevoegd voor de postcodes, zodat je de lijst naar behoeven korter of langer kan maken. De macro blijft dan gewoon werken.

 

[DirkB]

top dat werkt

 

[DirkB]

klein dingetje

Ik wilde het nog even mooier maken met de betandsnaam incl adres.
Heb eea geprobeerd met de macro maar daar kom ik niet uit.
vandaar maak weer een voorbeeldje

hoop dat je me nog een zetje kan geven in de juiste richting

 

[OctaFish]

Je hebt i als string gedefinieerd en niet als Integer. Een getal is geen tekst .

 

[DirkB]

ben even dwalende en gaan stoeien..
ik heb nu het door mij gemaakte bestandje bijgevoegd
ik heb jou code exact gekopieerd

in jouw sheet werkt t prima
in mijn sheet krijg ik een foutmelding
zie bijlage

alvast dank

 

[VenA]

Gebruik dan ook geen variabelen:d

Sub VenA()
For j = 2 To Columns(3).SpecialCells(2).Count
    ActiveWorkbook.SaveAs Cells(j, 3) & ".xlsm", 52
Next j
End Sub

 

[OctaFish]

in mijn sheet krijg ik een foutmelding

Je hebt de reeks niet overgenomen. Hij zoekt naar de range Postcode en die zit niet in jouw bestand.

 

[OctaFish]

Gebruik dan ook geen variabelen

En wat is 'j' dan?

 

[VenA]

Gebruik dan ook geen range als deze tot verwarring kan leiden.

Overigens wel bijzonder om bestanden op te slaan met leestekens erin.

Edit,

En wat is 'j' dan?

ff gemist.

Een niet gedefinieerde variabele die slim genoeg is om zelf te bepalen wat het beste is. Maar stond er inderdaad niet bij.

 

[HSV]

".xlsm" mag er wel achterweg; Je Pc is slim genoeg, maar waar wordt het naar toe geschreven?

 

[DirkB]

Goeie vraag Harry...
Hoe kan ik hier een bestandslocatie aan toevoegen?

@OctaFisch: met de range is het gelukt in mijn eigen bestand. thnx

Dim arr() As Variant
Dim i As Integer
    arr = Range("opslaan")
    For i = LBound(arr) To UBound(arr)
        ActiveWorkbook.SaveAs Filename:=arr(i, 1) & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Next i
End Sub

 

[VenA]

bv zo

Dim arr() As Variant
Dim i As Integer
map = "D:\Temp\"
    arr = Range("opslaan")
    For i = LBound(arr) To UBound(arr)
        ActiveWorkbook.SaveAs Filename:= map & arr(i, 1) & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Next i
End Sub

 

[HSV]

map = [COLOR=#FF0000][SIZE=4]"[/SIZE][/COLOR]D:\Temp\[SIZE=4][COLOR=#FF0000]"[/COLOR][/SIZE]

 

[VenA]

Best stom om een berichtje te editten en de "" te vergeten

Sub VenA()
Map = ThisWorkbook.Path & "\" 'of Map = "D:\temp\" '
For j = 2 To Columns(3).SpecialCells(2).Count
    ActiveWorkbook.SaveAs Map & Cells(j, 3), 52
Next j
End Sub

 

[HSV]

Kan gebeuren.