Excel Sutununda Sayı aratmak

[smith]

iyi günler arkadaşlar

Excel tablosunda 80.000 yakın kayıt var
sütunda hem rakam hem text değerleri mevcut
benim istediğim Sütunda arama yapıp sadece rakam olan değerlerin başına C eklemek

Ornek hücre değeri 00000001 ise makro çalıştıktan sonra hücre değerinin C00000001 olması Text olan hücrelerin ise değişmemesi

yardım ederseniz çok sevinirim...

 

[fedeal]

Sub fd()
son = Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
For i = 1 To son
fdl = Sheets("sayfa1").Cells(i, 1).Value
If IsNumeric(fdl) Then Sheets("sayfa1").Cells(i, 1).Value = "c" & Sheets("sayfa1").Cells(i, 1).Value
Next
End Sub

dosyanız ekte,iyi çalışmalar.

 

[smith]

Teşekkürler

arkadaşım teşekkür ederim işe yaradı fakat 1 şey daha isteyebilir miyim?

00000001 ve OUT000001 değerleri var ben yanlış bilgi verdim hücrenin ilk değeri sayı ise C
sayı değil metin ise boş geçebilir mi?

1000F121 ise C1000F121
ZC000100 ise değişiklik yapmasın

Yardımların için teşekkür ederim.

 

[fedeal]

Sub fd()
son = Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
For i = 1 To son
fdl = Left(Sheets("sayfa1").Cells(i, 1).Value, 1)
If IsNumeric(fdl) Then Sheets("sayfa1").Cells(i, 1).Value = "c" & Sheets("sayfa1").Cells(i, 1).Value
Next
End Sub

kodları üstekilerle değiştirin,iyi çalışmalar.

 

[smith]

Teşekkür

Çalıştı çok teşekkür ederim arkadaşım.