søg og erstat værdi

Ark1:

B1 : = VLOOKUP($A$1;Ark5!$A$1:$E$1000;2;FALSE)
C1 : = VLOOKUP($A$1;Ark5!$A$1:$E$1000;3;FALSE)
D1 : = VLOOKUP($A$1;Ark5!$A$1:$E$1000;4;FALSE)
E1 : = VLOOKUP($A$1;Ark5!$A$1:$E$1000;5;FALSE)

Formlerne kopierer du bare nedad i ark1.
Herefter skal du kun rette i kolonne A. Skriv et andet id i kolonne A, og den laver et nyt opslag, og opdaterer tallene i kolonne B-C-D-E.

Den søger data i Ark5, fra række 1 til 1000

Det skal helst være noget vb som denne bare omvendt...

Public Sub Hent()
 
  Set rngHentIdNr = Worksheets("L").Range("B11")
 
  With Worksheets("ID")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    Set rngIdNr = Range(.Cells(2, 1), .Cells(r, 1))
  End With

    For Each n In rngHentIdNr
      For Each C In rngIdNr
      If n.Value = C.Value Then
        vdB = C.Offset(, 1).Resize(1, 18).Value
        n.Offset(, 1).Resize(1, 18).Value = vdB
      End If
      Next
    Next

    Set rngIdNr = Nothing
    Set rngHentIdNr = Nothing
End Sub

vidste ikke det skulle være VBA.

Er spørgsmålet stadig relevant, eller er ovenstående kode det du skal bruge

Har ikke fåre et svar endnu så der er stadig åben for ider... :)

det er bare en kode jeg har til at hente fra min data base men skal så også kunne gøre det omvendt af hvad den kode gør...

humm