açılan kutudan veri seçme

[msanli]

Konuyla ilgili dosya ektedir. Kısaca açıklama gerekirse, 2 adet açılan kutu var. birinde bir yer seçince diğerinde o yere ait alt bilgilerin gelmesini istiyorum.
Yardımlarınız için şimdiden teşekkür eder, mübarek kadir gecesinin hayırlara vesile olmasını dilerim.

 

[fedeal]

Merhaba, dosyanız ekte;

 

[msanli]

teşekkür ederim. makrasuz bir çözüm mümkün değilmi? başka formüllerde eklemem gerek.

 

[fedeal]

formüllede olur,

 

[msanli]

elinize sağlık, diğer tarafları formulüze ederken daha kolay olacak.

 

[msanli]

sayın federal, ben bu dosyaya bazı ilaveler yaptım. formül bazı yerlerde çalışmıyor. formulün çalıştırmadığı hücreleri kımızı ile işaretledim. imkanınız varsa bakabilirmisiniz. teşekkürler

 

[behic26]

Merhabalar...
Bir dener misiniz?
Station Name Sayfasında, H2 Hücresine

=İNDİS($A$24:$AS$28;SATIR(A1);KAÇINCI(İNDİS($A$2:$E$21;'Data Entry'!$B$5;'Data Entry'!$B$4);$A$23:$AS$23;0))

formülü yazıp H6 hücresine kadar kopyalayın.
Kolay gelsin.

 

[msanli]

Sayın federal,
Bir bilenin sözünü dinlemek gerekiyor. Formülle yapılan işlem, bir sonraki formülde sürekli sıkıntı yaratıyor ve dosya boyutu inanılmaz ölçüde büyüyor. Dolayısı ile çalışmasında ve açılmasında sorunlar yaratıyor. Sanırım en iyi çözüm ilk 5 işlemde makro. Buna göre ben sayfada bazı düzenlemeler yaptım ve dosya içine açıklama yaptım. Bu doğrultuda sizden tekrar bir yardım isityorum. Teşeküürler.

 

[fedeal]

Sayın federal,
Bir bilenin sözünü dinlemek gerekiyor. Formülle yapılan işlem, bir sonraki formülde sürekli sıkıntı yaratıyor ve dosya boyutu inanılmaz ölçüde büyüyor. Dolayısı ile çalışmasında ve açılmasında sorunlar yaratıyor. Sanırım en iyi çözüm ilk 5 işlemde makro. Buna göre ben sayfada bazı düzenlemeler yaptım ve dosya içine açıklama yaptım. Bu doğrultuda sizden tekrar bir yardım isityorum. Teşeküürler.

sayfanın kod bülümüne ekleyin, iyi çalışmalar.

Private Sub ComboBox1_Change()
If ComboBox1.Text = "" Then Exit Sub
ComboBox3.Clear
sütun = WorksheetFunction.Match(ComboBox1, Sheets("Product").Range("A1:AS1"), 0)
For i = 1 To 30
ComboBox3.AddItem
ComboBox3.List(i - 1, 0) = Sheets("Product").Cells(i + 1, sütun).Value
Next
End Sub
Private Sub ComboBox2_Change()
If ComboBox2.Text = "" Then Exit Sub
ComboBox1.Clear
For i = 1 To 30
ComboBox1.AddItem
ComboBox1.List(i - 1, 0) = Sheets("Station Name").Cells(i + 1, ComboBox2.ListIndex + 1).Value
Next
End Sub
Private Sub Worksheet_Activate()
ComboBox2.Clear
For i = 1 To 7
ComboBox2.AddItem
ComboBox2.List(i - 1, 0) = Sheets("Station Name").Cells(1, i).Value
Next
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b5]) Is Nothing Then Exit Sub
satır = Cells(5, 2).Value
sütun = WorksheetFunction.Match(ComboBox1, Sheets("calibration").Range("A1:hr1"), 0)
If ComboBox3.Text = "REGULAR" Then Cells(6, 2).Value = Sheets("calibration").Cells(satır + 2, sütun)
If ComboBox3.Text = "PREMIUM" Then Cells(6, 2).Value = Sheets("calibration").Cells(satır + 2, sütun + 1)
If ComboBox3.Text = "SUPER" Then Cells(6, 2).Value = Sheets("calibration").Cells(satır + 2, sütun + 2)
If ComboBox3.Text = "EFIX DIESEL" Then Cells(6, 2).Value = Sheets("calibration").Cells(satır + 2, sütun + 3)
If ComboBox3.Text = "EURO DIESEL" Then Cells(6, 2).Value = Sheets("calibration").Cells(satır + 2, sütun + 4)
End Sub

Son kısmı anlamamışım şimdi düzelttim,

 

[Ömer]

Merhaba,

Alternatif olsun.

Veri doğrulama ile yapılmıştır. Dosya boyutu 53 Kb dır.

.

 

[muygun]

Merhaba;
Bir alternatifde benden
Makrosuz çözüm isterseniz eki inceleyin.
İyi çalışmalar.

 

[msanli]

Teşekkür ederim arkadaşlar.
Sayın Ömer, alternatif olarak değerlendireceğim.
Emeğinize sağlık.

 

[zetkatamet]

ömer bey birşey sorabilirmiyim; veri doğrulamadaki =liste1, =liste2, =liste3 teki formulleri nereye yazdınız. Tesekkurler.

 

[Ömer]

Merhaba,


Ekle / Ad / Tanımlama bölümüne yazılmıştır..

.

 

[zetkatamet]

Tekrar tesekkurler..

 

[karaelmas4467]

listeleme.

konu hakkında benim de yardıma ihtiyacım var. açılan kutudan başlık seçtiğimde liste kutusunda o başlık kapsamındakilerin listelenmesini istiyorum. ekli dosyada açıklama yapılmıştır. şimdiden tşk..

 

[karaelmas4467]

konu hakkında benim de yardıma ihtiyacım var. açılan kutudan başlık seçtiğimde liste kutusunda o başlık kapsamındakilerin listelenmesini istiyorum. ekli dosyada açıklama yapılmıştır. şimdiden tşk..

sanırım kimsenin ilgisini çekmedi. yardıma ihtiyacım var.

 

[Merhum İdris SERDAR]

konu hakkında benim de yardıma ihtiyacım var. açılan kutudan başlık seçtiğimde liste kutusunda o başlık kapsamındakilerin listelenmesini istiyorum. ekli dosyada açıklama yapılmıştır. şimdiden tşk..

Dosyanız ekte.

.

 

[karaelmas4467]

Sayın yurttaş; söyleyecek birşey bulamıyorum. teşekür ederim.

 

[Ömer]

Merhaba,

Alternatif olsun.

.