Opgelost Meerdere if formules toepassen in tabel, import XML.

[skystormer]

Beste ondersteunende helpers.

Mijn excuses dat mijn VBA kennis niet sterk is en nagenoeg niet aanwezig. Met voorbeelden en macro opnemen en deze uitzoeken ben ik al blij wat al gelukt is. Echter wil dit uitbreiden.
In ons systeem kan ik een XML bestand exporteren. (helaas kan ik geen XML bestand uploaden hier.)
Mbv van het bestand in de bijlage pas ik een vertaalslag (in de kolomkoppen) toe en zet alle gegevens in een tabel.

Nu wil ik in kolom B (natuurlijk exclusief rij 1) een formule toevoegen welke als in kolom R een waarde staat, dan in kolom de tekst "Controleren" komt te staan.
Indien de cel in kolom R leeg is, dan moet indien in kolom S de waarde "6" staat een formule worden uitgevoerd.
Als er een "2" staat in kolom S moet een andere formule worden uitgevoerd.

Hoe krijg ik dergelijke voor elkaar? (de formules om te testen kunnen gewoon "=2+2" zijn, via macro opnemen ga ik deze nog aanpassen.

Hopende op iemand die mij kan helpen in deze.

 

[AHulpje]

Neem gewoon een macro op, dan krijg je iets als:

Sub Macro1()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[16]<>"""",""controleren"",IF(RC[17]=2,""doe iets"",IF(RC[17]=6,""doe iets anders"","""")))"
End Sub

P.S.
Dit is ietsje compacter:

    Range("B1") = "Article number"
    Range("B:B").NumberFormat = "General"

 

[skystormer]

AHulpje,

Dank je voor die PS, maakt het zeker schoner. (viel onder het werkte, echter geen schoonheidsprijs)

Ik heb een paar dagen gezeten, dat formules niet berekend werden. Dacht de gehele tijd vanwege de 255 tekens limiet. Echter vandaag ontdekt per toeval dat het de celopmaak was. (Formule was betrekkelijk lang, echter door RC ga ik dit probleem zeker niet krijgen)

Opgelost bij deze.

 

[OctaFish]

Ik heb een paar dagen gezeten

Ik weet niet hoe streng ze zijn in de gevangenis, maar ik neem aan dat Excel daar ook nog wel werkt .