syf1 den syf3'e koşullu veri aktarma

[tlgtrn]

Set s1 = Sheets("Sayfa1")
Set s3 = Sheets("Sayfa3")
Range("a4:d" & [sayfa1!d65536].End(3).Row).ClearContents
k = 3
For i = 1 To [sayfa1!d65536].End(3).Row
If Sheets("sayfa1").Cells(i, 3) <> 0 Then
k = k + 1
d(i) = Val(s1.Cell(i, 1)) '(burda hata veriyor) 
s3.Cell(k, 1)) = d(i)

checkbox true ise (yada komut butonu da olabilir) sayfa1 deki
4. sütundaki değer sıfırdan faklı ise tüm değerler sayfa3'e taşınsın istiyorum ama aynı yerinde değil..
kod hata veriyor.. başka bir şekilde mi yapmam lazım acaba?? yardım lütfen

 

[Tarkan VURAL]

4.sütun kısmını anlayamadım. Örnek dosya ile açıklar mısınız ?

 

[tlgtrn]

bi şekilde halletim, ilgine teşekkür ederim.. :hey: