Çoklu seçim hücreye veri ilave etmek

[emraha]

Örneğin
A1 hücresinde "ahmet",
A2 hücresinde "veli"

değerleri var.
Toplu olarak a1 ve a2 hücresini seçip bu hücre verilerinin içeriğinin sonuna "123" değerini eklemek istiyorum. Bu işlemi rutin olarak yapmayı planladığım için işlemi yaparken başka bir hücreden yararlanmadan (birleştir vs) gibi fonksiyonları kullanmadan yapmak istiyorum.

Sonuçta,
A1 hücresinde "ahmet 123"
A2 hücresinde "veli 123" sonuçunu elde etmek istiyorum. Yardımlarınız için şimdiden teşekkürler

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Ekle()
    Ek = Application.InputBox("Ekleyeceğiniz değeri yazınız", "EKLENECEK DEĞER")
    If Ek = False Then Exit Sub
    Set aln = Application.InputBox("Ek Yapacağınız Alanı Seçiniz", "ALAN SEÇİMİ", Type:=8)
    If aln Is Nothing Then Exit Sub
    
    For Each hcr In aln
        hcr.Value = hcr.Value & " " & Ek
    Next
End Sub