İ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
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
Son düzenleme: