UserForm Listede para birimi sıkıntısı

[Lanvin]

Arkadaşlar,

Hangi kodu denediysem başarılı olamadım.

Sıkıntı şu; Resimdede görebileceğiniz gibi.



Uploaded with ImageShack.us

İlk açtığınızda programda ekrana gelen fiyat sütunu olması gerektiği gibi para birimiyle geliyor.

Lakin üst bölüme giriş yapıp yeni ekle derseniz veya listeden herhangi bir satıra çift tıklayıp üst satırdan değişikliklerinizi yaptıktan sonra Güncelle derseniz Fiyat sütünu USD özelliğini kaybedip sadece sayı formunda listeleniyor.

Yukarıdaki işlemlerden sonra sütunun yine aynı şekilde para birimiyle görüntülenmesine devam etmek istiyorum.

İlgili kod eklemeleri için programı ekliyorum.

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

 

[fireman64]

Dosyanız ektedir.

 

[Lanvin]

Dosyanız ektedir.

Dostum,


Private Sub UserForm_Initialize()

Bölümünde hata veriyor.

Hata satırı;


For S = 2 To Cells(65530, 1).End(xlUp).Row

Tekrar bakabilirmisin?

 

[Mustafa MUTLU]

Private Sub UserForm_Initialize()
Dim S Bunu ekleyiniz.
Hata aldığınız satırda S gibi tanımlanam bir değeriniz varsa Dim S, Y gibi tanımlayınız.

For S = 2 To Cells(65530, A).End(xlUp).Row

 

[fireman64]

sorun yok dosyada tekrar deneyiniz

 

[Lanvin]

Arkadaşlar dediklerinizi sırayla denedim.

Hepsinde hata verdi.

1.


Uploaded with ImageShack.us

2.


Uploaded with ImageShack.us

3.


Uploaded with ImageShack.us

 

[Lanvin]

Bakan biri olmadımı hala

 

[Korhan Ayhan]

Merhaba,

Kod penceresinde TOOLS-REFERENCES menüsünden "MISSING" ile başlayan seçenekleri pasif yapıp tekrar deneyin.

 

[Lanvin]

Merhaba,

Kod penceresinde TOOLS-REFERENCES menüsünden "MISSING" ile başlayan seçenekleri pasif yapıp tekrar deneyin.

Korhan Paşa,

Allah razı olsun.