Sütun eklendiğinde uyarı verme hk.

[Kumpasta]

Merhabalar.

İşim gereği tuttuğum bir excel sayfasında bulunan 2 sayfanın aynı başlıklara sahip olması gerekiyor.
Yoğunluktan bir sayfada eklemiş olduğum sütun diğer sayfa da olmazsa takip zorlaşıyor. Geriye dönüp sorunu bulmak gerekiyor.

Ekteki dosyada gösterilenden daha çok sayfa var ve gösterilen sayfalar da çok veri var. Çok basit olarak sadece ASIL LİSTE ve ASIL LİSTE2 sayfalarında çalışmak üzere herhangi bir aralıkta sütun ekleme yapıldığında "DİĞER SAYFA DA DA BU EKLEDİĞİNİZ SÜTUNU EKLEMEYİ UNUTMA" tarzında bir uyarı vermesi yeterlidir bana. Tabi ki çapraz çalışacak.

Yada bu konuda başka öneriniz varsa öğrenmek isterim.
Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Bir sütun eklendiğinde Excel bunu anlamaz ama bir sütun ekledikten sonra mutlaka başlık yazacaksınız işte bunu anlayabilir.

Daha doğrusu birinci satırda herhangi bir hücre içeriğinde bir değişiklik yaparsanız aşağıdaki kod mesaj ile uyarı verebilir.

Aşağıdaki kodları "BuÇalışmaKitabı" adlı kod sayfasına kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Sh.Rows(1)) Is Nothing Then
        MsgBox "Diğer sayfa başlığını da düzeltmeyi unutmayın." & vbLf & "Eğer yeni bir kolon eklediyseniz diğer sayfaya da eklemeyi unutmayın.", vbExclamation
    End If
End Sub

 

[Kumpasta]

Teşekkür ederim. Excel bu kez hayallerimizi yarım bıraktı
Her sekmede yapıyor sanırım bunu.
belirttiğim sayfalarda yapması için ilgili sayfaların kod kısmına mı yapıştıracağız?

 

[Korhan Ayhan]

Alternatif olsun;

Aşağıdaki kodu ASIL LİSTE ve ASIL LİSTE2 sayfalarının kod bölümüne uygulayınız.

Option Explicit
Public Sutun As Range

Private Sub Worksheet_Activate()
    Set Sutun = ActiveCell
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Sutun Is Nothing Then
        If Target.Address <> Sutun.EntireColumn.Address Then
            MsgBox "Sütun eklendi!" & vbCr & vbCr & "Lütfen diğer sayfada da sütun eklemeyi unutmayınız!", vbCritical
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Sutun = Target
End Sub

Aşağıdaki kod ise ThisWorkbook (BuÇalışmaKitabı) bölümüne uygulayınız.

Option Explicit
Public Sutun As Range

Private Sub Worksheet_Activate()
    Set Sutun = ActiveCell
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Sutun Is Nothing Then
        If Target.Address <> Sutun.EntireColumn.Address Then
            MsgBox "Sütun eklendi!" & vbCr & vbCr & "Lütfen diğer sayfada da sütun eklemeyi unutmayınız!", vbCritical
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Sutun = Target
End Sub

Dosyanızı makro içerebilen dosya biiminde kaydedip kapatıp açınız. Sonrasında denemeler yapınız.

 

[Kumpasta]

Teşekkür ederim.
Denedim çalışıyor.
Kolay gelsin.