D3 ve D4 Büyük harf girişi

[k0081]

Merhaba arkadaşlar;

D3 ve D4 hücrelerine bilgi girişi yapıyorum. bazen capslock kapalı oluyor bu durum da küçük yazıyor doğal olarak.. yapmak istediğim capslock kapalı da olsa açıkta olsa D3 ve D4 hücrelerine bilgi girişi Büyük harf olsun...

yardımcı arkadaşa şimdiden teşekkürler..

 

[İhsan Tank]

Merhaba arkadaşlar;

D3 ve D4 hücrelerine bilgi girişi yapıyorum. bazen capslock kapalı oluyor bu durum da küçük yazıyor doğal olarak.. yapmak istediğim capslock kapalı da olsa açıkta olsa D3 ve D4 hücrelerine bilgi girişi Büyük harf olsun...

yardımcı arkadaşa şimdiden teşekkürler..

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("D3:D4")) Is Nothing Then Exit Sub
Target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
Application.EnableEvents = True
End Sub

 

[k0081]

[QUOTE=İhsan Tank;585492


Hocam tamamdır.. çok teşekkürler..

 

[nane]

E5 den E350 ye kadar olan hücrelerdeki kelimenin baş harfi büyük olarak yazabilirmiyiz.

E5=Kara Kuş , gibi veya

Aslında B sütununda BÜYÜK harf ile dolu olan hücreleri E hücresine kelimenin baş harfi büyük yazdırmak istiyorum.

Yardımlarınız için şimdiden teşekkürler.
Yb

 

[İhsan Tank]

Rica ederim
:keyif:

 

[İhsan Tank]

E5 den E350 ye kadar olan hücrelerdeki kelimenin baş harfi büyük olarak yazabilirmiyiz.

E5=Kara Kuş , gibi veya

Aslında B sütununda BÜYÜK harf ile dolu olan hücreleri E hücresine kelimenin baş harfi büyük yazdırmak istiyorum.

Yardımlarınız için şimdiden teşekkürler.
Yb

Nasıl olacak onu anlamadım. B sütununa büyük yazdıklarınızı E sütununda kelimelerin ilk harflerini mi büyük yazacak sadece

 

[nane]

Evet B sütununda tamamı büyük kelimeler var onların E sütununa kelimenin ilk harfi büyük diğer harfler büyük olacak şekilde yazmak istiyorum.

Yani B hücresinde KASA HESABI TL yi E hücresinde ise Kasa Hesabı Tl olacak şekilde

Sanırım anlatabilmişimdir.

 

[İhsan Tank]

Evet B sütununda tamamı büyük kelimeler var onların E sütununa kelimenin ilk harfi büyük diğer harfler büyük olacak şekilde yazmak istiyorum.

Yani B hücresinde KASA HESABI TL yi E hücresinde ise Kasa Hesabı Tl olacak şekilde

Sanırım anlatabilmişimdir.

Peki şunu sorayım.
Siz B sütununa devamlı veri girişi yapacak mısınız yoksa veriler var mı_?
Eğer ki siz devamlı giriş yapacaksanız otomatik şekilde bu işlemi gerçekleştireceğiz yoksa buton tetiklemesi yada başka bir şekilde tetikleme vazifesi görecek bir yer ayarlayacağız bilgi verirseniz kodu yazıp göndereyim.

 

[nane]

Peki şunu sorayım.
Siz B sütununa devamlı veri girişi yapacak mısınız yoksa veriler var mı_?
Eğer ki siz devamlı giriş yapacaksanız otomatik şekilde bu işlemi gerçekleştireceğiz yoksa buton tetiklemesi yada başka bir şekilde tetikleme vazifesi görecek bir yer ayarlayacağız bilgi verirseniz kodu yazıp göndereyim.

B sütununda veriler var hazır onları değiştirmek istiyorum. C sütununa da olabilir.
B sütunundaki BÜYÜK karekterde yazılı olanlar dursun

YARDIMLARINIZ İÇİN TEŞEKKÜRLER

 

[İhsan Tank]

B sütununda veriler var hazır onları değiştirmek istiyorum. C sütununa da olabilir.
B sütunundaki BÜYÜK karekterde yazılı olanlar dursun

YARDIMLARINIZ İÇİN TEŞEKKÜRLER

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub ilk_harf_61()
Dim ts, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Kelimelerin İlk Harflerini Büyütüyorum", _
vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 1 To Cells(Rows.Count, "B").End(xlUp).Row
Cells(ts, "E") = WorksheetFunction.Proper(Cells(ts, "B"))
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Kelimelerin İlk Harflerini Büyüttüm", , _
"Bitiş - www.excel.web.tr"
End Sub

Bir buton vasıtası ile tetiklenir.

 

[nane]

İhsan bey teşekkürler

 

[İhsan Tank]

İhsan bey teşekkürler

Rica ederim
:keyif:

 

[k0081]

Rica ederim
:keyif:

büyük harf yazma konusunda, dosyada bir yerde sorun çıktı.. "yeni" isminde bir butona aşağıdaki kodu yerleştirdim..;

Private Sub CommandButton2_Click()
Range("D4:D5").Select
    Selection.ClearContents
    Range("D5").Select
End Sub

hata : target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
bu tuş ile yeni kayıt giriyorum. Fakat büyük harf formatını bozuyor.. o hücredeki formatıda siliyor sanırım..?

 

[İhsan Tank]

büyük harf yazma konusunda, dosyada bir yerde sorun çıktı.. "yeni" isminde bir butona aşağıdaki kodu yerleştirdim..;

Private Sub CommandButton2_Click()
Range("D4:D5").Select
    Selection.ClearContents
    Range("D5").Select
End Sub

hata : target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
bu tuş ile yeni kayıt giriyorum. Fakat büyük harf formatını bozuyor.. o hücredeki formatıda siliyor sanırım..?

Dosya ekleyin. Üzerinde açıklama eklemeyi unutmayın.

 

[k0081]

İhsan Tank;586103]

