Farklı Sayfada Aynı Satırı Silmek

[Çetin Çelik]

Merhaba arkadaşlar ve üstadlar.

Küçük bir istek ile yine buradayım.

3 sayfalık excel çalışmamda şöyle birşey istiyorum.
Sayfa 3 te sildiğim satır numarası 5 kabul edelim.
sayfa 2 ve sayfa 1 de de 5 nolu satırlar silinsin istiyorum.

sayfa 1 ve 2 deki 5 nolu satırlarda ne gibi bir veri olduğunun önemi yok. ben sayfa 3 te hangi satırı silmişsem aynı satırın diğer sayfalarda silinmesi gerek.

bu işlem sayfa 3 aktif haldeyken olması şart.

ben diactive kısmına kod yazdım. sayfa 3 ten ayrılınca farklı kodlar çalıştığı için satırlar silinince ortalık karışıyor.
selectionchange kısmına yazdım bu defa sürekli tekrar eden bir durum çıktı çünkü sayfa active kısmına da kodlar yazmıştım.

beforedelete kısmına yazdım çalışmadı. satırı sayfa 3 te siliyorum diğer sayfalarda satırlar duruyor.
ne yapacağımı bilemedim. yardımınızı rica ediyorum.

 

[Çetin Çelik]

Çözdüm arkadaşlar.

Rightclick kısmına yazınca oldu.

Herkese teşekkür ederim.

 

[Çetin Çelik]

Çözdüğümü sanmıştım ama olmadı.
sağ tıklayıp kopyala deyince satırı siliyor.
bir koşul gerekli

eğer sağ tıklayıp sil seçilmişse koşulunu makroda nasıl yazabilirim

bu koşul ile işim görülür.

 

[AdemCan]

Merhaba, dosyanızı paylaşır mısınız?

 

[Çetin Çelik]

Merhaba, dosyanızı paylaşır mısınız?

Adem Bey merhaba.
dosya öylesine deneme yaptığım bir dosya.
3 sayfalı bir çalışma kitabı
3. sayfada 2. satırı siliyorum ama diğer sayfalarda 2. satır silinmiyor.
Örneğin
3 sayfanında 1. sütunlarında A1 = 1, A2 = 2, A3 = 3 yazılı kabul edersek.
3, sayfada A2 (2. satır) siliyorum. Doğal olarak A1 = 1, A2 = 3 oluyor.
ama 1. ve 2. sayfada A1 = 1, A2 = 2, A3 = 3 olarak hala duruyor.

 

[Çetin Çelik]

çözdüm arkadaşlar

Herkese teşekkür ederim

 

[AdemCan]

İnputbox ile satır numarası yazıp silme işlemi için örnek.
Siz de çözümünüzü paylaşırsanız forum kullanıcıları için faydalı olacaktır.

Sub test()
On Error GoTo hata
satir = Application.InputBox("Silmek istediğiniz satır numarasını yazınız.", "")

If satir = False Then Exit Sub
If satir = "" Then GoTo hata

If IsNumeric(CInt(satir)) Then
    Rows(satir).EntireRow.Delete
    Sayfa1.Rows(satir).EntireRow.Delete
    Sayfa2.Rows(satir).EntireRow.Delete
    MsgBox satir & " nolu satır sayfalardan silindi.", vbInformation, ""
Else
hata:
    MsgBox "Hatalı giriş yaptınız!", vbExclamation, ""
End If

End Sub

 

[Çetin Çelik]

İnputbox ile satır numarası yazıp silme işlemi için örnek.
Siz de çözümünüzü paylaşırsanız forum kullanıcıları için faydalı olacaktır.

Sub test()
On Error GoTo hata
satir = Application.InputBox("Silmek istediğiniz satır numarasını yazınız.", "")

If satir = False Then Exit Sub
If satir = "" Then GoTo hata

If IsNumeric(CInt(satir)) Then
    Rows(satir).EntireRow.Delete
    Sayfa1.Rows(satir).EntireRow.Delete
    Sayfa2.Rows(satir).EntireRow.Delete
    MsgBox satir & " nolu satır sayfalardan silindi.", vbInformation, ""
Else
hata:
    MsgBox "Hatalı giriş yaptınız!", vbExclamation, ""
End If

End Sub

Çook teşekkür ederim. Adem Bey