Listbox verileri aktif sayfadan alsın

[ridvan2111]

Selam arkadaşlar
listbox2 de seçim yaptığımda ("1.makina") değilde
aktif sayfadan verileri almasını istiyorum peki nasıl olacak

Private Sub ListBox2_Click()
ComboBox16 = Worksheets("[COLOR="red"]1.makina[/COLOR]").Range("C" & ListBox2.ListIndex + 2)
TextBox372 = Worksheets("[COLOR="red"]1.makina[/COLOR]").Range("B" & ListBox2.ListIndex + 2)
TextBox373 = Worksheets("[COLOR="red"]1.makina[/COLOR]").Range("D" & ListBox2.ListIndex + 2)
End Sub

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

 

[ridvan2111]

ComboBox16 = Worksheets("ActiveSheet").Range("C" & ListBox2.ListIndex + 2)
TextBox372 = Worksheets("ActiveSheet").Range("B" & ListBox2.ListIndex + 2)
TextBox373 = Worksheets("ActiveSheet").Range("D" & ListBox2.ListIndex + 2)

Arkadaşlar sanırım böyle bişey olacak ama olmadı

 

[Ferhat Pazarçevirdi]

Aşağıdaki iki şekilde de olabilir ...

ActiveSheet kullanımı ...

Private Sub ListBox2_Click()
    ComboBox16 = [COLOR=red]ActiveSheet.[/COLOR]Range("C" & ListBox2.ListIndex + 2)
    TextBox372 = [COLOR=red]ActiveSheet.[/COLOR]Range("B" & ListBox2.ListIndex + 2)
    TextBox373 = [COLOR=red]ActiveSheet.[/COLOR]Range("D" & ListBox2.ListIndex + 2)
End Sub

Sadece Range belirterek, ActiveSheet'i kastetmek ...

Private Sub ListBox2_Click()
    ComboBox16 = Range("C" & ListBox2.ListIndex + 2)
    TextBox372 = Range("B" & ListBox2.ListIndex + 2)
    TextBox373 = Range("D" & ListBox2.ListIndex + 2)
End Sub

 

[ridvan2111]

Sayın Ferhat Pazarçevirdi
teşekkür ederim