Kod Düzenleme

[crazy5252]

Aşağıdak, kodu A1 ve V2330 aralığını otomatik tek tuşla silmek için uyarlayabilirmiyiz?

Sub ClearUnlockedCells()
'Updateby20140724
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    If Rng.Locked = False Then Rng.ClearContents
Next
Application.ScreenUpdating = True
End Sub

 

[YUSUF44]

Asıl yapmak istediğiniz nedir?
Belirttiğiniz aralığın içeriğini boşaltmak mı?
Belirttiğiniz aralığın hem içeriğini hem biçimlerini temizlemek mi?
Belirttiğiniz aralığı tamamen silmek mi (bu durumda hücreler yukarı mı sola mı sürüklenecek?)?

Ya da başka bir şey mi?

 

[crazy5252]

Asıl yapmak istediğiniz nedir?
Belirttiğiniz aralığın içeriğini boşaltmak mı?
Belirttiğiniz aralığın hem içeriğini hem biçimlerini temizlemek mi?
Belirttiğiniz aralığı tamamen silmek mi (bu durumda hücreler yukarı mı sola mı sürüklenecek?)?

Ya da başka bir şey mi?

belirli alanda kilitli olmayan hücre içeriğini temizleme. ve bu makroyu butona eklemek istiyorum

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Kilitli_Olmayan_Hucreleri_Temizle()
    Dim Alan As Range, Hucre As Range
    
    Set Alan = Range("A1:V2330")
    
    For Each Hucre In Alan
        If Hucre.Locked = False Then Hucre.ClearContents
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[crazy5252]

Deneyiniz.

Option Explicit

Sub Kilitli_Olmayan_Hucreleri_Temizle()
    Dim Alan As Range, Hucre As Range
   
    Set Alan = Range("A1:V2330")
   
    For Each Hucre In Alan
        If Hucre.Locked = False Then Hucre.ClearContents
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Birleştirilmiş bir hücrenin bir parçası değiştirilemez diye hata veriyor. bunu nasıl düzeltiriz

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Kilitli_Olmayan_Hucreleri_Temizle()
    Dim Alan As Range, Hucre As Range
    
    Set Alan = Range("A1:V2330")
    
    For Each Hucre In Alan
        If Hucre.Locked = False Then Hucre.MergeArea.ClearContents
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub