sirkülasyon
Altın Üye
- Katılım
- 10 Temmuz 2012
- Mesajlar
- 2,532
- Excel Vers. ve Dili
- 2021 LTSC TR
- Altın Üyelik Bitiş Tarihi
- 18-06-2026
Kod:
Dim sayfa As Worksheet
Dim Ara1 As Range, Ara2 As Range
Dim Aranan As String
Dim Satir As Range
Dim GunduzToplam As Double, DYKToplam As Double
Set sayfa = ThisWorkbook.Sheets("Puantaj")
Set Ara1 = sayfa.Range("D7:D53")
Set Ara2 = sayfa.Range("F7:F53")
Aranan = TextBox1.Value
GunduzToplam = 0
DYKToplam = 0
For Each Satir In Ara1.Rows
If Satir.Value = Aranan Then
If Satir.Offset(0, 2).Value = "Gündüz" Then GunduzToplam = GunduzToplam + Satir.Offset(0, 34).Value
ElseIf Satir.Offset(0, 2).Value = "DYK" Then DYKToplam = DYKToplam + Satir.Offset(0, 34).Value
End If
Next Satir
TextBox5.Value = GunduzToplam
TextBox6.Value = DYKToplam
Yapmak İstediğim
TextBox1 (T.C. Kimlik Numarası) değerini ilkönce Puantaj sayfası D7
Yukarıdaki kod ile Gündüz değerini TextBox5' e aktarıyorum ancak DYK değerini TextBox6' ya aktaramıyorum.
Rica etsem yardımcı olabilir misiniz?