Userform hakkında.

[eda82]

İyi günler,
Userformla ilgili kodlarım çalışmamaktadır.Yardımcı olabilirmisiniz?

Ekteki userform açıldığında ;

-1.combobox ta RM kodları çıkmalı (mükerrersiz) bu kodlar 5.sayfadan sonraki sayfaların A kolonunda yeralmaktadır.20002,20003 vs...
-1.comboboxta seçilen RM koduna ait tüm markalar 2.comboboxta çıkmalıdır.(mükerrersiz) 20002 seçildiğinde x ve y markası sıralanmalıdır.

Sonuç olarak da bu seçilen verilere göre toplam satışın textboxlarda çıkmasını istiyorum.

Örneğin,20002 RM kodlu x markasının satışları "E14:AB14" aralığını kapsar .Ve userformada bulunan "sales volume" e denk gelen textbox'larda bu satış bilgileri sıralanmalıdır.

 

[Levent Menteşoğlu]

RM kodları her sayfada birbirinden bağımsız ve tek çeşitmidir? yani dosyanızdaki yapı aynı şekilde geçerlimidir?

 

[eda82]

evet tek çeşit olacak..yeni sayfalar da ekleyebilirim...

 

[eda82]

Merhaba,
Bana bu konuda yardımcı olabilecekmisiniz?
Teşekkürler

 

[eda82]

Günaydın Levent Bey,
Bu konuda bana yardımcı olabilecekmisin?Kodlar neden çalışmıyor?

 

[eda82]

:Hayırlı günler,
Bu konuda gerçekten desteğinize ihtityacım var.Bana ipuçu da verseniz kendim üzerinde düşünürüm..

 

[Levent Menteşoğlu]

Dosyanıza bazı ilaveler yaptım. Gerisini sizin çözebileceğinizi düşünüyorum.

 

[eda82]

Merhaba,
Çok teşekkürler,

 

[eda82]

Birtane RM kodu seçip sonra markayı seçince data geliyor.Fakat 2.seçimde hata veriyor.,Sebebi nedir?

 

[eda82]

Levent Bey merhaba,
Gerçekten tam istediğim gibi olmuş.Fakat RM kodunu ve markayı seçtikten sonra 2.seçime izin vermiyor.Hata veriyor.

Ayrıca bende "Active POS" sayılarını getirtmek istiyorum.Fakat sizin yaptığını gibi textboxlara isim vererek yapıyorum fakat oluyor.Aşağıdaki neyi hatalı yapıyorum?
örneğin "active pos'a ait textboxlara " sd dedim.Aşağıdaki gibi ekledim koda...

Private Sub ComboBox2_Change()
ad = s1.Name
son = s1.[b65536].End(3).Row
formul = Replace("SUMPRODUCT((" & ad & "!B2:B65536=" & """" & ComboBox2 & """" & ")* (" & ad & "!D265536=" & """" & "Sales" & """" & ")*(ROW(" & ad & "!D265536)))", 65536, son)
formul1 = Replace("SUMPRODUCT((" & ad & "!B2:B65536=" & """" & ComboBox2 & """" & ")* (" & ad & "!D265536=" & """" & "Active POS" & """" & ")*(ROW(" & ad & "!D265536)))", 65536, son)

sat = Evaluate(formul) 'İlgili satırı buluyor.

For a = 1 To 24
Controls("sv" & a) = s1.Cells(sat, a + 4)
Controls("sd" & a) = s1.Cells(sat, a + 4)
If s1.Cells(sat, a + 4).Interior.ColorIndex = 4 Then
Controls("sv" & a).BackColor = &HFF00&
Else
Controls("sv" & a).BackColor = &H80000005
End If
Next

 

[Levent Menteşoğlu]

7 Nolu mesajımdaki dosyayı yeniledim. Hatalar düzeltildi. Ancak siz diğer textboxlarada sıralı isim vererek eklerseniz ben gerekli ilaveleri yaparım.

 

[eda82]

Levent Bey,
"Sales Volume" sv1-sv24
"Active POS" ap1-ap24
"#of POS" p1-p24
"Sales/POS" sp1-sp24
"offer" o1-o12
"breakeven" b1-b12 olarak gruplandırdım.

"offer" a denk gelen ve o1-o12 olarak adlandırılan textboxlarda "AD" kolonunda yazan taksit sayılarına denk gelen "AL" de ki oranlar görülmelidir.
örneğin 20002'ye ait x markasının 10 taksitteki oranı %7.00 ...

"breakeven" a denk gelen ve b1-b12 olarak adlandırılan textboxlarda ise "AK" kolunundakiler yazmalıdır.

Dosya ektedir.
Saygılarımla,
Eda.

 

[Levent Menteşoğlu]

Dosyanızın son hali ektedir.

 

[eda82]

Levent Bey merhaba,
Gerçekten Allah razı olsun.Çok yardımcı oldunuz...Çok teşekkürler.

sv olarak grupladığımız textboxların formatını tek bir kodla ayarlayabiliyormuyuz?Ben sv olarak grupladığımız satış tutarlarının textboxta 20.000 gibi görünmesini istiyorum.Şuanda 20000,00 gibi birşeyler görünüyor..

Hayırlı günler,
Eda.

 

[eda82]

Merhaba Levent bey,
Tekrar rahatsız ediyorum.Fakat ben sv olarak gruplandırdığımız textbox formatını düzeltemiyorum.

#,##0 olarak çıkmasını istiyorum.Ne yapmalıyım?

 

[eda82]

Merhaba bu konuda yardımcı olabilirmisiniz?
Teşekkürler

 

[BASKICI]

Merhabalar Eda Hanım ;
Eğer 1den çok textbox a yapılacaksa bu işlem Class module kullanmanızı öneririm. Örnek olarak alttakileri deneyin.

Bunu Class Module açarak İçine yapıştırın

Public WithEvents txt As MSForms.TextBox

Private Sub txt_Change()
txt = Format(txt, "#,##0")
End Sub

Bunu da Userformun kod sayfasına yapıştırınız.

Dim txtler() As New Class1

Private Sub UserForm_Initialize()
Dim kontrol As Control, i As Integer

i = 1
For Each kontrol In UserForm1.Controls
If Left(kontrol.Name, 7) = "TextBox" Then
ReDim Preserve txtler(i)
Set txtler(i).txt = kontrol
i = i + 1
End If
Next
End Sub

Değişken isimlerini kendinize göre değiştirmeyi unutmayın.
Takıldığınız yerde yine sorarsanız yardımcı olmaya çalışırım. İyi çalışmalar