waarde in database zoeken en aanpassen

[ralphnag]

Ik wil in een database in collom A zoeken naar een waarde en deze vervangen door een nieuwe waarde en dit door middel van een macro.

Bekijk bijlage Map1.xlsx

ik heb een bestand gemaakt als voorbeeld omdat mijn bestand nogal groot is.
Ik pas de macro wel aan met de goede cellen en bladen voor mijn origineel bestand.

alvast bedankt
Ralph

 

[HSV]

Zoiets?

Sub hsv()
Dim c As Range, opm As String
With Sheets("wijzig Form")
 Set c = Sheets("DB").Columns(1).Find(.Range("C4"), , xlValues, xlWhole)
  If Not c Is Nothing Then
    Select Case .Range("C6")
      Case "Stop Verkoop"
          opm = "*sv "
      Case "Stop Winkel"
          opm = "*sw "
      Case "Verhuist"
          opm = "*ve "
      Case "Wijzigen Contactpers."
          opm = "*co "
      Case "Wijzigen gegevens"
          opm = "*ge "
    End Select
 c.Value = opm & c & " " & Format(.Range("C8"), "yyyy-mm-dd")
   End If
 End With
End Sub

 

[sylvester-ponte]

of zo iets?

Sub pasCodeAan()
    Dim KlantCode As Range, DbCode As Range, NieuweCode As Range
    Set KlantCode = Sheets("wijzig Form").Cells.Find("klant code").Offset(0, 1)
    Set NieuweCode = Sheets("wijzig Form").Cells.Find("Niewe code :").Offset(0, 1)
    Set DbCode = Sheets("DB").Cells.Find(KlantCode)
    DbCode = NieuweCode
End Sub

 

[ralphnag]

Sorry voor de late reactie, DrUk Druk Druk..... ik heb de oplossing vna Sylvester gebruikt werkt goed.
Bedankt daarvoor.