Soru makroda nerede hata yapıyorum

[burhancavus61]

aşağıdaki kodda kistpuant kısmını devreye aldığımda makro 400 hatası veriyor. devre dışı kaldığında istediğim gibi çalışıyor.
nerede hata yapıyorum acaba?

Sub aciklamaekle()
Application.ScreenUpdating = False

Dim s1 As Worksheet, s2 As Worksheet, son As Long, i As Long
Dim butce As String, kadro As String, kistpuant As String
    
    Set s1 = Sheets("Ek_Puantaj")
    Set s2 = Sheets("Puantaj")
    son = s1.Cells(Rows.Count, "B").End(3).Row
    
    butce = s2.Cells(1, 56)
    kadro = s2.Cells(2, 56)
'    kistpuant = s2.Range(1, 38)
    
    s2.Cells(415, 7) = ""
    
    On Error Resume Next
    For i = 2 To son
'        If s1.Cells(i, "b") = butce And s1.Cells(i, "c") = kadro And s1.Cells(i, "h") = kistpuant Then
        If s1.Cells(i, "b") = butce And s1.Cells(i, "c") = kadro Then
            s2.Cells(415, 7).Value = s2.Cells(415, 7) & s1.Cells(i, "D") & " için " _
            & s1.Cells(i, "E") & " " & s1.Cells(i, "F") & " " & s1.Cells(i, "G") & " eklenmiştir. "
        End If
    Next i
    
    Application.ScreenUpdating = True
End Sub

 

[GursoyC]

kistpuant = s2.cells(1, 38)
şeklinde deneyin.

 

[Necdet]

Merhaba,

kistpuant = s2.Range(1, 38)

eğer burada hata veriyorsa ki çok anlamsız, çünkü bütçe ve kadro değişkenlerinin özelliği aynı olduğu halde hata almıyorsunuz.

s1.Cells(i, "b") = butce And s1.Cells(i, "c") = kadro And s1.Cells(i, "h") = kistpuant Then

bir de böyle bir satır var.

ikisini de kontrol etmek gerek diye düşünüyorum.

 

[burhancavus61]

kistpuant = s2.cells(1, 38)
şeklinde deneyin.

teşekkür ederim bakar kör oldum bu şekilde düzeldi

 

[Necdet]

hahaha valla bende dikkat etmedim, range'i görünce gerisini bakmak aklıma bile gelmedi.

 

[burhancavus61]

evet hocam
kod yazmayı yeni yeni öğrenmeye başladım
daha çok öğreneceğimiz işler var