Jack Nouws
Terugkerende gebruiker
- Lid geworden
- 16 apr 2008
- Berichten
- 1.396
hallo
Ik heb van 15 codes 1 code gemaakt. (knap he)
Alleen hij werkt niet. (jammer he)
Wie kan deze code aanpassen zodat hij wel gaat werken?
Met vr gr
Jack
Ik heb van 15 codes 1 code gemaakt. (knap he)
Alleen hij werkt niet. (jammer he)
Wie kan deze code aanpassen zodat hij wel gaat werken?
Code:
Sub waarde_ophalen()
Dim c As Range
Dim i As Range
Set ws = Sheets("Overzichten")
For i = 3 To Worksheets.Count
For Each c In Sheets(i).Range("A6:A20")
If c.Value = ws.Range("A1").value Then
ws.Range("A2") = c.Value.Offset(0, 8) + ws.Range("A2").Value
ws.Range("A3") = c.Value.Offset(0, 9) + ws.Range("A3").Value
End If
Next
Next i
End Sub
Jack
Laatst bewerkt: