Erstat værdi i et ark med værdi fra et andet ark ud fra 2 kriterier

Det vil sige, det er blot en erstatning for den manuelle CTRL+B + Erstat.

Ax, Bx & Cx er det kolonner i Ark2 eller "koder"
Hvis Ja i hvilken række.

Rem VBA indsættes under Ark2
Rem ========================
Dim AXCpr, BXværdi, CXværdi
Dim række As Integer, kolonne As Integer
Sub udførSøgOgErstat()
    AXCpr = ActiveSheet.Range("A1")                'kan justeres
    BXværdi = ActiveSheet.Range("B1")
    CXværdi = ActiveSheet.Range("C1")
   
    række = findRække(ActiveWorkbook.Sheets(1), "A1:A65000", AXCpr)
    If række > 0 Then
        kolonne = findKolonne(ActiveWorkbook.Sheets(1), "A" & række & ":XFD" & række, BXværdi)
        If kolonne > 0 Then
            Sheets(1).Activate
            ActiveSheet.Cells(række, kolonne).Select
            Selection = CXværdi
        End If
    End If
   
    Sheets(2).Select
End Sub
Private Function findRække(ark, område, id)
    With ark.Range(område)
        Set c = .Find(id, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findRække = c.Row
        Else
            findRække = 0
        End If
    End With
End Function
Private Function findKolonne(ark, område, id)
    With ark.Range(område)
        Set c = .Find(id, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findKolonne = c.Column
        Else
            findKolonne = 0
        End If
    End With
End Function

AX skal forstås som række x i kolonne A og sådan fremdeles.

Status.

Jeg har endnu ikke haft mulighed for at teste.
I'll be back asap.

Ok..

I
Private Function findKolonne(ark, område, id)
    With ark.Range(område)
        Set c = .Find(id, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findKolonne = c.Column
        Else
            findKolonne = 0
        End If
    End With
End Function

Siger debug, at der er en fejl i:
    With ark.Range(område)

Ok - vender tilbage

Er der mulighed for at få en kopi af din testfil?
@-adresse under min profil.

Du fik aldrig dine point, Supertekst.
Klik et "svar".

Tak for hjælpen.

Det får du her og selv tak..