Aynı isim varsa silme

[denksal123]

Arkadaşlar a1 hücresine isim yazdığımda sayfa2 de varsa sayfa1 b sutuna var yazacak---------- ve ayrıca butona bastığımda sayfa ikideki isim veya satır silinecek yardımınız için şimdiden teşekkürler

 

[dEdE]

Merhaba,
Aşağıdaki kodu Sayfa1 in kod bölümüne yapıştırıp, BulSil makrosunu bir düğmeye bağlayarak dener misiniz?

Dim Satır As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
    Set Aranan = s2.Cells.Find(s1.[A1].Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        s1.[B1].Value = "Var"
        Satır = Aranan.Row
    Else
        s1.[B1].Value = ""
    End If
End Sub

Sub BulSil()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    s2.Rows(Satır).Delete (3)
    MsgBox s1.[A1].Value & " Silindi !", vbInformation, "dEdE Başarılar diler.."
End Sub

 

[denksal123]

s2.Rows(Satır).Delete (3) HATA VERDİ SAYFA 2 DEKİNİ SİLMEDİ BUTON SİLMEDİ

 

[denksal123]

Pardon çok teşkkür ederim hata bende eline sağlık

 

[dEdE]

Merhaba,
Makroyu aşağıdaki ile değiştirip dener misiniz?
Bu makro da Modülde değil sayfanın kod bölümünde olmalı ve en baştaki "Dim Satır As Integer" mutlaka sayfanın en başında yer almalıdır.

Sub BulSil()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    If s1.[B1].Value = "" Then Exit Sub
    s2.Rows(Satır).Delete (3)
    MsgBox s1.[A1].Value & " Silindi !", vbInformation, "dEdE Başarılar diler.."
End Sub

 

[denksal123]

dedeciğim ya ben bunu yaptığım excel sayfasına uyarlayamadım.
sayfa 1 'in ismi (müz) sayfa 2 nin ismi (evrak)
müz (Sayfa1 yani) sayfasının h7 satırındakini evrak sayfasından arasın ve

müz sayfasının aa3 satıran var yazsın

evrak (Sayfa 2) sayfasındanda silsin

Dim Satır As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H7]) Is Nothing Then Exit Sub
Set s1 = Sheets("müz")
Set s2 = Sheets("evrak")
Set Aranan = s2.Cells.Find(s1.[H7].Value, , xlValues, xlWhole)
If Not Aranan Is Nothing Then
s1.[AA3].Value = "Var"
Satır = Aranan.Row
Else
s1.[AA3].Value = ""
End If
End Sub

Sub BulSil()
Set s1 = Sheets("müz")
Set s2 = Sheets("evrak")
s2.Rows(Satır).Delete (3)
MsgBox s1.[A1].Value & " Silindi !", vbInformation, "dEdE Başarılar diler.."
End Sub


biryerde hata var silmiyor

 

[dEdE]

Merhaba,
müz sayfasının kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H7]) Is Nothing Then Exit Sub
    Set s1 = Sheets("müz")
    Set s2 = Sheets("evrak")
    Set Aranan = s2.Cells.Find(s1.[H7].Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        s1.[AA3].Value = "Var"
        s2.Rows(Aranan.Row).Delete (3)
        MsgBox s1.[H7].Value & " Silindi !", vbInformation, "dEdE Başarılar diler.."
    Else
        s1.[AA3].Value = ""
    End If
End Sub

 

[denksal123]

Gene olmadı ya

dede sen yaptın ama ben sayfaların adlarını ve hüclerei değiştirince yapamadım

 

[dEdE]

dede sen yaptın ama ben sayfaların adlarını ve hüclerei değiştirince yapamadım

Merhaba,
Örnek dosyanız üzerinden anlatayım.
Örnek dosyanızın müz isimli sayfasının kod bölümünde bulunan kodların tümünü silin ve yukarıdaki kodu kopyalayıp sildiğiniz kodların yerine yapıştırın.
Hepsi bu kadar.....