Finde ud for to celler og give værdi i en 3. celle

Er litt usikker på hva du mener men prøv denne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim it As Variant
  Dim vTypeList() As Variant

    If Target.Address = Cells(5, 7).Address Then
       
    For Each c In Range(Cells(5, 3), Cells(5, 4))
      If IsEmpty(c) Then
        Cells(5, 3).Select
        Exit Sub
      End If
    Next
   
    Cells(5, 7).FormulaR1C1 = "=now()"
    Cells(8, 8).Value = Name
    Cells(8, 9).Value = Cells(5, 2).Value
    Cells(8, 10).Value = Cells(5, 4).Value
   
    With Cells(5, 3)
      Trim (.Text)
      .Value = UCase(.Text)
      vTyp = .Text
    End With
   
    Call Add_vognløb
   
    vTypeList = Array("HT", "GT", "D10X", "MKR")
    For Each it In vTypeList
      If vTyp = it Then Call sTYPE
    Next
   
  End If
End Sub

Public vdB() As Variant
Public vTyp As Variant

Sub Add_vognløb()
  With Worksheets("Vognløb")
 
    With Range(.Cells(5, 3), .Cells(5, 7))
      vdB = .Value
      .ClearContents
      .Resize(1, 1).Select
    End With
   
    .Rows(11).Insert
    With Range(.Cells(11, 3), .Cells(11, 7))
      .Value = vdB
      .Borders().LineStyle = xlContinuous
      .Interior.ColorIndex = xlNone
    End With
  End With
  With Worksheets("Printliste")
    .Rows(2).Insert
   
    With Range(.Cells(2, 1), .Cells(2, 5))
      .Value = vdB
      .Borders().LineStyle = xlContinuous
    End With
     
  End With
  ActiveWorkbook.Save
End Sub


Public Sub sTYPE()

  With Worksheets(vTyp)
    .Rows(2).Insert
    With Range(.Cells(2, 1), .Cells(2, 5))
      .Value = vdB
      .Borders().LineStyle = xlContinuous
    End With
  End With
  ActiveWorkbook.Save
End Sub

Det jeg ville var den skal finde ud fra de to værdier som man skriver i "H8:I8" skal

den finde i række C&D eks. H8 =[ 410] I8 = [123456] når man trykker på søg skal den søge efter værdien som h8 = i kollone C og hvis den er der skal den se om I8 passer ud fra D i samme række som H8 er fundet i. hvis de er ens skal den Tage den værdi man har i J8 og smide den ind i F Hvor H8 & I8 blev fundet. og gøre det samme på printliste! Bare hvor det ikke er c,d Men A,b & smide værdien i D.

den skal ikke hænge sammen med den anden kode...

Kom med svar

jeg fortjener ikke point's her, da du ikke har fått løst ditt problem.
har desverre ikke tid til å se på dette for tiden, beklager.

oki slut