Sayı Biçimlendirilmiş Hucrenin Yanına Para Birimini Getirme

[skaan]

Merhaba;

Bir listem bulunmakta ve bu listede bulunan sayıların bir kısmı karışık bır sekılde; hucre biçimlendirme den sayı ve isteğe uyarlanmış şekilde alt alta sıralanmıştır. Bu sayıların yanlarına hücredeki sayının para birimini ve sayıyı ayrı ayrı getirmek istemekteyim.
Bunu nasıl yapabileceğim konusunda yardımcı olursanız sevinirim
Yardımcı olması için Örnek dosyamı ekledim.

Saygılarımla;
Hayırlı günler dilerim.
SKaan

 

[Ömer BARAN]

Aşağıdaki el yordamıyla hazırlanmış kod ile (kodu ilgili sayfanın kod bölümüne ekleyip çalıştırınız) C sütunundaki hücrelerin formatını H sütununa yazdırabilirsiniz.
Devamını bilemiyorum. Belki bir üye bundan sonrasını halledebilir.

Sub FORMAT()
Dim i As Integer

For i = 7 To 21
Range("J" & i).Value = Range("C" & i).NumberFormat
Next i
i = i + 1

End Sub

 

[Erdem Akdemir]

Dener misiniz?

Sub para()
x = 7
For Each alan In Range("c7:c21")

If alan.NumberFormat Like "*" & "€" & "*" Then
Cells(x, "h") = alan.Value
Cells(x, "i") = "EUR"
ElseIf alan.NumberFormat Like "*" & "$$" & "*" Then
Cells(x, "h") = alan.Value
Cells(x, "i") = "USD"
Else
Cells(x, "h") = alan.Value
Cells(x, "i") = "TL"
End If

x = x + 1
Next
End Sub

 

[skaan]

Merhaba ;
Ömer bey öncelikle ilginize teşekkürler ama istediğim veriyi alamıyorum bu kod ile..
Kodların sonucu :

_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)
[$$-409]#,##0.00
_-* #,##0.00 [$€-1]_-;-* #,##0.00 [$€-1]_-;_-* "-"?? [$€-1]_-;_-@_-
_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)
_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)
_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)
_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)
_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)
_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)
_-* #,##0.00 [$€-1]_-;-* #,##0.00 [$€-1]_-;_-* "-"?? [$€-1]_-;_-@_-
[$$-409]#,##0.00
[$$-409]#,##0.00
[$$-409]#,##0.00
[$$-409]#,##0.00
[$$-409]#,##0.00

Fakat ben hücreye yazılan sayıların ve para birimlerinin ayrı ayrı gösterilmesini istemekteyim..
Eklı excel dosyamda belirttiğim gibi..
Yardımcı olursanız çok sevinirim..

Tşk
SKaan

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

 

[Ömer BARAN]

Ben de aşağıdaki formül ile para cinsini alabiliyoruz diyecektim.

=ARA(PARÇAAL(J7;EĞERHATA(EĞERHATA(BUL("₺";J7);BUL("€";J7));BUL("$";J7));1);{"₺";"€";"$"};{"TL";"EUR";"USD"})

 

[Ömer BARAN]

Becerebilseydim ( vba'da ₺ simgesini yazdıramadım) F sütununa bu formülü uygulayıp sonuçlarını değer yazdıracaktım ve J sütunu da sildirecektim. ₺ simgesi engelledi.
Kodu aşağıdaki şekilde değiştirmiştim.

Sub FORMAT()

For i = 7 To 21
Range("J" & i).Value = Range("C" & i).NumberFormat
Next i
i = i + 1

With Range("F7:F21")
    .Formula = "=LOOKUP(MID(J7,IFERROR(IFERROR(FIND(""[COLOR="red"][B]₺[/B][/COLOR]"",J7),FIND(""€"",J7)),FIND(""$"",J7)),1),{""[B][COLOR="Red"]₺[/COLOR][/B]"",""€"",""$""},{""TL"",""EUR"",""USD""})"
    .Value = .Value
End With

Range("E7:E21").Value = Range("C7:C21").Value

Range("J7:J21") = ""

End Sub

 

[Korhan Ayhan]

Ömer bey sizin verdiğiniz son formülle ben sonuç alamadım...

 

[Ömer BARAN]

Ömer bey sizin verdiğiniz son formülle ben sonuç alamadım...

Evet haklısınız, birimlerin sıralamasında sorun varmış.
Formül aşağıdaki şekilde olmalıydı.

=ARA(PARÇAAL(J7;EĞERHATA(EĞERHATA(BUL("€";J7);BUL("₺";J7));BUL("$";J7));1);{"₺";"$";"€"};{"TL";"USD";"EUR"})

 

[Ömer BARAN]

Ömer bey sizin verdiğiniz son formülle ben sonuç alamadım...

Sayın AYHAN 7 no'lu mesajdaki olaya bir çözüm var mıdır acaba?
₺ simgesini tırnak içinde yazabileceğimi düşünmüştüm. Denediğimde ? olarak değiştiğini görüyorum.

 

[Korhan Ayhan]

Ben son formülünüzü bir önceki kodlarınızdan bağımsız yazdığınızı düşünmüştüm. Bu sebeple sonuç alamadım diye yazdım. Olayı şimdi anladım.

Bizim yeni TL simgemiz VBA ekranında soru işareti olarak çıkıyorsa tanımsız olduğu içindir. Sizde formülünüzde soru işareti olarak kullanırsanız sanırım sonuca gidebilirsiniz. Tabi başka soru işaretine dönüşen para birimi yoksa...

 

[skaan]

Yardımlarınız için teşekkürler..

Saygılar
SKaan