Filtreleyerek Otomatik Veri Çekme

[ttnetttnet]

Merhabalar,

Ekte iletmiş olduğum dosyada 3. satırdaki başlıklarda bulunan filtrelemeyi kullanarak belirli parametrelere göre aşağıdaki verileri süzüyoruz. Bu dosyadaki her satır benzersiz bir veri içeriyor, dolayısıyla ben süzme yaptığımda tek satır veri kalacak.

Ricam (eğer mümkünse) süzdükten sonra kalan o tek satırı otomatik olarak SEÇİM yazan 2. satırda aynı şekilde görmek istiyoruz. Süzgüyü bozduğumuzda veri gelmeyecek, sadece filtreleme sonucunda tek satır kaldığı taktirde yukarıda otomatik olarak ilgili satır görünecek.

Şimdiden yardımlarınız için çok teşekkür ediyorum.

Saygılarımla,
Serhat

 

[Ömer BARAN]

Merhaba.

Formül ile çözüm isterseniz aşağıdaki gibi olabilir.

-- R4 hücnesine aşağıdaki formülü uygulayın ve aşağı doğru liste boyunca kopyalayın (yardımcı sütun);

=ALTTOPLAM(3;$C$4:C4)

-- C2 hücresine aşağıdaki formülü uygulayın ve bu formülü sağa doğru Q2 hücresine kadar kopyalayın.
(Gerçek belgenizdeki son dolu satır numarası farklı ise formüldeki 13 sayısını değiştirin)

=EĞER(MAK($R$4:$R$[COLOR="Red"]13[/COLOR])=1;İNDİS($C$4:$Q$[COLOR="Red"]13[/COLOR];KAÇINCI(1;$R$4:$R$[COLOR="Red"]13[/COLOR];0);SÜTUN()-2);"")

 

[ttnetttnet]

Yardımcı olabilecek kimse var mı? Lütfen, konu çok acil

 

[Ömer BARAN]

Aynı anda cevap yazmışız.

Formül ile yapılmış çözüm önerisi için sayfayı yenileyerek önceki cevabıma bakınız.

Kod ile çözüm önerisi (filtreyi sadece C sütununda uyguluyorsanız):

Sheets("deneme").Range("C4:Q13").SpecialCells(xlCellTypeVisible).Copy _
    Destination:=Sheets("deneme").Range("C2")
Sheets("deneme").Range("C2:Q2").Interior.ColorIndex = 6
End If

 

[ttnetttnet]

Budur !!! Harikasınız, çok teşekkür ederim.

Merhaba.

Formül ile çözüm isterseniz aşağıdaki gibi olabilir.

-- R4 hücnesine aşağıdaki formülü uygulayın ve aşağı doğru liste boyunca kopyalayın (yardımcı sütun);

=ALTTOPLAM(3;$C$4:C4)

-- C2 hücresine aşağıdaki formülü uygulayın ve bu formülü sağa doğru Q2 hücresine kadar kopyalayın.
(Gerçek belgenizdeki son dolu satır numarası farklı ise formüldeki 13 sayısını değiştirin)

=EĞER(MAK($R$4:$R$[COLOR="Red"]13[/COLOR])=1;İNDİS($C$4:$Q$[COLOR="Red"]13[/COLOR];KAÇINCI(1;$R$4:$R$[COLOR="Red"]13[/COLOR];0);SÜTUN()-2);"")

 

[Ömer BARAN]

Çok hızlı cevap yazıyorsunuz.
Kod ile çözüm için de cevap yazmıştım.
Sayfayı yenileyip bundan bir önceki cevabıma bakın.