sayıya çevirme

[incsoft]

Arkadaşlar A,B,C,D,E,F,G,H,I sütunlarında verilerim var ve bunlar sayı olmadığından dolayı bazı komutlarım verilerimi bulmamakta. Bunun için aşağıdaki şekilde bir dönüştürme yaptım ancak uzun formül. Bunu daha kısa bir şekilde direk tüm alanları sayıya nasıl dönüştürebilirim? Verilerim her gün değişkenlik gösterdiğinden 1 defaya mahsus değildir o sebepten dolayı bu şekilde bir komut kullanma gereği duydum...


Sub sayıyaçevir()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long
Dim f As Long
Dim g As Long
Dim h As Long
Dim i As Long
a = Cells(65536, "A").End(xlUp).Row
b = Cells(65536, "B").End(xlUp).Row
c = Cells(65536, "C").End(xlUp).Row
d = Cells(65536, "D").End(xlUp).Row
e = Cells(65536, "E").End(xlUp).Row
f = Cells(65536, "F").End(xlUp).Row
g = Cells(65536, "G").End(xlUp).Row
h = Cells(65536, "H").End(xlUp).Row
i = Cells(65536, "I").End(xlUp).Row
Range("K1").Copy
Range("A1:A" & a).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("B1:B" & b).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("C1:C" & c).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("D1" & d).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("E1:E" & e).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("F1:F" & f).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("G1:G" & g).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("H1:H" & h).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("I1:I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("K1").Select
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Sayi_Yap()
    Sheets("TİP").Select
    
    Range("K1") = 1
    Range("K1").Copy
    
    For Each Veri In Range("A1:I1")
        Son = Cells(Rows.Count, Veri.Column).End(3).Row
        Range(Cells(1, Veri.Column), Cells(Son, Veri.Column)).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlMultiply
    Next
    
    Range("K1") = ""
    Range("A1").Select
    
    Application.CutCopyMode = False
End Sub