DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
Hücre biçimlendirmeye bakın. Text (Metin) olmamalı.
Birde Formulas/Calculation Options kısmında "Auotomatic" olmalı.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
eski = [G1].Value
Range("Tablo1[[#Headers],[" & eski & "]]") = Month(Date)
Application.EnableEvents = True
End Sub
Sayın dost, sanıyorum dosyayı incelemeden ve denemeden cevap vermişsiniz. Ben de şaşırdım, böyle bir özellik olduğunu bilmiyordum. Tablo olarak biçimlendirilmiş alanlarda başlıklarda formüle izin verilmiyor anladığım kadarıyla.
Private Sub Worksheet_Activate()
Application.EnableEvents = False
eski = [G1].Value
Range("Tablo1[[#Headers],[" & eski & "]]") = Month(Date)
Application.EnableEvents = True
End Sub