[Yardım]  Hücreye değer girerken listeye göre önermede bulunma

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

Hücreye değer girerken listeye göre önermede bulunma

İleti#1)  birayfil » 31 Mar 2020 10:29

Hepinizi iyi günler öncelikle,

Sayfa2 de B sütununda bir listem var çok uzun ve liste açıklamaları da çok uzun.
sayfa1 de A15 hücresine bir değeri girerken, listeye göre her harfte önergede bulunmasını istiyorum,

Sayfa1 deki listem şöyle
11317 Şeker pancarı yetiştirilmesi
11318 Yenilebilir kök ve yumruların yetiştiriciliği (patates, tatlı patates, manyok, Hint yer elması, vb.)
11319 Diğer sebze tohumlarının yetiştiriciliği (şeker pancarı tohumu dahil, diğer pancar tohumları hariç)
11320 Meyvesi yenen sebzelerin yetiştirilmesi (hıyar, kornişon, sivri ve dolmalık biber, kavun, karpuz, kabakgil türleri, domates, biber, patlıcan vb.)
11321 Mantar ve yer mantarları (domalan) yetiştirilmesi
11322 Kökleri, soğanları, yumruları tüketilen sebzelerin yetiştirilmesi (havuç, şalgam, sarımsak, soğan, arpacık soğan, pırasa ve diğer benzer sebzeler)
11323 Yapraklı veya saplı sebzelerin yetiştirilmesi (enginar, kuşkonmaz, lahana, karnabahar ve brokoli, marul ve hindiba, ıspanak vb.)


A15 hücresine, her harf yazdığımda, bu listedekileri önerme olarak vermesini istiyorum,

Yardımcı olabilir misiniz acaba, siteyi inceledim combox ile benzeri var ama bana form denetimin harici veri doğrulamalı da olabilir.

Şimdiden teşekkür ederim.
Kullanıcı avatarı
birayfil
Yeni Başlamış
 
Kayıt: 10 Ağu 2018 13:00
Meslek: memur
Yaş: 44
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: muğla

Cevap: Hücreye değer girerken listeye göre önermede bulunma

İleti#2)  şahin » 31 Mar 2020 20:52

Hücre içinde iken harf harf yazdığınızda filtreleme olmaz diye biliyorum ancak hücreye veri yazıp çıktıktan (enter vs) sonra tekrar hücre üzerine gelip veri doğrulamadan liste olabilir yada combobox ile... Ekteki örnekte her ikisini de yaptım..

filtreleme.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1006
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Hücreye değer girerken listeye göre önermede bulunma

İleti#3)  birayfil » 01 Nis 2020 07:55

öncelikle eline emeğine sağlık, güzel çalışma olmuş,

excel de normal data girerken üst satırda aynısı var ise otomatik tamamlama oluyor,

dosya > seçenekler >gelişmiş > den otomatik tamamlamayı açarak,

vba kodu
Application.EnableAutoComplete = True

bunun vba kodu ile, sayfa2 deki listeyi, sayfa1 de A15 hücresinde de tamamlanabilir mi diye düşünmüştüm, ENTER tuşuna basıp geri gelmemek adına, yapmaya çalıştığımda, tüm hücreyi kilitleyip, satır gizleme yapacağım dan, aynı hücrede işlemi bitirmem lazım.
Açılır liste yaptım, oradan seçenek seçtiğim zaman a10 ile a20 arasını açıyor, başka seçenek seçtiğim zaman a10 ile a20 gizleyip, a30 ile a40 satırlarını en başa çekiyor, bu veri girişini kolaylaştırsın diye, ama maalesef uzun açıklamalı listeyi önerme ile yapamadığımdan pratik olmuyor, Combobox lar satırla birlikte gizlenmediği için onu da kullanamıyorum maalesef.
Kullanıcı avatarı
birayfil
Yeni Başlamış
 
Kayıt: 10 Ağu 2018 13:00
Meslek: memur
Yaş: 44
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: muğla

Cevap: Hücreye değer girerken listeye göre önermede bulunma

İleti#4)  şahin » 01 Nis 2020 11:21

İstediğiniz en güzel combobox ile yapılır, Combobox seçili iken Ctrl+1 basıp Denetim Biçimlendireden Özellikler sekmesini tıklayın ve oradan Hücrelerle taşı ve boyutlandıır işaretlediğiniz zaman satırla birlikte gizlenebilir..
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1006
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

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

Cevap: Hücreye değer girerken listeye göre önermede bulunma

İleti#5)  birayfil » 01 Nis 2020 13:50

çok teşekkür ederim. hiç dikkat etmemiştim ona, combobox dediğiniz gibi işimi görecek gibi gözüküyor.

sizin verdiğiniz combobox süzmeli datayı yani, excel sayfasında süzmemesi lazım, aşağıda bende daha önce bulduğum vardı, bunu sadece sayfa2 den b3 ile b10000 arası yapabilir miyiz acaba, başka kod varsa oda olur excel sayfasını süzmeden

Kod: Tümünü seç
Set con = CreateObject("adodb.connection")
con.Open "provideR=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes"""
s1 = "%" & Sayfa1.ComboBox1.Value & "%"
s2 = "%" & LCase(Sayfa1.ComboBox2.Value) & "%"
s3 = "%" & UCase(Sayfa1.ComboBox2.Value) & "%"
s4 = "%" & StrConv(Sayfa1.ComboBox2.Value, vbProperCase) & "%"
Set rs = CreateObject("adodb.recordset")
sorgu = "Select * From [Sayfa2$] where (adres like '" & s1 & "' or adres like '" & s2 & _
"' or adres like '" & s3 & "' or adres like '" & s4 & "') and not isnull(adres) order by adres asc"
rs.Open sorgu, con, 1, 1

If rs.RecordCount > 0 Then
    Sayfa1.ComboBox2.Column = rs.GetRows
    Sayfa1.ComboBox2.DropDown
End If
Set rs = Nothing
Set con = Nothing
End Sub
Kullanıcı avatarı
birayfil
Yeni Başlamış
 
Kayıt: 10 Ağu 2018 13:00
Meslek: memur
Yaş: 44
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: muğla

Cevap: Hücreye değer girerken listeye göre önermede bulunma

İleti#6)  şahin » 01 Nis 2020 16:35

Ekte

filtreleme (1).rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1006
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Hücreye değer girerken listeye göre önermede bulunma

İleti#7)  birayfil » 01 Nis 2020 20:06

Elleriniz dert görmesin, tam istediğim gibi olmuş, elinize kolunuza sağlık.
çok zahmet verdim onun içinde çok teşekkür ederim. şkşk şkşk şkşk
Kullanıcı avatarı
birayfil
Yeni Başlamış
 
Kayıt: 10 Ağu 2018 13:00
Meslek: memur
Yaş: 44
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: muğla


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 1 misafir

Bumerang - Yazarkafe