Probleem om waarde te declareren

[wiki]

In een matrix wil ik in de huidige cel de waarde overnemen
uit rij (van rijnummer uit de huidige rij in kolom 36)

waarde r2 zou de waarde uit eigen rij kolom 36 moeten zijn, maar dit lukt niet.
Wie kan helpen?

Sub aanvullen()
Dim c As Long, r As Long, r2 As Integer

For c = 8 To 39  'kolommen
    For r = 5 To 100 'rijen
 If Cells(r, 1) <> "" Then
        r2 = Cells(r, 36)
        
            Cells(r, c) = Cells(r2, c)
           
            End If
        
     Next r
Next c
End Sub

 

[wiki]

Opgelost, probleem zat in lege waarde in de cel waardoor macro foutmelding gaf

Sub aanvullen()
Dim c As Long, r As Long, row As Long, Str As String


For c = 5 To 39  'kolommen
    For r = 5 To 100 'rijen
     r2 = Cells(r, 36) 'vergelijken waar waarde kolom a in voorkomt
     Str = Cells(r, 4) 'categorie


 If Cells(r, 1) <> "" Then
 If Cells(r2, c) <> "" Then
    If Right(Str, 1) = "-" Then 'als rechter karakter in categorie - is
          Cells(r, c) = Cells(r2, c) * -1
           Else
           Cells(r, c) = Cells(r2, c)
           End If
            End If
            End If
        
     Next r
     r2 = Cells(r, 36)
Next c
End Sub

gr wim