tek bir userform ile işlem yapmak

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,700
Excel Vers. ve Dili
Excel 2019 Türkçe
Arkadaşlar herkese merhaba,

benim excel tablosu içinde 2 tane düğmem var. birinin ismi (çağır) diğeri
(kayıt)

isteğim tek bir userform içinde 4 tane optionbutton oluşturmak bunun ikisi kayıt için diğer ikisinide çağır için kullanmak.

önemli bir nokta kayıt düğmesine bastığımda; çağır için olan optionbutton lar aktif olmasın yani kullanımdışı olsun. bu işlem çağır düğmesine bastığımda kayıt düğmesine ait optionbuttonlar içinde geçerli olsun

Herkese iyi çalışmalar
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
kayıt ve çağır butonlarına aşağıdaki kodları bağlarsanız sanırım istediğiniz olacaktır.

kayıt butonuna

Kod:
Sub kayıt()
UserForm1.Show
UserForm1.OptionButton1.Visible = False
UserForm1.OptionButton2.Visible = False
End Sub
çağır butonuna

Kod:
Sub çağır()
UserForm1.Show
UserForm1.OptionButton3.Visible = False
UserForm1.OptionButton4.Visible = False
End Sub
selamlar
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,700
Excel Vers. ve Dili
Excel 2019 Türkçe
Teşekkürler Leventm, cevabınız için. sorunum çözüldü.

İyi akşamlar
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,700
Excel Vers. ve Dili
Excel 2019 Türkçe
Sayın leventm dikkatimi çeken bir olay oldu. makroyu ilk çalıştırdığımda
bir değişiklik yapmıyor. İkinci çalıştırdığımda istediğimi yapıyor .

Ben mi bir hata yapıyorum acaba yardımcı olursanız sevinirim.

İyi akşamlar
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sn hamitcan haklısınız. çözüm olarak "UserForm1.Show" satırını her iki koddada en alt satıra aktarınız. Aşağıda örneği verilmiştir.

Kod:
Sub kayıt() 

UserForm1.OptionButton1.Visible = False 
UserForm1.OptionButton2.Visible = False 

UserForm1.Show 

End Sub
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,700
Excel Vers. ve Dili
Excel 2019 Türkçe
Çok teşekkürler tam istediğim gibi olmuş.

İyi çalışmalar....
 
Üst