- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,058
- Excel Vers. ve Dili
-
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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