• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Combobox

Kodu aşağıdaki gibi düzeltin.

Kod: 
Private Sub Workbook_Open()
Set s1 = Sheets("Rapor")
[B][COLOR=blue]s1.[k:k].clearcontents
[/COLOR][/B]s1.ComboBox1.ListFillRange = "rapor!k1:k" & s1.[k65536].End(3).Row
s1.ComboBox1.ListIndex = 1
s1.ComboBox1.Locked = True
s1.ComboBox2.Locked = True
s1.ComboBox3.Locked = True
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst