comboboxta yapılan süzme

[kiriktesti]

bazı eksikleri var onlara bir çare bulabilir miyiz.
1- plaka kısmına yaptığım comboboxta aradığım plakaya ulaşmam çok zor oluyor hepsine bakmam gerekiyor. bir de aynı plakayı kaç kere yazılmışsa comboboxta görüyorum. bu kısım ben plakanın ilk harfini yazarken aramaya başlayıp ben yazmaya devam ettikçe bulabilir mi. plaka bağlı bilgileri forma yazdırabildim. işimi bayağı hafifletti.
2-a plakalı araca ait yeni kayıdı girmeden eskilerine bakmam lazım ki garanti kapsamındaki işleri atlamayayım. ona göre not kısmına not ekleyeyim.
3-sipariş tarihi option butonlu olabilir mi yani seçili iken elle istediğim tarihi girebileyim. seçili değilken o günün tarihini otomatik textbox3 e yazsın.
4-kayıt yapılırken b-srv sütununa 1 yazacak. bu şekilde onarımda kaç aracımız var bilebileceğiz. çıkış tarihi excel sayfasında elle yazıldığında da b-servsteki "1" i silip b-çıkan na yazacak. hocam teşekkür ederim

 

[hamitcan]

Birşeyler yaptım. Eki inceleyin.

 

[kiriktesti]

hocam çağır butonunun görevini şu şekilde değiştirsek. butona basıldığında arkadaki ecxel sayfasını süzsün.
bir de forma yazdıklarım kaydete tıkladığımda safyaya gidiyor ama görünmüyor.
b-srv 1 olmuş fakat çıkış tarihi yazdığımda b-srv deki 1 silinip b-çkn a yazılmalı
şimdiden teşekkür ederim

 

[hamitcan]

Mevcut kodları, aşağıdakiler ile değiştirin.

Private Sub CommandButton1_Click()
Sheets(1).Activate
Range("a5").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a5").Value = "" Then
Range("a5") = 1
Range("a5").Select
Else
    ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If

ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 5).Value = TextBox2.Text
ActiveCell.Offset(0, 2).Value = TextBox7.Text
ActiveCell.Offset(0, 10).Value = TextBox3.Text
ActiveCell.Offset(0, 7).Value = TextBox10.Text
ActiveCell.Offset(0, 3).Value = TextBox4.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
ActiveCell.Offset(0, 4).Value = TextBox9.Text
ActiveCell.Offset(0, 9).Value = TextBox5.Text
ActiveCell.Offset(0, 14).Value = TextBox6.Text
ActiveCell.Offset(0, 11).Value = 1

TextBox10.SetFocus
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""

acik = "İşlem Tamamlandı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
bas = "KAYIT İŞLEMİ"
MsgBox acik, buton, bas
End Sub

Private Sub CommandButton2_Click()
Range("H:H").Select

Selection.Find(ComboBox2).Select
TextBox10 = ActiveCell.Offset(0, 0)
TextBox7 = ActiveCell.Offset(0, -5)
TextBox8 = ActiveCell.Offset(0, 1)
TextBox9 = ActiveCell.Offset(0, -3)
TextBox1 = ActiveCell.Offset(0, -6)

[a4:o4].AutoFilter Field:=8, Criteria1:=ComboBox2
End Sub

Private Sub CheckBox1_Click()

If CheckBox1 Then
CheckBox1.Caption = "İstediğim Tarih"
TextBox3 = ""
Else
CheckBox1.Caption = "Günün Tarihi"
TextBox3 = Format(Date, "dd/mm/yyyy")
End If
End Sub

Private Sub TextBox3_Enter()
If TextBox3.Text = "" Then TextBox2.Text = "  .  .    "
TextBox2.SelStart = 0
End Sub

Private Sub UserForm_activate()
ComboBox2.RowSource = "sayfa1!H5:H" & WorksheetFunction.CountA(Worksheets("sayfa1").Range("H1:H65536"))
TextBox3.Value = Format(Date, "dd.mm.yyyy")
End Sub

 

[kiriktesti]

Hocam Forma ÇaĞirdiĞimiz Bİlgİlerİ Sayfaya Eksİk Yaziyor

 

[kiriktesti]

Hata Verİyor Ve Eskİk Yaziyor

DedİĞİnİz Gİbİ Yaptim Hocam
Textbox10 Hatasi Verİyor
Bİz Onu Kullanmiyoruz Kİ Artik
Bİr De Sayfaya Yazmiyor Bazi Gİrİlen Verİlerİ

 

