Listbox ta değer seçilince tablo listeleme...

[droysen]

Selam arkadaşlar,
soruyu göndermeden önce bir arama yaptım, birkaç konu başlığı da buldum ama eklenti dosyalarını açamadığımdan işimi görüp göremeyeceğini bilemedim.
Bu nedenle affediniz, tekrar sormuş gibi olabilirim.
Benim sorum dosyanın içerisinde yazıyor, özetle bir listbox ta değer seçilince o değere bağlı başka bir sheet de yer alan tablonun alt tarafa listelenmesi, display edilmesi şeklinde özetleyebilirim.
Yardımlarınız için çok teşekkürler,
iyi çalışmalar,

PS. BU ARADA AHMET SEÇİLİNCE SHEET1 DEKİ TABLO, MEHMET SEÇİLİNCE SHEET 2 DEKİ TABLO OLACAK, YANLIŞ YAZMIŞIM.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Range("A2:B65536").ClearContents
If UCase(Target.Value) = "AHMET" Then
    Set sh = Sheets("Sheet2")
    ElseIf UCase(Target.Value) = "MEHMET" Then
    Set sh = Sheets("Sheet3")
    Else
    MsgBox "İsim Ahmet Veya Mehmet olamlıdır", vbCritical, "UYARI"
    Exit Sub
End If
Range("A2").Resize(sh.Cells(65536, "A").End(xlUp).Row, 2) = _
sh.Range("A1:B" & sh.Cells(65536, "A").End(xlUp).Row).Value
Application.ScreenUpdating = True
    
End Sub

 

[droysen]

çok teşekkürler,
ancak sheet2 veya 3 teki sadece a kolonu geliyor, her iki kolonun da listelenmesi için kodun neresini değiştirmeliyiz ?

 

[Orion1]

çok teşekkürler,
ancak sheet2 veya 3 teki sadece a kolonu geliyor, her iki kolonun da listelenmesi için kodun neresini değiştirmeliyiz ?

2 numaralı mesajdan indirebilirsiniz dosyayı.

 

[droysen]

ÇOK TEŞEKKÜRLER SAYIN GİZLEN,

Range("A2").Resize(sh.Cells(65536, "A").End(xlUp).Row, 2) = _
sh.Range("A1:B" & sh.Cells(65536, "A").End(xlUp).Row).Value

KISMI İLE OYNAYARAK SHEETLERDEKİ FARKLI KONUMLARDAKİ TABLOLARIN GÖRÜNTÜLENMESİNİ SAĞLADIM.
ANCAK SHEET2 DEKİ TABLO 2 KOLON İKEN, SHEET 3 TEKİ TABLO 5 KOLON İSE NE YAPMAK GEREKİR ? SANIRIM YUKARIDAKİ KOD KISMI HER SHEETTE AYNI SAYIDA KOLON VARSA ÇALIŞIYOR. FARKLI İSE EKSİK GETİRİYOR.

 

[Orion1]

ÇOK TEŞEKKÜRLER SAYIN GİZLEN,

Range("A2").Resize(sh.Cells(65536, "A").End(xlUp).Row, 2) = _
sh.Range("A1:B" & sh.Cells(65536, "A").End(xlUp).Row).Value

KISMI İLE OYNAYARAK SHEETLERDEKİ FARKLI KONUMLARDAKİ TABLOLARIN GÖRÜNTÜLENMESİNİ SAĞLADIM.
ANCAK SHEET2 DEKİ TABLO 2 KOLON İKEN, SHEET 3 TEKİ TABLO 5 KOLON İSE NE YAPMAK GEREKİR ? SANIRIM YUKARIDAKİ KOD KISMI HER SHEETTE AYNI SAYIDA KOLON VARSA ÇALIŞIYOR. FARKLI İSE EKSİK GETİRİYOR.

Range("A2").Resize(sh.Cells(65536, "A").End(xlUp).Row, [B][COLOR="Red"][SIZE="4"]5[/SIZE][/COLOR][/B]) = _
sh.Range("A1:[B][COLOR="Red"][SIZE="4"]E[/SIZE][/COLOR][/B]" & sh.Cells(65536, "E").End(xlUp).Row).Value