[Yardım]  Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

Kulanıcı arayüz formu

Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#1)  btanju » 02 Tem 2018 11:10

Günaydın;

Aşağıda tarafınıza göndermiş olduğum kod çalışmamaktadır. Acaba hata neyden kaynaklanmaktadır. Yardımcı olabilirseniz çok sevinirim.

Private Sub ComboBox1_Change()
ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 25

For Each isim In Worksheets("TümAnaData").Range("C2:C" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("C2:C100000")) + 1)
If UCase(LCase(isim)) Like UCase(LCase(ComboBox1)) & "*" Then
liste = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(liste, 0) = isim
ListBox1.List(liste, 1) = isim.Offset(0, 1)
ListBox1.List(liste, 2) = isim.Offset(0, 2)
ListBox1.List(liste, 3) = isim.Offset(0, 3)
End If
Next
End Sub
Private Sub ComboBox2_Change()
ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 25

For Each isim In Worksheets("TümAnaData").Range("D3:D" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("D3:D100000")) + 1)
If UCase(LCase(isim)) Like UCase(LCase(ComboBox2)) & "*" Then
liste = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(liste, 0) = isim.Offset(0, -1)
ListBox1.List(liste, 1) = isim
ListBox1.List(liste, 2) = isim.Offset(0, 1)
ListBox1.List(liste, 3) = isim.Offset(0, 2)

End If
Next
End Sub
Private Sub UserForm_Initialize()

ComboBox1.RowSource = "TümAnaData!C3:C" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("C3:C100000"))
ComboBox2.RowSource = "TümAnaData!D2:D" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("D3:D100000"))

ListBox1.RowSource = "TümAnaData!B3:Z" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("C3:C100000"))
ListBox1.ColumnCount = 25
ListBox1.ColumnWidths = "50;50;50;50;80;40;60;100;70;90;90;157;157;50;50;50;50;50;100;157;157;157;157;100;100"
ComboBox1.SetFocus

End Sub
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#2)  Ali ÖZ » 02 Tem 2018 15:43

Merhaba,
Hata mesajını ve dosyanızı paylaşır mısınız.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9532
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekte

İleti#3)  btanju » 02 Tem 2018 15:49

Ali ÖZ yazdı:Merhaba,
Hata mesajını ve dosyanızı paylaşır mısınız.


Dosya Eklenmiştir. Birde ComboBox1,ComboBox2,ComboBox3 de gelen çift kayıtları da teke düşürmemiz mümkün müdür.
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#4)  Ali ÖZ » 02 Tem 2018 15:50

Dosya görünmüyor.Boyutu 1 Mb üzerinde iste 1 Mb ın altına düşürüp yükleyin.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9532
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

Cevap: Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekte

İleti#5)  btanju » 02 Tem 2018 15:52

Ali ÖZ yazdı:Merhaba,
Hata mesajını ve dosyanızı paylaşır mısınız.


Dosya Eklenmiştir. Birde ComboBox1,ComboBox2,ComboBox3 de gelen çift kayıtları da teke düşürmemiz mümkün müdür.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

Cevap: Cevap: Cevap: Kod Çalışmamaktadır. Yardımlarınızı Bek

İleti#6)  btanju » 02 Tem 2018 16:59

btanju yazdı:
Ali ÖZ yazdı:Merhaba,
Hata mesajını ve dosyanızı paylaşır mısınız.


Dosya Eklenmiştir. Birde ComboBox1,ComboBox2,ComboBox3 de gelen çift kayıtları da teke düşürmemiz mümkün müdür.


İlgili olacak bir arkadaş yardımcı olabilir mi?
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#7)  Ali ÖZ » 02 Tem 2018 18:25

Dosyanızda ne combobox ne de listbox göremedim,kontrol edebilir misiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9532
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekte

İleti#8)  btanju » 02 Tem 2018 21:00

Ali ÖZ yazdı:Dosyanızda ne combobox ne de listbox göremedim,kontrol edebilir misiniz.

Ali Bey Tekrar yükledim tekrar kontrol edebilmeniz mümkün müdür.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

Cevap: Cevap: Cevap: Kod Çalışmamaktadır. Yardımlarınızı Bek

İleti#9)  btanju » 02 Tem 2018 21:02

btanju yazdı:
Ali ÖZ yazdı:Dosyanızda ne combobox ne de listbox göremedim,kontrol edebilir misiniz.

Ali Bey Tekrar yükledim tekrar kontrol edebilmeniz mümkün müdür.


Ali bey hem süzme hemde combobox lardaki çift kayıtları teke düşürmemiz mümkünmüdür.
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

Cevap: Cevap: Cevap: Cevap: Kod Çalışmamaktadır. Yardımların

İleti#10)  btanju » 05 Tem 2018 11:00

btanju yazdı:
btanju yazdı:
Ali ÖZ yazdı:Dosyanızda ne combobox ne de listbox göremedim,kontrol edebilir misiniz.

Ali Bey Tekrar yükledim tekrar kontrol edebilmeniz mümkün müdür.


Ali bey hem süzme hemde combobox lardaki çift kayıtları teke düşürmemiz mümkünmüdür.



Ali Bey yoğunsunuz herhalde ve sitede başka kimse ilgilenmedi yardım edemediniz ama genede teşekkür ederim.
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#11)  feraz » 07 Tem 2018 14:39

Merhaba.

Deneyebilirsiniz.Comboboxlara benzersiz veriler geliyor.
Zaten süzmede problem var.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#12)  feraz » 07 Tem 2018 16:02

Bu dosyadada comboları ayarladım.

Belki hata felan olabilir deneyebilirsiniz.

İnşAllah comboları biribirine bağlantılı istemezsiniz sonra :)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#13)  feraz » 07 Tem 2018 20:52

Son yolladığım koddaki Private Sub UserForm_Initialize() alt kodlarındaki

Kod: Tümünü seç
ListBox1.RowSource = "TümAnaData!B3:Z" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("B3:Z100000"))

yerine alttaki olacak.Kim yazdı budları olamaz :)İnşAllah kendi kendime yazıp durmuyorumdur.

Kod: Tümünü seç
ListBox1.RowSource = "TümAnaData!B3:Z" & Worksheets("TümAnaData").Range("C" & Rows.Count).End(3).Row
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Cevap: Cevap: Kod Çalışmamaktadır. Yardımların

İleti#14)  btanju » 10 Tem 2018 13:22

btanju yazdı:
btanju yazdı:
Ali ÖZ yazdı:Merhaba,
Hata mesajını ve dosyanızı paylaşır mısınız.


Dosya Eklenmiştir. Birde ComboBox1,ComboBox2,ComboBox3 de gelen çift kayıtları da teke düşürmemiz mümkün müdür.


İlgili olacak bir arkadaş yardımcı olabilir mi?


Allahtan bir yardım istedik yani olumlu yada bir olumsuz insan cevap atar
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#15)  feraz » 10 Tem 2018 13:53

Sadece 9.cu mesaja kadarmı okuyabiliyor sunuz?
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekte

İleti#16)  btanju » 10 Tem 2018 14:35

feraz yazdı:Sadece 9.cu mesaja kadarmı okuyabiliyor sunuz?



Teşekkürler.
Kullanıcı avatarı
btanju
Yeni Başlamış
 
Kayıt: 28 Haz 2018 17:18
Meslek: Özel Sektör
Yaş: 33
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Güngören

Cevap: Kod Çalışmamaktadır. Yardımlarınızı Beklemekteyim.

İleti#17)  feraz » 10 Tem 2018 14:45

--)(
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5438
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum UserForm

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe