[Yardım]  comboboxtan listboxa veri süzme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

comboboxtan listboxa veri süzme

İleti#1)  serhat zengin » 19 Eyl 2019 09:47

COMBOBOXA VERİYİ GİRDİKÇE LİSTBOXTA SÜZÜLMESİNİ NASIL SAĞLARIM..
userform13 üzerinde combobox1 ve listbox6 adında nesnelerim var sayfamın adı CAM_AYNA_SIPARIS ve sayfada 10 sütun var.
comboboxum b2 ile b13102 arasında işlem yapıyor.comboboxa veriyi girdikçe her girdiğim harfte bu 9 sutunun süzme yapmasını nasıl sağlarım örnek kod gösterebilir misiniz?
forumda bulunan baslıkları arastırdım bir kaç kod ve işlem denedim fakat başarılı olamadım malesef.
şimdiden teşekkür ederim
Kullanıcı avatarı
serhat zengin
Yeni Başlamış
 
Kayıt: 21 Ağu 2019 08:05
Meslek: mobilyacıs
Yaş: 27
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/inegöl

Cevap: comboboxtan listboxa veri süzme

İleti#2)  serhat zengin » 19 Eyl 2019 10:24

dosyayı yukledim. işlem yapmak istediğim excel sayfası userform13 te çalısıyor. combobox1 e girdiğim değerin listbox1 de süzülmesini istiyorum yardımcı olabilir misiniz ?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
serhat zengin
Yeni Başlamış
 
Kayıt: 21 Ağu 2019 08:05
Meslek: mobilyacıs
Yaş: 27
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/inegöl

Cevap: comboboxtan listboxa veri süzme

İleti#3)  mcb1991 » 19 Eyl 2019 11:00

Combobox'a yazılacak

Kod: Tümünü seç
Private Sub ComboBox1_Change()
Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
ReDim myarr(1 To 30, 1 To 1)
With Worksheets("CAM_AYNA_SIPARIS")
Me.ListBox1.RowSource = ""
If .FilterMode Then .ShowAllData
Set k = .Range("A1:K999999").Find(ComboBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 30, 1 To a)
For j = 1 To 30
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = .Range("A1:K999999").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub



Listbox1'e yazılacak kod

Kod: Tümünü seç
Dim S1 As Worksheet
Set S1 = Sheets("CAM_AYNA_SIPARIS")
S1.Select
x = ListBox1.ListIndex + 6
   S1.Cells(x, 2).Select
On Error Resume Next
    ComboBox1.Value = ListBox1.Column(2)
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

Cevap: comboboxtan listboxa veri süzme

İleti#4)  mcb1991 » 19 Eyl 2019 11:01

hocam listbox "End Sub" kodunu kopyalamamışım. kodun sonuna "End Sub" eklersiniz.
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: comboboxtan listboxa veri süzme

İleti#5)  serhat zengin » 19 Eyl 2019 11:42

Teşekkür ederim hocam elinize sağlık kod süper çalısıyor birde comboboxta otomatik doldurma var onu nasıl engelleyebilirim.
Kullanıcı avatarı
serhat zengin
Yeni Başlamış
 
Kayıt: 21 Ağu 2019 08:05
Meslek: mobilyacıs
Yaş: 27
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/inegöl

Cevap: comboboxtan listboxa veri süzme

İleti#6)  mcb1991 » 19 Eyl 2019 12:31

Onu bilmiyorum hocam, bende merak ediyorum :)
Bende sizin gibi bir program hazırlıyorum kodları bulmuştum paylaştım. Bilen bir arkadaş varsa paylaşırsa memnun olurum. Aynı sorun bendede var.
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: comboboxtan listboxa veri süzme

İleti#7)  serhat zengin » 19 Eyl 2019 12:38

çok fena kasıyor süzme işlemi sırasında o yüzden comboboxtan kaldırıp yan tarafa bi arama textboxu yapacagım mecbur :)
Kullanıcı avatarı
serhat zengin
Yeni Başlamış
 
Kayıt: 21 Ağu 2019 08:05
Meslek: mobilyacıs
Yaş: 27
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/inegöl

Cevap: comboboxtan listboxa veri süzme

İleti#8)  serhat zengin » 19 Eyl 2019 12:51

https://eksiup.com/p/ms132310a5m9


bu sekilde her aramadan sonra kendini tekrar ediyor bunu nasıl engelleriz
Kullanıcı avatarı
serhat zengin
Yeni Başlamış
 
