Formül Hatası

[kargin42]

İyi günler. Yapmak istediğim programda Sayfa1 deki personellerden Veri Tipine göre veri çekmek. Örneğin 119 nolu veri tipi ile bilgileri çekerken personelde 119 nolu veri tipi olmayana 0 (Sıfır) yazmıyor. Makroda başka bir veri tipi girdiğimde veri çekeceğimde bazı kişilerin verileri yanlış oluyor. Yardımcı olabilirseniz sevinirim.

Sub GndEkDrs()
Dim MaKt, GndEkDrsTp As Single

For i = 7 To Sheets("Sayfa2").Range("B65536").End(3).Row
For s = 3 To Sheets("Sayfa1").Range("K65536").End(3).Row
If Sheets("Sayfa1").Cells(s, "K").Value = 119 Then
If Sheets("Sayfa2").Range("B" & i).Value = Sheets("Sayfa1").Range("D" & s).Value Then

If Sheets("Sayfa1").Cells(s, "K").Value = 119 Then
GndEkDrsTp = Sheets("Sayfa1").Range("BD" & s).Value
Else
If Sheets("Sayfa1").Cells(s, "K").Value <> 119 Then
GndEkDrsTp = 0
End If
End If

If GndEkDrsTp >= 0 Then
Cells(i, 6).Value = GndEkDrsTp
End If
End If
End If
Next
Next
MsgBox "EkDers Aktarma İşlemi Tamamlanmıştır...", vbInformation, "KADİR"

End Sub


Örnek Dosya linki: https://s2.dosya.tc/server28/dqdayw/Deneme_Dosya.xlsm.html

 

[muygun]

Merhaba;
Doğru anladıysam eki deneyin. (En azından size fikir verecektir).
İyi çalışmalar.

Link:
https://s6.dosya.tc/server18/5kc5v1/kargin42-Deneme_Dosya.zip.html

 

[kargin42]

Teşekkür ederim. Ben anlatamamışım. Makroyu çalıştırdığımda veri tipi 119 'u olan personellerden veri çekiyor. Ancak olmayan personellere "0" Sıfır yazmasını istiyorum. Bir sonraki ay veri çektiğimde önceki aydan veri olan personelin bu ay olmadığında "0" Sıfır yazmalı ki yanlışlık olmasın. Yoksa önceki ayın rakamı kalıyor ve yanıltıyor.

 

[muygun]

Merhaba;
Doğru anladıysam eki tekrar deneyin.
İyi çalışmalar.
Link:
https://s6.dosya.tc/server18/12cfjj/kargin42-Deneme_Dosya-1.zip.html

 

[kargin42]

İyi günler. Dosyayı indiremiyorum. Altın Üyeliğim yok. İlgilendiğiniz için teşekkür ederim.

 

[muygun]

Merhaba;
4 Nolu mesaja Link adresini ekledim.
Oradan indirin.
İyi çalışmalar.

 

[kargin42]

Teşekkür ederim. Elinize sağlık.