Bir hücre silindiğinde o satırdaki başka sayfadan da silinmesi tüm satırıyla

[Porser]

iyi günler herkese

Kaç zamandır uğraşıyorum ama yapamadım bir türlü belki başka bir yolu vardır.

Ben sayfa1'e b1 sütununa alt alta ürünleri yazıyorum
Sayfa2'ye bu isimleri = ile taşıyorum

Sayfa2'de gün bazında giren ürünleri adetlerini giriyorum aylık tutuyorum bu listeyi
Sayfa 1'deki ürün adını sildiğimde
sayfa2'deki ürün verilerinin (tüm satır boyunca) de silinmesi ve bir alttaki ürün ne ise verileriyle birlikte yukarıya çıkmasını istiyorum ( satırlar arasında boşluk olmaması lazım)

 

[Ömer]

Merhaba,

Sorunuzu örnek Excel dosyası ekleyerek dosya içinde açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[Porser]

Merhaba,

Sorunuzu örnek Excel dosyası ekleyerek dosya içinde açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

indirme linki

İndir

Dosyayı indir

dosya.co

Forumlar için Kod
WWWWWWWW.xls - 1.4 MB

HTML kod
<a href="https://dosya.co/h8dhqbny2f7u/WWWWWWWW.xls.html" target=_blank>WWWWWWWW.xls - 1.4 MB</a>

 

[Ömer]

Eklediğiniz dosya doğru mu?

1. sorunuzdaki açıklamanızla benzerlik taşımıyor. Personel dosyası eklemişsiniz. Eğer dosya buysa ne yapılması gerektiğiniz detaylı açıklamanız gerekir.

 

[Porser]

Eklediğiniz dosya doğru mu?

1. sorunuzdaki açıklamanızla benzerlik taşımıyor. Personel dosyası eklemişsiniz. Eğer dosya buysa ne yapılması gerektiğiniz detaylı açıklamanız gerekir.

Göndermiş olduğum ekte kadro yazan kısmındaki ismi sidiğimde diğer sayfalardaki o isme denk gelen tüm satırın otomatik silinmesini istiyorum.

 

[Ömer]

Kadro sayfasında silme işlemini yaparken, satırı tamamen mi siliyorsunuz yoksa sadece hücreyi mi siliyorsunuz.

Ayrıca Kadro ve PERSONEL BAZLI TOPLAM sayfalarının şifreleri nedir?

 

[Porser]

Kadro sayfasında silme işlemini yaparken, satırı tamamen mi siliyorsunuz yoksa sadece hücreyi mi siliyorsunuz.

Ayrıca Kadro ve PERSONEL BAZLI TOPLAM sayfalarının şifreleri nedir?

Silme işlemi satır değil hücre
Kadro şifre 121623+
ay sayfa koruması 333 ( makrolu her tıkta şifre devreye girer )

 

[Merhum İdris SERDAR]

.

Basit bir yöntem:

1. Dosyanızdaki sayfa korumaları kaldırın.

2. "KADRO" sayfasında sağ klik yapın.





.


Tüm sayfalar seçili hale gelir. Bazı sayfaları göz ardı etmek için CTRL tuşu basılı iken bu sayfalara mouse ile tıklanır. (Seçme işini de tek tek CTRL tuşu basılı iken seçme işini mouse ile ilgili sayfalar tıklanır.)

3. ilgili Satır/satırları silin.

4. "KADRO" sayfasında sağ klik yapılarak, sayfaları Ungroup yapın.

 

[Ömer]

İdris Bey'in yönetimini de uygulayabilir siniz. Yalnız tüm sayfalardaki tablo yapılarının aynı satırdan başlatmanız gerekir ve silinmesini istemediğiniz sayfaları pasif yapmanız gerekir.

Aşağıdaki yöntemle makro ile silebilirsiniz. Yalnız hücre silme bana pek mantıklı gelmedi, çünkü yeni veri eklediğinizde bütünlük açısından problem yaşayabilirsiniz. Bu yüzden satır silmeden ilerledim.

Kodları Module kopyalayın. Dosyayı kaydedip tekrar açın, KADRO sayfasında silinmesini istediğiniz satırı seçip sağ klik yaptığınızda "---------Sayfalarda Sil" adında yeni bir menü eklendiğini göreceksiniz. Silme işlemi için bu menüyü kullanın.
Detaylı deneme yapmadım, hata alırsanız detaylarıyla bildirirsiniz.

Sub Auto_Open()
    Menu
End Sub

Sub Menu()

     Dim cb As CommandBar, MenuObject As Object

     Set cb = Application.CommandBars("row")
     Set MenuObject = cb.Controls.Add(Type:=msoControlButton, before:=7)

     With MenuObject
        .Caption = "---------Sayfalarda Sil"
        .OnAction = "Sil"
        .FaceId = 53
     End With

     Set cb = Nothing
     Set MenuObject = Nothing

End Sub

Sub Auto_Close()
    Application.CommandBars("row").Reset
End Sub

Sub Sil()

    Dim i As Byte, sat As Long, S1 As Worksheet

    If ActiveSheet.Name <> "KADRO" Then Exit Sub
    If ActiveCell.Row < 7 Then Exit Sub

    sat = ActiveCell.Row + 4

    Application.ScreenUpdating = False

    For i = 1 To 12
        Set S1 = Sheets(Format("1." & i, "mmmm"))
        S1.Unprotect "333"
        S1.Rows(sat).Delete Shift:=xlUp
        S1.Protect "333"
    Next i

    sat = ActiveCell.Row
    With Sheets("PERSONEL BAZLI TOPLAM")
        .Unprotect "121623+"
        .Rows(sat).Delete Shift:=xlUp
        .Protect "121623+"
    End With

    ActiveSheet.Unprotect "121623+"
    Rows(sat).Delete Shift:=xlUp
    ActiveSheet.Protect "121623+"

    Application.ScreenUpdating = True

End Sub