ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[kadriguler]

Selamlar,

Forumdan ve forumdaki üstatlarımın bilgilerinden sağolsun yıllardır faydalanırım . Geçenlerde özellikle fatura kesiminde kullanılmak üzere açılır listelerde arama yapmak ihtiyacı doğdu ,nette pek kaynak bulamadım, sonra kendim üzerinde biraz kafa yorarak bir şablon çıkarttım.

Genel olarak formüller ve ad tanımlamaya dayanıyor arama özelliği . Sadece ürünler sayfasından çıkınca ürünleri alfabetik sıraya alan bir VBA kodu kullandım , belki o da uğraşılırsa formüllerin içine eklenebilir :

Kod: Tümünü seç

Private Sub Worksheet_Deactivate()
    Range("A3:E" & Rows.Count).Sort Range("B3"), xlAscending
End Sub

Faydalı olması dileğiyle nasıl yapıldığına dair detayları ve örnek dosyayı buraya ekledim ,Açılır Listelerinde Arama Yapılabilen Fatura Şablonu : https://eksi30.com/excelde-gelismis-fatura-dizayni/

[Erkan Akayay]

Güzel bir çalışma tebrik ederim.
Fakat K6 daki saat için yaptığınız kodlamdan gelen ekran titremesi oldukça rahatsız edici.

Size farklı bir teknik önereyim. Diğer kodları kaldırıp bunu deneyin. Titreme yapmadan sürekli çalışacaktır.

Kod: Tümünü seç

Sub Auto_open()
    Dim hour As Boolean
    hour = Not (hour)
    Do While hour = True
        DoEvents
        Sheets(1).Range("K6") = TimeValue(Now)
    Loop
End Sub

[kadriguler]

Peki teşekkürler öneriniz için..