Listeden yapılan seçim ile verileri göstermek

[eselanik]

Merhabalar,

Excelde yapmak istediğim işlem için nereden başlamam gerektiğini bilemedim. Yapmak istediğim şu:

Excel sayfasındaki sekmelerde (örnek dosyadaki "X", "Y", "Z" sekmeleri) iki sütunluk veri depolanacak. Bu verilerin satır adetleri değişken. "Liste" sekmesinde "İSİM" sütununda drop-down menü oluşturup, seçtiğim isme göre X,Y,Z vs. sekmelerindeki sütunlar "PARÇA" VE "İŞİN TANIMI" sütunlarına otomatik gelecek.

Merak ettiğim, yeni sekme yarattıkça drop-down menüye otomatik olarak sekme isminin gelmesini sağlayabilir miyim?

Yardımlarınız için şimdiden teşekkürler.

 

[İhsan Tank]

Merhabalar,

Excelde yapmak istediğim işlem için nereden başlamam gerektiğini bilemedim. Yapmak istediğim şu:

Excel sayfasındaki sekmelerde (örnek dosyadaki "X", "Y", "Z" sekmeleri) iki sütunluk veri depolanacak. Bu verilerin satır adetleri değişken. "Liste" sekmesinde "İSİM" sütununda drop-down menü oluşturup, seçtiğim isme göre X,Y,Z vs. sekmelerindeki sütunlar "PARÇA" VE "İŞİN TANIMI" sütunlarına otomatik gelecek.

Merak ettiğim, yeni sekme yarattıkça drop-down menüye otomatik olarak sekme isminin gelmesini sağlayabilir miyim?

Yardımlarınız için şimdiden teşekkürler.

Merhaba
Dosyanız açıklamalarınıza göre değil
X - Y - Z sekmelerindeki verilerde parça varsa isim yok isim varsa parça yok nasıl olacak

 

[eselanik]

İhsan bey,

Öncelikle soruma göz attığınız için teşekürler. X - Y - Z sekmelerindeki X1, X2, X3 vs. "Liste" sekmesindeki "PARÇA" sütunu altında İşlem1, İşlem2, İşlem3 vs. "İŞİN TANIMI" sütunu altında gösterilecek. "İSİM" sütununda eğer mümkünse sekme adlarının sıralandığı bir menü olacak.

 

[İhsan Tank]

İhsan bey,

Öncelikle soruma göz attığınız için teşekürler. X - Y - Z sekmelerindeki X1, X2, X3 vs. "Liste" sekmesindeki "PARÇA" sütunu altında İşlem1, İşlem2, İşlem3 vs. "İŞİN TANIMI" sütunu altında gösterilecek. "İSİM" sütununda eğer mümkünse sekme adlarının sıralandığı bir menü olacak.

Merhaba
Şimdi ben anladığımı size anlatayım sizde bana yok öyle değil böyle olacak deyin.
Siz X - Y - Z sekmelerindeki
x1-x2 vb. olanı Liste Sekmesinde Parçanın altına
işlem1-işlem2 vb olanları Liste sekmesi İşin Tanımının altına
ve kaç tane bir sayfadan kaç tane veri aktarıldıysa İsim'in altına sekme adını listelesin. mesela X'den 13 veri aktarırsa isim'in altında 13 satır X olacak

 

[eselanik]

Merhaba,

Konuyu biraz açmak gerekirse, biz manuel olarak sipariş numarası girdikten sonra İsim altında bir seçim yapmak istiyoruz. Bu seçimi yapınca da, seçimimize bağlı olarak verilerin gelmesini istiyoruz. Söyledikleriniz doğru fakat veri girildikçe direk gelmeyecek seçilebilir olacak. Sadece görüntü olarak, ekteki dosyaya benzer birşey sağlamaya çalışıyoruz. İsim altında açılan menüde otomatik olarak M seçeneğini (yeni açılan sekmenin ismi) göstermek ve içindeki verileri aktarılabilir kılmak mümkün mü bir de onu soruyorum.

Tekrar ilginiz için teşekkürler ve sizi uğraştırdığım için kusura bakmayın.

 

[İhsan Tank]

Merhaba,

Konuyu biraz açmak gerekirse, biz manuel olarak sipariş numarası girdikten sonra İsim altında bir seçim yapmak istiyoruz. Bu seçimi yapınca da, seçimimize bağlı olarak verilerin gelmesini istiyoruz. Söyledikleriniz doğru fakat veri girildikçe direk gelmeyecek seçilebilir olacak. Sadece görüntü olarak, ekteki dosyaya benzer birşey sağlamaya çalışıyoruz. İsim altında açılan menüde otomatik olarak M seçeneğini (yeni açılan sekmenin ismi) göstermek ve içindeki verileri aktarılabilir kılmak mümkün mü bir de onu soruyorum.

Tekrar ilginiz için teşekkürler ve sizi uğraştırdığım için kusura bakmayın.

Merhaba
Öncelikle şunu yapmanız gerekiyor
Bir ad tanımlayın ben sayfa olarak tanımladım.
başvuru yerine

="Liste!$P1:P"&BAĞ_DEĞ_DOLU_SAY(Liste!$P:$P)

