Seçilen hücredeki bilgileri aktarma

[Mdemir63]

Selamlar,

A1 Hücresinden seçim yaptığımda bilgileri örnek dosyadaki gibi alt alta yazmasını nasıl yaptırabilirim?

saygılar

 

[Ömer BARAN]

Merhaba.

İsteğiniz tam olarak anlaşılmıyor ve Sayfa2'de tüm veriler birer kez yer alıyor.

Bu durumda Sayfa1'de A1 hücresine ne yazılınca (sanırım veri doğrulama ile seçim yapacaksınız) alt alta ney listelenecek?
A1'e yazdığınız değer Sayfa2'de bir'den fazla satırda mı yer alıyor, eğer öyleyse bu satırlardaki veriler mi aktarılacak?

Sanırım; örnek belgenizi, isteğinize uygun veriler ekleyerek yenilemelisiniz.
.

 

[Mdemir63]

Merhaba.

İsteğiniz tam olarak anlaşılmıyor ve Sayfa2'de tüm veriler birer kez yer alıyor.

Bu durumda Sayfa1'de A1 hücresine ne yazılınca (sanırım veri doğrulama ile seçim yapacaksınız) alt alta ney listelenecek?
A1'e yazdığınız değer Sayfa2'de bir'den fazla satırda mı yer alıyor, eğer öyleyse bu satırlardaki veriler mi aktarılacak?

Sanırım; örnek belgenizi, isteğinize uygun veriler ekleyerek yenilemelisiniz.
.

Selamlar,
Hocam Sadece istediğim Örnek dosyadaki gibi Veri doğrulama olan hücreden (A1) her seçim yaptığımda, hemen dosyada görüldüğü gibi alt alta yazsın istiyorum.

Saygılar

 

[Mdemir63]

Selamlar
Hocam A1 hücresinde Veri doğrulama var. Ama gönderdiğim dosyada olmayabilir. Tekrar gönderiyorum.

 

[Ömer BARAN]

Tekrar merhaba.

Sanırım sorumu anlamadınız.
A1 hücresinde ALİ KAPLAN'ı seçtiğinizde alt kısımda nasıl bir liste (hangi isimler) oluşacak.
A1'deki seçimi KADİR ÇAVUŞ olarak yaptığımızda bu liste nasıl değişecek?

Yani aktarma kriteri nedir? Sayfa2'den hangi isimlerin listeleneceğine neye göre karar verilecek? Listeleme kriteri nedir?
.

 

[Mdemir63]

Tekrar merhaba.

Sanırım sorumu anlamadınız.
A1 hücresinde ALİ KAPLAN'ı seçtiğinizde alt kısımda nasıl bir liste (hangi isimler) oluşacak.
A1'deki seçimi KADİR ÇAVUŞ olarak yaptığımızda bu liste nasıl değişecek?

Yani aktarma kriteri nedir? Sayfa2'den hangi isimlerin listeleneceğine neye göre karar verilecek? Listeleme kriteri nedir?
.

Tekrar Selamlar

Hocam,
Örneğin : A1 hücresinden Ali KAPLAN ı seçtik
Bu seçtiğimizi, Aynı sayfadaki aşağıda alt alta isimlerin olduğu yere yazdıracağız. Sonra yine A1 hücresinden başka bir isim seçtik. Bu seçileni de Ali KAPLAN ın altına yazdıracağız ve bu şekilde A1 hücresinden seçtiğimiz her biri için aynı işlemi yapacağız.

Saygılar

 

[Ömer BARAN]

Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Aşağıdaki kod'u, açılan VBA ekranında sağ taraftaki boş alana yapıştırın.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
satır = [A65536].End(3).Row + 1: Range(Cells(satır, 1), Cells(satır, 3)).Merge
Cells(satır, 1) = Target: Cells(satır, 4) = Target.Offset(0, 1): Target = ""
[B]End Sub[/B][/FONT]

 

[Mdemir63]

Selamlar,

Hocam çok teşekkür ederim.
tam istediğim gibi.

Saygılar

 

[Ömer BARAN]

Kolay gelsin.