Hoi,
ik heb een Visual Basic code die in 2 bladen werkt. In 1 staan de oude (te vervangen) en nieuwe (vervangen door) gegevens.
In 2 staan de gegevens die gematched moeten worden met de oude (te vervangen) gegevens in 1 en de nieuwe gegevens (vervangen door) ervoor in de plaats neerzetten. Nu doet mijn VB query dit wel maar hij/zij doet dit maar voor 1 rij per nieuwe waarde?! Voorbeeld: van rij A1 tot rij A20 staat de waarde TPUT1 en in rij A21 tot A35 staat waarde JMOR1. Nu voert hij de code uit voor 1 rij, dus A1 en A21 maar ik wil dat hij/zij dit doet voor ALLES en niet steeds per nieuwe waarde. Dus dit moet voor de VOLLEDIGE kollom gedaan worden?! Anders moet ik steeds opnieuw op de uitvoeren knop drukken en dat maal het aantal rijen :shocked:
in de bijlage staat het voorbeeld document (Heb het moeten verkleinen maar als groter gewenst is... Geen probleem, upload ik een nieuwe) en de code plak ik hieronder wel ff.
Kan iemand mijn code checken en hulp bieden?
Thanx!
Sub vervangen()
Dim lRij As Long
lRij = 2
On Error Resume Next
While Worksheets(1).Range("A" & lRij) <> ""
For W = 2 To Worksheets.Count
Set g = Worksheets(W).Cells.Find(Worksheets(1).Range("A" & lRij), LookIn:=xlValues, lookat:=xlWhole)
If Not g Is Nothing Then
Worksheets(W).Range(g.Address).Value = Worksheets(1).Range("B" & lRij).Value
Worksheets(W).Range(g.Address).Interior.Color = vbRed
End If
Next
lRij = lRij + 1
Wend
End Sub
Bekijk bijlage T of P code zoeken en vervangen 1.xls
ik heb een Visual Basic code die in 2 bladen werkt. In 1 staan de oude (te vervangen) en nieuwe (vervangen door) gegevens.
In 2 staan de gegevens die gematched moeten worden met de oude (te vervangen) gegevens in 1 en de nieuwe gegevens (vervangen door) ervoor in de plaats neerzetten. Nu doet mijn VB query dit wel maar hij/zij doet dit maar voor 1 rij per nieuwe waarde?! Voorbeeld: van rij A1 tot rij A20 staat de waarde TPUT1 en in rij A21 tot A35 staat waarde JMOR1. Nu voert hij de code uit voor 1 rij, dus A1 en A21 maar ik wil dat hij/zij dit doet voor ALLES en niet steeds per nieuwe waarde. Dus dit moet voor de VOLLEDIGE kollom gedaan worden?! Anders moet ik steeds opnieuw op de uitvoeren knop drukken en dat maal het aantal rijen :shocked:
in de bijlage staat het voorbeeld document (Heb het moeten verkleinen maar als groter gewenst is... Geen probleem, upload ik een nieuwe) en de code plak ik hieronder wel ff.
Kan iemand mijn code checken en hulp bieden?
Thanx!
Sub vervangen()
Dim lRij As Long
lRij = 2
On Error Resume Next
While Worksheets(1).Range("A" & lRij) <> ""
For W = 2 To Worksheets.Count
Set g = Worksheets(W).Cells.Find(Worksheets(1).Range("A" & lRij), LookIn:=xlValues, lookat:=xlWhole)
If Not g Is Nothing Then
Worksheets(W).Range(g.Address).Value = Worksheets(1).Range("B" & lRij).Value
Worksheets(W).Range(g.Address).Interior.Color = vbRed
End If
Next
lRij = lRij + 1
Wend
End Sub
Bekijk bijlage T of P code zoeken en vervangen 1.xls
