[Γενικά] Αριθμητικά ποσά με δεκαδικά & διαχωριστικά χιλιάδων

[gfevran]

Καλησπέρα,
Θέλω να εμφανίσω αριθμητικά ποσά με 2 δεκαδικά ψηφία και διαχωριστικό χιλιάδων από ένα φύλλο σε μια φόρμα με αντίστοιχα label αλλά δεν τα κατάφερα, σε αυτό το σημείο ήθελα τη βοήθεια σας.
Ευχαριστώ.

[kapetang]

Καλησπέρα

Γιώργο, δοκίμασε τον κώδικα:

Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To 5
        Me.Controls("lbl" & i & "sh1").Caption = Format(sh1.Range("A" & i), "currency")
    Next
End Sub

[gfevran]

Γιώργο Σ ' ευχαριστώ πολύ,
δούλεψε τέλεια.