Excel hücre biçiminin UserFormda aynı biçim gelmesi

[Lanvin]

Arkadaşlar,

Excelde yer alan para biriminin UserForm diyaloğunda aynı biçimde gelmesini sağlamak istiyorum. Ayrıca güncelleme ve yeni ekleme işlemlerinde para birimini bozmadan giriş yapabilmeli.

Denemediğim kod kalmadı kafayı yiyecem. Nolur biri yardım etsin.

Şimdiden teşekkürler..

 

[Orion1]

Para birimi varsayılan para birimi olarak belki yazdırabilirsiniz ama ben şöyle yapıyorum.Para birimi için ayrı bir sütun yapıyorum excelde.userformdada combobox yapıp para birimlerini onda tutuyorom.
Yarın para birimine göre süzme yaparsam bu işime yarıyor.

 

[Seyit Tiken]

Lanvin bey, program ekliyorsunuz, "Çıkış Butonu" nerde?

 

[Lanvin]

Lanvin bey, program ekliyorsunuz, "Çıkış Butonu" nerde?

Program ekranini tam gormek icin enson kapatilan excel dosyasinin tam ekran iken kapatilmis olmasi gerekli. Bu sekilde acarsaniz gorebilirrsiniz. Birde bu ekrani tam ekran yapamazmiyiz?

 

[Lanvin]

Anlasilan yardim eden yok

 

[Lanvin]

arkadaşlar bu kadar zormu ya

 

[Levent Menteşoğlu]

Userformu initialize olayındaki ilgili döngüyü aşağıdaki ile değiştirerek deneyin. Bu uygulama sadece tek bir para birim içindir.

For a = 2 To 11
If a = 8 Then
ListView1.ListItems(y).ListSubItems.Add , , Format(Cells(S, a).Value, "$#,##0.00")
GoTo 10
End If
ListView1.ListItems(y).ListSubItems.Add , , Cells(S, a).Value
10 Next
Next

 

[Lanvin]

Userformu initialize olayındaki ilgili döngüyü aşağıdaki ile değiştirerek deneyin. Bu uygulama sadece tek bir para birim içindir.

For a = 2 To 11
If a = 8 Then
ListView1.ListItems(y).ListSubItems.Add , , Format(Cells(S, a).Value, "$#,##0.00")
GoTo 10
End If
ListView1.ListItems(y).ListSubItems.Add , , Cells(S, a).Value
10 Next
Next

Dostm kod ilk acilista dogru calisiyor ama yeni ekle veya guncelle dedigimizde bu sutun bu ozelligi kaybediyor. Bir bakarmisiniz.