Özel Biçimlendilirmiş Hücreleri Sayma

[mogokce]

Özel Biçimlendirilmiş Hücreleri Sayma

Merhabalar arkadaşlar. Çalışmakta olduğum firma bir takım ürünün stok takibini Excel aracılığıyla, hücrelerin biçimlendirme fonksiyonlarını kullanarak yapıyor.

Şöyle ki; Bir ürün stoğa gidriğinde boş kutu şeklinde olan hücreyi X şeklinde kenarlıklandırıyor. Ürün satılıp stoktan çıktığında da sol baştan sırayla hücreleri siyah ile dolgulandırıyor. Buna ait bir örneklem ekte bulunmakta.

Benim burada yapmak istediğim yazılacak bir formül veya makro ile hücreleri biçimlendirme özelliklerine göre Excel'e saydırmak. Yani örneklemde yukarıdaki satırda ki biçimlendirme kodlamalarını kendine referans alıp sağdaki sayım bölümüne o satırdaki hücreleri sayarak işleyecek. Bu mümkün müdür? Excel bu kadar geliştirilmiş midir? Yardımcı olursanız sevinirim...

EK: http://www.dosya.tc/server30/orLJ1M/STOK_SAYMA.xls.html

EK2(Elle Sayılmış Hali): http://s3.dosya.tc/server23/32wgYs/STOK_SAYMA.xls.html

 

[nslhaan]

İyi günler proje ödevim var yardımcı olabilir misin ?
Bir kan bankası otomasyonu oluşturacağım excelde.Birinci sayfam gönüllü bağışçıların bilgilerinin olduğu(ad ,soyad ,yaş, kan grubu ,hangi kan gruplarına kan verebilir (formülü oluşturuldu), şehir) ikinci sayfamda ise kayıt arama olacak.Yani ; hasta kan grubu, ve şehir girilecek sonuç olark gönüllü bağışçılardan uygun olanların ad, soyad ,şehir, e-posta ,yaşı bilgileri çıkacak.Nasıl yapabilirim ? Lütfen yardım ediin Şimdiden teşekkürler

 

[ÖmerBey]

Linkteki dosyayı inceleyiniz.

http://s3.dosya.tc/server23/Lzn5OP/STOK_SAYMA.xls.html

Function STOKTAKİLER(aralık)
For Each hücre In aralık
    If hücre.Borders(xlDiagonalUp).Weight = xlMedium And _
    hücre.Borders(xlDiagonalDown).Weight = xlMedium And _
    hücre.Interior.Color <> 0 Then _
    STOKTAKİLER = STOKTAKİLER + 1
Next
End Function

Function STOKTAKTANÇIKANLAR(aralık)
For Each hücre In aralık
    If hücre.Interior.Color = 0 Then STOKTAKTANÇIKANLAR = STOKTAKTANÇIKANLAR + 1
Next
End Function

 

[mogokce]

Hocam çok teşekkür ederim. Excelde şu makro işine bir türlü giremedim. Başım sıkıştıkça normal formüllerle çözemedikçe bu foruma baş vuruyorum. Sağ olsun sizler de hızlı bir şekilde problemimi çözüme ulaştırıyorsunuz.

Tekrar teşekkürler...