muratozmenler
Yeni Üye
- Katılım
- 13 Şub 2024
- Mesajlar
- 15
- Aldığı beğeni
- 1
- Excel V
- Office 2019 TR
Konu Sahibi
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