Metin olarak gözüken sayı

[m.cay]

Merhaba,

Çalışma sayfamdaki bazı sütunlarda (örneğin D sütunu) metin olarak gözüken sayılar mevcut. Bu metinleri tek tek 'Sayıyaçevir' fonksiyonuyla sayı yapmak çok vakit alıyor. Makroyla nasıl yapılacağı konusunda fikri olan varsa çok sevinirim.

 

[zafer]

Merhaba

Herhangi bir boş hücreye 1 yazın kopyalaya basın
sayıya cevrilecek hücreleri seçin
Düzen menüsünden Özel yapıştırı seçip Çarp kutusunu işaretleyin..
Tamam'a basın

 

[m.cay]

Sevgili Zafer,

Bu çözümü hiç düşünmemiştim. Teşekkürler. Ancak bu işlemi kodla yaptırmak istediğimde yapmıyor. Yazdığım kodlar aşağıda. Acaba nerede yanlış yapıyor olabilirim?

Sub Sayiyacevir()

[P11].Copy '1 sayısının yazıldığı hücre

Range("D2:F4000").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

End Sub

 

[mehmett]

Şu kodları kullanabilirsiniz;

Sub a()
For x = 2 To 4000
For y = 4 To 6
If Cells(x, y) = "" Then GoTo 10
Cells(x, y) = Cells(x, y) * 1
10 Next
Next
End Sub

 

[m.cay]

Teşekkürler sevgili Mehmett. Problemim çözüldü.