satırda veri saydırma_yardım

[hitmen06]

https://dosya.co/fqojes0e0qgc/satırda_veri_say.xlsm.html

Sub izinsay()



Set kaynak = Sheets("tarih")
Set Hedef = Sheets("hesap")
Dim y As Integer
Dim i As Integer

For i = 4 To 35
y = Hedef.Cells(i, 12).Value

aranan = Hedef.Cells(i, 14).Value
arama = Application.WorksheetFunction.CountIf(kaynak.Range("L" & y & ":z" & y), aranan).Value


Hedef.Cells(i, 18).Value = arama

Next i

End Sub


yukarıda verdiğim kod ile hesap.n4 te verilen sicilin ("11111") kaynak L5:Z5 (5=hesap L4 te ki değerdir) aralığında kaç tane olduğunu bulup hedef R4 e yazdırmak istiyorum ama countif i cells ile kullanınca arama= 0 çıkıyor range ile hata alıyorum. Yardımcı olur musunuz değerli üstatlar. örnek DOSYA ektedir.

 

[Ömer]

Merhaba

"x in yerine L4 teki değer olan 5 değerini kullanarak" burada söylemek istediğiniz anlayamadım?

 

[hitmen06]

Merhaba

"x in yerine L4 teki değer olan 5 değerini kullanarak" burada söylemek istediğiniz anlayamadım?

x dediğim hücre hedef. r4 hocam. Dosyadaki açıklamadan alınca burada biraz anlamsız olmuş.

 

[Ömer]

Aranan satır indisi sanırım.
Deneyiniz.

Sub izinsay()

    'tamamlanmadı
    
    Set kaynak = Sheets("tarih")
    Set Hedef = Sheets("hesap")
    
    Dim y As Integer
    Dim i As Integer
 
    For i = 4 To 35
        y = Hedef.Cells(i, 12).Value
        
        aranan = Hedef.Cells(i, 14).Value
        If aranan <> "" Then
            arama = Application.WorksheetFunction.CountIf(kaynak.Range("L" & y & ":z" & y), aranan)
            Hedef.Cells(i, 18).Value = arama
        End If

    Next i

End Sub

 

[hitmen06]

Aranan satır indisi sanırım.
Deneyiniz.

Sub izinsay()

    'tamamlanmadı
   
    Set kaynak = Sheets("tarih")
    Set Hedef = Sheets("hesap")
   
    Dim y As Integer
    Dim i As Integer

    For i = 4 To 35
        y = Hedef.Cells(i, 12).Value
       
        aranan = Hedef.Cells(i, 14).Value
        If aranan <> "" Then
            arama = Application.WorksheetFunction.CountIf(kaynak.Range("L" & y & ":z" & y), aranan)
            Hedef.Cells(i, 18).Value = arama
        End If

    Next i

End Sub

çok sağolun hocam.

 

[Ömer]

Sizde sağ olun.