ustalar merhaba;
ilk çalıştırmada formda tab tuşu ile düğmeler arası gezinemiyorum. temizle butonuna bastığımda sıkıntı ortadan kalkıyor.
formun activate komut satırı:
Me.Left = 1100
Me.Top = 30
UserForm1.ComboBox1.RowSource = "sheet!a2:a600" & Range("A600").End(xlUp).Row
UserForm1.ComboBox2.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox3.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox4.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox5.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox6.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox7.RowSource = "sayfa1!L1:L3"
şeklinde.
temizle butonunun komut satırı ise:
Sheets("sayfa1").Range("v15").Value = ""
Sheets("sayfa1").Range("x15").Value = ""
Sheets("sayfa1").Range("z15").Value = ""
Sheets("sayfa1").Range("aa25").Value = ""
Sheets("sayfa1").Range("aa26").Value = ""
Sheets("sayfa1").Range("s28").Value = ""
Sheets("sayfa1").Range("s30").Value = ""
Sheets("sayfa1").Range("s34:X39").Value = ""
Application.ScreenUpdating = False
Unload Me
UserForm1.Show
Application.ScreenUpdating = True
'tüm textboxlar silinir
şeklinde muhtemelen activate satırında bir sıkıntı var ama ben çözemedim.
çözüm bulabilecek arkadaşlara teşekkür ederim.
ilk çalıştırmada formda tab tuşu ile düğmeler arası gezinemiyorum. temizle butonuna bastığımda sıkıntı ortadan kalkıyor.
formun activate komut satırı:
Me.Left = 1100
Me.Top = 30
UserForm1.ComboBox1.RowSource = "sheet!a2:a600" & Range("A600").End(xlUp).Row
UserForm1.ComboBox2.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox3.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox4.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox5.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox6.RowSource = "sayfa1!L1:L3"
UserForm1.ComboBox7.RowSource = "sayfa1!L1:L3"
şeklinde.
temizle butonunun komut satırı ise:
Sheets("sayfa1").Range("v15").Value = ""
Sheets("sayfa1").Range("x15").Value = ""
Sheets("sayfa1").Range("z15").Value = ""
Sheets("sayfa1").Range("aa25").Value = ""
Sheets("sayfa1").Range("aa26").Value = ""
Sheets("sayfa1").Range("s28").Value = ""
Sheets("sayfa1").Range("s30").Value = ""
Sheets("sayfa1").Range("s34:X39").Value = ""
Application.ScreenUpdating = False
Unload Me
UserForm1.Show
Application.ScreenUpdating = True
'tüm textboxlar silinir
şeklinde muhtemelen activate satırında bir sıkıntı var ama ben çözemedim.
çözüm bulabilecek arkadaşlara teşekkür ederim.