değere göre veri aktarımı

[iceman20]

Arkadaşlar,
Sayfa 1 'de bulunan tabloda "0" değerine karşılık gelen ismi sayfa2'ye alt alta aktarmak istiyorum. Mümkünse makro kullanmadan. Dosya çok büyük. Eğer makro kullanmadan olmazsa da otomatik çalışmalı yazacağım makro. Tablo hergün değişiyor.
Selamlar

 

[İhsan Tank]

Arkadaşlar,
Sayfa 1 'de bulunan tabloda "0" değerine karşılık gelen ismi sayfa2'ye alt alta aktarmak istiyorum. Mümkünse makro kullanmadan. Dosya çok büyük. Eğer makro kullanmadan olmazsa da otomatik çalışmalı yazacağım makro. Tablo hergün değişiyor.
Selamlar

merhaba
önce formül'ü vereyim
Dikkat kasar
formül dizi formülüdür.

Dizi Formülü Formül Hücreye Girildikten Sonra Enter Tuşuna Basmadan Ctrl+Shift+Enter Tuş Kombinasyonu İle Aktif Olmaktadır. Formülün Başında Ve Sonunda { } Bu İşaretler Çıkar Elle Eklediğiniz Takdirde Formül Hata Verir.

formülde 1000 satır baz alınmıştır.

1000 satır'ı değiştirmek için ctrl+h yapın aranan değere $1000 yeni değere $10000 yazın ve tümünü değiştir deyin.
$10000 olan yeri kendinize göre ayarlayınız.

Sayfa2 a1 hücresine yapıştırın ve yukarıda anlattığım kombinasyonu uygulayın

=EĞER(SATIRSAY($A$1:A1)>EĞERSAY(Sayfa1!$B$2:$B$1000;0);"";
İNDİS(Sayfa1!$A$2:$A$1000;KÜÇÜK(EĞER(Sayfa1!$B$2:$B$1000=0;
SATIR(Sayfa1!$B$2:$B$1000)-SATIR(Sayfa1!$B$2)+1);SATIRSAY($A$1:A1))))

sonra aşağıya doğru çoğaltın.

kod ile isterseniz Sayfa1'in kod bölümüne kopyalayın ve deneyin B2:B65536 arasında değişiklik olduğunda kod tetiklenir.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B65536")) Is Nothing Then Exit Sub
Dim ts, kaplan
kaplan = 1
Sheets("Sayfa2").Range("A:A").ClearContents
For ts = 2 To Cells(65536, "A").End(xlUp).Row
If Cells(ts, "B") = 0 Then
Sheets("Sayfa2").Cells(kaplan, "A") = Cells(ts, "A")
kaplan = kaplan + 1
End If
Next
End Sub

lütfen kod ile kaydederken makro içerebilen dosya şeklinde kayıt yapınız

 

[iceman20]

İhsan Bey ilginize teşekkür ederim. Formül tam istediğim gibi ancak, benim tablomda isimlerin yanındaki değerler formül. Yani "0" yerine formül yazıyor, bu durumda sizin formülünüz çalışmıyor. KOlay bir yolu varmı?

Selamlar

 

[İhsan Tank]

buradaki dosyada formül yok
formülü eklerseniz ona göre bir çözüm üretelim

 

[iceman20]

İhsan Bey,
Hücrede "=EĞER(EHATALIYSA(TOPLA(W251:X251));0;(TOPLA(W251:X251)))" şeklinde basit bir formül var. (dosyanın tamamı 6 MB olduğu için ve başka yerlerden veri aldığı için atamıyorum)

Teşekkürler

 

[İhsan Tank]

İhsan Bey,
Hücrede "=EĞER(EHATALIYSA(TOPLA(W251:X251));0;(TOPLA(W251:X251)))" şeklinde basit bir formül var. (dosyanın tamamı 6 MB olduğu için ve başka yerlerden veri aldığı için atamıyorum)

Teşekkürler

verdiğim formül 0 değer'i gördüğünde çalışıyor.
ben deniyorum bir gariplik çözemedim.
birde sizin verdiğiniz formül hatalı sonuç üretmez ki_?
neden ehatalıysa kullandınız onu çözemedim.