Gizli Sayfadan Listbaxa veri almak

[calecale]

Merhabalar Çalışma kitabımda ilaç girişi adlı bir sayfam var. Bu sayfayı gizli tutmayı planlıyorum.userform2 deki listbox1 e bu gizli sayfadaki verileri almak istiyorum. Aşağıdaki kodu kullanıyorum olmuyor.Sayfa açık iken ve userform sayfa üzerinde açıldığında çalışıyor ama ben gizli tutmak istiyorum. Acaba nasıl yapabilirim. Yardımcı olan herkese şimdiden teşekkür ederim.

With USERFORM2.ListBox1
            .BackColor = vbGreen
            .ColumnCount = 8
            .ColumnWidths = "30;60;60;100;85;220;50;60"
            .ForeColor = vbBlack
            .RowSource = Sheets("İLAÇ GİRİŞİ").Range("A1:H1000000").Address
            ListBox1.ListIndex = Sheets("İLAÇ GİRİŞİ").Range("A1000000").End(3).Row - 1
           
        End With

 

[cems]

Deneyin...

With USERFORM2.ListBox1
Sheets("İLAÇ GİRİŞİ").Visible = xlSheetVisible
            .BackColor = vbGreen
            .ColumnCount = 8
            .ColumnWidths = "30;60;60;100;85;220;50;60"
            .ForeColor = vbBlack
            .RowSource = Sheets("İLAÇ GİRİŞİ").Range("A1:H1000000").Address
            ListBox1.ListIndex = Sheets("İLAÇ GİRİŞİ").Range("A1000000").End(3).Row - 1
 Sheets("İLAÇ GİRİŞİ")..Visible = xlSheetVeryHidden       
        End With

Kodun başında sayfayı görünürleştirin, kod işini yaptıktan sonra sayfayı tekrar gizleyin.

 

[calecale]

Sheets("İLAÇ GİRİŞİ").Visible = xlSheetVisible
Sheets("İLAÇ GİRİŞİ").Select
With USERFORM2.ListBox1
            .BackColor = vbGreen
            .ColumnCount = 8
            .ColumnWidths = "30;60;60;100;85;220;50;60"
            .ForeColor = vbBlack
            .RowSource = Sheets("İLAÇ GİRİŞİ").Range("A1:H1000000").Address
            ListBox1.ListIndex = Sheets("İLAÇ GİRİŞİ").Range("A1000000").End(3).Row - 1
        End With
    Sheets("İLAÇ GİRİŞİ").Visible = xlSheetVeryHidden
     Sheets("ANA SAYFA").Select

Sayın cems çok teşekkür ederim. Verdiğiniz bilgi için. Yukarıdaki şekilde işimi tam oalrak görebiliyorum. İşlerinizde kolaylıklar dilerim.

 

[Ömer BARAN]

Merhaba. Sayın cems'in müsadeleriyle.

Aşağıdaki gibi deneyin.
Gizli sayfadan ListBox'a veri almak için ilgili sayfanın görünür yapılmasına gerek yok sanırım.
.

With USERFORM2.ListBox1
      [COLOR="Red"]sonsat=Sheets("İLAÇ GİRİŞİ").Cells(Rows.Count,"[B][SIZE="4"]A[/SIZE][/B]").End(3).Row[/COLOR]
      .BackColor = vbGreen
      .ColumnCount = 8
      .ColumnWidths = "30;60;60;100;85;220;50;60"
      .ForeColor = vbBlack
      .RowSource = [COLOR="red"]"İLAÇ GİRİŞİ!A1:H" & sonsat[/COLOR]
      ListBox1.ListIndex = [COLOR="red"]sonsat[/COLOR] - 1
End With

 

[cems]

Sayın Baran ,

Ben de böyle bir olasılık yok sanıyordum , bilgi dağarcığınıza hayranım

Sayın CaleCale ,

Teşekkür ederim , hayırlı işler dilerim