[Çözüldü]  Büyük Harf Makrosu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Büyük Harf Makrosu

İleti#1)  radyofon » 03 Kas 2018 14:56

Aşağıda çalıştırdığım makro içerisinde C4 hücresine metin bilgisi giriliyorsa metni büyük harfe çevirmesini istiyorum. Metin bilgisi yoksa zaten bir işlem yapmaya gerek yok. Fakat yapılan işlemin anlık ya da canlı yapmasını istiyorum. Yani aşağıdaki makrodaki "Private Sub Worksheet_Change(ByVal Target As Range)" komutu içerisinde çalışmasını istiyorum. Fakat başarılı olamadım.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim alan As Range
If Intersect(Target, Range("H14:F53")) Is Nothing Then Exit Sub
    Set alan = Range("I" & Target.Row, "J" & Target.Row)
    If Target.Value = "TL" Then
        alan.NumberFormat = "#.##0,0 TL"
    ElseIf Target.Value = "USD" Then
        alan.NumberFormat = "#.##0,0 [$USD]"
    ElseIf Target.Value = "EURO" Then
        alan.NumberFormat = "#.##0,0 [$EUR]"
    End If
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1.Value = UCase(TextBox1.Value)
[C4] = TextBox1.Value
End Sub
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#2)  Enes Recep BAĞ » 04 Kas 2018 01:31

Kod: Tümünü seç
Private Sub TextBox1_Change()
TextBox1 = StrConv(TextBox1, vbUpperCase)
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: 8226
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Büyük Harf Makrosu

İleti#3)  feraz » 04 Kas 2018 18:05

Türkçe karakter olayı yaşamak istemiyorsanız altarnatif olsun.

Kod: Tümünü seç
Private Sub TextBox1_Change()
    Me.TextBox1.Value = UCase(Replace(Replace(Me.TextBox1.Value, "ı", "I"), "i", "İ"))
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Büyük Harf Makrosu

İleti#4)  radyofon » 05 Kas 2018 10:32

Fakat bu makrolar genel görünüyor. Ben bu işlemin "C4" hücresinde olmasını istiyorum, tüm sayfada değil.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)

komut yordamı anlık değişikliği yapıyor.
Kod: Tümünü seç
Private Sub TextBox1_Change()

komut yordamı da anlık değişiklik yapıyor mu?
Benim yapmak istediğim "C4" hücresi için. Textbox komutu hücre içerisinde metin değişikliğini kapsıyor mu? Textbox ile hücreye metin girişi aynı şey mi acaba?
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

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

Cevap: Büyük Harf Makrosu

İleti#5)  Ali ÖZ » 05 Kas 2018 12:45

Kod: Tümünü seç
  If Target.Address = "$C$4" Then
    Target.Value = StrConv(Target, vbUpperCase)
  End If
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Büyük Harf Makrosu

İleti#6)  radyofon » 05 Kas 2018 17:06

Komutu aşağıdaki hale getirdim fakat "C4" hücresine herhangi bir kelime örneğin "ali " yazdığımda kelime büyük harfe dönmüyor.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim alan As Range
    If Intersect(Target, Range("H14:F53")) Is Nothing Then Exit Sub
    Set alan = Range("I" & Target.Row, "J" & Target.Row)
    If Target.Value = "TL" Then
        alan.NumberFormat = "#.##0,0 TL"
    ElseIf Target.Value = "USD" Then
        alan.NumberFormat = "#.##0,0 [$USD]"
    ElseIf Target.Value = "EURO" Then
        alan.NumberFormat = "#.##0,0 [$EUR]"
    End If
If Target.Address = "$C$4" Then
    Target.Value = StrConv(Target, vbUpperCase)
End If
End Sub
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Büyük Harf Makrosu

İleti#7)  Ali ÖZ » 05 Kas 2018 17:14

Bu satırdaki kod ile If Intersect(Target, Range("H14:F53")) Is Nothing Then exit sub
"H14:F53" aralığında hücre boş ise işlemden çık komutu var.
Kodu bu şekilde revize edin.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim alan As Range
    If Not Intersect(Target, Range("H14:F53")) Is Nothing Then
      Set alan = Range("I" & Target.Row, "J" & Target.Row)
      If Target.Value = "TL" Then
        alan.NumberFormat = "#.##0,0 TL"
      ElseIf Target.Value = "USD" Then
        alan.NumberFormat = "#.##0,0 [$USD]"
      ElseIf Target.Value = "EURO" Then
        alan.NumberFormat = "#.##0,0 [$EUR]"
      End If
    End If
If Target.Address = "$C$4" Then
    Target.Value = StrConv(Target, vbUpperCase)
End If
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Büyük Harf Makrosu

İleti#8)  radyofon » 06 Kas 2018 03:32

Run-time error '28':

Out of stack space

hatası veriyor ve debug butonuna basınca microsoft excel çalışmayı durdurdu diyor.
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#9)  Ali ÖZ » 06 Kas 2018 12:50

Dosyanızı eklermisiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Büyük Harf Makrosu

İleti#10)  radyofon » 06 Kas 2018 13:50

Dosya aşağıdadır.
https://yadi.sk/d/YXBOQD-53vF5EQ
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#11)  radyofon » 07 Kas 2018 09:45

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)

komut yordamını neden birkaç tane kullanamıyoruz. Aynı sayfada aynı komutu 2.kez kullanabilsek bu iş olacak gibi.
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#12)  Ali ÖZ » 07 Kas 2018 11:47

Dosyayı bu siteye yüklermisiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Büyük Harf Makrosu

İleti#13)  radyofon » 07 Kas 2018 12:12

Dosyayı yükledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#14)  Ali ÖZ » 07 Kas 2018 12:24

Merhaba,
7 nolu mesajımdaki kod çalışıyor,yeniden kontrol edebilirmisiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Büyük Harf Makrosu

İleti#15)  radyofon » 07 Kas 2018 15:04

Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#16)  radyofon » 08 Kas 2018 10:14

Hata resmi ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#17)  radyofon » 09 Kas 2018 13:22

İyi çalışmalar,
Yardımcı olabilecek bir üstat yok mu?
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#18)  Ali ÖZ » 09 Kas 2018 23:47

Bu satırı Target.Value = StrConv(Target, vbUpperCase)
Bu şekilde değiştirip deneyin.
Target.Value = ucase(Target)
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Büyük Harf Makrosu

İleti#19)  radyofon » 10 Kas 2018 11:30

Ali ÖZ yazdı:Bu satırı Target.Value = StrConv(Target, vbUpperCase)
Bu şekilde değiştirip deneyin.
Target.Value = ucase(Target)

Ali Bey,
Aynı hatayı yine alıyorum.
Kullanıcı avatarı
radyofon
Yeni Başlamış
 
Adı Soyadı:Ayhan GÜNEY
Kayıt: 24 Nis 2014 22:54
Konum: il
Meslek: Elektronik Mühendisi
Yaş: 52
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Büyük Harf Makrosu

İleti#20)  Ali ÖZ » 10 Kas 2018 15:06

Bu şekilde hata almazsınız.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
  If Target.Address = "$C$4" Then
    Target.Value = StrConv(Target, vbUpperCase)
  End If
    If Intersect(Target, Range("H14:F53")) Is Nothing Then Exit Sub
    Set alan = Range("I" & Target.Row, "J" & Target.Row)
    If Target.Value = "TL" Then
        alan.NumberFormat = "#.##0,0 TL"
    ElseIf Target.Value = "USD" Then
        alan.NumberFormat = "#.##0,0 [$USD]"
    ElseIf Target.Value = "EURO" Then
        alan.NumberFormat = "#.##0,0 [$EUR]"
    End If
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe