muratozmenler
Yeni Üye
Konuyu Başlatan
With Sheets("Yıl")
k = .Cells(Rows.Count, "A").End(xlUp).Row
aranan = TextBox11.Text
aranan1 = TextBox12.Text
Bul = Application.WorksheetFunction.Match(1, (.Range("a1:a" & k) = aranan) * (.Range("c1:c" & k) = aranan1), 0)
If Not IsError(sBul) Then
Rows(Bul).Delete Shift:=xlUp
End If
End With
Merhabalar;
Kırmızı renkli satır hata veriyor yanlış nerde yapıyorum acaba
k = .Cells(Rows.Count, "A").End(xlUp).Row
aranan = TextBox11.Text
aranan1 = TextBox12.Text
Bul = Application.WorksheetFunction.Match(1, (.Range("a1:a" & k) = aranan) * (.Range("c1:c" & k) = aranan1), 0)
If Not IsError(sBul) Then
Rows(Bul).Delete Shift:=xlUp
End If
End With
Merhabalar;
Kırmızı renkli satır hata veriyor yanlış nerde yapıyorum acaba