• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

excelde yeşil dolgu rengi olan A harfinden kaç tane olduğunu sayma

A

abdullah2

Katılım
5 Mart 2018
Mesajlar
20
Excel Vers. ve Dili
2010
merhaba
işimle alakalı bir durum var
durumu şöyle anlatayım
örnek olarak e9-15 sutununda yeşil dolgu renginde A harfi olan hücrelerden kaç tane olduğunu gösteren formül ya da macro varsa yardımcı olabilir misiniz
 
Aşağıdaki kodu deneyin.
Sub renksay()
Dim say As Integer
For i = 9 To 15
If Cells(i, "E").Interior.Color = vbGreen And Cells(i, "E").Value = "A" Then
say = say + 1
End If
Next
Range("F1") = say
End Sub

Kendi sayfanıza göre uyarlayabilirsiniz.
 
turist' Alıntı:
Aşağıdaki kodu deneyin.
Sub renksay()
Dim say As Integer
For i = 9 To 15
If Cells(i, "E").Interior.Color = vbGreen And Cells(i, "E").Value = "A" Then
say = say + 1
End If
Next
Range("F1") = say
End Sub

Kendi sayfanıza göre uyarlayabilirsiniz.
Genişletmek için tıkla ...


BU KODU MACROYA YAPIŞTIRDIM AMA SOYLE BI SORUN VAR HÜCRE BELİRTMEMİŞİM KONUYU AÇARKEN D40 HÜCRESİNE NASIL YAZRIRABİLİRİM SAYIYI
 
Range("D40") = say

olarak değiştirin.
 
teşekkür ederim kod için ama 0 değeri verdi normalde 2 olması lazım
şöyle açayım ben konuyu E5 DEN AI5 E kadar ekim tarihleri yazılı
E6 E30 İLE AI6 AI30 ARASINDAKİ TÜM HÜCRELERDE YEŞİL DOLGULU VE KAHVERENGİ DOLGULU A
AYNI ŞEKİLDE YEŞİL DOLGULU A VE B BULUNUYOR BU VARDİYA LİSTESİNDE
BENİM AMACIM YEŞİL OLANLAR MEKANİKÇİ
KAHVERENGİ OLANLAR İSE ELEKTRİKÇİ
BEN A VARDİYASINDA KAÇ ELEKTRİKÇİ
B VARDIYASINDA KAÇ ELEKTRİKÇİ MEKANİKÇİ BUNLARI HESAPLAMAK İSTİYORUM
 
Sayın @abdullah2 ,
İlk sorunuz ile son yazdıklarınızı karşılaştırırsanız;
İlk sorunuzu ne kadar "YANLIŞ" sorduğunuzu anlayabilirsiniz.
Yardım etmek için çaba gösteren bütün Forum üyelerimiz bu durumda cevap vermekten kaçınabilir.
Aşağıdaki Linkte tarif edildiği gibi, dosyanızı bildirirseniz, daha sağlıklı bir çözüm bulunabilir.
Örnek Dosya eklemek hakkında bilgi edinmek için:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/
 
turist' Alıntı:
Sayın @abdullah2 ,
İlk sorunuz ile son yazdıklarınızı karşılaştırırsanız;
İlk sorunuzu ne kadar "YANLIŞ" sorduğunuzu anlayabilirsiniz.
Yardım etmek için çaba gösteren bütün Forum üyelerimiz bu durumda cevap vermekten kaçınabilir.
Aşağıdaki Linkte tarif edildiği gibi, dosyanızı bildirirseniz, daha sağlıklı bir çözüm bulunabilir.
Örnek Dosya eklemek hakkında bilgi edinmek için:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/
Genişletmek için tıkla ...
haklısınız doğru baya yanlış oldu ben dosyayı linke yükledim http://s3.dosya.tc/server17/myw42n/Kitap1.rar.html
 
Dosyanız Bu linktedir.

Sayfadaki "BUL" butonuna tıklayıp sonuçları inceleyin.
Not: Harfler ve renkler "STANDART" olmayan bir şekilde yazılmış.(Örnek: A ve B harflerinin sağında boşluk var , C de boşluk yok.
Yeşil renk A ve B için aynı, C için farklı)
Buna rağmen kodlar sayfanızın şeklini değiştirmeden düzenlenmiştir.

Tavsiyem:Sayfanızı daha düzenli oluşturursanız, koda bile gerek kalmadan Toplam aldırabilirsiniz.
Renk farklılıkları yerine, A,B,C,D harflerini başka rumuzlarla bir İndex gibi kullansanız, sadece "EĞERSAY" formülü bile çözüm sağlar.
Tercih ve takdir sizin.
 
turist' Alıntı:
Dosyanız Bu linktedir.

Sayfadaki "BUL" butonuna tıklayıp sonuçları inceleyin.
Not: Harfler ve renkler "STANDART" olmayan bir şekilde yazılmış.(Örnek: A ve B harflerinin sağında boşluk var , C de boşluk yok.
Yeşil renk A ve B için aynı, C için farklı)
Buna rağmen kodlar sayfanızın şeklini değiştirmeden düzenlenmiştir.

Tavsiyem:Sayfanızı daha düzenli oluşturursanız, koda bile gerek kalmadan Toplam aldırabilirsiniz.
Renk farklılıkları yerine, A,B,C,D harflerini başka rumuzlarla bir İndex gibi kullansanız, sadece "EĞERSAY" formülü bile çözüm sağlar.
Tercih ve takdir sizin.
Genişletmek için tıkla ...
teşekkür ederim ama sonuçlar yanlış çıkıyor mesela 1 ekimde 2 elektrikçi 2 mekanikçi var vardiyada bunu göstermesini istiyorum
bir de eğersayla nasıl yapacagım onda toplamı veriyor yani 4 olarak sonuc veriyor ben elektrikçi a yazan hücreye a vardiyasındaki elektrikçi sayısını mekanik içinde makanik a hücresine yazmasını istiyorum bunu renkleri değiştirerek yapabildim sadece ama maalesef ki vardiyayı ben yapmıyorum :)
 
ŞİMDİ BİRAZ KOD UZERİNDE UGRASTIM PEK BILGIM YOK MACROLARDA SADECE ARAYACAGI VE SAYILARI YAZACAGI SUTUNLARI DEĞİŞTİRDİM SONUCLARI DOGRU BULUYOR
 
Evet, şimdi işe yaradı.
Kendiniz şartlara göre düzenlerseniz , her zaman daha kolay olur.
Kolay gelsin.
 
Son düzenleme:
Merhaba.

Bir konuda fikrimi belirteyim.
Anlayabildiğim kadarıyla, ELEKTRİK/MEKANİK kişilerin görevleri oluyor, yani kişilere bağlı.
Bir kişi için bir sütunda ELEKTRİK için öngördüğünüz rengi uygulayıp, başka bir sütunda aynı kişi için MEKANİK için öngördüğünüz rengi uyguluyor musunuz?
Eğer bir kişi, ya hep ELEKTRİK ya da hep MEKANİK grubuna dahilse, uygun bir sütuna
(isimlerin hemen sağına bir sütun ekleyip buraya olabilir veya en sağdaki ilk boş sütuna olabilir)
kişinin MEKANİK grubuna mı yoksa ELEKTRİK grubuna mi dahil olduğu bilgisini yazarsanız;
basit TOPLA.ÇARPIM işlevi içeren formül ile sonuç alabilirsiniz.
.
 
turist' Alıntı:
Evet, şimdi işe yaradı.
Kendiniz şartalar göre düzenlerseniz , her zaman daha kolay olur.
Kolay gelsin.
Genişletmek için tıkla ...
Kod: 
Private Sub CommandButton1_Click()
Dim say, say2, say3, say4, say5, say6 As Integer
Dim hücre As Range
Dim renk As Long
Dim harf As String
Range("E33:E40") = Empty
For Each hücre In Range("E9:E30")
renk = hücre.Interior.ColorIndex
harf = hücre.Value
If renk = 50 And harf = "A " Then
say = say + 1
End If
If renk = 50 And harf = "B " Then
say2 = say2 + 1
End If

If renk = 33 And harf = "C" Then
say3 = say3 + 1
End If
If renk = 18 And harf = "A " Then
say4 = say4 + 1
End If
If renk = 18 And harf = "B " Then
say5 = say5 + 1
End If

If renk = 18 And harf = "C" Then
say6 = say6 + 1
End If
Next
Range("E33") = say
Range("E34") = say2
Range("E35") = say3
Range("E37") = say4
Range("E38") = say5
Range("E39") = say6


Range("F33:F40") = Empty
For Each hücre In Range("F9:F30")
renk = hücre.Interior.ColorIndex
harf = hücre.Value
If renk = 50 And harf = "A " Then
say = say + 1
End If
If renk = 50 And harf = "B " Then
say2 = say2 + 1
End If

If renk = 33 And harf = "C" Then
say3 = say3 + 1
End If
If renk = 18 And harf = "A " Then
say4 = say4 + 1
End If
If renk = 18 And harf = "B " Then
say5 = say5 + 1
End If

If renk = 18 And harf = "C" Then
say6 = say6 + 1
End If
Next
Range("F33") = say
Range("F34") = say2
Range("F35") = say3
Range("F37") = say4
Range("F38") = say5
Range("F39") = say6
End Sub
 
BU SEKILDE YAPTIM AMA F33 F39 HÜCRELERİNE A LARIN TOPLAM SAYISINI YAZIYOR NEDENDIR ACABA ILK KOD YERI CALISTI 2 ELK 2 MEKANIK OLARAK YAZDI F SEKMESINDE 4 OLARAK YAZIYOR
 
Ömer BARAN' Alıntı:
Merhaba.

Bir konuda fikrimi belirteyim.
Anlayabildiğim kadarıyla, ELEKTRİK/MEKANİK kişilerin görevleri oluyor, yani kişilere bağlı.
Bir kişi için bir sütunda ELEKTRİK için öngördüğünüz rengi uygulayıp, başka bir sütunda aynı kişi için MEKANİK için öngördüğünüz rengi uyguluyor musunuz?
Eğer bir kişi, ya hep ELEKTRİK ya da hep MEKANİK grubuna dahilse, uygun bir sütuna
(isimlerin hemen sağına bir sütun ekleyip buraya olabilir veya en sağdaki ilk boş sütuna olabilir)
kişinin MEKANİK grubuna mı yoksa ELEKTRİK grubuna mi dahil olduğu bilgisini yazarsanız;
basit TOPLA.ÇARPIM işlevi içeren formül ile sonuç alabilirsiniz.
.
Genişletmek için tıkla ...
ŞÖYLE SÖYLEYEYİM SAYFANIN TAMAMINI AYARLAYACAĞIM AMA BANA SADECE A VE B LERİ ANLATSANIZ YETER ORDAN YÜRÜRÜM İNŞ :D
YEŞİLLER MEKANİK KAHVERENGİLER ELEKTİRİKÇİ ŞEFİMİN BENDEN İSTEDİĞİ 1 EKİMDE A VARDİYASINDA KAC ELEKTRİKÇİ VAR KAÇ MEKANIKCI VAR AYRI HÜCRELERE YAZMAM GEREKİYOR
 
Şu an bilgisayar başında değilim.
Siz benim söylediğimi, eklenecek bir sütuna kişilerin karşısına mesleklerini yazın.
Bu eklemenin yapılmış haliyle yeni bir belge yükleyin, formül kolay.

Ayrıca; mesajlarınızın tümünü büyük harf ile yazmayınız. Tümü büyük harfle yazılan mesajlar, kızgınlık, bağırma anlamına geliyor sanal alemde.
 
Ömer BARAN' Alıntı:
Şu an bilgisayar başında değilim.
Siz benim söylediğimi, eklenecek bir sütuna kişilerin karşısına mesleklerini yazın.
Bu eklemenin yapılmış haliyle yeni bir belge yükleyin, formül kolay.

Ayrıca; mesajlarınızın tümünü büyük harf ile yazmayınız. Tümü büyük harfle yazılan mesajlar, kızgınlık, bağırma anlamına geliyor sanal alemde.
Genişletmek için tıkla ...
http://www.dosya.tc/server15/37vvse/RengeGoreSay.rar.html
personellerın basında elk(elektrikçi) mek(mekanikçi) otomasyon ve boyacı olarak yazdım
 
Başka bir üye cevaplamazsa, bilgisayar başına geçtiğimde bakmaya çalışırım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst