Düşeyara ile birden fazla veriyi alt alta sıralama

Katılım
24 Kasım 2008
Mesajlar
1
Excel Vers. ve Dili
97-2003
=EĞER(EHATALIYSA(EĞER(SATIRSAY(K$12:K12)>$J$12;"";İNDİS(B$3:B$16;KÜÇÜK(EĞER($A$3:$A$16=$J$12;SATIR(B$3:B$16)-SATIR(B$3)+1);SATIRSAY(K$12:K12)))));"";EĞER(SATIRSAY(K$12:K12)>$J$12;"";İNDİS(B$3:B$16;KÜÇÜK(EĞER($A$3:$A$16=$J$12;SATIR(B$3:B$16)-SATIR(B$3)+1);SATIRSAY($H$12:K12)))))


bu formulün mantığını açıkça yazarmısınız anlayamadım çok hoşuma gitti mükemmel bir şey yapmışsınız bu gibi örnekleri nasıl bulurum kitaplarda veya dökümanlarda bulabilirmiyim
 
Katılım
10 Mayıs 2010
Mesajlar
46
Excel Vers. ve Dili
Excel2003 Türkçe
Merhaba elinize sağlık formüller çok işime yaradı. Aynı olayı makro ile nasıl yapabiliriz. Yardım edebilir misiniz ?
 
Katılım
3 Mart 2008
Mesajlar
1
Excel Vers. ve Dili
2003 türkçe
vermiş olduğunuz örneklerdeki formüllerin dizi aralığını genişletmek istediğimde b3-b16 yı b3 b2500 yapmak istediğimde formül bozuluyor. önce hücreyi seçtiğimde formülün başında ve sonunda { ve } işaretleri beliriyor içeriği değiştirmek istediğimde işaretler kayboluyor ve tekrar eklememe rağmen formül bozuluyor değerleri yan yana birleştirerek yazmaya başlıyor. çözümü varmıdır.
 
İ

İhsan Tank

Misafir
vermiş olduğunuz örneklerdeki formüllerin dizi aralığını genişletmek istediğimde b3-b16 yı b3 b2500 yapmak istediğimde formül bozuluyor. önce hücreyi seçtiğimde formülün başında ve sonunda { ve } işaretleri beliriyor içeriği değiştirmek istediğimde işaretler kayboluyor ve tekrar eklememe rağmen formül bozuluyor değerleri yan yana birleştirerek yazmaya başlıyor. çözümü varmıdır.
ne yapmak istediğinizi anlamadım
siz formüldeki 16 satırlık alanı yükseltmek istiyorsanız.
ctrl+h yapın aran değere 16 yeni değere 2500 yazın tümünü değiştir deyin.
yok ben formülün içinden değiştireceğim diyorsanız değiştirdikten sonra enter tuşuna basmadan ctrl+shift+enter tuş komibnasyonu ile formülü kapatınız
 
Katılım
9 Ağustos 2010
Mesajlar
17
Excel Vers. ve Dili
2003 türkçe
Arkadaşlar, eklediğim dosyayı aynı şekilde nasıl yapabilirim.
Burada tarihe göre aranıyordu, eklediğim dosyada isme göre aranacak. Gene aynı şekilde veriler alt alta (o isme karşılık gelen ne kadar veri varsa) sıralansın istiyorum. Yardımcı olursanız çok sevinirim.
 

Ekli dosyalar

Mahir64

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,677
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Arkadaşlar, eklediğim dosyayı aynı şekilde nasıl yapabilirim.
Burada tarihe göre aranıyordu, eklediğim dosyada isme göre aranacak. Gene aynı şekilde veriler alt alta (o isme karşılık gelen ne kadar veri varsa) sıralansın istiyorum. Yardımcı olursanız çok sevinirim.
Merhaba
Eki inceleyin
Formüller DİZİ formülüdür SHİFT CTRL ENTER ile sonlandırın
 

Ekli dosyalar

S.Yiğit

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2008
Mesajlar
1,748
Excel Vers. ve Dili
2019 TR
İSME GÖRE ARAMA sayfasının A5 hücresine =DÜŞEYARA($B$2;VERİLER!$A:$J;SÜTUNSAY($A$1:A1);0) yazıp J sütununa ve aşağı sürükleyin

PLAKAYA GÖRE ARAMA sayfasının A4 hücresine =İNDİS(VERİLER!A$3:A$500;KAÇINCI($C$1;VERİLER!$C$3;0);1) yazıp bir sağa ve aşağı doğru sürükleyin

PLAKAYA GÖRE ARAMA sayfasının C4 hücresine =DÜŞEYARA($C$1;VERİLER!$C:$J;SÜTUNSAY($A$1:A1);0) yazıp J sütununa ve aşağı sürükleyin
 
Katılım
9 Ağustos 2010
Mesajlar
17
Excel Vers. ve Dili
2003 türkçe
Merhaba
Eki inceleyin
Formüller DİZİ formülüdür SHİFT CTRL ENTER ile sonlandırın
İSME GÖRE ARAMA sayfasının A5 hücresine =DÜŞEYARA($B$2;VERİLER!$A:$J;SÜTUNSAY($A$1:A1);0) yazıp J sütununa ve aşağı sürükleyin

