x.zoeken omzetten naar vba

[bigfood]

Goedemorgen allemaal,

ik heb een vraagje over de formule x.zoeken om te zetten naar een VBA code.
dit omdat ik in het echte bestand lege regels niet wil weergeven als het bestand naar PDF gaat. met een formule in de cel ziet die dat als waarde en werkt dat niet.

ik gebruik de formule =X.ZOEKEN(B4;Inschrijven!B:B;Inschrijven!A:A;"")
dit om de waarde van een naam van 2 werkbladen te koppelen.

ik heb een voorbeeldbestandje bijgevoegd. met formule's weet ik me weg aardig te vinden maar niet met VBA.

en het liefste dat bij gang Alfa alleen kamernummer 1 invoer en dat dan de fictieve naam eraan word gekoppeld. terwijl in de ander wel gangnaam en nummer word weergeven.

graag hoor ik van jullie.

mvg Bas

 

[mvdvlist]

Ik heb van je Verloflijst een Tabel gemaakt.
En een PowerQuery die de lege rijen uit de eerste kolom weglaat.
\Die staat op blad PowerQuery. Dat blad kun je dus printen e.d.
Wel na elke opdracht even alles vernieuwen via Gegevens, Vernieuwen.

Dan heb je geen VBA nodig.

Wel zelf een een PDF macro of opdracht maken.

 

[bigfood]

Hallo,

is dit niet via een VBA te maken ipv een ander scherm?

of is het mogelijk dat als je naar PDF om zet de lege cellen eruit haalt?
omdat er nu een formule in zit ziet hij dat als ingevulde cellen en blijft hij dit weergeven?

mvg

 

[mvdvlist]

Je vraag was om de lege rijen te verwijderen. Dat gaat op deze manier prima. Alleen moet je wel de opmaak van de PQtabel aanpassen indien nodig en met VBA of rechtstreeks uit Excel (exporteren) een PDF maken...

 

[HSV]

Voor de rijen.

Sub Rechthoek1_Klikken()
 With Cells(1).CurrentRegion
  .AutoFilter Array(1, 2), "<>"
  .ExportAsFixedFormat 0, Environ("TEMP") & "\" & ActiveSheet.Name
  .PrintPreview
  .AutoFilter
End With