Inhoud kopieren vorige regel en met 10 opplussen

[Robert Smidt]

Beste Helpmij'ers,

Ik heb een vraag over vba in Excel.

Bij Onderstaande code wil ik dat i.p.v. (Range("A" & Target.Row) + 10) deze de inhoud van kolom A van de vorige regel neemt en daar 10 bij op telt.

If Range("B" & Target.Row) <> "" And Range("A" & Target.Row) = "" Then Range("a" & Target.Row) = Range("A" & [COLOR="#FF0000"]Target.Row[/COLOR]) + 10

Alvast heel erg bedankt.

Groeten, Robert

 

[VenA]

Bijzonder weinig informatie. Met .offset(-1) ga je 1 regel omhoog.

 

[Robert Smidt]

Heel erg bedankt, volgens mij ben ik er bijna. Ik heb de code nu gewijzigd in:

If Range("B" & Target.Row) <> "" And Range("A" & Target.Row) = "" Then Range("a" & Target.Row) = .Offset(-1) + 10

Moet er voor .Offset(-1) nog iets worden vermeld, het systeem geeft een foutmelding bij: Range("a" & Target.Row) = .Offset(-1) + 10.

 

[HSV]

Het blauwe gedeelte moet er nog voor.

 Then Range("a" & Target.Row) =  [COLOR=#0000ff]Range("a" & Target.Row)[/COLOR].Offset(-1).value + 10

Je kan ook... =range("a"& target.row -1) + 10 ....schrijven

 

[Robert Smidt]

De code werkt perfect, beiden heel erg bedankt voor het meedenken en de oplossing