boş hücreleri listeleme yapabilirmiyim?

[okanbaturhan]

arkadaşlar;
ekte verdiğim excel tablosunda 1 ve 2 bölümlerde ay bazında karşısında boşluk olan personeli ayrı ayrı sayfa 2 de ay bazında listelemek istiyorum.yani mesela bölüm 1 de listele tuşuna bastığım zaman sayfa 2 de personel ismini A kolonunda,çalıştığı yeri B kolonunda ve karşısında boşluk olan ayın isminide C kolonunda görmek istiyorum.aynı şey bölüm2 içinde aynı şekilde olacak.
bu konuda yardımcı olacağınızı ümit ederek hepinize iyi çalışmalar diliyorum.

 

[okanbaturhan]

arkadaşlar;
yukarıdaki konuda yardımlarını bekliyorum.ilginize teşekkür ederim.

 

[Levent Menteşoğlu]

1. ve 2. BÖLÜM sayfa2'de nasıl listelenecektir. Aynı sütunlara devam olarakmı yoksa farklı sütunlaramı?

 

[okanbaturhan]

Sayın Leventm;
1.bölümün listele tuşuna bastığım zaman 1. bölüm listesinin sayfa 2 ye yukarıda belirttiğim şekilde listelenmesini istiyorum.mesela onu print ettikten sonra bölüm 2 ye geçip listele tuşuna bastığım anda da 2.bölüm listelemesini sayfa 2 de görüp onun printini ayrı almak istiyorum.yani her iki bölümüde aynı anda sayfa 2 de görmeme gerek yok ayrı ayrı da olabilir.
ilginize teşekkür eder ,iyi çalışmalar dilerim.

 

[okanbaturhan]

Sayın Leventm;
1.bölümün listele tuşuna bastığım zaman 1. bölüm listesinin sayfa 2 ye yukarıda belirttiğim şekilde listelenmesini istiyorum.mesela onu print ettikten sonra bölüm 2 ye geçip listele tuşuna bastığım anda da 2.bölüm listelemesini sayfa 2 de görüp onun printini ayrı almak istiyorum.yani her iki bölümüde aynı anda sayfa 2 de görmeme gerek yok ayrı ayrı da olabilir.
ilginize teşekkür eder ,iyi çalışmalar dilerim.

Sayın Leventm;
yukarıda anlattığım şekilde bir düzenleme yapabilirseniz çok sevineceğim.İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza aktarım yapıldıktan sonraki halinide eklerseniz çözüme daha çabuk ulaşabiliriz.

 

[suvari10]

Sayın Cost Control;
örnek dosyam şu anki haliyle karşı hücreleri tamamen dolu olan kişi isimlerini verecek şekilde formullenmiş.ayrıca bölümlerdeki b hanesindeki bilgileri sayfa 2 de a hanesine kişi isimlerinin yanına monteleyerek vermektedir.bu haliyle bu durum benim ihtiyacımı karşılamayacağı için yine bu sayfalar sabit kalmakla birlikte uygulanan formulde değişiklik yaparak kişilerin karşısında boşluk olduğu zaman sayfa 2 de kişinin adını is yerini ve boş kaladığı ayı göstermesi eğer mümkünse bana yardımcı olmanızı istediğim bölümdür.
dosya aktarımından kastınızı pek anlayamadım.açıklarsanız sevinirim.iyi çalışmalar diliyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu her iki sayfadaki butonlara bağlayarak çalıştırın.

Sub listele()
Set s1 = Sheets("sayfa2")
s1.[a:d].ClearContents
sut = WorksheetFunction.Match(Format(Date, "mmmm"), [5:5], 0)
For a = 6 To [b65536].End(3).Row
say = WorksheetFunction.CountA(Range(Cells(a, "d"), Cells(a, sut)))
If say < sut - 3 Then
c = c + 1
For b = 4 To sut
If IsDate(Cells(a, b)) = False Then deg = deg & "," & Cells(5, b)
Next
s1.Cells(c, "a") = Cells(a, "b")
s1.Cells(c, "b") = Cells(a, "c")
s1.Cells(c, "c") = Right(deg, Len(deg) - 1)
End If
deg = ""
Next
MsgBox "İŞLEM TAMAMLANMIŞTIR"
End Sub

 

[okanbaturhan]

Sayın Leventm;
Dediğiniz gibi yukarıdaki formülü butona tanıttım.ve işlem istediğim şekilde gerçekleşti.gerçekten ilginize teşekkür ederim.sizlere zahmet verdim.yanlız bu tablo ile ilgili bir şey daha sormak istiyorum.bu formülle aralık ayı dahil alabiliyorum.bunu ağustos ayına kadar da almak istesem nerede değişiklik yapmam gerekir.?bu konuda yardımcı olursanız sevinirim.tekrar ilginize teşekkür eder iyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Değişiklik yapmanıza gerek yok, kod eklemeleri otomatikman algılayacaktır.

 

[okanbaturhan]

Sayın Leventm;
Dediğiniz gibi bilgisayar tarihini ileriye alınca geçmişte kalan boşlukları otomatik olarak algıladı.bu şekli ile benim ihtiyacımı fazlasıyla görecektir.tekrar ilginize teşekkür eder, iyi çalışmalar dilerim.