Sutun başlıkları ile arama

[kaptan_jack]

SAYFA1 de SUTUN BAŞLIKLARI VAR.
SUTUN 1 DE SIRA NO, 2 DE ADI SOYADI, vb devam etmektedir.
VE BU BAŞLIKLARIN ALTINDA BİLGİLER VAR YA DA BİLGİ YOK (BOŞ HÜCRE).
BEN SAYFA 2 DE
İSTEDİĞİM SUTUNUN 1 SATIRINA ÖRNEK "ADI SOYADI" YAZDIĞIMDA, DİĞER SAYFADAKİ "ADI SOYADI" SUTUNU ALTINDAKİ TÜM BİLGİLERİ SIRALASIN İSTİYORUM.

 

[Orion1]

aşağıda linkini verdiğim dosyayı inceleyiniz.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Dim k As Range, sonsat As Long, sh As Worksheet, sut As Integer
Range("A2:A" & Rows.Count).ClearContents
Set sh = Sheets("Sayfa1")
sut = sh.Cells(1, 256).End(xlToLeft).Column
Set k = sh.Range(sh.Cells(1, 1), sh.Cells(1, sut)).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    sonsat = sh.Cells(Rows.Count, k.Column).End(xlUp).Row
    sh.Range(sh.Cells(2, k.Column), sh.Cells(sonsat, k.Column)).Copy Range("A2")
End If

End Sub

 

[kaptan_jack]

ilginize teşekkür ederim.
ancak bu kodları nereye yapıştaracağımı çok iyi bilmiyorum.
düşeyara yatayara vb formülleri ile yapılabilme ihtimali var mı acaba
tşkler

 

[Orion1]

ilginize teşekkür ederim.
ancak bu kodları nereye yapıştaracağımı çok iyi bilmiyorum.
düşeyara yatayara vb formülleri ile yapılabilme ihtimali var mı acaba
tşkler

Yapıştırmanıza gerek varmı?
Linkini verdiğim dosyada çalışma yapmanız olmuyormu?
Formülle istiyorsanız sorunuzu fonksiyonlar bölümüne sormanız gerekiyor.

 

[kaptan_jack]

aldım dosyayı olmuş.
ancak ikinci sayfadaki 20 sutununda aynı işlevi görmesini sağlayabilirmisiniz.
ayrıca bu yaptığınız işlemi başka excel çalışma sayfalarına yapmak kodları nereye yapıştıracağımı söylerseniz, yaptığım çalışmada ileriki safhalarda bana lazım olacak gibi bu kod
tşkler

 

[Orion1]

aldım dosyayı olmuş.
ancak ikinci sayfadaki 20 sutununda aynı işlevi görmesini sağlayabilirmisiniz.
ayrıca bu yaptığınız işlemi başka excel çalışma sayfalarına yapmak kodları nereye yapıştıracağımı söylerseniz, yaptığım çalışmada ileriki safhalarda bana lazım olacak gibi bu kod
tşkler

Mahsuru yoksa dosyayı ekleyin yapayım.

 

[kaptan_jack]

mahsuru yok.
dosya ekleyemiyorum
sanırım üyelikle ilgili bir durum.

 

[Orion1]

Aşağıda verdiğim linkten dosyanızı ekleyebilirsiniz.
Altın üye olmadığınız için dosya ekleyemiyorsunuz,ama dosya ekleme linki olan sitelerden dosyanıza link verebilirsiniz.

DOSYA EKLE

mahsuru yok.
dosya ekleyemiyorum
sanırım üyelikle ilgili bir durum.

 

[kaptan_jack]

http://s3.dosya.tc/server13/oj8xyd/personel_bilgileri.xlsx&48369415

 

[Orion1]

Dosya eklenmemiş.

 

[kaptan_jack]

http://s3.dosya.tc/server13/dzh0e9/personel_bilgileri.xlsx.html

 

[çıtır]

