Hücredeki değeri başka sayfada bularak satırı silme

[ugurex]

Merhabalar şöyle bir sorum olacak;
sayfa1'de a1 hücresindeki değeri; sayfa2'de C Sütununda bularak, bulunduğu satırı silen bir makroya ihtiyacım var yardımcı olursanız sevinirim.

Örneğin;
sayfa1'de a1 hücresine sicil yazıyorum; makroyu çalıştırdığımda; bu sicili sayfa2'deki C sütununda arayarak, bulduğu sicilin bulunduğu (örneğin 15.satırı) silecek. yani bu makro ile sayfa1'de a1'e yazılan sicile ait kaydı sayfa2'den sildireceğim. umarım anlaşılmıştır.


Teşekkürler

 

[Orion1]

Buyurun.

Sub satirsil59()
Dim k As Range, sh As Worksheet
Sheets("Sayfa1").Select
Set sh = Sheets("Sayfa2")
Set k = sh.Range("C:C").Find(Range("A1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.EntireRow.Delete
    MsgBox "satır silindi"
End If
End Sub

 

[ugurex]

Harikasınız makro çalıştı çok teşekkür ederim, peki aynı şekilde sayfa1'de a1 hücresinde yazan sicil no ile aynı isimdeki çalışma sayfasını (aynı çalışma kitabı içinde) nasıl silebiliriz.

 

[Orion1]

Hangi sütuna bakılacak?Yine C sütununamı bakılacak?

 

[ugurex]

Bu defa sayfa2 ile bir işimiz yok, şöyle olacak;
sayfa1'de a1 hücresine değer yazıyorum; makroyu çalıştırdığımda; bu değer ile aynı isimdeki çalışma sayfasını bularak, bu çalışma sayfasını silecek.

 

[Orion1]

Şöylemi?sayfa1'e A1 hücresine sayfa adını (mesela sayfa3) yazıyorsunuz ve sayfa3 adındaki sayfa tümden siliniyor.Yani ortadan kayboluyor.

 

[ugurex]

Evet aynen öyle

 

[Orion1]

Bu defa sayfa2 ile bir işimiz yok, şöyle olacak;
sayfa1'de a1 hücresine değer yazıyorum; makroyu çalıştırdığımda; bu değer ile aynı isimdeki çalışma sayfasını bularak, bu çalışma sayfasını silecek.

Buyurun.
Önce dosyanızın yedeğini alın.

Sub sayfasil59()
Sheets("Sayfa1").Select
If Range("A1").Value = "" Then
    MsgBox "A1 Hücresinde sayfa adı yok!" & vbLf & "İşlem yapılmadı."
    Range("A1").Select
    Exit Sub
End If
Sheets(Range("A1").Value).Delete
MsgBox Range("A1").Value & " Silindi"
End Sub

 

[ugurex]

Sub PersonelSayfasiniSil()
'
' PersonelSayfasiniSil Makro
' bulunan personel sayfasını siler

Sheets("AnaSayfa").Select
If Range("F18").Value = "" Then
    MsgBox "F18 Hücresinde sayfa adı yok!" & vbLf & "İşlem yapılmadı."
    Range("F18").Select
    Exit Sub
End If
Sheets(Range("F18").Value).Delete
MsgBox (Range("F18").Value) & "Personel Sayfası Silindi"

End Sub

bu şekilde yazdım run time error '9': hatası verdi, yanlış mı yapıyorum.

 

[Orion1]

F18de silinecek sayfa adı yok yada yanlış yazılmıştır.