• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

If statement pakt hij niet in VBA

Status
Niet open voor verdere reacties.
R

Ramsje

Gebruiker
Lid geworden
2 dec 2014
Berichten
70
Beste,

Ik heb een If statement gebruikt binnen een For loop, maar hij gaat niet in de If statement, terwijl de waardes kloppen. (Gecontroleerd met een MsgBox)
Het vreemde is, dat ik dezelfde if statement bij een andere sub ook heb gebruikt(andere sheet, zelfde excel bestand) en daar werkt hij wel.
Zie ik misschien iets over het hoofd?

Code: 
Rijnummer = 1
BehaaldeTarget = Behaalde_Target_TextBox
For Rijnr = 1 To 56
    If Team_Box.Value = Sheets("Dashboard").Range("A" & Rijnr) Then
        Rijnummer = Rijnr + 7
    End If
Next Rijnr

For ascii = 65 To 90
Kolomletter = Chr(ascii)
    [COLOR="#FF0000"]If WeekNr_Box.Value = Sheets("Dashboard").Range(Kolomletter & "1") Then
        MsgBox Kolomletter & Rijnummer
        Sheets("Dashboard").Range(Kolomletter & Rijnummer) = Me(Behaalde_Target_TextBox).Value[/COLOR]
    End If
Next ascii

Bijgevoegd een voorbeeld van het scenario.

Bekijk bijlage helpmij 2-7.xlsx

Met vriendelijke groet,

Ramsje
 
Beetje lastig naspelen zonder het benodigde formulier....

Maar ik gok dat je probleem zit in het feit dat je een integer met een tekstwaarde tracht te vergelijken. Voor het zicht hetzelfde, maar voor de verwerking zéker niet.
 
Laatst bewerkt:
@Ramsje:
Dat document is een .xlsx en bevat per definitie geen macro's.
Ook laat je niet in welk soort macro de code zit die je plaatste.
 
Laatst bewerkt:
edmoor zei:
@Ramsje:
Dat document is een .xlsx en bevat per definitie geen macro's.
Ook laat je niet in welk soort macro de code zit die je plaatste.
Klik om te vergroten...

Ja het is een voorbeeld van mijn eigen Sheet.

Mijn oorspronkelijke sheet is gewoon een .xlsm

Hoe bedoel je welke soort macro?
 
Ginger zei:
Beetje lastig naspelen zonder het benodigde formulier....

Maar ik gok dat je probleem zit in het feit dat je een integer met een tekstwaarde tracht te vergelijken. Voor het zicht hetzelfde, maar voor de verwerking zéker niet.
Klik om te vergroten...

En hoe is dat op te lossen?

Het gekke vind ik wel dat het bij andere subs wel lukt. daar gebruik ik ook die If statement en werkt die wel.

Als ik 1 van de waardes verander met: "5" oid, dan doet die het wel.
 
Waarom plaats je niet gewoon een document met een relevant voorbeeld?
 
edmoor zei:
Waarom plaats je niet gewoon een document met een relevant voorbeeld?
Klik om te vergroten...

Omdat het een bestand is met heel veel werk erin en codes die geschreven zijn. Ik vind het zonde als deze naar de buitenwereld gaan.
Het is echter dat ik alleen op dit stukje vast zit.
 
Ik vraag niet om het eigenlijke bestand maar om een bestand met een relevant voorbeeld.
 
If WeekNr_Box.Value = CStr(Sheets("Dashboard").Range(Kolomletter & "1")) Then
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan