Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 25-08-2017, 23:20   #1
hakanarik
 
Giriş: 20/06/2011
Şehir: napcan
Mesaj: 3
Excel Vers. ve Dili:
2016
Varsayılan tarihe bağlı renkli hücre saymak hakkında

merhabalar, renkli hücre saydırma ile ilgili bilgiler buldum internetteki araştırmalarımda ancak, belirli tarih aralığındaki renkli hücre saydırma ile ilgili macro bulamadım. yardımcı olursanız sevinirim. (hücrelerin içerisinde tarih yazılı)
hakanarik Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-08-2017, 23:49   #2
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,509
Excel Vers. ve Dili:
2003
Varsayılan

Hangi hücreler ve ne kadar veri var ?.
Bilgileri örneklerseniz daha fazla ilgi çeker
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-08-2017, 23:58   #3
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,509
Excel Vers. ve Dili:
2003
Varsayılan

Veriler b sütununda olduğunu düşünelim
c1 de ilk tarih
d1 de son tarih olacak
hücre renkleride kırmızı olsun.
E1 hücresine sonucu yazar.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub RENK()
    For MM = 2 To 50
        If Cells(KK, "B") > Cells(1, "C") And Cells(KK, "B") < Cells(1, "D") Then
        If Cells(MM, "B").Interior.ColorIndex = 3 Then
        NN = NN + 1
        End If
        End If
        Cells(1, "E") = IIf(NN <> 0, NN, "")
    Next
End Sub
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-08-2017, 00:07   #4
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,892
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Alternatif olsun.
Ekteki gibi olabilir.
Kendi dosyanıza uyarlayın.
İyi çalışmalar.

Link:
http://s6.dosya.tc/server10/ht3e8z/h...sayma.zip.html
Eklenmiş Dosyalar
Dosya Türü: zip hakanarik-sayma.zip (12.6 KB, 9 Görüntülenme)
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-08-2017, 00:16   #5
numan şamil
Destek Ekibi
 
Giriş: 27/01/2011
Şehir: çorum
Mesaj: 1,090
Excel Vers. ve Dili:
Ofis 2010 Türkçe
Varsayılan

Merhaba
Alternatif olsun
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub RENK()
Range("E1").ClearContents
For i = 2 To 50
If Cells(i, "B") > Cells(1, "C") And Cells(i, "B") < Cells(1, "D") Then
If Range("b" & i).Interior.ColorIndex = 3 Then
say = say + 1
End If
End If
Next
Range("E1") = say
End Sub
numan şamil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-08-2017, 00:46   #6
hakanarik
 
Giriş: 20/06/2011
Şehir: napcan
Mesaj: 3
Excel Vers. ve Dili:
2016
Varsayılan

bu kadar çabuk geri dönüşünüz için teşekkürler. benim istediğim =renklihücresay(L:R;">25.07.17";L:R;"<=25.08.17") bu mantıkta birşey olmasını istiyorum aslında yani iki koşul olacak hem dolgulu hücre hem belirtilen tarihler arasında olacak umarım anlatabilmişimdir.
hakanarik Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-08-2017, 14:27   #7
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,484
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Alıntı:
hakanarik tarafından gönderildi Mesajı Görüntüle
bu kadar çabuk geri dönüşünüz için teşekkürler. benim istediğim =renklihücresay(L:R;">25.07.17";L:R;"<=25.08.17") bu mantıkta birşey olmasını istiyorum aslında yani iki koşul olacak hem dolgulu hücre hem belirtilen tarihler arasında olacak umarım anlatabilmişimdir.
Merhaba.

Aşağıdaki gibi bir KTF oluşturdum, deneyiniz.

-- Aşağıdaki kod'u boş bir MODULE'e yapıştırın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function renksay(alan As Range, tarih1 As Date, tarih2 As Date, kriter As Range) As Long
    Dim veri As Range
    Dim renk As Long
    renk = kriter.Interior.ColorIndex
For Each veri In alan
    If veri.Interior.ColorIndex = renk And veri >= tarih1 And veri <= tarih2 Then
        renksay = renksay + 1
    End If
Next veri
End Function
-- Kullanılmayan bir hücreye aşağıdaki formülü yazın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=renksay(G2:H9;A1;B1;C1)

Formülün yapısı:
=renksay(sayımyapılacakalan;küçüktarih;büyüktarih;kriterrenkileboyanmışhücre)
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-08-2017, 18:22   #8
hakanarik
 
Giriş: 20/06/2011
Şehir: napcan
Mesaj: 3
Excel Vers. ve Dili:
2016
Varsayılan

Çok teşekkür ederim, şimdi denedim çalışıyor. tarihler de ayarladım. elinize emeğinize sağlık. kendim olsam hayatta yapamazdım kod yazma işinden hiç anlamıyorum. ilk kez makroya işimiz düştü sağlıcakla kalın.
hakanarik Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-08-2017, 23:55   #9
numan şamil
Destek Ekibi
 
Giriş: 27/01/2011
Şehir: çorum
Mesaj: 1,090
Excel Vers. ve Dili:
Ofis 2010 Türkçe
Varsayılan

merhaba
muygun Hocamdan esinlenerek hazırlanmış kodlar
Alternatif olsun
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub numan()
 Dim alan As Range
    Dim veri As Range
    Dim renk As Long
    Set alan = Application.Range("G2:H9")
    renk = Range("C1").Interior.ColorIndex
    tarih1 = Range("A1")
     tarih2 = Range("B1")
     Range("E1") = ""
For Each veri In alan
    If veri.Interior.ColorIndex = renk And veri >= tarih1 And veri <= tarih2 Then
    Range("E1").Value = Range("E1").Value + 1
    End If
Next veri
End Sub
numan şamil Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 22:55


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden