If Then Else in Loopvorm?

[Gurtie]

Hallo allemaal,

ik heb de volgende macro geschreven:

Sub AssortimentBepalen()
    ThisWorkbook.Worksheets("Assortiment").Activate
    If Range("E3") = "Ja" Then
       Sheets("Prognose").Select
       Range("A3").Select
       ActiveCell.FormulaR1C1 = "=Assortiment!RC"
    ElseIf Range("E3") = "Folder" Then
       Sheets("Prognose").Select
       Range("A3").Select
       ActiveCell.FormulaR1C1 = "=Assortiment!RC"
     Else: Sheets("Prognose").Select
        Range("A3") = ""
    End If

Dit houdt in dat als wsAssortimentE3 "Ja" of "Folder" is,
wsPrognoseA3 de waarde van wsAssortiment A3 overneemt.
Zo niet, dan neemt wsPrognose geen waarde aan.

Nu is het 'probleem' dat ik dit voor nog eens 160 regels moet doen, dus alle 3tjes
moeten veranderen in 4tjes, 5jes enzovoort. Nu lukt het me niet om dit in een loop te krijgen. Iemand suggesties? Anders moet ik deze macro 160x kopieren en de waarden veranderen, dat zal vast niet de enige oplossing zijn

groeten Gurtie

 

[huijb]

De kans op een oplossing neemt toe wanneer je ook even dit leest.

 

[Gurtie]

Ik lees het net Huib, kan alleen het bestand niet toevoegen vanwege privacygegevens helaas.
Ik probeer al om de code goed te plaatsen met die haakjes.
gr

 

[huijb]

Ik lees het net Huib, kan alleen het bestand niet toevoegen vanwege privacygegevens helaas.

Geeft niet als dat niet gaat.

Ik probeer al om de code goed te plaatsen met die haakjes.

Als het niet lukt geef je maar een gil.

Edit: Heb het al gedaan voor je, je had een ' voor de code staan.

 

[Gurtie]

Gil! Sorry, eerste keer dat ik hier een code plaats, maar wat doe ik fout?
Ik heb die tags geplaatst...

 

[huijb]

Edit: Heb het al gedaan voor je, je had een ' voor de code staan.

Zie mijn reactie.

 

[Gurtie]

Ah, refreshen hielp niet, maar nu ik opnieuw ben ingelogd zie ik het wel goed.
Bedankt voor je hulp Huijb, hopelijk kan iemand me helpen hiermee :thumb:

 

[Wigi]

Hier heb je geen macro voor nodig, dat kan gewoon met een ALS formule die je dan doorvoert, 160 regels naar beneden. Is binnen de minuut gepiept.

 

[Gurtie]

Klopt Wigi, maar voor de volledigheid had ik er bij moeten vermelden dat het wel met een knop moet gebeuren. En dan ben je aangewezen op een macro achter die knop toch?

 

[Wigi]

Moet het resultaat van de ALS formules er staan, of de ALS formules zelf?

 

[Gurtie]

Het gaat om het resultaat

 

[Road Dogz]

mss dat dit kan helpen.

range("waar je begint").select
ActiveCell.FormulaR1C1 = "formule die je gebruikt"
Selection.AutoFill Destination:=Range("bereik dat je wilt"), Type:=xlFillDefault

 

[Gurtie]

Ik moet nu helaas werken, maar ik zal er daarna naar kijken. Bedankt alvast voor jullie hulp, dit is een geweldig helpforum!

 

[Road Dogz]

In de formule die in VBA gebruikt moet je wel relatieve verwijzigingen gebruiken, anders werkt het niet.

 

[Wigi]

Sub AssortimentBepalen()
    With Sheets("Prognose").Range("A3").Resize(160)
        .Formula = "=IF(OR(Assortiment!RC[4]=""Ja"",Assortiment!RC[4]=""Folder""),Assortiment!RC,"""")"
        .Value = .Value
    End With
End Sub

Wigi

 

[kibus]

zoiets

gebruik goto

maak een start en eind punt

 

[Gurtie]

Het is gelukt, werkt prima bedankt :thumb: