Veriler kısmında Satır veya Sütün sildiğimde.

[cqners]

Merhaba;


Veriler sayfasında Satır veya Sütun sildiğimde Denetle sayfasındaki formüller bozulmaktadır bunu nasıl önleye bilirim ?

Konu hakkında örnek dosya aşağıdaki ektedir.

Saygılarımla;
Caner SARIGÜL

 

[hamitcan]

Satırı seçin "delete" tuşuna basın.

 

[cqners]

Sn. Hamitcan;


Yukarıda bulunan ekli dosyaya sağ tıkla > Farklı kayıt et

İncele sonrada yardımcı olmak istiyorsan olursun.

İlgin alakan ve bilgin için teşekkürler Hamitcan.

 

[hamitcan]

İlk örneğinizde button yoktu, sonradan dosyayı değiştirmişsiniz, ayrıca sorunuzu herhalde makrolar bölümünde sormanız daha doğru olurdu.

Makroyu aşağıdaki gibi değiştirin. Umarım faydalı olur.

Sub sil()
son = [a65536].End(3).Row - 1

For x = 4 To son
If WorksheetFunction.CountIf(Range("a" & x + 1 & ":a" & son + 1), Cells(x, "a")) >= 1 Then Cells(x, "a") = ""
Next

For x = son To 4 Step -1
If Cells(x, "a") = "" Then Rows(x).Delete
Next

Range("a4:c" & [a65536].End(3).Row).Sort Key1:=Range("A4")


'---------------------------------
Sayfa2.[a1].FormulaR1C1 = "=Veriler!R[3]C"
Sayfa2.[b1].FormulaR1C1 = "=Veriler!R[3]C"
Sayfa2.[c1].FormulaR1C1 = "=Veriler!R[3]C"
Sayfa2.[d1].FormulaR1C1 = "=Veriler!R[3]C"

Sayfa2.[a1:d1].Copy Destination:=Sayfa2.[a2:d30]

End Sub

 

[cqners]

Sn.Hamitcan

İlgin için sağol. Evet ilk örnekte düğme yoktu yanlış dosya eklemişim.
Görüntüleme 0 olunca dosyayı incelemediğinizi düşündüm ve böyle ilginç bir tepki verdim.

Özür dilerim.

Cevap verdiğin içinde ayrıca Teşekkür Ederim.

Saygılarımla;
Caner SARIGÜL

 

[cqners]

Sn.Hamitcan

Eklediğin Macro Süper çalışıyor. İlgin için tekrardan teşekkürler.

Saygılarımla;
Caner SARIGÜL