makronun başvurduğu hücre formul içerdiği için yanlış sonuç veriyor!..

[Selçuk1]

selamlar değerli üstadlarım,

aşağıdaki kodları ile tüm personelin izinlerinin yazılı olduğu sayfadan sadece seçtiğim personele ait izin bilgilerini alıyorum. ancak sanırım makronun arama yapmak için başvurduğu c2 hücresindeki personel ismi oraya formul ile geldiğinden "İlgili Personele Ait İzin Kaydı Bulunmamaktadır." mesaj kutusu çıkıyor. çünkü bu hücrede değişiklik yapana kadar doğru çalışıyordu kodlar. bu hatayı nasıl giderebiliriz? kodlarda nasıl bir değişiklik yapmalıyım?

saygılar...

Sub izingöster()
Set S1 = Sheets("izinsorgu")
Set S2 = Sheets("izintakip")
S2.[a6:j65536].ClearContents
If S2.[c2] = "  " Then
MsgBox "İzin Durumunu Görmek İstediğiniz Personeli Seçiniz."
Exit Sub
End If
If WorksheetFunction.CountIf(S1.[a:a], S2.[c2]) = 0 Then
MsgBox "İlgili Personele Ait İzin Kaydı Bulunmamaktadır.", vbOKOnly + vbInformation
Exit Sub
End If
For a = 3 To S1.[a65536].End(3).Row
If S1.Cells(a, "a") = S2.[c2] Then
C = C + 1
S2.Cells(C + 5, "a") = S1.Cells(a, "a")
S2.Cells(C + 5, "b") = S1.Cells(a, "b")
S2.Cells(C + 5, "c") = S1.Cells(a, "c")
S2.Cells(C + 5, "f") = S1.Cells(a, "f")
S2.Cells(C + 5, "g") = S1.Cells(a, "g")
S2.Cells(C + 5, "h") = S1.Cells(a, "h")
S2.Cells(C + 5, "I") = S1.Cells(a, "I")
S2.Cells(C + 5, "j") = S1.Cells(a, "j")
End If
Next
S2.[a6:j65536].Sort Key1:=S2.[j7]
End Sub

 

[Levent Menteşoğlu]

Bu durum için özel bir değişikliğe gerek yoktur, kod yine hücre içindeki değeri dikkate alacaktır. Sorun sanki hücredeki alınan veride bir farklılık var diye düşündürüyor. İsterseniz dosyanızı ekleyin.

 

[Selçuk1]

evet sn. levent bey, her zamanki gibi yine siz haklısınız.:mrgreen::mrgreen: sorun kodlardan yada formulden değil, verilerden kaynaklanıyormuş.. sorunu çözdüm. çok teşekkürler.. saygılar..