Bir konuda gördüm bir türlü accesse uyarlayamadım
[code]Option Explicit
Sub Sil()
Range("B9:I3000").ClearContents
End Sub
Private Sub TextBox1_Change()
Dim sonsat As Long, Deg As String, hcr As Range, Aln As Range, Code As Boolean
Dim vsyf As Worksheet, renk
Sheets("ARAMA").Activate
If Range("E3") <> "" Then
Deg = Range("E3").Value
Else
MsgBox "BİR ARAMA KRİTERİ GİRİN..."
Exit Sub
|