Stok Ad ve kodlarının sıralanması

[bulentc76]

öncelikle herkese derinden teşekkürlerimi sunarım.sizlerin sayesinde exceli farklı yönleriyle kullanmaya başladım.özellikle makro bilgim neredeyse sıfırdı ama başlangıç seviyesindede olsa bişeyler yapabiliyorum artık.
sizlerden ricam ekli dosyada şu problemlerim var ;
1. usrform 4 te sırala butonları ne stok kodunu nede stok adını düzgün sıralamıyor.
2.userform 3 teki comboboxlarda listeleln veriler dışında veri girişi kabul etmemeli
3.userform 4 te değiştir ve sil butonu textboxlara veri gelmeden çalışmamalı
4.userform 3 te 2 adet tanımla butonu TANITIM KARTI sayfasına kayıt yapıyor ama 2 sütundaki kayıt b3 te bitiyosa c sütununa kayıt c 4 ten başlıyo.halbuki c2 den yada hiç veri yoksa başından başlamalı
bu konulardada yardımcı olursanız sevinirim.zira bulduklarımı uyarlarken zorlanıyor ve kodlarda karışıklığa sebep oluyorum.diğer sayfaları bu örnek sayfama göre kendim oluşturacağım.şimdiden yardımcı olacak herkese teşekkürederim.

edit xxrt:"bir kaç eksiğim var ama yapamadım..." başlık "Stok Ad ve kodlarının sıralanması" olarak değiştirildi.

 

[bulentc76]

arkadaşlar sıralama sorununu hala çözemedim ne yaptıysam olmuyor.
yardımlarınızı bekliyorum.valla buraya kadar yardımlarınızla geldim ama bazı küçük şeylerde takıldım işte.saygı ve sevgilerimle... :hihoho:

 

[xxrt]

bulentc76, sıralama bende çalışıyor.Birde şu satırı değiştirn bakalım.

Userform4>>CommandButton4'de;

Range("A1:G7").Sort...

satırını

Range("A1:G500").Sort......

yapın..
Stok adı sıralama dakinide G500 gibi değer yazın.

Daha önce yazmıştım.Userformda çalışan saat'i durdurmuyorsunuz ve arka planda kod hala çalışıyor.Ayrıca Userfomdan çıkıp başka userforma geçerken unload me kodu ile önceki userformu kapatmalısınız.

Userform1 için

Private Sub CommandButton1_Click()
UserForm3.Show
Unload Me
End Sub

diğerlerine de aynı satırı ilave edin.

Userform3' şunları ileve edin

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    End
End Sub

Userform4'ün Listboxu Dubleclick değilde click kısmına yazsan daha iyi olur

Yani şöyle

Private Sub ListBox1_Click()
On Error Resume Next
TextBox1.Value = ListBox1.Column(0)
TextBox2.Value = ListBox1.Column(1)
TextBox3.Value = ListBox1.Column(2)
TextBox4.Value = ListBox1.Column(3)
TextBox5.Value = ListBox1.Column(4)
TextBox6.Value = ListBox1.Column(5)
TextBox7.Value = ListBox1.Column(6)
End Sub

Değiştir ve sil butonları Textlerde veri olmadığı zaman çalışmaması için

Userform4'da

Private Sub CommandButton7_Click()
If TextBox1.Value = "" Then
MsgBox "Önce Listeden Seçmeniz gerek, Seçim"
Exit Sub
End If
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
For a = 1 To 7
Cells(sonsat, a) = Controls("TextBox" & a)
Next
ListBox1.RowSource = "a2:g" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

sil butonuna da aynı satırı ilave edin.

Userform6 yada aşağıdaki kodu

Private Sub CommandButton1_Click()
Sheets("TANITIM KARTI").Select
Range("c1").Select
Do While Not IsEmpty(ActiveCell)
   ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = TextBox1.Value
TextBox1.Value = ""
End Sub

Userform5 de de aynısını yalnız C1 değilde B1

Range("b1").Select

 

[bulentc76]

sayın xxrt ilgi ve alakanıza çok müteşekkirim.emeğinize sağlık.sıralama haricindeki tüm işlemler sayenizde çözüme kavuştu.kodların hepside istediğim gibi çalışıyor.lakin sırala butonlarını kullandığımda
00025
00026
00028
0005
0007
0010
0020
a-1
a-2
ggfhh

gibi sıralıyor burada 0005 ilkbaşa gelmesi gerekmezmi...yoksa excelin sıralamada kullandığı sayıların basamağı mantığı farklımı yoksa kodlamadanmı kaynaklanıyor
cevaplandırırsanız çok sevinirim.bunu bilmem işimi kolaylaştıracaktır.ilginize tekrar teşekkür ederim.

 

[xxrt]

Biçimlendrimeleri bir kontrol et.O sütunun isteğe uyarlanmış hali 00000 formatında.Bazı sayıların arasında -/?* olması sıralamada kullanılan kod'ların özelliğine bağlı olarak sıralama da başka biçim olarak algılayabilir.
Ayrıca kullandığınız stok kodları hepsinin aynı formatta olması grekmiyormu?Yani 00000 formatında.
Buna siz deneyerek çözüm bulabilirsiniz.Yada başka alternatifler düşünülebilir.
Kolay gelsin..