[Yardım]  Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#1)  everestint » 09 Ağu 2014 03:49

Merhaba,

Tarkan Üstadımızın http://www.excelvba.net/viewtopic.php?f=7&t=12923 adresindeki class örneğini inceledim. Bu örnekte gördüğüm sadece userform1 de bulunan textboxlarla ilgili işlem yapıldığı. Ben bütün userformlarda ki bütün textboxların büyük harf ile yazmasını istiyorum. Ayrıca türkçe karakterlerde de problem çıkarmasını istemiyorum. Böyle bir durum için Tarkan Üstadım Class örneği verebilirmi?

Hayırlı çalışmalar...
Kullanıcı avatarı
everestint
Siteye Alışmış
 
Adı Soyadı:Nihat narin
Kayıt: 24 Kas 2009 10:23
Konum: Türkiye
Meslek: Esnaf
Yaş: 43
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: Bütün Userformlarda textboxlar büyük harf yazsın

İleti#2)  ahmetilhan282 » 09 Ağu 2014 10:43

Ekteki dosyada Tarkan Hocamın kodlarını düzenledim. Türkçe karakterleri de çeviriyor. Userform1' in Initialize olayındaki kodları hangi Userforma kopyalarsanız orada çalışır. Daha kısayolu var mı bilmiyorum. Belki tek kodla tüm Userformlara bu komut gönderilebiliyordur?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 02:04
Konum: Adana
Meslek: Güvenlik
Yaş: 28
İleti: 774
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Bütün Userformlarda textboxlar büyük harf yazsın

İleti#3)  everestint » 09 Ağu 2014 12:35

Merhaba,

Ahmet arkadaşım ilgin için teşekkürler şimdi inceliyorum...

Hayırlı çalışmalar...
Kullanıcı avatarı
everestint
Siteye Alışmış
 
Adı Soyadı:Nihat narin
Kayıt: 24 Kas 2009 10:23
Konum: Türkiye
Meslek: Esnaf
Yaş: 43
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: Bütün Userformlarda textboxlar büyük harf yazsın

İleti#4)  everestint » 09 Ağu 2014 12:40

Tekrar merhaba,

Ahmet Bey, zaten bende Tarkan Bey'in yapmış olduğu uygulamada sizin yaptığınızı yapabilmiştim. Takıldığım yer tüm userformlara tek bir kod ile uygulayabilmek.

Teşekkürler...
İyi çalışmalar...
Kullanıcı avatarı
everestint
Siteye Alışmış
 
Adı Soyadı:Nihat narin
Kayıt: 24 Kas 2009 10:23
Konum: Türkiye
Meslek: Esnaf
Yaş: 43
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Bütün Userformlarda textboxlar büyük harf yazsın

İleti#5)  Enes Recep BAĞ » 09 Ağu 2014 13:04

Kaç tane userformunuz varsa, UserForm_Initialize olayına aşağıdaki kodları ekleyin yeterlidir.

Kod: Tümünü seç
Private Sub UserForm_Initialize()
    Dim a As Integer
    For Each i In Me
.Controls
        a 
= a + 1
        ReDim Preserve Textler
(1 To a)
        If TypeName(i) = "TextBox" Then
            Set Textler
(a).evnText = i
        End If
    Next i
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Bütün Userformlarda textboxlar büyük harf yazsın

İleti#6)  ahmetilhan282 » 09 Ağu 2014 13:19

Ben de öyle demiştim Enes Bey. Nihat Bey de öyle yapmış zaten. Aklın yolu bir. Hepimize şkşk
Ama daha kısayolu var mıdır, tek kodla tüm UserFormlara bu komutu gönderebilir miyiz acaba?
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 02:04
Konum: Adana
Meslek: Güvenlik
Yaş: 28
İleti: 774
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Bütün Userformlarda textboxlar büyük harf yazsın

İleti#7)  everestint » 09 Ağu 2014 14:59

Merhaba,

Evet. Aynı mantıkla hareket ediyoruz. Bende dedikleriniz gibi yamıştım. Ben modül yada class içinden şimdiki ve bundan sonra eklenecek tüm formlar için bu olayın gerçekleşmesini istiyordum. Artık bu şekilde yapıcaz.
Teşekkürler...
Hayırlı çalışmalar...
Kullanıcı avatarı
everestint
Siteye Alışmış
 
Adı Soyadı:Nihat narin
Kayıt: 24 Kas 2009 10:23
Konum: Türkiye
Meslek: Esnaf
Yaş: 43
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#8)  ahmetilhan282 » 09 Ağu 2014 21:35

