Code:
Sub multiFindNReplace()
Dim myList, myRange, newRange
Set myList = Sheets("Tabelle2").Range("V7:W17")
Set myRange = Sheets("Tabelle2").Range("A2:A149")
'Set newRange = Sheets("Tabelle2").Range("N2:N149")
For Each cel In myList.Columns(1).Cells
myRange.Replace what:=cel.Value, replacement:=cel.Offset(0, 1).Value
Next cel
End Sub
Code:
Sub FINDREPLACE()
Dim target, cell As Range
Dim i, k As String
i = Range("V7")
k = Range("W7")
Set target = Sheets("Tabelle2").Range("A2:A149")
For Each cell In target
If cell.Value = i Then
target.Parent.Cells(cell.Row, "N").Value = k
End If
Next
End Sub
jos jedno pitanje. imam ova dva koda. prvi kod je mnogo brzi ali radi se to tome menja podatke iz kolone A gde trazi podatke koji su sadrzani u koloni V.
a meni treba da nadje u koloni A (iz kolone V) i offset u kolonu N (podatak iz kolone W)
ovaj drugi kod uradi to, ali samo za jednu, prvu vrednost.
a meni treba za sve vrednosti iz kolone V.
da li nekako moze ovaj prvi kod da se popravi tako da kad nadje iz kolone V u koloni A, offset-uje u kolonu N iz kolone W.
ili ovaj drugi da se prepravi.
hvala za ovaj kod sa 100%. sad radi!!!