Hücredeki metnin yanına otomatik karakter ekleme.

[leumruk]

Selamlar...
Ben belirttiğim aralıktaki verilerin yanına istediğim karakteri makro ile otomatik eklemek istiyorum. Örneğin; A5:A60 aralığı dolu ise burada bulunan değerin yanına nokta veya virgül veya parantez vb. eklemek istiyorum.
Yardımcı olursanız sevinirim.

 

[abdi]

sayın dostum deneyip sonucu bildiriniz.

Sub deneme()
    Dim s As String
        son = [a65536].End(3).Row
        s = InputBox("eklenecek karekteri giriniz")
        For i = 5 To son
            If Cells(i, 1) <> "" Then
               Cells(i, 1) = Cells(i, 1).Value & s
        Else
    GoTo 10:
        End If
10
    Next
End Sub

 

[leumruk]

Syn. Abdi Bey,
Metinlerin yanına nokta koyuyor, fakat sayıların yanını noktalamıyor. Ben gördüğü bütün karakterlerin yanını noktalamasını istiyorum.
İkincisi bir sorgu ekranı geliyor. Bu sorgu ekranına girmek istediğim karakteri yazdıktan sonra işlem yapıyor.
Ayrıca makroda eklenecek karakteri giriniz, kısmına yazdığım karakter, sorgu ekranının başlığı oluyor.

 

[abdi]

Sayın leumruk


istediğim bir karekteri dediğiniz için sorgulama ekranı inputbox koydum

kodda hiç bir oynama yapmanıza gerek yok sadece gelen sorgulama ekranın da hangi karekteri eklemek istiyorsanız giriyorsunuz yapmanız gereken o kadar

yeni kodları gönderiyorum rakamları da kapsayan

Sub deneme()
    Dim s As String
        son = [a65536].End(3).Row
        s = InputBox("eklenecek karekteri giriniz")
        For i = 5 To son
               Cells(i, 1).Value = (Cells(i, 1).Value) & s
        Next
End Sub

 

[leumruk]

Syn. Abdi Bey,
Kodu uyguladım, fakat sayının yanına değil, altındaki boş hücreye nokta koydu.

 

[abdi]

denemeden kodları kesinlikle göndermiyorum yanlış uyguladığınız bişey var demektir.
lütfen örnek dosyanızı ekleyiniz.

 

[leumruk]

Dosya ekte.

 

[abdi]

Sub Nokta2()
    Dim s As String
        son = [a65536].End(3).Row
        s = InputBox("eklenecek karekteri giriniz")
        For i = 1 To son
               
               
            If Cells(i, 1) = Empty Then
            GoTo 10:
                       
            Else
            Cells(i, 1).Value = CStr(Cells(i, 1).Value) & s

            End If
10
        Next
End Sub

 

[Necdet]

Merhaba,

Ekteki kodu bir butona bağlayınız.

Önce hücreleri seçin sonra çalıştırın.

Sub Nokta()
Dim Ek As String
Ek = InputBox("Eklenecek Karakter(ler)i Giriniz")
If Ek = "" Then Exit Sub
For Each Hucre In Selection
    If Hucre <> "" Then Hucre.Value = Hucre.Value & Ek
Next Hucre
End Sub

 

[leumruk]

Syn. Abdi hocam,
Teşekkür ederim. Şimdi oldu.
Yalnız ilginç bir şey farkettim. Sayı kısmına nokta koymuyor, ama diğer seçtiğim karakterleri ekliyor. Bu da herhalde excelin bir özelliği.
Tekrar teşekkür ederim, böylede işimi görüyor.

 

[leumruk]

Syn. Necdet hocam, aynı durum sizin kodunuz için de geçerli. Noktayı sayının yanına yerleştirmiyor. Diğer karakterlerde sorun yok.

 

[Necdet]

Evet sizin açıklamanızdan sonra bende denedim nokta koymasına rağmen excelde bir değişiklik olmuyor.

Excelde hücreye doğrudan rakam ve nokta girildiğinde text olarak algılıyor.
Vardır belki bir çözümü, nokta ve boşluk belki durumu kurtarır

 

[Serpily]

Rakamlardan sonra nokta koyması için exceli şöyle kandırsak sizin dosyanız için bir sorun olr mu acaba?

Necdet Beyin eklentisinde for-next in içindeki ifadeye ' ekleyerek bir deneyin.

For i = 1 To son
Cells(i, 1).Value = "'" & (Cells(i, 1).Value) & s
Next

 

[leumruk]

Sorunu çözdüm. Aslında çok basit bir çözümü varmış. Son mesajınızdaki "text olarak algılıyor" ifadesi jetonun düşmesini sağladı. Algılamayı değiştirdim. Hücreleri sayı olarak algılıyormuş, hücre biçimlendir menüsünden metne çevirdim sorun çözüldü.

 

[leumruk]

Hayret verici bir durum. Biri bana bunu açıklasın.
Syn. Abdi beyin msj(8 nolu msjda)'ındaki kodları hiçbir satır ve sütun değişikliği yapmaksızın kendi dosyamda uyguladım. Fakat şöyle bir sorun oldu. girilen değeri hücrede bulunan metnin yanına yazması gerekirken, metni silip girdiğim değeri yerleştiriyor. İşin ilginç tarafı ilk uyguladığım dosyada hiçbir sorun yok.
Başka bir dosyada aynı kodu tekrar uyguladım, ilk denemede bahsettiğim sorun tekrarladı, fakat diğer denemelerde sorun ortadan kalktı.
İşin daha ilginç tarafı, makroyu ilk uyguladığımda girdiğim değeri hücredeki metnin yanına yerleştirdikten hemen sonra makroyu tekrar çalıştırdığımda yeni girdiğim değeri bir önce girdiğimin yanına giriyordu. Böylece eski değere hiç bir şey olmadan ekleyip gidiyordu. Mokrada hiçbir oynama yapmama rağmen şu an makroyu çalıştırdığımda sadece bir değer ekliyor, kendinden önce girilen değeri siliyor.
Böyle bir şey nasıl olabilir. Benim ayarlarımda mı bir sorun var?