Numberformat H.k

[hlojan]

Arkadaşlar merhaba!

workbooks("Veri.xls").Worksheets("Sayfa1").Range("b157").NumberFormat = Workbooks("Veri.xls").Worksheets("Veri").Range("s7").NumberFormat

Bu kodu bir hücredeki formatı başka hücreye taşımak için yapıyorum

Örnek : B157 > 0,020
s7 > 0,100

virgülden sonrasını aynı basamakta olması için

Sorum şu : B157 > 0,020
s7 > 0,100 iken


a57 > 0,0125 olması

virgülden sonra bi basamak fazla olması
tabiki bunu vba koduyla yapmak istiyorum

b157 ve s7 virgülden 3 basamaklıysa a57 virgülden sonra 1 fazlası 4 basamaklı olsun

Yardımlarınızı bekliyorum

 

[Ömer BARAN]

Merhaba.
Bence, aşağıdaki gibi basit bir If .. Else.. End If koduyla yapılabilir.
Sanırım; belge adı, sayfa adı gibi ilaveleri yaparsınız.

If Range("B157").NumberFormat = "0.000" And Range("S7").NumberFormat = "0.000" Then
        Range("A150").NumberFormat = "0.0000"
    Else
        Range("A150").NumberFormat = "0.000"
End If

 

[hlojan]

ömer bey sağolun

yaa "0.0" durumu olursa yada "0.00000" durumu.

Bu formül işimi görmüyor.malesefef

şimdilik aşağıdaki gibi çözmeye çalışıom

b111 hücreyi formulize edip

="0.0"&SAĞDAN(KUVVET(10;(UZUNLUK(ayır(A25;2;","))));UZUNLUK(KUVVET(10;(UZUNLUK(ayır(A25;2;",")))))-1)

FM= Range("B111")
Range("A150").NumberFormat = FM

Ama vba ile çözsem daha sağlıklı olacak

 

[ÖmerBey]

Merhaba, deneyiniz...

Sub KOD()
a = Range("b157").NumberFormat
If a = "0" Then
    b = "0.0"
Else
    b = "0." & WorksheetFunction.Rept(0, Len(a) - 1)
End If
Range("a57").NumberFormat = b
End Sub

 

[hlojan]

Tebrikler

 

[mydestek]

slm

http://www.excel.web.tr/f48/sayylar-1-2-3-4-10-11-gibi-t151688.html peki bu konuda nasıl bir yol izlene bilir.