PLAKAYA GÖRE ARAMA sayfasının A4 hücresine =İNDİS(VERİLER!A$3:A$500;KAÇINCI($C$1;VERİLER!$C$3;0);1) yazıp bir sağa ve aşağı doğru sürükleyin

PLAKAYA GÖRE ARAMA sayfasının C4 hücresine =DÜŞEYARA($C$1;VERİLER!$C:$J;SÜTUNSAY($A$1:A1);0) yazıp J sütununa ve aşağı sürükleyin
Arkadaşlar ikinize de çok teşekkür ederim, istediğim şekilde oldu.
Tekrar teşekkürler.
 
Katılım
12 Ocak 2012
Mesajlar
3
Excel Vers. ve Dili
office 2010 türkçe
merhaba arkadaşlar küçük birşey soracam

çalışma sayfamız SAYFA 3 OLSUN.
Biz ise SAYFA 1 VE SAYFA 2 de arama yapmak istersek.

=EĞER(EHATALIYSA(EĞER(SATIRSAY(O$15:O44)>$S$3;"";İNDİS('Sayfa 1'!D$3:D$1500;KÜÇÜK(EĞER('Sayfa 1'!$C$3:$C$1500=$S$3;SATIR('Sayfa 1'!D$3:D$1500)-SATIR('Sayfa 1'!D$3)+1);SATIRSAY(O$15:O44)))));"";EĞER(SATIRSAY(O$15:O44)>$S$3;"";İNDİS('Sayfa 1'!D$3:D$1500;KÜÇÜK(EĞER('Sayfa 1'!$C$3:$C$1500=$S$3;SATIR('Sayfa 1'!D$3:D$1500)-SATIR('Sayfa 1'!D$3)+1);SATIRSAY($L$15:O44)))))


formülünde nereye SAYFA 2 Yİ EKLEMEM GEREK.

Ben bu formülle sayfa 3 de iken sadece sayfa 1 de arama yapıp birden çok sonucu listeliyebiliyorum. Ancak hem sayfa 2 hemde sayfa 1 de arama yapıp sonuçları sayfa 3 te listelemem lazım. teşekkürler
 
Katılım
23 Ocak 2011
Mesajlar
7
Excel Vers. ve Dili
Excel 2007 English
Merhaba,
Problemi örnek dosya içine ayrıntılı yazdım, ama özetlemek gerekirse;

Çoklu düşüyara nın sonucunu aynı hücreye yazdırmak istiyorum, yani birden fazla sonuc bulduğunda aynı hücreye "," ile ayırarak yazdırmak istiyorum.

Yardımcı olabilirseniz sevinirim.
İyi Çalışmalar.
 

Ekli dosyalar

Katılım
28 Ekim 2010
Mesajlar
18
Excel Vers. ve Dili
2003
Sn. akarakul'un sorusu benimde sorunum. Yardımcı olurmusunuz?
Teşekkür ederim.
Saygılarımla,
 

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,167
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
Kod ile çözüm

SONUC Sayfasının kod bölümüne;
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Sv As Worksheet, c As Range, i As Long
    Dim Adr As Variant, Wf As WorksheetFunction

    Set Sv = Sheets("VERI")
    Set Wf = WorksheetFunction

    Application.ScreenUpdating = False
    Sheets("SONUC").Select
    Range("B1:C" & Rows.Count).ClearContents

    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        With Sv.Range("A:A")
            Set c = .Find(Cells(i, "A"), , xlValues, xlWhole)
            If Not c Is Nothing Then
              Adr = c.Address
                Do
                    Cells(i, "B") = Cells(i, "B") & " - " & Sv.Cells(c.Row, "B")
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
                Cells(i, "B") = Wf.Substitute(Cells(i, "B"), " - ", "", 1)
            End If
        End With
    Next i
 
    Application.ScreenUpdating = True

 End Sub

ekleyerek deneyiniz.
Not kodlar alıntıdır, düzeltmeler yapılmıştır.
 

Ekli dosyalar

Son düzenleme:
Katılım
28 Ocak 2010
Mesajlar
6
Excel Vers. ve Dili
2007
merhaba ekte eklemiş olduğum listede
kırmızı boyalı yerde ki isimleri
mavi boyalı yere tek isim formul ile olarak nasıl yazdırabilirim

şimdiden teşekkür ederim
 

Ekli dosyalar

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,167
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
Sn. suntavidası, Sayfa2 ye verdiğiniz örneğe göre olmasını istediğiniz haliyle örnek gösterin, hangi sutunda nasıl birleştirme yapılacağına kafam basmadı.
 

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
Exel le Cari extresi

Merhabalar,
Asagida ornegini gonderiyorum kasa banka, odemelerm ve fatura kisminda mal girislerim var firmalardan, rapor kisminda , a firmasini yazdigimda alt alta tarih sirasiyla kasadan bankadan odenen ve fatura kisminda alinan mallari ticari program gibi extresini cikartmak istiyorum, acaba mumkunmu yardimci olabilirseniz sevinirim,

Saygilarimla,
 

Ekli dosyalar

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,167
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
Sn. canburak sorunuzu farklı bir konu başlığı altında sorsaydınız keşke, kasa, banka ve fatura sayfalarının aynı formatta olma şansı varmı, yoksa bu şekilde olması şartmı.
 
Üst