Objectvariabele of blokvariabele with is niet ingesteld

[tvanlaere]

Beste,

Ik ben een VBA-leek en volgende lukt mij dus langs geen kanten.

Ik wil een kolom updaten op voorwaarde dat een cel in een andere kolom aan een bepaalde waarde voldoet

Dus:

Vervalmaand (kolom L) Kolom M Kolom N
1 G 1.2
1 C 1.3
2 G 1.1
....

De gebruiker geeft een vervalmaand en twee indexcijfers. Afhankelijk van wat in kolom K staat en de vervalmaand, moet het getal in kolom L dus worden geupdate.
Hieronder foto van de code..

Ik doe waarschijnlijk verschillende zaken fout?

Bedankt !!
Toon

 

[edmoor]

Wat zijn de Vervalmaand, Gezondheidsindex en Consumptieindex voor objecten?

 

[Warme bakkertje]

Ik zou zelfs verder gaan en een voorbeeldbestand met alles erin posten zodat wij zelf kunnen zien wat er misloopt.

 

[tvanlaere]

Voila, selectie in bijlage.

Bedankt alvast
Bekijk bijlage 20140205_Verhuringen_selectie.xlsm

 

[Warme bakkertje]

With Sheets("Lijst verhuringen")
    For Each rCel In .Range("L7:L" & .Cells(6, 1).CurrentRegion.Rows.Count + 5)
        If rCel.Value = Val(Vervalmaand.Value) And UCase(rCel.Offset(, 5)) = "G" Then
            rCel.Offset(0, 6) = Gezondheidsindex.Value
        ElseIf rCel.Value = Val(Vervalmaand.Value) And UCase(rCel.Offset(, 5)) = "C" Then
            rCel.Offset(0, 6) = Consumptieindex.Value
        End If
    Next rCel
End With

 

[tvanlaere]

Bedankt voor je snelle reactie.
Heb het aangepast, maar ik krijg nog een foutmelding.

Dim rCel As Range

Sheets("Lijst verhuringen").Activate

For Each rCel In .Range("L7:L" & [COLOR="#FF0000"].Cells[/COLOR](6, 1).CurrentRegion.Rows.Count + 5)

    If rCel.Value = Val(Vervalmaand.Value) And UCase(rCel.Offset(, 5)) = "G" Then
        
        rCel.Offset(0, 6) = Val(Gezondheidsindex.Value)
    
    ElseIf rCel.Value = Val(Vervalmaand.Value) And UCase(rCel.Offset(, 5)) = "C" Then
        
        rCel.Offset(0.6) = Consumptieindex.Value
        
    End If
    
Next rCel

Unload Me

End Sub

Hij zegt "Compileerfout: ongeldige of niet-gekwalificeerde verwijzing".
Hij highlight ook ".Cells"

Bedankt!

 

[Warme bakkertje]

Kijk en vergelijk eens goed met de code die ik gepost heb !!

 

[tvanlaere]

Ah... With sheets

Wilde het overtypen om de syntax te proberen snappen (wat overigens niet volledig gelukt is), maar daar had ik over gekeken.

Wat is het verschil trouwens?

Bedankt !!!

 

[Warme bakkertje]

Het verschil is dat je op deze manier het werkblad niet noodzakelijk actief moet hebben om de code te laten uitvoeren, zodanig dat je ook geen nodeloos geflikker op je scherm kan krijgen.

 

[tvanlaere]

Het werkt perfect!
Bedankt