Yukarıdaki dosyanın Workbook_Open olayına aşağıdaki kodları yazınca tüm Userformlara dediğimiz gibi bu işlemi uyguluyor ve Userformu gösteriyor. Ancak Userformu kapatıp başka biryerden userformu göster dediğimizde yine textboxlar eskiye dönüyor. (Büyük harfle yazmıyor.) Demek ki herhangi bir Userformu her göstermeden önce bu kodları çağırmak gerekiyor. Bunun için Workbook_BeforeFormLoad gibi bir olay olsaydı [komik] (Ya da biz olay (event) yapabiliyor muyuz bilmiyorum?) bu olaya aşağıdaki kodları yazıp sorunu çözebilirdik. Bu mümkün değilse tek çözüm tüm formların initialize olaylarına tek tek kod yazmak gibi görünüyor.
Kod: Tümünü seç
Private Sub Workbook_Open()
    Dim kontrol As Object, form As Object, a As Integer
    For Each kontrol In ThisWorkbook.VBProject.VBComponents
        If kontrol.Type = 3 Then
            Set form = VBA.UserForms.Add(kontrol.Name)
            For Each i In form.Controls
                a = a + 1
                ReDim Preserve Textler(1 To a)
                If TypeName(i) = "TextBox" Then
                    Set Textler(a).evnText = i
                End If
            Next i
            form.Show
        End If
    Next kontrol
End Sub

*** Kodların çalışabilmesi için Makro güvenlik ayarlarından 'VBA projesi nesne modeli erişimine güven' seçeneği seçili olmalıdır.
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 02:04
Konum: Adana
Meslek: Güvenlik
Yaş: 28
İleti: 774
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#9)  sinanplater » 10 Ağu 2014 17:00

Şimdi ben bu konuya örnek vermezsem, kendimi eksik hissederim. En iyisi mi hiç gerek yok [music]

Class module kodu


Kod: Tümünü seç
Public WithEvents MyTextbox As MSForms.TextBox

Private Sub MyTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii
    Case 97 To 122
        KeyAscii = KeyAscii - 32
    End Select
End Sub


Userform kodu


Kod: Tümünü seç
Private mMyTextboxes As Collection
Private Sub UserForm_Initialize()

    Dim Ctl As MSForms.Control
    Dim UText As CTBox
   
    Set mMyTextboxes = New Collection
    For Each Ctl In Me.Controls
        If TypeOf Ctl Is MSForms.TextBox Then
            Set UText = New CTBox
            Set UText.MyTextbox = Ctl
            mMyTextboxes.Add UText, CStr(mMyTextboxes.Count + 1)
        End If
    Next
   
End Sub


Kod: Tümünü seç
Private Sub UserForm_Terminate()

    Do While mMyTextboxes.Count > 0
        mMyTextboxes.Remove mMyTextboxes.Count
    Loop
    Set mMyTextboxes = Nothing
End Sub


;)


Gönderilmiş resmi tam boy görmek istiyorsanız, eklentinin üzerini tıklayınız.


Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sinanplater
Site Dostu
 
Adı Soyadı:SİNAN POLATER
Kayıt: 12 Şub 2012 19:41
Meslek: Serbest yazılımcı ve güvenlik merkezi koordinatörü
Yaş: 37
İleti: 1381
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL



Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#10)  everestint » 10 Ağu 2014 20:39

Merhaba Sinan Bey,

Yukarıda ben ve diğer arkadaşlarında konuştuğu konu userformların içerisine hiç bir kod yazmaya gerek kalmadan tüm userformlardaki tüm textboxları büyük harf ile yazdırmaktı. Sizin verdiğiniz örnekte yukarıda diğer arkadaşların vermiş olduğu örneklere eş değer gibi görünüyor. Yine de emeğinize teşekkür ediyorum. Bende çözüm olarak tüm userformların initalize event kısmına yazdığım kodlar ile sorunu çözdüm.

Herkese katkılarından dolayı teşekkürler...

İyi çalışmalar...
Kullanıcı avatarı
everestint
Siteye Alışmış
 
Adı Soyadı:Nihat narin
Kayıt: 24 Kas 2009 10:23
Konum: Türkiye
Meslek: Esnaf
Yaş: 43
İleti: 105
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#11)  sinanplater » 10 Ağu 2014 20:45

Hiç bir kod yazmadan, yeni oluşturduğunuz userformda işlem yapmanızın mantığı yok zaten. Şu anki teknikle.

