VBA > Hoe verhoog je een range met een waarde

[Atara7]

Goedendag allemaal

Ik wil het volgende in een for/next loop gebruiken, maar het lukt me niet echt:

If .Range("U5").Value <> 0 Then.Range ("F11").value=.Range("U5").value
If .Range("U6").Value <> 0 Then.Range ("F12").value=.Range("U6").value
If .Range("U7").Value <> 0 Then.Range ("F13").value=.Range("U7").value

Ik dacht het op te lossen met het volgende:

For i = 1 to 9
If .Range(U & 5 +i).Value <> 0 Then
.Range (F & 11 + i).value=.Range(U & 5 + i).value
Next

Maar dat werkt dus niet.
Iemand enig idee hoe dit wel zou moeten?
Groetjes, Aat

 

[Cobbe]

For i = 1 to 9
If .Range("U" & 5 +i).Value <> 0 Then
   .Range ("F" & 11 + i).value=.Range("U" & 5 + i).value
End if
Next

Zonder garant te staan voor het resultaat.
Cobbe

 

[Atara7]

Dat gaat helaas ook niet goed
Ik heb alle combinaties met "" op diverse plaatsen geprobeerd, maar zonder succes
Ik ga ondertussen nog even verder 'googlen'

Groetjes, Aat

 

[Wigi]

En waar komt er een foutmelding?

Wat voor foutmelding dan wel?

Ga eens met F8 stap voor stap door de code.

Wigi

 

[snb]

for j= 0 to 3
  if [U5].offset(j)<>0 then [F11].offset(j)=[U5].offset(j)
next

 

[Atara7]

Ik kan het helaas niet gelijk testen, excel staat op een afgeschermd netwerk
maar alvast bedankt!!!
Ik had zelf ook al iets nieuws verzonnen:

Sub FillRange()
        For Row = 1 To 9
            Sheets("Sheet1").Cells(11+Row, 6).Value = Sheets("Sheet1").Cells(5+Row, 21).Value
        Next Row
End Sub

Maar of dit werkt weet ik dus ook nog niet en de code van snb ziet er wel beter en logish uit :thumb:
Morgen weet ik meer, dan laat ik even weten of het gelukt is!
Bedankt, Aat

 

[Ginger]

Atara7, Het blijft voor helpers natuurlijk altijd moeilijk om te helpen als niet de volledige code getoond wordt. Maar het valt me op dat je in de code van je initiele vraag gebruik maakt van de syntax '.Range' (met een punt ervoor dus). Dit zou betekenen dat je je codeblok ergens met een With Sheets("[naamvandesheet"]) begint en met een End With eindigt. Als dat niet zo is, is dat de reden van het niet werken van je code (denk ik zo).

Groet, Leo