true false kodlarına ilave

Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
Private Sub TextBox12_Change()
If Trim(TextBox12) <> Empty Then
CommandButton5.Enabled = True
Else
CommandButton5.Enabled = False
End If
End Sub

(TextBox12) ilave olarak (TextBox11)(TextBox13)(TextBox26) y&#305; ilave edemiyorum
bu textbox lardan birisi bile bo&#351; olsa CommandButton5.Enabled = True olsun
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Kodlar&#305;n&#305;z&#305;

If Trim(TextBox12) <> Empty Or Trim(TextBox11) <> Empty Or Trim(TextBox13) <> Empty Then

&#351;eklinde d&#252;zenleyiniz.
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
Kodlarınızı

If Trim(TextBox12) <> Empty Or Trim(TextBox11) <> Empty Or Trim(TextBox13) <> Empty Then

şeklinde düzenleyiniz.
sn Ripek
bu şekilde olmadı
bu texbox lar biri boş ola CommandButton5.Enabled = false olması gerek olmuyor

sn ripek dosyayı ekledim

bir sorunum daha var alta link ekleyecegim
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Sorunuzu tam olarak anlayamad&#305;m.Siz textboxlardan herhangi biri bo&#351; olunca CommandButton5'i pasif mi yapmak istiyorsunuz?

Ayr&#305;ca &#246;rnek dosya eklerken l&#252;tfen excel uygulamas&#305;n&#305; kapal&#305; (visible) olarak eklemeyiniz.M&#252;mk&#252;nse sadece projenize benzer &#246;rnek k&#252;&#231;&#252;k bir dosya ekleyiniz.
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
ben yine soruyu yanl&#305;&#351; sordum

(TextBox11)(TextBox12)(TextBox13)(TextBox26)
bu textbox lar bo&#351;ken CommandButton5 posif olsun
textbox lar&#305;n tamam&#305; doldugunda aktif olacak

(sorudaki hata i&#231;in &#246;z&#252;r dilerim)
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
A&#351;a&#287;&#305;daki kodlar&#305; 4 textbox'&#305;n da Change olay&#305;na yan&#305;n&#305;z.

Kod:
Private Sub TextBox[B]11[/B]_Change()
If Trim(TextBox11) <> Empty [COLOR=blue]And[/COLOR] Trim(TextBox12) <> Empty [COLOR=blue]And[/COLOR] Trim(TextBox13) <> Empty [COLOR=blue]And [/COLOR]Trim(TextBox26) <> Empty Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
Ripek
&#231;ok te&#351;ekk&#252;r ederim m&#252;kemmel oldu

sorudaki eksikli&#287;imden dolay&#305; tekrar &#246;z&#252;r dilerim
ben yeni ba&#351;lad&#305;m
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
&#214;nemli de&#287;il.Sorununuzun &#231;&#246;z&#252;ld&#252;&#287;&#252;ne sevindim.
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
vermi&#351; oldu&#287;um linkteki sorunum devam ediyor

buradaki sorunumu net ifade edemedim belkide ama siz deneyerek sorunu anlayabilirsiniz
userform2 listbox1 aktif sayfadaki verileri eksik g&#246;steriyo
 
Üst