Sayın kaptan_jack
Çözümlenmiş dosyanız, aynı sütun başlığından iki adet olmamalı.Diğer Bilgiler(1),Diğer Bilgiler(2) olmalı.Veri doğrulama ile açılır liste yapılmıştır seçim yaparak deneyiniz.
http://s3.dosya.tc/server13/vxyqhj/verial.rar.html

 

[kaptan_jack]

ilginize teşekkür ederim. öncelikle
Aynı sutun başlığında iki adet olmayacak.
A3 hücresine yaptığınız makro kod veya ne ise bilmiyorum.
B3,C3,D3,E3,........, O3 kadar yapılmalı.
teşekkürler

 

[çıtır]

Formülle ve veri doğrulama ile oluşturulmuştur.
Veri menüsünü tıklayınız.Veri doğrulama ,liste , kaynak B1:O1 yapınız veya isteğinize göre ayarlayınız.

 

[kaptan_jack]

veri doğrulama kısmını demek istemedim.
b3, c3, d3,......O3 hücrelerine veri doğrulama ile liste oluşturdum.
ancak seçim yaptığımda seçim yaptığım hücrenin altına diğer sayfadaki bilgileri getirmedi

 

[çıtır]

Anladığım kadar;
Bir den fazla açılır liste kullanarak birden fazla veri görmek istiyorsunuz.
A3 Kopyala ,özel yapıştır.Doğrulama diyerek istediniz kadar açılır liste oluşturunuz.
A4 Hücresine aşağıdaki formülü kopyalayınız.Son açılır listeye kadar sağa ve veri satırı sayınız kadar aşağı çekerek formülü çoğaltınız(fazla olabilir).Listeden seçtiğiniz bilgiler geleçektir.Kolay gelsin.

=EĞERHATA(EĞER(DOLAYLI("Sayfa1!"&ADRES(SATIR(A2);KAÇINCI(A$3;Sayfa1!$A$1:$N$1;0)))="";"";DOLAYLI("Sayfa1!"&ADRES(SATIR(A2);KAÇINCI(A$3;Sayfa1!$A$1:$N$1;0))));"")

 

[kaptan_jack]

http://www.dosya.tc/server12/e3rpfj/verial.xlsx.html
Sayın çıtır
bu yazmış olduğunuz formüle
ekte excel dosyasında açıklamalar doğrultusunda düzenleyebilirmisiniz.
tşkler

 

[çıtır]

Sayın kaptan_jack
Daha önçe açmış oduğunuz konu sütun başlıklarına göre arama ve isteğinizde sütun başlıklarına göre bilginin getirilmesidir. Yazmış olduğum formül bu sütun başlıklarına göre bilgi bulur.
Şimdiki isteğiniz ise hücre içindeki yazıya göre bilginin getirilmesidir ve aynı formül bu işlemi gerçekleştiremez.
Yeni isteğiniz ile ilgili formül ve dosyanızın çözümü ekli dosyadadır.Kolay gelsin.
http://s7.dosya.tc/server3/5p2o9c/Bilgibul.rar.html

 

[kaptan_jack]

sayın çıtır öncelikle emeğinize ve ilginize çok teşekkür ederim.
sayfa2 deki sutun başlıkları isteğe göre değişken olabilir mi?
daha önce yapmış olduğunuz formül ile sayfa2 de sutun başlıkları veri doğrulama ile sayfa1 deki sutun başlıkları ile sınırlanmış ve sayfa2 de sutun başlıklarından istediğim başlığı seçtiğimde o başlığa göre sayfa1 deki bilgileri çekiyor idi.
son yaptığınız çalışma ile sayfa1 deki bilgiler ilgili sayfa2 deki ilgili tabloya gidiyor. sayfa2 deki sutun başlıkları sabit olmuş.sutun başlıklarını daha önce yapmış olduğunuz şekilde isteğe göre seçim yapılabiliyor olabilir mi
bu olur ise problemim çözülmüş olur

 

[çıtır]

Sütun başlıkları isteğe göre değişken.Açılır listeden seçiniz.
http://www.dosya.tc/server12/aw9kgf/Bilgibul1.rar.html