2 Combobox ile listvieve süzme için yardım

erkanselek · 1 Mart 2012

Husgvarna' Alıntı:
Başlıklardamı, aktarılanlardamı?

Her ikisindede

Husgvarna · 2 Mart 2012

erkanselek' Alıntı:
Her ikisindede

Son eklediğiniz dosyada sorun olmadı.Denermisiniz.
http://www.dosya.tc/server12/C43QJB/ButonileKAL_TE.xls.html

erkanselek · 2 Mart 2012

Husgvarna' Alıntı:
Son eklediğiniz dosyada sorun olmadı.Denermisiniz.
http://www.dosya.tc/server12/C43QJB/ButonileKAL_TE.xls.html

Eline aklına sağlık hocam çok teşekkürler son hali ekte çok güzel oldu...

Konuların birinde gördüm oradada sordum ama yeni konu açın dediler Listvievde anamenüde işleminin bittiği siparişi sildiğimde siparişler dosyasındanda silinip boşluklar yok sayılıyor listvievde boşluksuz olarak durabilirmi

erkanselek · 3 Mart 2012

Silme işlemi yapmak istiyorum
User formda olduğu gibi ana menü dede silme yapmaya çalışıyorum.

Husgvarna · 3 Mart 2012

erkanselek' Alıntı:
Silme işlemi yapmak istiyorum
User formda olduğu gibi ana menü dede silme yapmaya çalışıyorum.

Aşağıdaki kodları kullanın.

Kod:

Private Sub CommandButton15_Click()
R = MsgBox("Seçili Kayıt Sistemden Silinecek Devam mı?", vbYesNo)
If R = vbYes Then
t = ListView1.SelectedItem.Index + 2
Rows(t).Delete Shift:=xlUp
ListView1.ListItems.Clear
If Err > 0 Then Exit Sub
For s = 3 To Cells(65530, 1).End(xlUp).Row
ListView1.ListItems.Add , , Cells(s, 3).Value
y = ListView1.ListItems.Count
For a = 4 To 26
If a = 7 Then a = 10
If a = 18 Then a = 19
ListView1.ListItems(y).ListSubItems.Add , , Cells(s, a).Value
Next
Next
End If
End Sub

veya listenin çift tık altınada olabilir.

Kod:

 Private Sub ListView1_DblClick()

erkanselek · 3 Mart 2012

Husgvarna' Alıntı:

Aşağıdaki kodları kullanın.

Kod:

Private Sub CommandButton15_Click()
R = MsgBox("Seçili Kayıt Sistemden Silinecek Devam mı?", vbYesNo)
If R = vbYes Then
t = ListView1.SelectedItem.Index + 2
Rows(t).Delete Shift:=xlUp
ListView1.ListItems.Clear
If Err > 0 Then Exit Sub
For s = 3 To Cells(65530, 1).End(xlUp).Row
ListView1.ListItems.Add , , Cells(s, 3).Value
y = ListView1.ListItems.Count
For a = 4 To 26
If a = 7 Then a = 10
If a = 18 Then a = 19
ListView1.ListItems(y).ListSubItems.Add , , Cells(s, a).Value
Next
Next
End If
End Sub

veya listenin çift tık altınada olabilir.

Kod:

 Private Sub ListView1_DblClick()

Teşekürler hocam

erkanselek · 4 Mart 2012

Sayın Husgvarna;
Ana menüde sadece listviev değişmeden 1.comboboxta seçtiğim sayfada 2. combobox ile seçtiğim sipariş nosunu adetlerini toplayıp textboxa yazması sağlanabilirmi?
Yapmaya çalıştım ama beceremedim...

Husgvarna · 4 Mart 2012

erkanselek' Alıntı:
Sayın Husgvarna;
Ana menüde sadece listviev değişmeden 1.comboboxta seçtiğim sayfada 2. combobox ile seçtiğim sipariş nosunu adetlerini toplayıp textboxa yazması sağlanabilirmi?
Yapmaya çalıştım ama beceremedim...

Merhaba
Aşağıdaki kodları ekleyin/değiştirin.

Kod:

 Private Sub ComboBox1_Change()
On Error Resume Next
ComboBox2.Clear
For a = 2 To Sheets(ComboBox1.Text).Cells(65000, 3).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets(ComboBox1.Text).Range("c1:c" & a), Sheets(ComboBox1.Text).Cells(a, 3)) = 1 Then _
ComboBox2.AddItem Sheets(ComboBox1.Text).Cells(a, 3)
Next
End Sub



