Kapalı dosya adedini bulma

[mars2]

İyi Günler,
excel çalışma sayfasında tablao bulunmakta olup, C sutununda İlçe adları bulunmaktadır. Bunlardan kapalı olan satırları zeminin kırmızı yapmaktayım.
Sayfa ikide de C sutunda B sutunun karşısındaki İlçelerden kapalı olanların adedini yazdırmak istiyorum.

Yardımlarınız için şimdiden teşekkürler.

 

[turist]

Aşağıdaki kodu deneyiniz.

Sub bul()
Sayfa2.Range("B2:B" & Sayfa2.Cells(Rows.Count, 1).End(3).Row).ClearContents
For a = 2 To Sayfa2.Cells(Rows.Count, 1).End(3).Row
For i = 2 To Sayfa1.Cells(Rows.Count, 3).End(3).Row
If Sayfa1.Cells(i, 3).Interior.Color = 255 And Sayfa1.Cells(i, 3) = Sayfa2.Cells(a, 1) Then
Sayfa2.Cells(a, 2) = Sayfa2.Cells(a, 2) + 1
End If
Next i
Next a
End Sub

 

[mars2]

İyi Geceler;
Sayın turist kad için teşekkürler.

Sayfa2.Range("B2:B" & Sayfa2.Cells(Rows.Count, 1).End(3).Row).ClearContents
ile sayfa2'deki ilçe adlarının bulunduğu sutundaki tüm ilçeleri sildiğinden yapmak istediğimiz şeyi yapamamadığımız düşünmekteyim

Sayfa1'de zemini kırmızı ile işaretli olan ilçeleri sayfa2'de ayrı ayrı kaç adet olduğunu bulmak istiyorum

örneğimizde Mamak İlçesinde 2 adet bulunmakta olup sayfa2'de B sutunda bulunan İlçelerin yayındaki C sutununa kaç adet ise onu bularak yazmasını istemekteyim.

 

[askm]

Sayfa2.Range("B2:B" & Sayfa2.Cells(Rows.Count, 1).End(3).Row).ClearContents ile sayfa2 deki bulunan rakamları temizlemekte.
Döngü ile de Sayfa2deki isimleri Sayfa1 de bakıyor. Zemin rengi olanları alıyor. Sayın Turistin yazdığı kod çalışınca Mamak için 2 sonucunu veriyor.

 

[turist]

Sayın @mars2 ,
Foruma eklediğiniz dosyada;
Sayfa2 de A sütununda İlçe isimleri yazıyor(Sütun Başlığı="İlçe")
B sütununun başlığı="Kapalı Dosya Adedi"
Verilen kod'da ise;
Sayfa2.Range("B2:B" & Sayfa2.Cells(Rows.Count, 1).End(3).Row).ClearContents
Yani B2den B sütununun son dolu hücresine kadar hücreler temizleniyor.
İlçeler A sütununda(O kısma herhangibir şey yapılmıyor)
Dosya yapınızı değiştirmediyseniz sonuç doğru olacaktır.
Dosya yapınızı değiştirdiyseniz bu defa KOD'da değişiklik gerekir.

Dosyanızı ve kodları bir daha incelemenizi rica ederim.
İyi çalışmalar...

 

[mars2]

İyi Günler;
Özür dilerim, bendeki örneğe A sutununa sıra Nosu koymusun ondan kaynaklanmakta olup sizden rica Kapalı Dosya Adedi sutunu D ye göre günceleme yapmak mümkün müdürü. Teşekkürler.

 

[turist]

Sayın @mars2
Sayfa1 deki sütun başlıklarında da değişme varmı? Varsa belirtiniz.
Sayfa2 deki A, B,C ve D sütun başlıklarınızın isimleri nedir?
Zira,Kodlar buna göre yeniden düzenlenecektir.

 

[mars2]

Sayın turist;
İlginize teşekkürler.
A Sıra No
B İlçe Adı
C Dosya Sayısı
D Kapalı dosya sayısı olacak

 

[turist]

Sayın turist;
İlginize teşekkürler.
A Sıra No
B İlçe Adı
C Dosya Sayısı
D Kapalı dosya sayısı olacak

Sayın @mars2

Yeni dosyanız Bu Linktedir, Tıklayıp İndirin

İyi çalışmalar..