1 sayfadan 1. sayfa

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

İletiTarih: 04 Tem 2019 11:28
Bedrettin DEMİRCİ
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

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

İletiTarih: 05 Tem 2019 10:31
tasad
P1 hücresine 2-3 harf yazıp yanındaki liste butonuna tıklayın.Dosya ekte.

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

İletiTarih: 05 Tem 2019 14:03
Bedrettin DEMİRCİ
Z sütunundaki liste sabit
güncellenebilir mi ?

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

İletiTarih: 05 Tem 2019 14:17
tasad
Harf yazdığın zaman güncelleme yapar.

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

İletiTarih: 05 Tem 2019 14:47
Bedrettin DEMİRCİ
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

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

İletiTarih: 05 Tem 2019 15:02
tasad
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

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

İletiTarih: 05 Tem 2019 15:09
Bedrettin DEMİRCİ
Tek kelime ile Harika şkşk
Çok güzel çalışıyor
istediğim gibi olmuş elinize sağlık --)(

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

İletiTarih: 05 Tem 2019 15:16
Bedrettin DEMİRCİ
Şİ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

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

İletiTarih: 05 Tem 2019 15:18
Bedrettin DEMİRCİ
Sayfa adı her iki şekilde de doğru ama ikisindede hata veriyor

Range("Tek_Liste").CopyFromRecordset rs
Range("Sayfa8").CopyFromRecordset rs

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

İletiTarih: 05 Tem 2019 19:32
tasad
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

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

İletiTarih: 06 Tem 2019 13:17
Bedrettin DEMİRCİ
Şimdi çalıştı
Sheet kısmını yazınca hata vermedi
denemeye devam ediyorum
p tesi ancak cevap yazabileceğim