Soru Kapalı Excel Dosyalarında Belirli Kelimeleri Saydırma

[schlecht]

Aşağıdaki kod ile kapalı excel dosyalarından belirli kelimeleri saydırıyorum,

ActiveCell.Offset(1, 0).Select
Do While SATIR < 600
If ActiveCell.Value = "Ahmet" Then Ah = Ah+ 1
If ActiveCell.Value = "Mehmet" Then Meh = Meh + 1
If ActiveCell.Value = "Selçuk" Then Sel = Sel + 1
If ActiveCell.Value = "Hüseyin" Then Hus = Hus + 1
If ActiveCell.Value = "Veli" Then Vel = Vel + 1
If ActiveCell.Value = "İdris" Then İdr = İdr + 1
If ActiveCell.Value = "Fatih" Then Fat = Fat + 1
If ActiveCell.Value = "Egemen" Then Ege = Ege + 1

SATIR = SATIR + 1

ActiveCell.Offset(1, 0).Select
Loop

Cells(5, 1).Select
Do While ActiveCell.Value <> ""
sutun = sutun + 1
ActiveCell.Offset(0, 1).Select
Loop


Application.DisplayAlerts = False
Workbooks(CK).Activate
Sheets("Anasayfa").Select
ActiveCell.Value = ADI
ActiveCell.Offset(0, 1).Value = Ah + Meh + Sel + Hus + Vel + İdr+ Fat + Ege
ActiveCell.Offset(0, 2).Value = Ah
ActiveCell.Offset(0, 3).Value = Meh
ActiveCell.Offset(0, 4).Value = Sel
ActiveCell.Offset(0, 5).Value = Hus
ActiveCell.Offset(0, 6).Value = Fat

ActiveCell.Offset(1, 0).Select

ActiveCell.Offset(0, 6).Value = Fat

6. satıra yazdıramıyorum.

 

[schlecht]

Güncel

 

[Ömer BARAN]

Merhaba.
Cevabımın altındaki İMZA bölümünü okuyunuz.
.

 

[schlecht]

Ömer Hocam farkındayım örnek dosya ekelyemedim verileri ağdaki dosyalardan alıyorum. Veri dosyası ekleme şansım yok. Dosyaları okuyan dosyada da bu kod var. Bu gün veri dosyasını elle oluşturmaya çalışıcam. Acaba bu kod 5 tane mi sayıyor öyle bir sınır mı var ?

 

[schlecht]

Say dosyası ile veri dosyasındaki isimleri saydırıyorum. Sadece pazartesi sayfasını sayıyor ve H ve I sütunlarına sayılanı yazmıyor. Yani en fazla 5 sütuna yazıyor saydığını

 

[schlecht]

Güncel.

 

[schlecht]

Güncel...

 

[Orion1]

Konu başlığınız forum kurallarına aykırı.
Başlığınızı konuyu özetleyecek bir şekilde tekrar düzenleyiniz.
Aksi takdirde konunuz çöp sepetine taşınır.

 

[schlecht]

konu başlığı düzeltilemiyor sanırım hocam.