ALS-functie in Macro

rudolph1 · 17 jul 2018

Goedenavond,

Ik hoop dat iemand mij kan helpen, want ik kom er niet helemaal uit...

Ik heb een ALS functie die ik graag zou willen verwerken in een Macro.

Het tabblad Export moet worden gevuld met:

Kolom A
=ALS(ISLEEG(Tabblad1!A2);" ";Tabblad1!A2)

Kolom B
=ALS(ISLEEG(Tabblad1!A2);" ";VANDAAG()) (Hierbij is het belangrijk dat de datum wordt opgeslagen als YYYY-MM-DD)

Kolom C
=ALS(Tabblad1!B2)="Tekst1";"AA";ALS(Tabblad1!B2)="Tekst2";"BB";ALS(Tabblad1!B2)="";"")))

In de bijlage mijn voorbeeld bestand.

Daarna moet ik zal het export bestand moeten worden opgeslagen als CSV.

Mocht er iemand zijn die mij hiermee kan helpen, mijn dank is groot!!

OctaFish · 17 jul 2018

Waar heb je die macro voor nodig? Ik lees daar niks van in je vraag.

edmoor · 17 jul 2018

Goeie vraag. Die formules doen hun werk toch goed?
Dit kan je gebruiken om dat tabblad als CSV bestand op te slaan:

Code:

Sub NaarCSV()
    Open ThisWorkbook.Path & "\csvbestand.csv" For Output As #1
    For i = 1 To Range("A1").SpecialCells(11).Row
        If Trim(Cells(i, 1)) <> "" Then
            Print #1, Join(Array(Cells(i, 1), Format(Cells(i, 2), "yyyy-mm-dd"), Cells(i, 3)), ";")
        End If
    Next i
    Close #1
End Sub

NB:
Hou er rekening mee dat een spatie wat anders is dan leeg.
Die formules zetten nu een spatie in een cel die je leeg wilt laten en dan is zo'n cel niet leeg.
Er zit in de code hierboven nu speciaal een controle om daar op te controleren.

VenA · 17 jul 2018

Het voorbeeldbestand vind ik niet al te best. Deze formule geeft hetzelfde resultaat:

Code:

=IF(Tabblad1!B2="BB";"AA";"")

Zonder formules en met een snellere code kan ook maar dan moet je volledig zijn met jouw vraag.

ALS-functie in Macro

rudolph1

Nieuwe gebruiker

Bijlagen

OctaFish

Verenigingslid

edmoor

Inventaris

VenA

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy