- Katılım
- 18 Nisan 2012
- Mesajlar
- 7
- Excel Vers. ve Dili
-
2010
tr
Kod yazma konusunda pek bilgim yok bu yüzden düzeltme yapamıyorum. Düşeyara kodunda bulunan kod sadece hücre adresi yazıyor. Başka sayfa açıkken userform çalışmıyor.
Diğer sayfalarda çalışmamasının sebebi nedir acaba. Hücre adreslerine nasıl sayfa adresi ekleyebilirim?
Kod:
Private Sub ComboBox1_Click()
[a1:a65536].Find(ComboBox1.Value).Select
TextBox1 = Selection.Offset(0, 1)
TextBox2 = Selection.Offset(0, 2)
TextBox3 = Selection.Offset(0, 3)
TextBox4 = Selection.Offset(0, 4)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "a1:a" & [a65536].End(3).Row
End Sub