vba ile satır silme hak.

[hpalpal]

Herkese merhaba,

inputbox ile bir değer alıp, aldığım değerle ilgili olan bütün satırı silmek istiyorum bunu yaparken de satırı komple excelden kaldırıp böylece dolu satırlar arası boş satırlar oluşmasını engellemek istiyorum.

İkinci olarak kullanıcı bir değer girdiğinde eğer değer tabloda yoksa kullanıcıya değer tabloda yok lütfen olan değeri giriniz diye mesaj vermek istiyorum.

Yardımcı olursanız sevinirim.

İyi çalışmalar

 

[Orion1]

değer hangi sütunda olacak?

 

[hpalpal]

A Sutunundan değeri seçecek ve değerin olduğum tüm satırı seçip yukarıda anlattığım işlemi gerçekleştirecek

İyi Çalışmalar

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Kodlar önce aranan değeri sorar, sonra A2'den itibaren son dolu satıra kadar veriyi arar, varsa satırı siler. Aranan değer yoksa uyarı verir ve tekrar değer ister:

Sub sil()
10:
uyarı = InputBox("Silinecek değeri giriniz!")
son = Cells(Rows.Count, "A").End(3).Row

If uyarı <> "" Then
    If WorksheetFunction.CountIf(Range("A2:A" & son), uyarı) > 0 Then
    For i = 2 To son
        If Cells(i, "A") = uyarı Then Rows(i).EntireRow.Delete Shift:=xlUp
    Next
    Else
        yok = MsgBox("Girdiğiniz değer tabloda bulunmamaktadır. " & Chr(10) & "Lütfen mevcut bir değer giriniz!", vbCritical)
    GoTo 10
    End If
End If
End Sub

Ancak nedense inputbox'a yazdığım sayıları örnek tablomda bulamadı. metinlerde sorunsuz çalışıyor.

 

[hpalpal]

Yusuf Bey teşekkür ederim çok işe yaradı, istediğim stringdi zaten iyi çalışmalar