Private Sub ComboBox2_Change()
TextBox1 = 0: TextBox2 = 0
For a = 2 To Sheets(ComboBox1.Text).Cells(65000, 3).End(xlUp).Row
If Sheets(ComboBox1.Text).Cells(a, 3) = ComboBox2.Text Then
TextBox1 = TextBox1 + 1
TextBox2.Text = TextBox2.Text + Sheets(ComboBox1.Text).Cells(a, 8)
End If
Next
End Sub

erkanselek · 4 Mart 2012

Husgvarna' Alıntı:

Merhaba
Aşağıdaki kodları ekleyin/değiştirin.

Kod:

 Private Sub ComboBox1_Change()
On Error Resume Next
ComboBox2.Clear
For a = 2 To Sheets(ComboBox1.Text).Cells(65000, 3).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets(ComboBox1.Text).Range("c1:c" & a), Sheets(ComboBox1.Text).Cells(a, 3)) = 1 Then _
ComboBox2.AddItem Sheets(ComboBox1.Text).Cells(a, 3)
Next
End Sub



Private Sub ComboBox2_Change()
TextBox1 = 0
For a = 2 To Sheets(ComboBox1.Text).Cells(65000, 3).End(xlUp).Row
If Sheets(ComboBox1.Text).Cells(a, 3) = ComboBox2.Text Then _
TextBox1 = TextBox1 + 1
Next
End Sub

Hocam ben yanlış anlatmışım ama bu kalsın bir textbox daha ekliyeyim h sütunundaki adetlerin topalamını almak istiyorum...

Husgvarna · 4 Mart 2012

erkanselek' Alıntı:
textbox daha ekliyeyim h sütunundaki adetlerin topalamını almak istiyorum...

Yukarıdaki kodlar değişti; "ComboBox2_Change" kodlarını değiştirin yeterli.

erkanselek · 4 Mart 2012

Husgvarna' Alıntı:
Yukarıdaki kodlar değişti; "ComboBox2_Change" kodlarını değiştirin yeterli.

Çok teşekkürler Hocam Geldiğimiz daha doğrusu sayenizde gelinen nokta ektedir.

Husgvarna · 4 Mart 2012

erkanselek' Alıntı:
Gelinen nokta ektedir.

Merhaba
Fikriniz çok güzel.

erkanselek · 4 Mart 2012

Husgvarna' Alıntı:
Merhaba
Fikriniz çok güzel.

Merhaba Hocam
Ben sadece yapmak istediklerimi düşünüyorum.
Ama siz bunları çok iyibir bilgi ile hemen gerçekleştiriyorsunuz..
Şimdiki amacım bu sipariş numaralarına göre yenibir excel kitabı açabilirse içinede abata göre sayfalar açıp bu yaptıklarınızı o düzende uygulanabilirliği olacak

erkanselek · 5 Mart 2012

erkanselek' Alıntı:
Merhaba Hocam
Ben sadece yapmak istediklerimi düşünüyorum.
Ama siz bunları çok iyibir bilgi ile hemen gerçekleştiriyorsunuz..
Şimdiki amacım bu sipariş numaralarına göre yenibir excel kitabı açabilirse içinede abata göre sayfalar açıp bu yaptıklarınızı o düzende uygulanabilirliği olacak

Örnek bunun gibi satır halinnde sipariş lerim var burada ay ismi ile kitap açıyor benimki c sütunundaki sipariş nosuna göre açacak e sütunundaki ebatıda sayfalardaki 55 ise onun içine atacak tabiki gene düşünüyorum sadece sonra comboboxlarla sipariş nosuna göre kitaplardan rayacak gibi

çok fazlamı hayal ettim ne...

erkanselek · 13 Mart 2012

Merhaba Hocam
Listviev de dblclick ile ilgili bir sorunum var option butonlarındada seçeneklerin gelme imkanı varmı

Husgvarna · 13 Mart 2012

erkanselek' Alıntı:
Merhaba Hocam
Listviev de dblclick ile ilgili bir sorunum var option butonlarındada seçeneklerin gelme imkanı varmı

Sıra no ları kaldırdığnız için sorun çıkmış.
İlgili bölümleri aşağıdaki değişin.

Kod:

Private Sub ListView1_DblClick()

a = ListView1.SelectedItem.Index + 2
TextBox1 = Cells(a, 3)
'.........................
'.........................
'.........................
'.........................

