AÇILIR LİSTEDEN SEÇMEK

[polis-53]

Merhaba arkadaşlar ekde gönderdiğim dosyayı çalıştıramıyorum.

 

[Korhan Ayhan]

"A" sütununa gelin. Örneğin "a" harfine basın. Çıkan listeden bir ayı seçip çift tıklayın.

Otomatik olarak hücreye veriyi yazıp yan hücreye geçecektir.

 

[polis-53]

sayın korhan bey ekrandaki hatayı veriyor.

 

[Korhan Ayhan]

"a" harifne bastığınızda oluşan ekran görüntüsünü paylaşır mısınız?

 

[polis-53]

korhan hocam tamam çalışıyor verileri sayfa2 den nasıl alırım

 

[polis-53]

korhan hocam tamam çalışıyor verileri sayfa2 den nasıl alırım

 

[Korhan Ayhan]

Çalışmanıza yeni bir sayfa ekledim.

Ay isimlerini bu sayfanın A1:A12 aralığına aktardım.

Sonra ALT+F11 ile kod penceresini açtım.

Aşağıdaki kod bloğunu düzenledim.

Private Sub TextBox1_Change()
With TextBox1
    .Top = ActiveCell.Top: .Left = ActiveCell.Left: .Width = ActiveCell.Width: .Height = ActiveCell.Height
        End With
            If TextBox1 = "" Then
                ListBox1.Clear: ListBox1.Height = 0: Exit Sub
                    End If
                        With ListBox1
                            .Visible = True: .Clear: ListBox1.Height = 0
                            .Top = Cells(ActiveCell.Row + 1, 1).Top: .Width = ActiveCell.Width
                        End With
                    For brn = 1 To 12
                If Sheets("Sayfa2").Cells(brn, "A") Like "*" & TextBox1 & "*" Then
            ListBox1.AddItem Sheets("Sayfa2").Cells(brn, "A")
        End If
    ListBox1.Height = 13 * (ListBox1.ListCount) + 8
Next
End Sub