Ucase problemi

[Altay3555]

Selamlar
Ekli formum düne kadar çalışıyordu,Bul makrosu için komut ekledim lakin bu seferde hücreye giriş için UCase kodu uyguladığım tüm txb lar birer birer hata veriyor.

 

[Orion1]

Nesnelerin prosedürlerini elle yazmayınız.Olay kutusundan (sağda bulunur) nesneye ait olayı seçrek prosedür oluşturunuz.(Presedür sub ile başlayan satırlardır).Kodlarınızı bu prosedürün içine yazınız.

 

[Altay3555]

Private Sub TextBox28_Change(): TextBox28 = UCase(TextBox28): End Sub

Private Sub TextBox10 Change(): TextBox10 = UCase(TextBox10): End Sub

Private Sub TextBox11_Change(): TextBox11 = UCase(TextBox11): End Sub

Private Sub TextBox16_Change(): TextBox16 = UCase(TextBox16): End Sub



Hocam buradaki (_) kaybolmuş gibi gözüküyor.Aslında bunları ilk başta dediğiniz şekilde yazmıştım ama Bul makrosundan sonra bu hale geldiler.Düzeltmeme rağmen hala txb10 (şimdilik) hata veriyor.

Private Sub CommandButton13_Click() 'Bul düğmesi
Bul = ComboBox2.ListIndex + 6
TextBox8.Text = Sheets("Sayfa1").Range("A" & Bul).Value
TextBox9.Text = Sheets("Sayfa1").Range("B" & Bul).Value
TextBox10.Text = Sheets("Sayfa1").Range("C" & Bul).Value
TextBox11.Text = Sheets("Sayfa1").Range("D" & Bul).Value
TextBox28.Text = Sheets("Sayfa1").Range("E" & Bul).Value
TextBox12.Text = Sheets("Sayfa1").Range("F" & Bul).Value
TextBox13.Text = Sheets("Sayfa1").Range("G" & Bul).Value
TextBox15.Text = Sheets("Sayfa1").Range("I" & Bul).Value
TextBox16.Text = Sheets("Sayfa1").Range("J" & Bul).Value
TextBox17.Text = Sheets("Sayfa1").Range("K" & Bul).Value
TextBox18.Text = Sheets("Sayfa1").Range("L" & Bul).Value
TextBox19.Text = Sheets("Sayfa1").Range("M" & Bul).Value
TextBox20.Text = Sheets("Sayfa1").Range("N" & Bul).Value
TextBox21.Text = Sheets("Sayfa1").Range("O" & Bul).Value
TextBox5.Text = Sheets("Sayfa1").Range("P" & Bul).Value
'ComboBox1.Text = Sheets("Sayfa1").Range("H" & Bul).Value
End Sub

Burada da txb a ait bir işlem var.
?

 

[Orion1]

Ben textbox10'u düzeltince Form açıldı.

 

[Altay3555]

Hocam selam,
Textbox10'u düzeltiyorum,TextBox1 hata veriyor,Onu düzeltiyorum,
'[TextBox5 & " - " & TextBox22] bu kısım hata veriyor...Şaşırdım kaldım.

 

[Orion1]

Hocam selam,
Textbox10'u düzeltiyorum,TextBox1 hata veriyor,Onu düzeltiyorum,
'[TextBox5 & " - " & TextBox22] bu kısım hata veriyor...Şaşırdım kaldım.

Hepsini düzeltirseniz bir daha hata vermez.

 

[Altay3555]

Hocam selamlar,
Bu kodu bir eğitimden almıştım,güzelce de çalışıyordu,Diğer komut düğmelerine kodlar yazdıkça kendi kendine bozulmalar oluşuyor,Onlarca makaleden,forum sayfasından ve ders notlarından anladığım kadarıyla,maalesef bunun önüne geçiş imkanı da yokmuş,Türkçe karekter problemi dolayısıyla...
Neticede Çalışma kitabının tek amacı olan büyük harfle ve yapılan bu standartlarda girilmesi gereken bir çalışma sayfası/programı burada nihayetleniyor.
Yardımlarınıza ve cevaplarınıza ve de sabrınıza teşekkür ederim.

 

[Orion1]

Hocam selamlar,
Bu kodu bir eğitimden almıştım,güzelce de çalışıyordu,Diğer komut düğmelerine kodlar yazdıkça kendi kendine bozulmalar oluşuyor,Onlarca makaleden,forum sayfasından ve ders notlarından anladığım kadarıyla,maalesef bunun önüne geçiş imkanı da yokmuş,Türkçe karekter problemi dolayısıyla...
Neticede Çalışma kitabının tek amacı olan büyük harfle ve yapılan bu standartlarda girilmesi gereken bir çalışma sayfası/programı burada nihayetleniyor.
Yardımlarınıza ve cevaplarınıza ve de sabrınıza teşekkür ederim.

Nesne isimlerine ve değişken tanımlamalarına Türkçe karakterler atamamalısınız.
Ama bunun dışındaki verileriniz Türkçe karaktarelerden oluşabilir.Bunun bir sakıncası yotur.ı ve i'yi büyük harfe çevirip replace ile I ve İ yapabilirsiniz.