Sütuna Veri Eklemek

[kadir78]

İyi günler. A sütununda veriler var. Makro kodları ile A sütununa -05 verisini hücredeki verinin sonuna eklemek istiyorum. Satır sayısı değişken. Sadece dolu olan satırlara ekleme yapılması lazım. Yardımcı olur musunuz.

Örnek:
A1 hücresindeki veri : 01Ahmet
A2 hücresindeki veri : 02Mehmet
A3 hücresindeki veri : 03Ali
A4 hücresindeki veri : 04Ayşe Vb.

Makro kodları ile aşağıdaki gibi yapabilir miyiz.

A1 hücresindeki veri : 01Ahmet-05
A2 hücresindeki veri : 02Mehmet-05
A3 hücresindeki veri : 03Ali-05
A4 hücresindeki veri : 04Ayşe-05

 

[BedriA]

Kırmızı kısımdaki "sayfa2" yerine verilerinizin bulunduğu sayfa adını yazarak deneyiniz.
Örneğin Sheets("kadir78").Select...
Olmazsa dosya.tc gibi bir siteye örnek dosya eklerseniz çözüm bulunur.
Kodu denedim, çalıştı bende.

Sub Dene()
[COLOR="Red"]Sheets("sayfa2").Select[/COLOR]
son = Range("A65536").End(xlUp).Row
For i = 1 To son
Range("a" & i).Select
x = Range("a" & i)
Range("a" & i) = x & "-05"
Next
End Sub

 

[BedriA]

Bir önceki mesajımdaki kodu yeniledim.
Kodu iki defa çalıştırırsanız ikinci defa "-05" ekler.
A sütunundaki son dolu hücreye kadar işlem yapar.

 

[kadir78]

Sayın BedriA, çok teşekkür ederim. Kodlar çalışıyor. Elleriniz dert görmesin. Çok sağolun.

 

[BedriA]

Sayın BedriA, çok teşekkür ederim. Kodlar çalışıyor. Elleriniz dert görmesin. Çok sağolun.

Rica ederim.