MAKRO ile Rakamların biçimini değiştirip metin ekleme

[OKUROGLU3375]

Selamlar ; Makro ile 10 haneli bir rakamın 1234567890 soluna OKUR yazıp bir boşluk verip, hücre içinde bileşik şekilde bulunan rakamın 4 2 4 basamaklı olacak şekilde ayırmamız gerekiyor. Yine aynı hücreye yazılmalı. ÖRNEK olarak hücre içinde hazır bulunan rakam 1234567890 şeklinde. Olması gereken OKUR 1234 56 7890 şeklinde. Bu şekilde yapılması gereken B sütununda yaklaşık 5000 adet kod var. Konu ile ilgili yardımlarınız rica ederim. Teşekkürler OKUROGLU3375

 

[Ömer]

Merhaba,

Deneyiniz.

Sub duzenle()
    
    Dim i As Long
    Dim d1 As String, d2 As String, d3 As String, d4 As String
    
    Application.ScreenUpdating = False

    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        d1 = "OKUR "
        d2 = Mid(Cells(i, "B"), 1, 4) & " "
        d3 = Mid(Cells(i, "B"), 5, 2) & " "
        d4 = Mid(Cells(i, "B"), 7, 4)
        Cells(i, "B") = d1 & d2 & d3 & d4
    Next i
    
End Sub

 

[OKUROGLU3375]

Elinize sağlık. İstediğim gibi, fakat çok küçük bir istek daha... B sütünundaki bütün hücreler için geçerli olması için ne yapmalıyım. Şuan ki 10 satır gibi bir alanı kapsıyor.

 

[Ömer]

Kodlar zaten B sütunundaki tüm hücreleri kapsıyor. O şekilde yazmıştım.

 

[OKUROGLU3375]

ŞİMDİ ÇÖZDÜM A sütunundaki sıra numarasına göre hareket ediyor. )
Teşekkür ederim Ömer bey

 

[Ömer]

Kodları B sütununa göre değiştirmiştim. Geç kaldım sanırım. Son verdiğim kodlar B sütunundaki son hücreye kadar işlem yapar ve yeni değerleri B sütununa eski değerin yerine yazar.

 

[OKUROGLU3375]

valla iyi olurdu. silmediyseniz

 

[Ömer]

#2 numaralı mesajdaki kodlar günceldir. Hata yada eksik varsa bildirirsiniz.

 

[Haluk]

Alternatif olarak; hücrelerdeki verileri sayıya çevirdikten sonra aşağıdaki gibi isteğe bağlı biçimlendirmeyle sonuca ulaşabilirsiniz....

OKUR #### ## ####



.

 

[OKUROGLU3375]

TEŞEKKÜRLER...