eksik arama

[orkun_463]

şimdi data ve malzeme diye 2 sayfa var, datada kod, fiyat, adet ve iskonto başlıklı sütünlar var. yaklaşık 10000 satır dolu. malzeme sayfasında a sütünundaki bi satıra (veya textboxa) kodu yazmaya başlıyorum, kodu tamamlamadan örneğin ilk 3 harfini yazdığımda data sayfasındaki ilk üç harfi aynı olanları gösterecek, yada data sayfasında zaten alfabetik olarak sıralı olan listede ilk üç harfi uyan satıra gidecek. acil olarak yardımcı olabilirseniz çok sevineceğim. hertürlü fikri lütfen paylaşın

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ilucara()
Dim sat, s As Long
Sayfa2.[a3:e1000,b2:e2] = Empty
s = 2
    For sat = 2 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        If Sayfa1.Cells(sat, "a") Like Sayfa2.[a2] & "*" Then
            Range(Sayfa2.Cells(s, "a"), Sayfa2.Cells(s, "e")) = Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Value
                s = s + 1
        End If
    Next
End Sub