worhsheetfunction.countA hakkında

[alperen37]

sayfa 2 de yer alan bir butonda yer alan kodlar içerisinde worhsheetfunction.countA kullandığımızda sayfa 1 deki b sutununun son kaydını nasıl bulduracaz.yani bu fonksiyon sadece yazılı olduğu sayfadamı etkili. yoksa şçyle bir kullanımı varmı. worksheet(sayfa1)function.countA gibi

 

[Necdet]

Merhaba,

Adet = Application.WorksheetFunction.CountA(Sheets("Sayfa2").[A:A])

 

[alperen37]

necdet bey ekteki dosyayı bir incelerseniz nerede hata var.dediğiniz gibi yaptım ama o satırda hata gösteriyor.

 

[ECYavuz]

Merhabalar

Kod'u aşağıdaki gibi değiştirince çalışıyor.

Private Sub CommandButton1_Click()
Range("B7:N7").Select
Selection.ClearContents
Range("B7").Select
Dim x, y, i As Integer
x = Application.WorksheetFunction.CountA(Sheets("LİSTE").[B:B])
For y = 4 To x
For i = 2 To 14
If Sayfa1.Cells(y, 2) = Sayfa2.Cells(5, 2) Then
Sayfa2.Cells(7, i) = Sayfa1.Cells(y, i)

End If
Next i
Next y
End Sub

 

[alperen37]

çok teşekkürler ilgilenen herkese geç cevap verebildim kusura bakmayın.