Kod:

  Private Sub UserForm_Initialize()
'.........................
'.........................
'.........................
'.........................


For s = 3 To Cells(65530, 1).End(xlUp).Row
ListView1.ListItems.Add , , Cells(s, 3).Value
y = ListView1.ListItems.Count
'.........................
'.........................
'.........................

OptionButton sayfa seçmek içinse:

Kod:

 Private Sub OptionButton1_Click()

Sheets("ARMÜR1").Select
Unload Me
UserForm1.Show

End Sub

erkanselek · 13 Mart 2012

OptionButton sayfa seçmek içinse:

Kod:

 Private Sub OptionButton1_Click()

Sheets("ARMÜR1").Select
Unload Me
UserForm1.Show

End Sub

[/QUOTE]

Yok Dbl click yapınca seçili gelmesini istiyordum

Bu Kod ile oluyor
If Cells(a, 7) = "A" Then
OptionButton1.Value = True
End If
If Cells(a, 7) = "J" Then
OptionButton2.Value = True
End If

Çok teşekkürler bu konunun dışında kitap açmayı başardım içine sayfa açmak ile bilgi almam mümkünmü yeni konu açayımmı

erkanselek · 13 Mart 2012

Listvievde çift tıklayınca textboxlara gelen bilgilerle textbox1 e göre kitap açıyor bu açılan kitapta textbox 2 ye göre sayfa açmasını sağlayabilirmiyiz

Dosya büyüdüğü için yüklenemiyor

Kod Bu şekilde
Private Sub CommandButton10_Click()

If TextBox1 = "" Then: MsgBox "Sipariş No ?", vbCritical, " EKSİK BİLGİ": Exit Sub
If TextBox3 = "" Then: MsgBox "EN?", vbCritical, " EKSİK BİLGİ": Exit Sub
If TextBox4 = "" Then: MsgBox "BOY ?", vbCritical, " EKSİK BİLGİ": Exit Sub

If MsgBox(TextBox1.Text & " Tarihli Bu İşlem Kaydedilsin mi ? ", vbQuestion + vbYesNo, " K A Y I T") = vbNo Then Exit Sub
If CreateObject("scripting.filesystemobject").fileexists(ThisWorkbook.Path & "\SİPARİŞLER\" & TextBox1.Text & ".xls") Then
'Call MaiF
Else
If MsgBox(TextBox1.Text & " Ayına Ait Dosya Kayıtlarda Bulunamadı." & vbLf & "Dosya Oluşturulsun mu ?", vbQuestion + vbYesNo, " B İ L G İ") = vbNo Then Exit Sub
CreateObject("scripting.filesystemobject").copyfile ThisWorkbook.Path & "\SİPARİŞLER\SABLON\SABLON.xls", ThisWorkbook.Path & "\SİPARİŞLER\" & TextBox1.Text & ".xls"
'Call MaiF
End If
If Not Sheets(TextBox2.Text) = Empty Then
For i = 1 To Worksheets.Count
If Sheets(i).Name = Sheets(TextBox2.Text) Then
MsgBox "Bu isimli bir sayfa mevcut..... !"
Exit Sub
End If
Next
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = Sheets(TextBox2.Text)
End If
Set NewSh = Nothing

End Sub

erkanselek · 13 Mart 2012

Tmm Hocam oldu

Hocam klasörün içindeki excel kitaplarını bir combobox ta listeleyebilirmiz

Husgvarna · 14 Mart 2012

erkanselek' Alıntı:
Tmm oldu
klasörün içindeki excel kitaplarını bir combobox ta listeleyebilirmiz

Şöyle yapın .

Kod:

 ComboBox1.Clear
a = ThisWorkbook.Path & "\SİPARİŞLER"
Set b = CreateObject("scripting.filesystemobject")
Set c = b.getfolder(a)
    For Each d In c.Files
        ComboBox1.AddItem d.Name
    Next

2 Combobox ile listvieve süzme için yardım

erkanselek

Husgvarna

erkanselek

Ekli dosyalar

erkanselek

Ekli dosyalar

Husgvarna

erkanselek

erkanselek

Ekli dosyalar

Husgvarna

erkanselek

Husgvarna

erkanselek

Ekli dosyalar

Husgvarna

erkanselek

erkanselek

erkanselek

Ekli dosyalar

Husgvarna

erkanselek

erkanselek

erkanselek

Husgvarna