[kiriktesti]

Hocam Dosyanin Son Halİnİ Yolluyorum
Bİr Bakabİlİr Mİsİnİz

 

[kiriktesti]

Bİr De Userformu Trasparan Yapabİlİr Mİyİz
SÜzme YaptiĞimda Altidakİlerİ Daha Rahat Okuyarak Kontrol Edebİlmek İÇİn

 

[hamitcan]

Mevcut kodları, aşağıdakiler ile değiştirin.

Private Sub CommandButton1_Click()
If Sayfa1.AutoFilterMode Then [a4:o4].AutoFilter

Sheets(1).Activate
Range("a5").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a5").Value = "" Then
Range("a5") = 1
Range("a5").Select
Else
    ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If

ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 5).Value = TextBox2.Text
ActiveCell.Offset(0, 2).Value = TextBox7.Text
ActiveCell.Offset(0, 10).Value = TextBox3.Text
ActiveCell.Offset(0, 7).Value = ComboBox2
ActiveCell.Offset(0, 3).Value = TextBox4.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
ActiveCell.Offset(0, 4).Value = TextBox9.Text
ActiveCell.Offset(0, 9).Value = TextBox5.Text
ActiveCell.Offset(0, 14).Value = TextBox6.Text
ActiveCell.Offset(0, 11).Value = 1

ComboBox2.SetFocus
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
[a4:o4].AutoFilter Field:=8, Criteria1:=ComboBox2

acik = "İşlem Tamamlandı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
bas = "KAYIT İŞLEMİ"
MsgBox acik, buton, bas
End Sub

Private Sub CommandButton2_Click()
If Sayfa1.AutoFilterMode Then [a4:o4].AutoFilter
Range("H:H").Select
Selection.Find(ComboBox2).Select
TextBox10 = ActiveCell.Offset(0, 0)
TextBox7 = ActiveCell.Offset(0, -5)
TextBox8 = ActiveCell.Offset(0, 1)
TextBox9 = ActiveCell.Offset(0, -3)
TextBox1 = ActiveCell.Offset(0, -6)

[a4:o4].AutoFilter Field:=8, Criteria1:=ComboBox2
End Sub

Private Sub CheckBox1_Click()

If CheckBox1 Then
CheckBox1.Caption = "İstediğim Tarih"
TextBox3 = ""
Else
CheckBox1.Caption = "Günün Tarihi"
TextBox3 = Format(Date, "dd/mm/yyyy")
End If
End Sub

Private Sub TextBox3_Enter()
If TextBox3.Text = "" Then TextBox2.Text = "  .  .    "
TextBox2.SelStart = 0
End Sub

Private Sub UserForm_activate()
[a4:o4].AutoFilter
ComboBox2.RowSource = "sayfa1!H5:H" & WorksheetFunction.CountA(Worksheets("sayfa1").Range("H1:H65536"))
TextBox3.Value = Format(Date, "dd.mm.yyyy")
End Sub

Not: Belirteyim; verdiğiniz kodlar, sadece yeni bir kayıt oluştuyor. Mevcut kayıtları değiştirmek için, koda yeni eklentiler yapmak gerekiyor.

 

[kiriktesti]

hocam mevcut kayıtlarda değişiklik yapmak istemiyorum.
sadece eski kayıtlata gözatmak istiyorum
yeni kayıt yazarken not ekleyebilmek için
şimdi bu kodları ekliyorum
hemen dönüyorum hocam
lütfen ayrılmayın

 

[kiriktesti]

hocam olmuş elinize sağlık
tranparanlığı nsıl yapabiirim

 

[hamitcan]

Forumda örnekler mevcut diye biliyorum.

 

[kiriktesti]

son kez

hocam örnekteki listbox ı kendi formuma nasıl uygularım.bugün haddi iaştığımı biliyorum ama son kez rica ediyorum.

 

[hamitcan]

hocam örnekteki listbox ı kendi formuma nasıl uygularım.bugün haddi iaştığımı biliyorum ama son kez rica ediyorum.

Sitede "Uygulamalı Excel Eğitimi" başlığı adında bir bölüm var. Öncelikle burayı incelemenizi öneririm. Ayrıca çalışmanızda neler yapmak istediğinizi belirlemeniz, sorununuzu yarı yarıya çözmeniz demektir.

 

[kiriktesti]

teşekkürler