Kod okumada yardım

[orkuncan5]

If WorksheetFunction.CountIf(.Range("B2.B65536"), CDbl(TextBox1.Text)) > 0 Then
ve
Satır = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

bu kodlar nasıl okunur.Anlamı nedir?

 

[Ömer]

If WorksheetFunction.CountIf(.Range("B2.B65536"), CDbl(TextBox1.Text)) > 0 Then

TextBox1 deki değeri b2:b65536 arasında kaç adet olduğunu sayar, eğer bu sayım sonucu sıfırdan büyük ise istediğiniz işlemi yapar..........

Satır = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Seçtiğiniz sayfada A sütununda son dolu satırdan bir sonraki satır indeksini verir...

.