Rica ederim.
--)(
Kullanıcı avatarı
sinanplater
Site Dostu
 
Adı Soyadı:SİNAN POLATER
Kayıt: 12 Şub 2012 19:41
Meslek: Serbest yazılımcı ve güvenlik merkezi koordinatörü
Yaş: 37
İleti: 1381
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL



Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#12)  regatax » 21 Eyl 2014 13:17

Merhaba hocam,

Makrolara başlayalı az bir zaman oldu. forum sayesinde ilerletmeye çalışıyorum. Makroda bir Combobox1, 3 tanede TextBox var. TextBox1, TextBox2 ve Textbox3. Bunlardan sadece ComboBox1 de ve Textbox4 de kullanıcı giriş yaparken küçük harf yazsada hep büyük harf yazsın istiyorum. Yardımlarınız için şimdiden Teşekkür.
Kullanıcı avatarı
regatax
 
Kayıt: 18 Eyl 2014 14:58
Meslek: Teknik Destek Uzmanı
Yaş: 49
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#13)  regatax » 21 Eyl 2014 13:19

Pardon hocam Textbox3 yok dikkate almayın lütfen...
Kullanıcı avatarı
regatax
 
Kayıt: 18 Eyl 2014 14:58
Meslek: Teknik Destek Uzmanı
Yaş: 49
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#14)  Enes Recep BAĞ » 22 Eyl 2014 12:51

Kod: Tümünü seç
Private Sub TextBox1_Change()
TextBox1 StrConv(TextBox1vbUpperCase)
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#15)  dnmtnk » 27 Kas 2016 22:26

Arkadaşlar merhaba,
ben viewtopic.php?f=7&t=12923 linkteki konuda bulunan class module kendi userformuma uyarladım fakat çalışmadı.
Userformumda bulunan textbox isimleri TextBox1,TextBox2,....,TextBox9 şeklinde değil de
a_text1,a_text2,....,a_text9
b_text1,b_text2,....,b_text9
c_text1,c_text2,....,c_text9

Bu şekilde 7 farklı isimde. Sorunun bundan kaynaklanma olasılığı var mıdır? Eğer sorun bununla alakalı ise nerelerde değişiklikler yapmalıyım acaba?
Kullanıcı avatarı
dnmtnk
Yeni Başlamış
 
Kayıt: 25 Kas 2014 15:07
Meslek: Bilgi işlem
Yaş: 33
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#16)  alcetas » 27 Kas 2016 23:19

Hayır kodlamada sorun vardı. Textbox adlarında sorun olmaz.
Classın çalışması sorunlu tetiklenmiş. Auto_open kodları Thisworkbook içine yazıldığı için çalışmamış. ThisWorkbook içinde olacaksa Workbook_Open içine yazılmalı. Auto_Open Modüle içinde çalışır.

Kodları userforma ekleyin.
Kod: Tümünü seç
Private Textler() As New Class1
Private Sub UserForm_Initialize()
Dim a As Integer
For Each i In UserForm1.Controls
    a = a + 1
    ReDim Preserve Textler(1 To a)
        If TypeName(i) = "TextBox" Then
            Set Textler(a).evnText = i
        End If
Next i
End Sub


Class module kalsın.
Kod: Tümünü seç
Public WithEvents evnText As MSForms.TextBox
Private Sub evnText_Change()
evnText.Text = StrConv(evnText.Text, vbProperCase)
End Sub


Örnekteki dosyada Textbox isimleri dediğiniz gibi olduğu halde çalışıyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alcetas
Siteye Alışmış
 
Kayıt: 05 Ağu 2016 17:47
Meslek: Bütçe
Yaş: 38
İleti: 381
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Yazsın

İleti#17)  dnmtnk » 28 Kas 2016 23:35

Bilgi için teşekkürler alcetas kodlar şuan sorunsuz çalışıyor. Ayrıca sayende hazırlamış olduğum dosyada büyük yol aldım. Bunun için de ayrıca teşekkür ederim :)
Kullanıcı avatarı
dnmtnk
Yeni Başlamış
 
Kayıt: 25 Kas 2014 15:07
Meslek: Bilgi işlem
Yaş: 33
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Cevap: Bütün UserForm'larda TextBox'lar Büyük Harf Ya

İleti#18)  herhangi » 22 Ekm 2018 12:23

Enes Recep BAĞ yazdı:
Kod: Tümünü seç
Private Sub TextBox1_Change()
TextBox1 = StrConv(TextBox1, vbUpperCase)
End Sub


çok güzel elinize sağlık ama,

benim bi sorunum var

i harfini I çeviriyor bunu düzeltemedim

nasil olacak bi fikri olan var mı acaba ?
Kullanıcı avatarı
herhangi
 
Kayıt: 13 Ağu 2017 21:54
Meslek: Programcı
Yaş: 37
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Biga


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe