plaka ile bilgileri sorgulama

[zgr022]

http://dosya.co/xioxui843d9h/arac_bilgi_sorgulama.xlsx.html

arkadaşlar "bilgi girişi" sayfasına bilgileri girdikten sonra "sorgulama" sayfasına A2 ye plaka girdiğimde bilgiler aşağıya doğru sıralanabilir mi. "bilgi girişi" sayfasına filtreleme ile de istediğim oluyor ama böyle daha çok işime yarayacak. teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

A2 hücresine plakayı girip, kodları çalıştırın. Büyük küçük harfe duyarlıdır.

Sub kod()
    Dim SB As Worksheet
    Dim SO As Worksheet
    Set SB = Sheets("BİLGİ GİRİŞİ")
    Set SO = Sheets("SORGULAMA")
    Dim i As Integer
    Dim sat As Integer
    
    Application.ScreenUpdating = False
    SO.Range("A3:D65536").ClearContents
    
    sat = 3
    For i = 2 To SB.[A65536].End(3).Row
        
        If SO.Range("A2") <> "" Then
            If SB.Cells(i, "A") = SO.Range("A2") Then
                SO.Cells(sat, "A") = SB.Cells(i, "A")
                SO.Cells(sat, "B") = SB.Cells(i, "B")
                SO.Cells(sat, "C") = SB.Cells(i, "C")
                SO.Cells(sat, "D") = SB.Cells(i, "D")
                sat = sat + 1
                
            End If
        Else
            MsgBox "Plaka Boş", vbCritical
            Exit Sub
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[zgr022]

hüseyin çoban hocam teşekkürler, kusura bakmayın ama plakayı A2 hücresine yazdım "kodları çalıştırın" demişsiniz.o nedemek,nasıl yapılıyor ben bilmiyorum.biraz daha açarmısınız.yazdığınız kodu bir yere mi koplayacağım.tekrar teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Birkaç örnek link.

Tıkla ~ Excel 2003 Modül Ekleme (Resimli Anlatım)

Tıkla ~ Sayfada Buton-Düğme Oluşturmak Ve Makro Atamak (Resimli Anlatım)

. . .

 

[zgr022]

hocam teşekkürler.biraz uğraştıktan sonra yaptım