Koşullara göre listeye aktarma

[Mx@Raid]

Arkadaşlar eklediğim dosyada sorunumu ifade etmeye çalıştım yardımcı olursanız sevinirim.

 

[Mx@Raid]

Konu hakkında yardımların gelebilmesi için biraz üst satırlarda olsun istedim.

 

[Mx@Raid]

Set hpK = Sheets("HepatitKayıt")
Set hpF = Sheets("HepatitFormu")

    sonstr = hpK.[A65536].End(xlUp).Row
    dozlr = hpK.Range("H" & sonstr & ":J" & sonstr)
    
        For yas = 8 To hpK.Cells(sonstr, "M")
        For meslek = 8 To hpK.Cells(sonstr, "K")
        For doz = 8 To hpK.Range(dozlr)
    
 If hpF.Range("D" & sonstr & ":AD" & sonstr) = yas And meslek And doz Then
 




        Next: Next: Next
    End If

arkadaşlar yukarıdaki kodda yaş, meslek ve yapılan dozu hpF(HepatitFormu) sayfasındaki değerlerle karşılaştırıp ilgili hücreye yazdırmaya çalışıyorum. Ancak hatalı oldu haliyle yardım edebilirseniz sevinirim.
Terşekkürler.