Koşullu biçimlendirme kullanılarak hücrelerin seçilmesi

[okanbaturhan]

Selam Arkadaşlar;
Bir Excel dosyasında sayfa 1 de Koşullu biçimlendirme ile belirlenen iki tarih arasında renklendirdiğimiz hücrelerin sayfa 2 de listesini alabilirmiyiz?
Bu konuda yardımcı olursanız sevinirim.İyi çalışmalar.

 

[iggydarsa]

Sanirim bu makroyla yapilabilir. Ornek bir dosya koyabilirmisiniz?

 

[okanbaturhan]

Sayın İggydarsa;

Ã?rnek dosyada yaptığım çizelgede ki seçtiğim tarih aralığına gelen
AD' ları sayfa 2'de toplamak istiyorum.Bunu nasıl yapabiliriz bu konuda yardımcı olursanız sevinirim.İyi çalışmalar.

 

[okanbaturhan]

Dosya ekleme bölümü çıkmıyor.sistemde bir problem mi var?

 

[Levent Menteşoğlu]

Hiç bir problem yok dosyanızı ekleyebilirsiniz.

 

[okanbaturhan]

Sayın Leventm,

Cevap yaz butonuna tıkladığımda beraberinde ataç ekle bölümü gelmesi gerekirken gelmiyor.İşim garip yanı girdiğim sayfalardaki eklenen hiçbir dosyayı göremiyorum.Login olmama rağmen bu neden kaynaklanabilir?düne kadar görüyorken bugün göremiyorum.
Bu benim sistemimdenmi mi kaynaklanıyor yoksa forumla ilgili bir problem mi var anlayamadım.
Bu konuyla ilgilenirseniz sevinirim.
İyi çalışmalar.

 

[Levent Menteşoğlu]

Bu konuyla ilgili sizin dışınızda kimseden bir şikayet gelmedi, bende her türlü dosyayı indirebildiğim gibi dosyada ekleyebiliyorum. Sorunun sizin pcden özelliklede web tarayıcınızdan kaynaklanıyor olabilir. Hangi web tarayıcısını kullanıyorsunuz. Benim kullandığım internet explorerde bir sorun yok.

 

[okanbaturhan]

Sayın Leventm;

Bende internet explorer ı kullanıyorum.Ama defalarca logout olup login olmama rağmen hala göremiyorum.Ataç kotamda zaten bir problem yok yani %1 dolu.Neden kaynaklanabileceğini çözemediğim için size mesaj yazmak zorunda kaldım.İlginize teşekkür ederim.

 

[iggydarsa]

sayin okan baturhan dogru soyluyor,
bende bi doysa gonderiyomus gibi bir bakiyim dedim ama gonderecek yeri bulamadim. sayfanin design'imi degisti yoksa bi sorun mu var anliyamadim.

NOT: bende IE kullaniyorum

 

[okanbaturhan]

Sayın Leventm;

Bu forumda yeni konular açabilirsiniz
Bu forumdaki mesajlara cevap verebilirsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız
Bu forumda ataç ekleye mezsin
Bu forumdan dosyaları indiremezsin

Yukarıdaki yazılar şu an dikkatimi çekti.Sizinde dikkatinize sunuyorum.

 

[okanbaturhan]

İlave olarak diğer bölümlerde mesela Excel dersanesinde veya macro da ataç ları görebiliyorum.Sanırım bu bölümde bir problem var.Bilginize.

 

[okanbaturhan]

Arkadaşlar;

Ã?rnek dosyada yaptığım çizelgede ki seçtiğim tarih aralığına gelen
AD' ları sayfa 2'de toplamak istiyorum.Bunu nasıl yapabiliriz bu konuda yardımcı olursanız sevinirim.İyi çalışmalar.

 

[okanbaturhan]

Sayın İggydarsa;

Ã?rnek dosyam bir önceki mesajın ek'indedir.İncelerseniz sevinirim.İyi çalışmalar.

 

[Levent Menteşoğlu]

Aşağıdaki kodun bulunduğu ekteki dosyayı inceleyin.

[vb:1:9c79f1cfb9]Sub listele()
Set s1 = Sheets("sayfa2")
s1.Columns(1).ClearContents
ilktarih = [b1]
sontarih = [b2]
For sut = 5 To 8 Step 3
sonsat = Cells(65536, sut).End(3).Row
For sat = 5 To sonsat
If Cells(sat, sut) >= ilktarih And Cells(sat, sut) <= sontarih Then
c = c + 1
s1.Cells(c, 1) = Cells(sat, sut - 1)
End If
Next: Next
s1.Select
MsgBox "İÞLEM TAMAMLANMIÞTIR"
End Sub
[/vb:1:9c79f1cfb9]

 

[okanbaturhan]

Sayın Leventm,

Gönderdiğiniz dosya yapmak istediğimi tam karşılıyor.İlginize teşekkür eder,iyi çalışmalar dilerim.

 

[okanbaturhan]

Sayın Leventm;

gönderdiğiniz dosyayı kendime uyarladım ama uyarlamaya başlayınca da size verdiğim ilk bilgilerde eksik kaldığımı farkettim.
Ã?rnek dosyamdaki listeleri yine aynı şartlarda yani mavi alanlara denk gelen ad'ları sayfa 2 de görmek şartıyla birde bu adların önüne A1 ,B1,C1 gibi öğelerinde eklenmesini istesem bu mümkün olurmu?yani sayfa 2 de listelenen öğelerin örnek tablomdaki gibi bulunduğu rafların adlarınıda görmem benim işimi dahada kolaylaştıracaktır.
Yardımlarınız için şimdiden teşekkürler.
İyi çalişmalar.

 

[Levent Menteşoğlu]

Son eklediğiniz dosyadaki butona aşağıdaki kodu yazarak deneyin.

[vb:1:e768a2a555]Sub listele()
Set s1 = Sheets("sayfa2")
s1.Columns(1).ClearContents
ilktarih = [c1]
sontarih = [c2]
For sut = 4 To Cells(6, 256).End(xlToLeft).Column Step 4
sonsat = Cells(65536, sut).End(3).Row
For sat = 6 To sonsat
If Cells(sat, sut) >= ilktarih And Cells(sat, sut) <= sontarih Then
c = c + 1
s1.Cells(c, 1) = Cells(sat, sut - 2) & "-" & Cells(sat, sut - 1)
End If
Next: Next
s1.Select
MsgBox "İÞLEM TAMAMLANMIÞTIR"
End Sub[/vb:1:e768a2a555]

 

[okanbaturhan]

Verdiğiniz kodu uyguladım.Sonuç mükemmel oldu.Teşekkürler.
İyi çalışmalar.