yardım hücredeki format istediğim formata çevrilebilir m

[bistrobellman]

A1 Hücresinde :11235

B1 Hücresinde ise 1.1235_00 var

amacım A1 HÜCRESİNDEKİ "11235" DEÐERİNİ 1.1235_00 YAPMAK
bunların ikisinin birbirine eşit olup olmadığının kontrolünü sağlamak istiyorum

Range("a1").value = 11235
Range("a1").select
Selection.NumberFormat = "0\.0000" 'format görünümde 1.1235 oldu ancak değer halen 11235 şeklinde BURADA SORUN VAR..
_ olmasa her 2 hücreyi 1 ile çarpmak olurdu.ancak alt tire bozuyor işi...
yardımlarınızı bekliyorum

 

[Nazmi YAZICI]

Mrb,

Aşağıdaki kodu işinizi görebilir.

Syg.

Sub Deneme()
Dim hucre As String
    hucre = Sheets("Sheet1").Range("A1")
    Range("A1") = Left(hucre, 1) & "." & Right(hucre, Len(hucre) - 1) & "_00"
End Sub