Dosya ekleyin. Üzerinde açıklama eklemeyi unutmayın.

Ekli dosyayı görüntüle Kitap1.rar

 

[İhsan Tank]

İhsan Tank;586103]

Ekli dosyayı görüntüle 120703

Merhaba
Sayfanın kod bölümündeki kodları bunlar ile değiştirin.

Private Sub CommandButton1_Click()
Range("D4").ClearContents
Range("D5").ClearContents
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("D4:D5")) Is Nothing Then Exit Sub
If Target <> "" Then
Target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
End If
Application.EnableEvents = True
End Sub

 

[k0081]

Merhaba

tamamdır ihsan hocam. Teşekkürler..

 

[İhsan Tank]

Merhaba

tamamdır ihsan hocam. Teşekkürler..

Rica ederim
:keyif:

 

[Korhan Ayhan]

Merhaba,

Konu makro ile çözümlenmiş. Bende alternatif olarak veri doğrulama ile bir örnek hazırladım. İhtiyacı olan arkadaşlarımız kullanabilirler.

Merhaba arkadaşlar;

D3 ve D4 hücrelerine bilgi girişi yapıyorum. bazen capslock kapalı oluyor bu durum da küçük yazıyor doğal olarak.. yapmak istediğim capslock kapalı da olsa açıkta olsa D3 ve D4 hücrelerine bilgi girişi Büyük harf olsun...

yardımcı arkadaşa şimdiden teşekkürler..

 

[k0081]

Merhaba
Sayfanın kod bölümündeki kodları bunlar ile değiştirin.

Private Sub CommandButton1_Click()
Range("D4").ClearContents
Range("D5").ClearContents
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("D4:D5")) Is Nothing Then Exit Sub
If Target <> "" Then
Target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
End If
Application.EnableEvents = True
End Sub

bu kod çalıştırdım sorun yok. ama başka butonlar çalıştırıldığında hücre formatı yine bozuluyor.. YENI butonuna basınca düzeliyor..