Karakter tasiyip birlestirme

[astamiga]

5 karakterli bi bilgiyi A10 hucresinden alip
A20 hucresine eklemek istiyorum. Ama A20 de bulunan ifadenin sadece ilk 5 karakterine bu yeni bilgi gelcek devami ayni kalacak.

A10 12345
A20 12345abc

Durumundayken ben A10a 54321 yazdigimda
A20 54321abc olacak.

Sanirim anlatabildim. Tesekkurler simdiden.

 

[netzone]

Merhaba,

Örnek bir dosya hazırlayıp bizimle paylaşırsanız Hızlı ve Kesin çözüme ulaşmanız daha kolay olacaktır.

iyi çalışmalar.

*Soru yanlış anlaşıldığından çözüm silinmiştir.*

 

[çıtır]

Sayfa kodu.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A10]) Is Nothing Then Exit Sub
al = Left(Range("A10"), 5)
ek = Mid(Range("A20"), 6, Len(Range("A20")))
Range("A20") = al & ek
End Sub

 

[astamiga]

Teşekkürler.
Bu sayfa kodunu nereye giriyoruz acaba?

 

[çıtır]

Sayfadan kodu kopyalayınız.Çalışmanızın olduğu dosyayı seçiniz. Sayfanın ismin yazılı olduğu sekmede sağ tuş yapınız.Kod görüntüle seçiniz..Çıkan geniş alana kodu yapıştırınız.Sayfada A20 hücresine veri giriniz.Sonra A10 hücresine veri giriniz ve sonuçu inçeleyiniz.