Satır sayma

[soykan]

A ve B sütunlarında verilerim bulunmakta önce A sütununda kaç satır sonrada B sütununda kaç satır olduğunu bulup ikisini birbirinden çıkardıktan sonra döngü kurmak istiyorum nasıl yapabilirim?

 

[Ömer]

Merhaba,

Satır = Cells(Rows.Count, "A").End(xlUp).Row - Cells(Rows.Count, "B").End(xlUp).Row

Bu şekilde olabilir.

.

 

[tokerx22]

CVP

Eki incelermisiniz

 

[omerd]

Sayın tokerx22, verdiginiz örnekte 1001. satıra kadar olan verilerde işlem yapıyor. Tüm sütunu kapsacak şekilde formül içeriğini genişletmek gerekebilir. Veri sayısı arttıkçı bir sorun yaratır mı acaba?

 

[tokerx22]

FORMULU A:A ve B:B olarak degiştiriniz

 

[soykan]

0 sonucu

Yanıt için teşekkürler.

Formülü :
Satır = Cells(Rows.Count, "A").End(xlUp).Row - Cells(Rows.Count, "B").End(xlUp).Row
ActiveCell.FormulaR1C1 = Satır

bu şekilde bitirdiğimde 0 veriyor