İlgili Satırı Bul Ve Si

[erar66]

İyi geceler.

Sayfa1 sayfasındaki A1 hücresinde bulunan değeri Sayfa2 de yer alan A:A dizisinde yani A sütununda arayan ve böyle bir değer varsa, makroya tıklayınca, aranan ve bulunan veri hangi satırda ise o satırı (örneğin A12 de diyelim o halde 12. satırı) komple silsin istiyorum. Satırdaki verileri değil satırın tamamını silsin istiyorum.

Bunu araştırdım ancak bulamadım böyle bir makro.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan VBA ekranının
sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın.

Bu kod düğmeye gerek kalmadan A1 hücresine yazılan değeri taşıyan satırı, A1'e değeri yazıp
ENTER veya başka bir hücre seçilerek A1 hücresinden çıkıldığında ilgili satırı tamamen siler.
Silme işlemini geri alamayacağınızı dikkate alınız.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    satır = WorksheetFunction.Match(Target, Range("A2:A" & [A65536].End(3).Row), 0)
    Rows(satır + 1 & ":" & satır + 1).Delete Shift:=xlUp
[A1].Activate
End Sub[/FONT]

 

[alicimri]

Sayın erar66
Sayfa2 de ilk satırın başlık olduğunu varsaydım.

Sub Makro1()
Sheets("Sayfa2").Activate
say = Sheets("Sayfa2").Range("A65536").End(3).Row + 1
Sheets("Sayfa2").Columns("A").AutoFilter Field:=1, Criteria1:=Sheets("Sayfa2").Range("A1")
Sheets("Sayfa2").Range("A2:A" & say).Delete Shift:=xlUp
Selection.AutoFilter
End Sub

Not: Sayfa1 A1 hücresindeki değere uyan, Sayfa2 deki A sütunundaki tüm satırları siler

 

[Ömer BARAN]

Merhaba.

Aranan değerin yazılacağı sayfa ile satır silme işleminin yapılacağı sayfanın
farklı sayfalar olduğunu Sayın alicimri'nin cevabıyla fark etmiş oldum.
Benim ilk cevabımı dikkate almayınız.
.

 

[erar66]

Cevaplarınız için teşekkür ederim. İyi çalışmalar.k::