Excel sayfa içersindeki combobaxa veri çekme hk.

[balanar]

Private Sub Worksheet_Activate()

Sheets("Rapor").ComboBox1.Clear

Set s = Sheets("Eğitimler")
For i = 1 To s.[A65536].End(3).Row
If WorksheetFunction.CountIf(s.Range("A1:A" & i), s.Cells(i, "A")) = 1 Then
ComboBox1.AddItem s.Cells(i, "A").Value
End If
Next i


End Sub

Eğitimler, Personeller, Rapor sıralamalı sayfam var. Şu kodu kullandım fakat, sayfayı kapatıp actıgımda rapor sayfasına veri gelmiyor. Eğitimler sayfasına dönüp tekrar rapor sayfasına gelirsem veri geliyor combobax içine.. Bu durumu nasıl çözebilirim

 

[Ömer]

Merhaba,

BuÇalışmaKitabı sayfası kod bölümüne kopyalayınız. Dosyayı açtığınızda eğitimler sayfası aktif olur. Bu şekilde sorununuz çözülür sanırım.

Private Sub Workbook_Open()
    Sheets("Eğitimler").Select
End Sub