listeden veri seçerken otomatik tamamlama

[neromero]

arkadaşlar bir liste oluşturdum bu listeden açılır pencere ile verileri seçebilmekteyim. ancak benim sorunum şu liste çok uzun firmanın bir kaç harfini yazınca sadece onlar görünse yani filtre gibi.
şimdiden teşekkür ederim.

 

[neromero]

yardımcı olacak yokmu

 

[cyann]

aynı sorun bende de var bulabildin mi bir çözüm

 

[cetins58]

Office/Yazım deneteleme/Otomotik düzeltme seçenekleri/Değiştirilen'e: firmanın kasa adını yazınız.yerine kısmınada:yazılmasını istediğin firmanın uzun adını yazınız.Excelde kısa adını yazdığınızda gerçek uzun adı otomotik çıkar.
Kolay gelsin cetins58

 

[Murat OSMA]

Makro ile bu şekilde yapılabilir;

Sub Değiştir()
    With Application.AutoCorrect
        .AddReplacement "100", "Kasa"
        .AddReplacement "102", "Bankalar"
    End With
End Sub

Hesap Kodu ve Hesap Adını ya da adına her ne derseniz, ayrı sütunlara yazıp toplu olarak değişim için...

Sub Değiştir()
    For i = 2 To Range("A65536").End(3).Row
        Application.AutoCorrect.AddReplacement Cells(i, "A"), Cells(i, "B")
    Next i
End Sub

Örneğin;
A sütunu ----- B sütunu
-- 100 ------- Kasa
-- 102 ------- Bankalar
............
gibi...

 

[merthannizam]

Değerli arkadaşlar sizlere açılır kutu ile ilgili soru sormak istiyorum, açılır listeye verileri seçmeden otomatik gelmeseini sağlamak mümkün mü?yani hem manuel tıkla seçilecek ,yani G2'ye veri girilince otomatik gelecek hemde elle manuel seçilecek. örnek liste ve açıklaması ektedir. Forumda benzer konular var fakat tam olarak istediğimi bulamadım.

* Sarı ile seçili alanı seçtiğimde , Yeşil ile boyalı alanlardaki açılır listeler otomatik dolacak, ama gerekirse el ile de manuel seçep değiştirebileyim.

teşekkür ederim şimdiden.

 

[merthannizam]

:frown:sanırım çok zor bir soru sordum....

 

[Murat OSMA]

Sayfanın kod kısmına bu kodları yazıp deneyiniz;


Listeden seçim aynen olduğu gibi. Elle veri girmek için ise hücrede çift tıklayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("G5:G13")) Is Nothing Then Exit Sub
    Range("G5:G13").Validation.Delete
    Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "G2" Then Exit Sub
    With Range("G5:G13").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=EĞER($G$2=""Sıcak Geçen Aylar"";$B$2:$B$7;$C$2:$C$6)"
        .IgnoreBlank = True: .InCellDropdown = True
        .ShowInput = True: .ShowError = True
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, Range("G5:G13")) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        With Range("G5:G13").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=EĞER($G$2=""Sıcak Geçen Aylar"";$B$2:$B$7;$C$2:$C$6)"
            .IgnoreBlank = True: .InCellDropdown = True
            .ShowInput = True: .ShowError = True
        End With
    End If
End Sub

 

[merthannizam]

cevabınız için çok teşekkür ederim sayın Murat OSMA, verdiğiniz kodu yazdığımda hata veriyor yalnız çalışmıyor, biyerde yanlış mı yapıyorum acaba?

 

[Murat OSMA]

Sn. merthannizam, ben de herhangi bir hata vermiyor.

Hata alan arkadaşlar yardımcı olacaklardır.

 

[merthannizam]

Hata mesajında şöyle diyor:

Run-Time Error '1004':
Application-defined or object-defined error

 

[merthannizam]

Macro'da da bu kısımda hata veriyor.(sarıya boyuyor)

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=EĞER($G$2=""Sıcak Geçen Aylar"";$B$2:$B$7;$C$2:$C$6)"

 

[merthannizam]

buna da yardımcı olursanız sevinirim

 

[Tasarım]

"Uygulama veya obje bulunamadı" hatası veriyor. Bunu anlamak için örnek dosyanızı görmek gerekir.

 

[merthannizam]

Sayın Tasarım Ekte exceli gönderiyorum size. teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

İstediğiniz işlemi VERİ DOĞRULAMA yöntemiyle rahatlıkla yapabilirsiniz.

Ekteki örnek dosyayı inceleyiniz.

 

[merthannizam]

Korhan Ayhan bey, yaptığınız örneği inceledim fakat orada otomatik doldurmuyor? tek tek elle seçmemiz gerekiyor.
Benim tam olarak yapmak istediğim G2 deki ilgili seçeneği seçince G5 ve G13 arasındaki kutucukları otomatik doldurması.

 

[Korhan Ayhan]

Ekteki dosyayı inceleyiniz.

 

[merthannizam]

Allah razı olsun Koray bey çok teşekkür ederim tam istediğim gibi oldu...
çok teşekkürler....

 

[merthannizam]

Sayın Korhan bey, size birşey daha sormak istiyorum, bu yazdığınız förmülü ben metal parçalar için kullanacağım, size basit olsun diye aylardan örnek verdim,ve yaptınız saolun, şimdi bu förmülü 14 ürün ağaçlı bir excel sayfasına uyarlamak istiyorum. Buna göre F16 hücresine girilen ürün ağacını adının içeriği AW18 ile AW57 arasına verileri listeyecek. förmülü uyarlamaya çalıştım ama olmadı.