Excel Macro

[Verwijderd]

Mijn vraag
Ik ben op dit moment bezig met een macro en zou graag willen dat deze standaard uit wordt gevoerd voor een lijst bestaande uit 700 mogelijkheden. In onderstaande Macro begint het nu met cel "Werknemers!A2", maar wil graag dat deze doorgaat tm "Werknemers!A700"

De macro die ik nu heb is als volgt:

Sub PDF()
'
' PDF Macro
'
' Sneltoets: Ctrl+Shift+P
'
ActiveCell.FormulaR1C1 = "=Werknemers!A2"
Range("B1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=Werknemers!R[1]C[-1]"
Range("B2").Select
ActiveWorkbook.Save
ChDir "G:\Test\Test\Verlofkaarten\September"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\KennisRijk\Rapportages\Verlofkaarten\September\" & Range("B4").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Kan ik hiermee geholpen worden?..

[tritimee]

ik zou eens googlen op:

Excel VBA For each cell in range

Denk dat je daarmee wel een paar stappen verder kunt komen.

[Verwijderd]

Allereerst bedankt voor je reactie.
Helaas kom ik er niet uit.
Heb van alles geprobeerd, maar de combinatie met het opslaan als PDF wil niet lukken.
Heb er nu in ieder geval van gemaakt:

Visual Basic:

Sub PDF()
'
' PDF Macro
'
' Sneltoets: Ctrl+Shift+P
'

Dim rng As Range: Set rng = Application.Range("Werknemers!A2:A600")
Dim cel As Range
For Each cel In rng.Cells
    With cel
    End With
Next cel
    
    ActiveCell.FormulaR1C1 = "=Werknemers!A2"
    Range("B1").Select
    Selection.NumberFormat = "General"
    ActiveCell.FormulaR1C1 = "=Werknemers!R[1]C[-1]"
    Range("B2").Select
    ActiveWorkbook.Save
    ChDir "G:\KennisRijk\Rapportages\Verlofkaarten\September"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "G:\KennisRijk\Rapportages\Verlofkaarten\September\" & Range("B4").Value & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

End Sub

Enig idee hoe dit anders moet?

[ Voor 0% gewijzigd door F_J_K op 28-10-2019 16:38 ]

[F_J_K]

Welkom

Ik heb je code even wat beter leesbaar gemaakt met 'code' tags. Zie https://gathering.tweaker...update_message/60427374/0 hoe dat werkt.

Je bent op weg: je moet je gewenste zaken alleen even tussen de for.. next plaatsen. En dan natuurlijk ook niet het ActiveCell "object" gebruiken maar cel.

Advies: ga anders eerst wat 'droog oefenen' met A2:A3. Dan hoef je geen 599 files weg te gooien

[Verwijderd]

Ik heb een vraag over Excel

Project nummer 117826
Project nummer met taak 117826-1.02
Taak nummer 1.02

Op elk "Project nummer met taak" staat een budget

Nu heb ik een project met een budget van 2.857.801,20
Om te bepalen welke taak er hoort op dit budget doen we index match en krijg ik de juiste taak

Maar nu kan het ook voorkomen dat er geen budget is op de taak die ik nodig heb, dan wil ik zoeken op "VOC" nu is het nadeel dat er dan een andere tabel area gekozen moet worden. Dus in de hele lijst van projecten moet de area met alleen projectnummer 117826 in beeld komen en dan wil ik de taak in beeld krijg waar in de taak naam het woordje "voc"voor komt. ik heb dit al geprobeerd:

=IF(B:B=B1,"-",IF(K:K=0,SEARCH("voc",'PA51'!$M$4:$M$1000000,2),(INDEX('PA51'!$L$4:$L$1000000,MATCH(K:K,'PA51'!$P$4:$P$1000000,0)))))

Op deze manier krijg ik dus wel de project en taaknummer waar budget op staat, maar waar geen budget op staat zoekt hij niet naar voc...

Wie kan mij helpen??

[F_J_K]

@Verwijderd welkom

Goed en terecht dat je eerst zoekt in oude topics voor je een vraag stelt, maar open dan ajb een eigen topic voor een eigen vraag. Nu 'kaap' je andermans discussie en dat kan niet de bedoeling zijn.

Ik zal dit topic sluiten en je reactie in [EXCEL] Deel van tekst zoeken in tabel* verplaatsen naar een eigen topic.