dolu hücre say

[muzaffer.sm]

Arkadaşlar Merhaba şöyle bir sorum olacak sizlerden şöyleki ;

Sub countA_()
Range("F1") = WorksheetFunction.CountA(Range("a1:c1"))
End Sub

F1 in eşitliğine dolu olan sayılıp yazılıyor,fakat A2 ile C100 hücrelerindeki dolu olan satırlarları da yazdırmak istersek nasıl yaparız.
A2:C2
A3:C3
A4:C4 gibi uzayan satırları da F2 ve devamında hücrelere sayılarak nasıl eşitlenir.


Saygılarımla

 

[Kemal Demir]

Sub countA_()
Range("F1") = WorksheetFunction.CountA(Range("a1:c1")) &" " &"/" & WorksheetFunction.CountA(Range("a2:c100"))
End Sub

Umarım Doğru Anlamısımdır.

 

[Merhum İdris SERDAR]

Sub countA_()
Range("F1") = WorksheetFunction.CountA(Range("a1:c100"))
End Sub

şeklinde deneyin.

.

 

[muzaffer.sm]

Sayın Kemal Demir, ve Sayın Yurttaş

Sanırım sorumla sizleri yanılttım.Her satırdaki dolu hücreyi yanındaki bir hücreye sayısını verecek şekilde yazdırmayı sormuştum.

Bunun gibi yüz satır var.Her satırın dolu hücre sayısı yanındaki hücrelere yazılacak şekilde yazmış olmamız gerekiyor.

Bende, =Bağ_Değ_Dolu_Say formülünü kullanarak yaptım.Fakat makro ile karşılığı nasıl yapılır.

 

[Orion1]

Dosyanız ekte.

Sub dolulari_say()
Dim i As Byte
Range("E1:E100").ClearContents
For i = 1 To 100
    Cells(i, "E").Value = WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 3)))
Next i
MsgBox "İşlem tamamdır..", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[muzaffer.sm]

Vermiş olduğunuz yanıt ve çözümleriniz için teşekkür ediyorum.

Sayın GİZLEN

Sonuç yerinde ve olumlu.Sizlerden öğrenmem gereken çok şey var.Sağolun.





Saygılarımla.

 

[Orion1]

Vermiş olduğunuz yanıt ve çözümleriniz için teşekkür ediyorum.

Sayın GİZLEN

Sonuç yerinde ve olumlu.Sizlerden öğrenmem gereken çok şey var.Sağolun.





Saygılarımla.

Rica ederim.
İyi çalışmalar.

 

[simetri.]

Dosyanız ekte.

Sub dolulari_say()
Dim i As Byte
Range("E1:E100").ClearContents
For i = 1 To 100
    Cells(i, "E").Value = WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 3)))
Next i
MsgBox "İşlem tamamdır..", vbOKOnly + vbInformation, Application.UserName
End Sub

Merhabalar hocam;
Üstteki kod çalışıyor.
Şu şekilde çalışabilirmi acaba?

4. satırdan itibaren çalışmaya başlasın,
bitiş satırını kendisi bulsun. Boş satır geldiği zaman
stop etsin.

 

[Emir Hüseyin Çoban]

Merhabalar hocam;
Üstteki kod çalışıyor.
Şu şekilde çalışabilirmi acaba?

4. satırdan itibaren çalışmaya başlasın,
bitiş satırını kendisi bulsun. Boş satır geldiği zaman
stop etsin.

. . .

Örnek dosya yüklemenizde fayda var.

• Bitiş satırı hangi sütuna göre olmalı ?
• Boş satır derken; satırların sonuna gelince mi yoksa iki satırdan herhangi biri boş işe mi ?
• vb.

. . .

 

[simetri.]

Merhaba

kod A B ve C de dolu hücre sayısını E ye yazıyor.
satır satır.

kod 4. satırdan itibaren çalışmaya başlayacak.
a b ve c nin herhangi birisinde veri oldukça çalışacak.
her üçünde de veri olmadığı zaman stop edecek.

 

[Emir Hüseyin Çoban]

Merhaba

kod A B ve C de dolu hücre sayısını E ye yazıyor.
satır satır.

kod 4. satırdan itibaren çalışmaya başlayacak.
a b ve c nin herhangi birisinde veri oldukça çalışacak.
her üçünde de veri olmadığı zaman stop edecek.

. . .

İşlem Sonucu:

Sub KOD()

Ason = [A65536].End(3).Row
Bson = [B65536].End(3).Row
Cson = [C65536].End(3).Row

Range("E:E").ClearContents
For i = 4 To WorksheetFunction.Max(Ason, Bson, Cson)
Cells(i, "E").Value = WorksheetFunction.CountA(Range("A" & i & ":C" & i))
Next i

MsgBox "B i t t i "
End Sub

. . .

 

[simetri.]

Alakanız için teşekkür ederim Hüseyin Bey.
Kod "E11" deki "1" değerini yazıp stop etmeli.

Lakin koda 3 değilde örneğin 50 satırın verisini say dediğimiz zaman:
Kodun içine aşağıda ki satırdan 50 tane yazacak isek çok kullanışlı olmaz sanırım.
Buna alternatif yazabilirseniz güzel olur. Teşekkür ederim.

Ason = [A65536].End(3).Row
Bson = [B65536].End(3).Row
Cson = [C65536].End(3).Row

 

[Emir Hüseyin Çoban]

Bu tarz ilaveler için örnek dosya istemiştim.
Geliştirmek size ve arkadaşlara kalmış.

 

[simetri.]

Örnek dosya ekledim Hüseyin bey.
ilgilenirseniz sevinirim.

İlk başta Orion1 hocanın mesajını alıntı yaptığım
için dosya eklemek istemedim. Kusura bakmayınız.

 

[ExcelF1]

Cevap veren diğer arkadaşların hoşgörüsüne sığınarak;
Dosyanız ektedir.

 

[simetri.]

Merhaba sayın ExcelF1;

İstediğimiz kriterlere uygun gayet güzel bir kod.
Ellerinize sağlık. Çok teşekkür ediyorum.

 

[ExcelF1]

Rica ederim, kolay gelsin.