Otomatik tamamlama

[recepkull]

Herkese merhaba, H sütunu veri listesi. K5 hücresine herhangi bir harf girdiğimde, listede o harfle başlayan ifadeleri öneri olarak göstermesin nasıl sağlayabilirim?

 

[Korhan Ayhan]

Linkleri inceleyiniz.

https://www.excel.web.tr/threads/huecrede-otomatik-tamamlama.112308/

https://www.excel.web.tr/threads/huecre-icinde-otomatik-tamamlama.99542/#post-1076922

 

[recepkull]

Bunlardan biri işimi görür hocam teşekkür ederim.

 

[recepkull]

Linkleri inceleyiniz.

https://www.excel.web.tr/threads/huecrede-otomatik-tamamlama.112308/

https://www.excel.web.tr/threads/huecre-icinde-otomatik-tamamlama.99542/#post-1076922

Hocam ben bunu kendi dosyamda Sipariş sayfasında X9 hücresine göre uyarlayamadım. Ne yaptıysam olmadı sürekli başka sorunlar çıktı. Rica etsem kodun Sipariş sayfasında X9 hücresinde çalışması için kodun neresinde değişiklik yapmam gerektiğini söyleyebilir misin ?

 

[recepkull]

Hocam X9 hücresine görünmez bir şekil ekleyip aşağıdaki makro kodunu atayarak istediğim sonucu elde ettim çok şükür.

Sub az()
Sheets("Sipariş").Range("x9").Select
UserForm1.Show
End Sub

Şimdi benim merak ettiğim tek bir şey var. Sorunumu çözdüm ama aydınlanmak için soruyorum.

Sizin dosyada şöyle uzun bir kod var

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim S1 As Worksheet, BUL As Range

    If Intersect(Target, Range("A1:A30")) Is Nothing Then Exit Sub
    
    Cancel = True
    
    If Target <> "" Then
        Application.EnableEvents = False
        Set S1 = Sheets("Veri")
        If WorksheetFunction.CountIf(S1.Range("B:B"), "*" & Target & "*") = 1 Then
            Set BUL = S1.Cells.Find(Target)
            If Not BUL Is Nothing Then
                Target = BUL.Value
            End If
        Else
            ANIMSATICI
        End If
        Set S1 = Nothing
        Set BUL = Nothing
    Else
        ANIMSATICI
    End If
    
Son:
    Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim S1 As Worksheet, BUL As Range

    If Intersect(Target, Range("A1:A30")) Is Nothing Then Exit Sub
    
    On Error GoTo Son
    
    If Target.Cells.Count > 1 Then Exit Sub

    If Target <> "" Then
        Application.EnableEvents = False
        Target.Select
        Set S1 = Sheets("Veri")
        If WorksheetFunction.CountIf(S1.Range("B:B"), "*" & Target & "*") = 1 Then
            Set BUL = S1.Cells.Find(Target)
            If Not BUL Is Nothing Then
                Target = BUL.Value
            End If
        Else
            ANIMSATICI
        End If
        Set S1 = Nothing
        Set BUL = Nothing
    End If
    
Son:
    Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> "Sipariş" Then Exit Sub
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    If Val(Application.Version) < 12 Then
        ShowAtCell_1
    Else
        ShowAtCell_2
    End If
End Sub

Ben bunları silerek yukardaki kısacık kodu yazdım ve istediğim sonucu elde ettim. Bunlar gereksiz miydi ? İlerde herhangi bir sorunla karşılaşır mıyım ? Sorunumu çözdüm ama kafam karıştı açıkçası.

 

[Korhan Ayhan]

Önerdiğim linkte bahsi geçen hücrelere bir kaç harf yazdıktan sonra ENTER tuşuna ya da ilgili hücreye ÇİFT TIKLAYINCA önerdiğim kodlar devreye girmektedir. Kodlar yazdığınız harflere uygun kayıtları form üzerinde karşınıza getirmektedir.

Sizin yazdığınız kısa kod bu işlemi tek başına yapamaz... Başka kodlarda olmalı.. Ama sanırım onları paylaşmadınız..

 

[recepkull]

Şimdi anladım hocam. O kodlar belirli bir hücre aralığı ile etkileşim içinde. Benim ise userformu aç seçilen değeri seçilen hücreye yaz.