Raf Stok KontrlÜ

[muhammethezer]

hayırlı akşamlar dileklerimle , Ekte bulunan dosyada hangi rafta benzer ürünlerin olduğunun takibini yapmak istiyorum.Çalışma belli bir aşamaya geldi fakat Userform üzerine bir adet hızlı arama kutusu bırakmak istedim ve hem combobox'tan yapılan hemde hızlı arama kutusundan yapılan seçimle verilerin Listbox'ta sayfa1'deki gibi sıralı gelmesini istedim.Bu konuda yardımcı olabilecek arkadaşlara ve değerli hocalarıma çok teşekkür ederim.

 

[muhammethezer]

ekteki dosya için yardım alabilirmiyim acaba

 

[muhammethezer]

iyi geceler yollamış oduğunuz kodlar işimi görüyor ama "Raf Stok KontrlÜ " isimli dosyada ne yapmak istediğimi daha açık bir şekilde anlattım , çalışma belli bir noktaya geldi fakat bir noktada takıldım yardımlarınız için çok teşekkür ederim.

 

[muhammethezer]

hayırlı sabahkar ekteki dosya için yardım alabilirmiyim acaba

 

[muhammethezer]

selam kolay gelmesi dileklerim ile herkese hayırlı sabahlar.Ekte bulunan örnek dosya için yardım almam mümkünmü acaba

 

[muhammethezer]

Sabahtan beridir uğraşıyorum ama bir türlü düzeltemedim.Combobox ve textboxtan seçtiğim verileri aynı listboxta nasıl gösterebilirim.

 

[bedersu]

Merhaba,
Sorununuzu anlayamadım.Büyük bir ihtimalle diğer arkadaşlar da anlayamadığı için cevap gecikmiş.Çalışmanızda bulunan B,C,D,E sütunları sanırım RAF.5 Ocakt'ta sırasıyla alrk.01.003.101.83 232 H5 1200 ürünleri mi konmuş?
Userform'u açtığımızda dediğiniz gibi hem Textbox hem de Combobox var ama her ikisinde de arama yaptırma çabanızı da anlayamadım.Neden sadece Textbox'ta arama yaptırmıyorsunuz?Ayrıca Textbox'ta yapılan arama sonucu çıkan bir ürünü tıkladığınızda da sayfada o ürün değil başka ürünler seçiliyor.Burada da mı bir hata var yoksa siz özellikle bu şekilde olmasını mı istediniz?Geniş bir açıklama yapmanız lazım.

 

[muhammethezer]

hayırlı sabahlar ,evet aramayı hızlı arama olarak yapmak istedim,yani"a"harfini seçtiğimde "a"ile başlayan verileri listboxta görmek "w"harfini seçtiğimde "w"ile başlayan verileri listboxta görmeyi amaçladım ama başaramadım.

 

[muhammethezer]

evet aramayı hızlı arama olarak yapmak istedim,yani"a"harfini seçtiğimde "a"ile başlayan verileri listboxta görmek "w"harfini seçtiğimde "w"ile başlayan verileri listboxta görmeyi amaçladım ama başaramadım.Bu konuda acil yardıma ihtiyacım var.

 

[muhammethezer]

Üstteki konu hakkında acil olarak yardıma hitiyacım var.

 

[muhammethezer]

aramayı hızlı arama olarak yapmak istedim,yani"a"harfini seçtiğimde "a"ile başlayan verileri listboxta görmek "w"harfini seçtiğimde "w"ile başlayan verileri listboxta görmeyi amaçladım ama başaramadım.Bu konuda acil yardıma ihtiyacım var.Yardımlarınız için çok teşekkür ederim.

 

[bedersu]

Merhaba,
Ürünler ilk harflerini yazdığınızda zaten listeleniyor.Sadece çift tıklatınca istenilen veri gelmiyordu .Şu şekilde problem hollolur:


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim x As Integer

x = Sheets("SAYFA1").Range("A:F").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row 'Buradaki 'Listbox' nedense ayrık yazılıyor.Siz kopyalayıp yapıştırdıktan sonra düzeltin.
Dim bak As Range
For Each bak In Range("A2:F" & WorksheetFunction.CountA(Range("F1:F65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ListBox1.Value, vbUpperCase) Then
bak.Select

TextBox1.Value = ActiveCell.Offset(0, 1).Value
TextBox2.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
TextBox5.Value = ActiveCell.Offset(0, 5).Value
TextBox6.Value = ActiveCell.Offset(0, 6).Value
Exit Sub
End If
Next bak
TextBox7.SetFocus

End Sub

 

[muhammethezer]

yardımlarınız için teşekkür ederim ama yine aynı hatayı veriyor.
aşağıdaki kodda sayfadan normal seçim işlemlerini yapıyorum.

Private Sub ListBox1_Click()

Dim x As Integer
x = Sheets("SAYFA1").Range("A2:F65536").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
TextBox7.Value = ListBox1 '
TextBox7 = Sheets("SAYFA1").Cells(x, 3)
Dim bak As Range
For Each bak In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox7.Value, vbUpperCase) Then

bak.Select
TextBox1.Value = ActiveCell.Offset(0, -1).Value
TextBox1.Value = ActiveCell.Offset(0, 1).Value
TextBox2.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
TextBox5.Value = ActiveCell.Offset(0, 5).Value
TextBox6.Value = ActiveCell.Offset(0, 6).Value
Exit Sub
End If
Next bak
TextBox7.SetFocus

End Sub


Ama

buradaki kodlarda ise listboxta tam olarak görünmüyor

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim x As Integer

x = Sheets("SAYFA1").Range("A:F").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
'Buradaki 'Listbox' nedense ayrık yazılıyor.Siz kopyalayıp yapıştırdıktan sonra düzeltin.
Dim bak As Range
For Each bak In Range("A2:F" & WorksheetFunction.CountA(Range("F1:F65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ListBox1.Value, vbUpperCase) Then
bak.Select

TextBox1.Value = ActiveCell.Offset(0, 1).Value
TextBox2.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
TextBox5.Value = ActiveCell.Offset(0, 5).Value
TextBox6.Value = ActiveCell.Offset(0, 6).Value
Exit Sub
End If
Next bak
TextBox7.SetFocus

End Sub

 

[bedersu]

Siz sanırım soruyu yanlış soruyorsunuz çünkü zaten listbox da ürünler listeleniyor.siz yoksa Listbox'taki ürünleri tıklayınca Textbox7'de tekrar mı görmek istiyorsunuz?Ben anlayamadım çünkü w harfini hızlı arama kutusu yani Textbox7'ye yazar yazmaz Listbox1'de bütün ürünler listeleniyor.Sorun nerede?

 

[muhammethezer]

Sorunum şu ; 1.olarak ComboBox'tan seçtiğimi list boxa alıyorum ; 2.olarakda hızlı arama kutusundan seçim yaptığımda listboxta görünen verilerin aynen comboboxtan alınan veriler gibi sıralı olması ve çift tıklama ile textboxlara alınmasını amaçladım ama başaramadım.ListBoxda veriler hızlı arama yapınca tek sütun halinde aşağı doğru yazılıyor.

 

[muhammethezer]

değerli Hocalarım bilyorum biraz fazla oluyorum ama 15.sıradaki anlatmaya çalıştığım özellik için gerçekten yardıma ihtiyacım var ve ben bunu bir türlü çözümliyemedim