Sütunun tüm hücrelerindeki verilere ilave yapmak

[tahirturan]

Merhaba arkadaşlar,

Bir sorunum var. belki çok basittir çözümü ama bulamadım.

örneğin b sutünundaki hücrelerde 4 rakamlı sayılar var. ben bunların hepsinin başına MT gibi 2 tane harf eklemek istiyorum. örneğin 5199 iken MT5199 olsun. ama binlerce hücre olduğu için bunu otomatik olarak nasıl yaparım?

 

[Orion1]

Merhaba.
B sütununda 1nci satırdan başlayarak son satıra kadar olan verileri inputbox'a girdiğiniz değeri ekler.
Pc nizin hızına bağlı olarak ve verilerinizin çokluğuna göre kod'un çalışma süresi uzun veya kısa olabilir.
Çalıştırmadan önce dosyanızın bir yedeğini almanız doğru olacaktır.

Sub degistir()
deg = InputBox("EKLENECEK DEĞERİ GİRİNİZ..!!", "DEĞER EKLEME")
If deg = Empty Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To Cells(65536, "B").End(xlUp).Row
    Cells(i, "B").Value = deg & Cells(i, "B").Value
Next i
Application.ScreenUpdating = True
MsgBox "Birleştirme İşlemi Sona Erdi.!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[Korhan Ayhan]

Selamlar,

Verilerinizin A sütununda olduğunu düşünürsek B1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

="MT"&A1

 

[tahirturan]

Her ikisi de işimi gördü. çok teşekkürler. yüreğinize sağlık