bunu yazın ve tamam deyin
B:B sütunu seçin
Sonra Veri - Doğrulama - Liste kaynak bölümüne

=DOLAYLI([B]sayfa[/B])

bu formülü yazın. Hata iletilerini isteğinize göre düzenleyin.
B2:B3 hücrelerini seçin Veri - Doğrulama - herhangi Bir Değer'i seçin ve tamam deyin.
boş bir module

Option Explicit
Sub aktar()
Dim ts, kaplan, bordo, trabzonspor
trabzonspor = MsgBox("Seçtiğiniz Verileri Akatarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets("Liste").Range("P:P").ClearContents
kaplan = 1
For ts = 3 To Sheets.Count
Sheets("Liste").Cells(kaplan, "P") = Sheets(ts).Name
kaplan = kaplan + 1
Next
kaplan = Sheets("Liste").Range("C65536").End(xlUp).Row
bordo = kaplan + 1
For ts = 1 To Sheets(Sheets("Liste").Cells(bordo, "B").Text).Cells(65536, _
"A").End(xlUp).Row
Sheets("Liste").Range("C" & kaplan + 1) = Sheets(Sheets("Liste").Cells( _
bordo, "B").Text).Cells(ts, "A")
Sheets("Liste").Range("D" & kaplan + 1) = Sheets(Sheets("Liste").Cells( _
bordo, "B").Text).Cells(ts, "B")
kaplan = kaplan + 1
Next
Application.ScreenUpdating = True
MsgBox "Seçtiğiniz Verileri Aktardım", vbInformation, "Bitiş"
End Sub

Bu kod'u kopyalayın. Ve deneyin

 

[eselanik]

İhsan bey,

Söylediklerinizi yaptım ve şuanki haliyle herşey çok güzel çalışıyor. Son olarak öğrenmek istediğim iki şey var. Birincisi sekme isimlerini X, Y, Z'den değişirmek istersem neleri değiştirmem gerekiyor? İkincisi ise M'den sonra F isimli bir sekme yaratırsam bunu İsim sekmesi altında çıkan menüye nasıl eklerim (denemek için yarattım otomatik olarak gelmedi) ve o sekmedeki değerlerin yazdığınız kod tarafından alınmasını nasıl sağlarım? Bu excel dosyasına sürekli eklemeler yapılacak.

Excel konusunda bilgim çok fazla olmadığından (özellikle makrolar konusunda) şuan bulunduğum noktaya yardımınız olmadan gelmem imkansızdı. Tekrar tekrar teşekkür ediyorum.

 

[İhsan Tank]

İhsan bey,

Söylediklerinizi yaptım ve şuanki haliyle herşey çok güzel çalışıyor. Son olarak öğrenmek istediğim iki şey var. Birincisi sekme isimlerini X, Y, Z'den değişirmek istersem neleri değiştirmem gerekiyor? İkincisi ise M'den sonra F isimli bir sekme yaratırsam bunu İsim sekmesi altında çıkan menüye nasıl eklerim (denemek için yarattım otomatik olarak gelmedi) ve o sekmedeki değerlerin yazdığınız kod tarafından alınmasını nasıl sağlarım? Bu excel dosyasına sürekli eklemeler yapılacak.

Excel konusunda bilgim çok fazla olmadığından (özellikle makrolar konusunda) şuan bulunduğum noktaya yardımınız olmadan gelmem imkansızdı. Tekrar tekrar teşekkür ediyorum.

1. sorunuz için sekme adlarını değiştirmeniz yeterli
2. sorunuz için makroyu 2'ye böldüm önce sayfalar makrosunu çalıştırın ve seçim yerini kontrol edin yeni eklediğiniz sekme adının çıkması gerek

Option Explicit
Sub sayfalar()
Dim ts, kaplan
kaplan = 1
For ts = 3 To Sheets.Count
Sheets("Liste").Cells(kaplan, "P") = Sheets(ts).Name
kaplan = kaplan + 1
Next
End Sub
Sub aktar()
Dim ts, kaplan, bordo, trabzonspor
trabzonspor = MsgBox("Seçtiğiniz Verileri Akatarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets("Liste").Range("P:P").ClearContents
kaplan = Sheets("Liste").Range("C65536").End(xlUp).Row
bordo = kaplan + 1
For ts = 1 To Sheets(Sheets("Liste").Cells(bordo, "B").Text).Cells(65536, _
"A").End(xlUp).Row
Sheets("Liste").Range("C" & kaplan + 1) = Sheets(Sheets("Liste").Cells( _
bordo, "B").Text).Cells(ts, "A")
Sheets("Liste").Range("D" & kaplan + 1) = Sheets(Sheets("Liste").Cells( _
bordo, "B").Text).Cells(ts, "B")
kaplan = kaplan + 1
Next
Application.ScreenUpdating = True
MsgBox "Seçtiğiniz Verileri Aktardım", vbInformation, "Bitiş"
End Sub

 

[eselanik]

Yardımlarınız için çok teşekürler. Dosya tam istediğim gibi şekillendi.

 

[İhsan Tank]

Yardımlarınız için çok teşekürler. Dosya tam istediğim gibi şekillendi.

Rica ederim
:yazici: