[ miLOSm @ 19.03.2014. 07:57 ] @
U nekoj celiji imam numericki podatak definisan kao :

Code:

ActiveSheet.cells(1,1).NumberFormat= "0000000000.00"


i zelim da visualni sadrzaj te celije u String obliku prekopiram u novu celiju.

kako to izvesti


dakle:

U celiji A1 je npr broj : 000000256.64

Zelim da u celiji C1 bude String : 000000256.64
[ FOX028 @ 19.03.2014. 08:07 ] @
napravi da ti se i celija C1 formatira kao i A1

Code:
ActiveSheet.cells(1,3).NumberFormat= "0000000000.00"
[ miLOSm @ 19.03.2014. 08:34 ] @
da ali bi u tom slucaju i ta nova celija bila istog formata kao i prva, a ja zelim da bude tekst.

kad se klikne celija sa tim podatkom zelim da se gore u formula baru pokaze vrednost SA nulama ne bez njih
[ FOX028 @ 20.03.2014. 08:51 ] @
onda mozda ovako nesto zavrsi posao

Code:
Dim ceo As Integer
Dim dec As Single
Dim cifara As Integer

With ActiveSheet
    .Cells(1, 1).NumberFormat = "0000000000.00"
    ceo = Int(.Cells(1, 1))
    dec = .Cells(1, 1) - ceo
    dec = Int(Right(dec, Len(Str(dec)) - 2))
    cifara = Len(Str(ceo))
    .Cells(1, 3) = Right("0000000000", 10 - cifara) & Trim(Str(ceo)) & "," & dec   'umesto zareza mozes staviti tacku, kako tebi odgovara

End With
[ Jpeca @ 20.03.2014. 09:56 ] @
Formula
Code:
=TEXT(A1;"0000000000.00")

će pretvoriti sadržaj A1 u tekst u odvarajućem formatu, ali nisam siguran šta tebi treba, jer u polju formule će biti naravno upisana formula, a ne tekst sa nulama?
[ miLOSm @ 20.03.2014. 14:04 ] @
Citat:
FOX028

Code:
Dim ceo As Integer
Dim dec As Single
Dim cifara As Integer

With ActiveSheet
    .Cells(1, 1).NumberFormat = "0000000000.00"
    ceo = Int(.Cells(1, 1))
    dec = .Cells(1, 1) - ceo
    dec = Int(Right(dec, Len(Str(dec)) - 2))
    cifara = Len(Str(ceo))
    .Cells(1, 3) = Right("0000000000", 10 - cifara + 1) & Trim(Str(ceo)) & "," & dec   'umesto zareza mozes staviti tacku, kako tebi odgovara

End With


Cisto ova mala ispravka dole sa jedinicom u okviru komande Right () pri upisu u polje C1, ali to je to. Hvala