Hücre içindeki formülü sabitlemek?

[mcigoz]

Arkadaşlar hücrenin içine yazdığım formülün sabit kalmasını istiyorum. Şöyle ki hücrenin üstünde delete tuşuna bastığımda formül aynen kalsın ama girilen rakamlar silinsin. Acaba nasıl yapabilirim bunu?

 

[Huseyinkis]

Arkadaşlar hücrenin içine yazdığım formülün sabit kalmasını istiyorum. Şöyle ki hücrenin üstünde delete tuşuna bastığımda formül aynen kalsın ama girilen rakamlar silinsin. Acaba nasıl yapabilirim bunu?

Hücre içerisinde formul varken ve sonucu silmeye çalıştığınızda formulun silinmeme şansı yok fakat macro ile formul sabitnenip siz sildikten sonra bir buton yardımı ile veya herhangi bir hücreye yapılacak bir işlem ile formulu tekrar yazması sağlana billir. Konu ile ilgili örnek dosya koyarsanız makro ile yapmaya çalışırım.

iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Eğer kullandığınız tablodaki formülleriniz sabit hücrelerde ise sayfa koruma yöntemi ile formüllerinizi koruyabilirsiniz. Bu konuyla ilgili aşağıdaki linkten faydalanabilirsiniz.

Formülleri Korumak (Video)

Bunun dışında makro kullanarak DELETE tuşuna özgü bir yordam kullanabilirsiniz. Bununla ilgili ekteki örnek dosyayı incelermisiniz.

"A" sütunundaki verilerden bir kısmını seçip DELETE tuşuna basın. Sadece formül dışındaki hücrelerin içeriği silinecektir.

Kullanılan kodlar;

Boş bir modüle;

Option Explicit
 
Sub SABİTLERİ_SİL()
    Dim Hücre As Range
    
    For Each Hücre In Selection
        If Hücre.Value <> "" And Not Hücre.HasFormula Then Hücre.ClearContents
    Next
End Sub

ThisWorkbook bölümüne;

Option Explicit
 
Private Sub Workbook_Activate()
    Application.OnKey "{Delete}", "SABİTLERİ_SİL"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{Delete}"
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "{Delete}"
End Sub

 

[mcigoz]

Selamlar,

Eğer kullandığınız tablodaki formülleriniz sabit hücrelerde ise sayfa koruma yöntemi ile formüllerinizi koruyabilirsiniz. Bu konuyla ilgili aşağıdaki linkten faydalanabilirsiniz.

Formülleri Korumak (Video)

Bunun dışında makro kullanarak DELETE tuşuna özgü bir yordam kullanabilirsiniz. Bununla ilgili ekteki örnek dosyayı incelermisiniz.

"A" sütunundaki verilerden bir kısmını seçip DELETE tuşuna basın. Sadece formül dışındaki hücrelerin içeriği silinecektir.

Kullanılan kodlar;

Boş bir modüle;

Option Explicit
 
Sub SABİTLERİ_SİL()
    Dim Hücre As Range
 
    For Each Hücre In Selection
        If Hücre.Value <> "" And Not Hücre.HasFormula Then Hücre.ClearContents
    Next
End Sub

ThisWorkbook bölümüne;

Option Explicit
 
Private Sub Workbook_Activate()
    Application.OnKey "{Delete}", "SABİTLERİ_SİL"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{Delete}"
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "{Delete}"
 
End Sub

çok teşekkürler bi sorum daha var çalışma kitabında 88 sayfa var her sayfanın j3 hucresinde artan numara olmasını istiyorum araya sayfa eklediğimde numaralandıma yeni sayfayıda dahil ederek devam etsin mumkunmudur? birde bu 88 ayfayı alfabetik nasıl sıralarım?

 

[Korhan Ayhan]

Selamlar,

Yeni sorularınızı başka bir başlık açarak sorun.

Ayrıca sayfa sıralama ile ilgili forumda örnekler var. Lütfen arama yapınız.