Kayıt: 21 Ağu 2019 08:05
Meslek: mobilyacıs
Yaş: 27
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/inegöl

Cevap: comboboxtan listboxa veri süzme

İleti#9)  mcb1991 » 19 Eyl 2019 13:33

bendede çok kasıyor bende kaldırmıştım :D Textboxla arama yapıyorum.

Bir sorum var hocam,

Combobox'a bir isim yazıyorum. O kişinin durumunu güncellemek istiyorum. Fakat kayıt et dediğimde combobox'ta yazan ismi değilde, 5. satırdaki kişiy değiştiyor. (Kodla biraz oynadım ama +1 -1 başka yerlere aynı ismi kaydı ediyor.)

Kod: Tümünü seç
Private Sub CommandButton9_Click()
Dim K1 As Worksheet, i
Set K1 = Sheets("Karzihasen")
    If ComboBox16 = Empty Then MsgBox "Lütfen Değişiklik yapılacak Arıza Kaydını seçiniz.": ComboBox16.SetFocus: Exit Sub

   '3 - Yapılacak değişiklik işlemi için kullanıcıdan onay alıyoruz.
    If MsgBox("Seçtiğiniz kayıt üzerinde değişiklik yapılacaktır onaylıyor musunuz ?", vbCritical + vbYesNo, "Dikkat !") = vbYes Then
    x = ListBox2.ListIndex + 6
   K1.Cells(x, 2).Select
    '5 - Eğer kullanıcı değişiklik işlemi için onay vermişse verileri ilgili hücrelere aktarıyoruz.
    K1.Cells(x, "B") = ComboBox16.Text
    K1.Cells(x, "C") = TextBox8.Text
    K1.Cells(x, "E") = TextBox6.Text
    MsgBox "Kayıt düzeltme işlemi tamamlanmıştır.", vbInformation, "Kayıt Düzeltme İşlemi"
    Else
    MsgBox "Kayıt düzeltme işlemi iptal edilmiştir.", vbInformation, "İşlem İptali"
    End If
For i = 6 To 6
Controls("TextBox" & i).Value = ""
Next

End Sub


Comboboxda yazılı ismi excelde bulacak ve ismin olduğu satırda kayıd işlemi yapacak. Nasıl yapabilir biliyor musunuz?

Bende şuanda çalışma şekli listbox2 çift tıklıyorum combobox doluyor sonra düzelt diyorum satırı orada düzeltiyor fakat combobox'a direk isim yazdığımda bunu yapmıyor. [ilginc]
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

Cevap: Cevap: comboboxtan listboxa veri süzme

İleti#10)  mcb1991 » 19 Eyl 2019 13:44

serhat zengin yazdı:https://eksiup.com/p/ms132310a5m9


bu sekilde her aramadan sonra kendini tekrar ediyor bunu nasıl engelleriz


hocam benim excel dosyamda tekrar etmiyor ama sizin dosya uyguladığımda 6 defa tekrar ediyor biraz baktım ama excel'da kodlama işini bilmiyorum. sonu çözemedim. yardım bekleyelim.
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

Cevap: comboboxtan listboxa veri süzme

İleti#11)  serhat zengin » 19 Eyl 2019 14:48

valla hocam bende cok anlamıyorum kod yazmaktan. hazır kodlarla yapıyorum o yuzden :)
Kullanıcı avatarı
serhat zengin
Yeni Başlamış
 
Kayıt: 21 Ağu 2019 08:05
Meslek: mobilyacıs
Yaş: 27
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/inegöl

Cevap: Cevap: comboboxtan listboxa veri süzme

İleti#12)  Feyzullah » 19 Eyl 2019 16:34

serhat zengin yazdı:https://eksiup.com/p/ms132310a5m9
bu sekilde her aramadan sonra kendini tekrar ediyor bunu nasıl engelleriz


Alternatif olarak aşağıdaki kodu deneyin. Kodları yeni eklediğiniz Textbox kodunun içeriğine ekleyiniz. Gerekirse kod başlığındaki Textbox numarasını düzeltin.

