[Yardım]  Hücrede açılır tekli liste ve ismi ile arama

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

Hücrede açılır tekli liste ve ismi ile arama

İleti#1)  Bedrettin DEMİRCİ » 04 Tem 2019 11:28

Merhaba arkadaşlar
Ekli dosyada "P1" hücresinde açılır liste var
Verileri "D" sütunundan alıyor ama aynısından ne kadar varsa hepside görünüyor
ve aramak istediğim ismi yazdığım zaman bulmuyor
Olabilir mi
Yardımcı olabilirmisiniz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#2)  tasad » 05 Tem 2019 10:31

P1 hücresine 2-3 harf yazıp yanındaki liste butonuna tıklayın.Dosya ekte.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 599
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#3)  Bedrettin DEMİRCİ » 05 Tem 2019 14:03

Z sütunundaki liste sabit
güncellenebilir mi ?
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#4)  tasad » 05 Tem 2019 14:17

Harf yazdığın zaman güncelleme yapar.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 599
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

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

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#5)  Bedrettin DEMİRCİ » 05 Tem 2019 14:47

Koyu Kırmızı olan satırda hata verdi


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim con As Object, rs As Object, s As String
If Intersect(Target, [p1]) Is Nothing Then Exit Sub
Set con = CreateObject("adodb.Connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""
s = "select f4 FROM [Tek_Liste$] group by f4 having count(f4)>=1 "
rs.Open s, con, 1, 1
Range("z1").CopyFromRecordset rs
rs.Close
con.Close
Set rs = Nothing: Set con = Nothing: s = vbNullString
End Sub
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#6)  tasad » 05 Tem 2019 15:02

Bendeki dosyada hata vermiyor.sizdeki dosyada sayfa sayısı birden fazla ise hata veren kodun altındaki rangenin önüne sayfa adını yazın
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 599
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#7)  Bedrettin DEMİRCİ » 05 Tem 2019 15:09

Tek kelime ile Harika şkşk
Çok güzel çalışıyor
istediğim gibi olmuş elinize sağlık --)(
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#8)  Bedrettin DEMİRCİ » 05 Tem 2019 15:16

Şİmdi de şu satır hata veriyor
önce çalıştı kapatıp açınca P1 e tıkladığım zaman hata mesajı veriyor

Range("Sayfa8").CopyFromRecordset rs
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#9)  Bedrettin DEMİRCİ » 05 Tem 2019 15:18

Sayfa adı her iki şekilde de doğru ama ikisindede hata veriyor

Range("Tek_Liste").CopyFromRecordset rs
Range("Sayfa8").CopyFromRecordset rs
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#10)  tasad » 05 Tem 2019 19:32

Sheets("Tek_Liste").Range("z1").CopyFromRecordset rs
bunu deneyin.Olmazsa aşağıdaki kodu boş modüle
Kod: Tümünü seç
Sub benzersiz()
Dim con As Object, rs As Object, s As String
'If Intersect(Target, [p1]) Is Nothing Then Exit Sub
Set con = CreateObject("adodb.Connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""
s = "select f4 FROM [Tek_Liste$] group by f4 having count(f4)>=1 "
rs.Open s, con, 1, 1
sheets("Tek_Liste").Range("z1").CopyFromRecordset rs
rs.Close
con.Close
Set rs = Nothing: Set con = Nothing: s = vbNullString

End Sub


bunuda çalışma kitabının koduna kaydedip kapatın yeniden açın.
Kod: Tümünü seç
Private Sub Workbook_Open()
Call benzersiz
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 599
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Hücrede açılır tekli liste ve ismi ile arama

İleti#11)  Bedrettin DEMİRCİ » 06 Tem 2019 13:17

Şimdi çalıştı
Sheet kısmını yazınca hata vermedi
denemeye devam ediyorum
p tesi ancak cevap yazabileceğim
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe