Private Sub TextBox1_Change()
Dim suz As Worksheet
Set suz = Sheets("SUZ")
suz.Range("A1:K65536").Clear
With Sheets("VERİ TABANI")
.Range("B3").AutoFilter
.Range("B3").AutoFilter field:=2, Criteria1:="=" & CDbl(TextBox1.Text)
.Range("B3:K" & .Cells(65536, "B").End(xlUp).Row).CurrentRegion.Copy _
suz.Range("A2")
Application.CutCopyMode = False
End With
ListBox1.RowSource = "SUZ!A2:K" & suz.Cells(65536, "B").End(xlUp).Row
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm2_Initialize()
Dim sat As Long
Sheets("VERİ TABANI").Range("A3").AutoFilter
sat = Sheets("VERİ TABANI").Cells(65536, "B").End(xlUp).Row
ListBox1.RowSource = "VERİ TABANI!A3:K" & sat
End Sub
Değerli uzman abiler. Bu kodlar textbox a girilen değeri listeden süzerek listbox ta gösteriyor. Ancak örneğin textbox a 1234 girip bilgiyi görüntüledikten sonra yeni sorgu yapmak için backspace le silmeye başladığımda geriye doğru 4-3-2 yi siliyorum ancak ilk karakter olan 1 i silince kod hata veriyor
hatayıda,
.Range("B3").AutoFilter field:=2, Criteria1:="=" & CDbl(TextBox1.Text)
satırında gösteriyor. galiba bu satıra bir şey eklenmesi gerekiyor. ne olduğunu dene yanılla bulamadım.
Diğer bir kod da;
Private Sub Workbook_Open()
MsgBox "HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"TARİH GÜN VE SAAT HATALI İSE ", vbInformation, "SİSTEM TARİHİNİ KONTROL EDİNİZ"
'End Sub
bu koddada gördüğünüz gibi dosya açıldığında tarih gün ve saat bilgisini gösteriyor. ancak gösterdiği bilgide TARİH ve ;SAAT doğru, BUGÜN ise yanlış oluyor. Mesela bugün cuma iken Salı gösteriyor. yardımcı olacak olmayacak tüm üye arkadaşlara saygılarımla...
Dim suz As Worksheet
Set suz = Sheets("SUZ")
suz.Range("A1:K65536").Clear
With Sheets("VERİ TABANI")
.Range("B3").AutoFilter
.Range("B3").AutoFilter field:=2, Criteria1:="=" & CDbl(TextBox1.Text)
.Range("B3:K" & .Cells(65536, "B").End(xlUp).Row).CurrentRegion.Copy _
suz.Range("A2")
Application.CutCopyMode = False
End With
ListBox1.RowSource = "SUZ!A2:K" & suz.Cells(65536, "B").End(xlUp).Row
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm2_Initialize()
Dim sat As Long
Sheets("VERİ TABANI").Range("A3").AutoFilter
sat = Sheets("VERİ TABANI").Cells(65536, "B").End(xlUp).Row
ListBox1.RowSource = "VERİ TABANI!A3:K" & sat
End Sub
Değerli uzman abiler. Bu kodlar textbox a girilen değeri listeden süzerek listbox ta gösteriyor. Ancak örneğin textbox a 1234 girip bilgiyi görüntüledikten sonra yeni sorgu yapmak için backspace le silmeye başladığımda geriye doğru 4-3-2 yi siliyorum ancak ilk karakter olan 1 i silince kod hata veriyor
hatayıda,
.Range("B3").AutoFilter field:=2, Criteria1:="=" & CDbl(TextBox1.Text)
satırında gösteriyor. galiba bu satıra bir şey eklenmesi gerekiyor. ne olduğunu dene yanılla bulamadım.
Diğer bir kod da;
Private Sub Workbook_Open()
MsgBox "HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"TARİH" & Space(5) & Date & vbCrLf & _
"BUGÜN" & Space(4) & Format(Day(Date), "dddd") & vbCrLf & _
"SAAT" & Space(7) & Time & vbCrLf & vbCrLf & _
"TARİH GÜN VE SAAT HATALI İSE ", vbInformation, "SİSTEM TARİHİNİ KONTROL EDİNİZ"
'End Sub
bu koddada gördüğünüz gibi dosya açıldığında tarih gün ve saat bilgisini gösteriyor. ancak gösterdiği bilgide TARİH ve ;SAAT doğru, BUGÜN ise yanlış oluyor. Mesela bugün cuma iken Salı gösteriyor. yardımcı olacak olmayacak tüm üye arkadaşlara saygılarımla...