Extre Almak

[oerbas]

Tüm form üyelerine selamlar

Arkadaşlar ben uğraştım birşeyler yapmaaya çalıştım ama tam istediğim gibi olmadı. Sizlerden yardım almaya karar verdim.

Çalışma sayfası a sütununda müşteri isimleri var ve UserForm üzerinde Combobox aracılığı ile ( MST sayfasından ) seçilen müşteriye yapılan satışların LlistBox ta listelemek istiyorum. Daha sonra bu raporu müşteriye vermem gerekiyor. Yardımcı olacak arkadaşlara teşekkür ederim

 

[zafer]

Merhaba

Açıklamanız yetersiz. Örnek bir dosya ekleyebilirmisiniz.

Sayfadaki müşteri isimleri combobox'tan seçilir.
liste hangi şekilde listbox'a neleri alacaksınız.
Seçtiginiz müşterinin detaylarını başka bir sayfaya alıp yazıcıdan çıkartmakmı istiyorsunuz.
bunları örnek dosyada açıklarsanız extre verme hususunda bir çok öneri size sunulabilir.


Size yol göstermesi açısından aşağıdaki linki incelermisiniz.
http://www.excel.web.tr/showthread.php?t=23062

 

[oerbas]

Cevap yazmam biraz geç oludu bu yüzden ben bağışlayın. Yanıtınız için teşekkür ediyorum.

Suruyu eksik ifade ettim galiba. Verilerin alınacağı Sayfa1 de Müşteri Cari bilgilerinin olduğu varsayılırsa. A sütünunda müşteri isimleri B sütununda ise tarih bilgileri ve diğer sütunlarda ise sırası ile diğer bilgiler mevcut. Combobox1 Rowserurce özelliği ile seçilen müşterinin yine ComboBox2 ile seçilen tarihe ait extresini oluşturmak istiyorum. veri dosyası ektedir.

 

[zafer]

Merhaba

Aşağıdaki dosyayı inceleyiniz

 

[oerbas]

Sayın zafer bey verdiğiniz cevap için teşekkür ederim. Göndermiş oluduğunuz örneği kendi programıma uyarlamaya çalıştım ama aşağıdaki satır hata veriyor. Bilgi verirseniz sevinirim

ComboBox1.AddItem Sheets("MST").Cells(B, 1).Value

Private Sub UserForm_Initialize()
A = WorksheetFunction.CountA(Sheets("MST").Range("A2:A65536")) + 1
ListBox1.ColumnCount = 9
'ListBox1.ColumnWidths = "50;50;50;50,50;50;50;50,50"
For B = 2 To Sheets("MST").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("MST").Range("a2:a" & B), Sheets("MST").Cells(B, 1)) = 1 Then
ComboBox1.AddItem Sheets("MST").Cells(B, 1).Value
End If
Next
End Sub

 

[zafer]

Merhaba

Combobox'a MST sayfanızdaki 1 sütundaki verileri alırken hata vermiş.
Hata iletisini yazabilirmisiniz.

F8 tuşuna basarak kodları çalıştırın.

 

[oerbas]

Zefer bey hata mesajı aşağıda: aşağıda başka bir yöntem daha var ama oradada sorun yaşıyorum.
UserForm üzerinde Bir ComboBox1 ikitane TextBox birde ListBox1 var.
ComboBox1 ile MST sayfası A sütununa göre seçilen isimler süzülerek Listbox1 e alınıyor. Buraya kadar herşey normal Fakat B sutununda bulunan tarih seçilirken problem oluyor. TextBox1 e girilen tarihe göre süzülen verinin EXT sayfasına aktarılmasını ve ListBox1de görüntülenmesini istiyorum.
kodlar aşağıdaki gibidir. İstemiş olduğunuz hata mesajı ise ektedir.

Private Sub ComboBox1_Change()
ListBox1.Clear
b = WorksheetFunction.CountA(Sheets("MST").Range("a:a"))
For i = 1 To b
If Cells(i, 1).Value = TextBox1.Value Then
c = c + 1
For y = 1 To 9
ListBox1.AddItem
ListBox1.list(c - 1, y - 1) = Cells(i, y).Value
Next
End If
Next
TextBox1 = ComboBox1
End Sub
Private Sub TextBox1_Change()
ListBox1.Clear
b = WorksheetFunction.CountA(Sheets("MST").Range("a:a"))
For i = 1 To b
If Cells(i, 1).Value = TextBox1.Value Then
c = c + 1
For y = 1 To 9
ListBox1.AddItem
ListBox1.list(c - 1, y - 1) = Cells(i, y).Value
Next
End If
Next
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
Sheets("MST").Select
ListBox1.Clear
b = WorksheetFunction.CountA(Sheets("MST").Range("b:b"))
For i = 1 To b
If Cells(i, 2).Value = TextBox2.Value * 1 Then
c = c + 1
For y = 1 To 9
ListBox1.AddItem
ListBox1.list(c - 1, y - 1) = Cells(i, y).Value
Next
End If
Next
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
Sheets("MST").Select
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 10
End Sub

 

[zafer]

Merhaba

Texbox change içindeki kodlarınızı

TextBox Exit içine yazınız.

Örneğin textbox lara 11.01.2006 yazacaksınız . her sayıyı yazdığında change olayına yazdığınız kodlar çalışacaktır.
onun içinde hataya düşeceksiniz.