Kod: Tümünü seç
Private Sub TextBox15_Change()
'' www.ExcelDestek.Com // Feyzullah // Metehan8001
Me.ListBox1.RowSource = vbNullString
Dim dgr
() As Variant
With Sheets
("CAM_AYNA_SIPARIS")
'Sütün başlıkları'
For sut = 1 To 11
ReDim Preserve dgr
(1 To 11, 1 To 1)
dgr(sut, 1) = .Cells(1, sut)
Next sut
say 
= 1
'Aranan Eşleşen satırlar'
For a = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If 
.Cells(a, 2) Like "*" & UCase(Replace(Replace(Me.TextBox15.Text, "i", "İ"), "ı", "I")) & "*" Then
say 
= say + 1
ReDim Preserve dgr
(1 To 11, 1 To say)
For sut = 1 To 11
dgr
(sut, say) = .Cells(a, sut)
Next sut
End If
Next a
End With

With Me
.ListBox1
.RowSource = vbNullString
.Clear
If IsEmpty
(say) Then Exit Sub
.ColumnCount = UBound(dgr())
.
Column = dgr
End With
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: comboboxtan listboxa veri süzme

İleti#13)  Feyzullah » 19 Eyl 2019 16:37

mcb1991 yazdı:bendede çok kasıyor bende kaldırmıştım :D Textboxla arama yapıyorum.

Bir sorum var hocam,

Combobox'a bir isim yazıyorum. O kişinin durumunu güncellemek istiyorum. Fakat kayıt et dediğimde combobox'ta yazan ismi değilde, 5. satırdaki kişiy değiştiyor. (Kodla biraz oynadım ama +1 -1 başka yerlere aynı ismi kaydı ediyor.)

Kod: Tümünü seç
Private Sub CommandButton9_Click()
Dim K1 As Worksheet, i
Set K1 = Sheets("Karzihasen")
    If ComboBox16 = Empty Then MsgBox "Lütfen Değişiklik yapılacak Arıza Kaydını seçiniz.": ComboBox16.SetFocus: Exit Sub

   '3 - Yapılacak değişiklik işlemi için kullanıcıdan onay alıyoruz.
    If MsgBox("Seçtiğiniz kayıt üzerinde değişiklik yapılacaktır onaylıyor musunuz ?", vbCritical + vbYesNo, "Dikkat !") = vbYes Then
    x = ListBox2.ListIndex + 6
   K1.Cells(x, 2).Select
    '5 - Eğer kullanıcı değişiklik işlemi için onay vermişse verileri ilgili hücrelere aktarıyoruz.
    K1.Cells(x, "B") = ComboBox16.Text
    K1.Cells(x, "C") = TextBox8.Text
    K1.Cells(x, "E") = TextBox6.Text
    MsgBox "Kayıt düzeltme işlemi tamamlanmıştır.", vbInformation, "Kayıt Düzeltme İşlemi"
    Else
    MsgBox "Kayıt düzeltme işlemi iptal edilmiştir.", vbInformation, "İşlem İptali"
    End If
For i = 6 To 6
Controls("TextBox" & i).Value = ""
Next

End Sub


Comboboxda yazılı ismi excelde bulacak ve ismin olduğu satırda kayıd işlemi yapacak. Nasıl yapabilir biliyor musunuz?

Bende şuanda çalışma şekli listbox2 çift tıklıyorum combobox doluyor sonra düzelt diyorum satırı orada düzeltiyor fakat combobox'a direk isim yazdığımda bunu yapmıyor. [ilginc]


Eğer listboxa süzerek (filtreleme yaparak) veri çekiyorsan artı ve eksi ne değer girersen gir yanlış kişiyi güncellensin. Bunun için sıra numarası, Tc no vs. benzersiz bir değeri buldurarak veya döngü ile eşleştirerek düzeltme yapmalısın.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: comboboxtan listboxa veri süzme

İleti#14)  serhat zengin » 20 Eyl 2019 10:47

Onu bilmiyorum hocam youtubda bir video var bul değiştir sil yazdır diye. ona bi bakın belki işinizi görebilir.
Bir soru daha soracagım https://eksiup.com/p/ms132310a5m9 bu görselde görünen geldi yazan kısımlar normalde excel çalısma sayfasında gizli yani filtreme özelliğiyle gizli olanları kapatıyorum sadece gelmeyen siparişler görünüyor fakat listboxta geldi olanlarda yani gizli olanlarda görünüyor bunu nasıl engellerim
Kullanıcı avatarı
serhat zengin
Yeni Başlamış
 
Kayıt: 21 Ağu 2019 08:05
Meslek: mobilyacıs
Yaş: 27
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/inegöl


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

cron
Bumerang - Yazarkafe