Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste mensen,
Inmiddels ben ik een tijd op zoek naar een code die vanuit een willekeurig werkblad zoekt naar 6% in werkblad "Data" en deze wijzigt in 9%. Behoorlijk actueel volgens mij. Nu werkt onderstaande code prima wanneer ik in werkblad "Data" sta, echter werkt deze niet vanuit een andere willekeurig werkblad.
Wie kan mij hierbij helpen?
Alvast heel erg bedankt.
Robert
Inmiddels ben ik een tijd op zoek naar een code die vanuit een willekeurig werkblad zoekt naar 6% in werkblad "Data" en deze wijzigt in 9%. Behoorlijk actueel volgens mij. Nu werkt onderstaande code prima wanneer ik in werkblad "Data" sta, echter werkt deze niet vanuit een andere willekeurig werkblad.
Code:
Sub Data()
With Sheets("Data")
ActiveSheet.Unprotect
For Each cl In Range("D43:D45")
If cl.Value Like "*6*" Then cl.Offset(, 0) = "9%"
Next
End With
End Sub
Wie kan mij hierbij helpen?
Alvast heel erg bedankt.
Robert