sayfalar arası tablo veri aktarımı

[muratti60]

merhaba üstatlar;
excel sayfa1 de logodan bağlantılı cari hesaplar var. 1. sütun kodlar 2. sütun cari isimleri 3. sütun borç 4 alacak 5 ise bakiye
ben sayfa2 de bir tablo yapıp sayfa1 deki tablodan kodları 335 ile başlayan (kodlar 120 ile 320 ile 335 ile başlıyo) cari satırlarını getirmek istiyorum kodların ve borç alacak sütunlarının gelmesine gerek yok
sadece 335 ile başlayan carinin ismi ve bakiye, yani 2 sütunlu bir tablo olacak
makro kullanmadan hangi formulle nasıl alabiliriz.

 

[PriveT]

Merhaba,
İNDİS ve KAÇINCI gibi formüllerle yapabilirsiniz.
Dosyanızın bir örneğini paylaşırsanız daha net bir sonuca varabilirsiniz.

 

[muratti60]

Merhaba,
İNDİS ve KAÇINCI gibi formüllerle yapabilirsiniz.
Dosyanızın bir örneğini paylaşırsanız daha net bir sonuca varabilirsiniz.

MERHABA
indis ve kaçıncı formülleri ile yapamadım tek hücre değil benim istediğim örneği inceleyebilirseniz yardımlarınızı bekliyorum.
http://s2.dosya.tc/server9/jvbzk7/MURAT.xlsx.html

 

[çıtır]

Dizi formülü.Formülden çıkarken ctrl ve shift tuşlarına basılı iken enter tuşlayınız.A2 Kopayalayınız aşağı doğru çoğaltınız.Bakiye için B1:B200, E1:E200 yapınız.Dizi formülleri için bakınız.
https://www.excelgurusu.com/dizi-array-formulleri/

=EĞERHATA(İNDİS(Sayfa1!$B$1:$B$200;KÜÇÜK(EĞER(ESAYIYSA(MBUL(320;Sayfa1!$A$2:$A$200;1));SATIR($A$2:$A$200));SATIR($A1)));"")

 

[muratti60]

Teşekkür ederim sayın çıtır halloldu sağolun, bir sorum daha olacak yanlız. Başka bir dosyada 10 sayfalı bir excel çalışma kitabı. Sayfaları gizleyip göstermek için Sayfa1.Visible = xlSheetVisible veya Sayfa2.Visible = xlSheetVeryHidden olarak kod yazıyoruz. Sayfa1 i göster yapıp diğer 9 sayfayı gizlemek için VeryHidden kodunu her sayfa için ayrı ayrı yazmak yerine sayfa1 görünür olsun diğer tüm sayfalar gizli olsun diyebileceğim bir kod varmı. Bunuda çözerseniz üzerimden büyük bir yük kalkmış olacak. Şimdiden çok teşekkür ediyorum.

 

[çıtır]

Aşağıdaki kod ile deneyiniz.

Sub gizle()
For i = 1 To Worksheets.Count
    If Worksheets(i).Name <> "Sayfa1" Then
    Worksheets(i).Visible = False
End If
Next i
End Sub

 

[muratti60]

Aşağıdaki kod ile deneyiniz.

Sub gizle()
For i = 1 To Worksheets.Count
    If Worksheets(i).Name <> "Sayfa1" Then
    Worksheets(i).Visible = False
End If
Next i
End Sub

sayın çıtır süpersiniz. çok uğraşmıştım buna ben çok işimi gördü tekrardan çooook teşekkür ederim sağolun.

 

[çıtır]

sayın çıtır süpersiniz. çok uğraşmıştım buna ben çok işimi gördü tekrardan çooook teşekkür ederim sağolun.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.Kolay gelsin.