[ÇÖZÜLDÜ] Seçili hücrelerin içeriğini boşaltma

[enteresan]

Sevgili excel'ci arkadaşlarım. Kullanmakta olduğum bir uygulamada, C sütunundaki hücreler için bir makro kullanmaktayım. Sanırım bu makrodan dolayı hücrelerin içeriğini temizlerken kum saati çıkmakta ve uzunca müddet (ben Esc'ye basana kadar da) gitmemektedir. Her yolu denedim. Yani hücreyi seçip sağ klik ile "içeriği temizle" dedim olmadı, hücreyi seçip delete tuşuna bastım olmadı. Sadece hücreyi seçip ara çubuğu ile boşaltırsam işe yarıyor. Sorum şu ki, birden fazla hücreyi seçip ara çubuğu ile boşaltabileceğim bir makro yazılabilir mi. Yani şu makroyu toplu hale getirmek mümkün mü? İlgilenenlere teşekkür eder saygılar sunarım...

Range("G8").Select
ActiveCell.FormulaR1C1 = " "
Range("G9").Select
ActiveCell.FormulaR1C1 = " "
Range("G10").Select
ActiveCell.FormulaR1C1 = " "
Range("G11").Select
ActiveCell.FormulaR1C1 = " "
.....
.......
........
..... şeklinde uzayıp gidiyor....

 

[Orion1]

G8:G65536 hücre aralığını temizler.

Sub temizle()
Range("G8:G65536").ClearContents
End Sub

 

[Necdet]

Merhaba,

Range("G8:G128").ClearContents

gibi kullanabilirsiniz.

 

[enteresan]

Sevgili orion2 ve Necdet hocam, ilginize teşekkür ederim ama sanırım yazdığımı okumamışsınız. Bunları denedim olmadı. Bana yukarıda belirttiğim gibi yani Range("G11").Select
ActiveCell.FormulaR1C1 = " "
bunun gibi bir makro lazım. Bu makro sadece tek hücrenin içini boşaltıyor. Benim istediğim ise birden fazla hücrenin içeriğini aynı yöntemle bir kerede boşaltmak. Saygılar..

 

[Necdet]

Merhaba, Sayın enteresan,

Gerek Sayın Orion2'nin gerekse benim verdiğim kodlar, bir çırpada seçili hücrelerin içeriğini boşaltıyor.

Bence siz denememişsiniz

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[Ferhat Pazarçevirdi]

Aşağıdaki şekilde de deneyebilirsiniz.

With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
      For Each hcr In Range("G8:G200").Cells
          hcr.Formula = ""
[COLOR=green]'veya     hcr.Value = Empty[/COLOR]
      Next
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
End With

 

[enteresan]

Merhaba, Sayın enteresan,

Gerek Sayın Orion2'nin gerekse benim verdiğim kodlar, bir çırpada seçili hücrelerin içeriğini boşaltıyor.

Bence siz denememişsiniz

Hocam, size yalan söyleyecek değilim. Dosyayı ekte gönderiyorum. Bir de siz deneyin isterseniz. Saygılarımla...

 

[Necdet]

Dosya şifreli. O yüzden ne olduğunu anlayamadım.

 

[Orion1]

Hocam, size yalan söyleyecek değilim. Dosyayı ekte gönderiyorum. Bir de siz deneyin isterseniz. Saygılarımla...

Anlaşılan benim yolladığım dosyayı Denememeişsiniz.
Sizin yolladığınız dosyada ise VBA şifre korumalı.Şifresini kaldırıp öyle yollayınız.

 

[enteresan]

Anlaşılan benim yolladığım dosyayı Denememeişsiniz.
Sizin yolladığınız dosyada ise VBA şifre korumalı.Şifresini kaldırıp öyle yollayınız.

Çok özür dileyerek tekrar gönderiyorum.

 

[Orion1]

Çalışma sayfasına aşağıdaki yazmış olduğunuz kodlardan kaynaklanıyor.
Rapor adlı çalışma sayfasındaki aşağıdaki kodları silerseniz,sorun ortadan kalkacaktır.O kodların yaptığını bir butona atayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Application.Intersect(Target, [C2:C500]) Is Nothing Then Exit Sub
    Set BUL = [IU:IU].Find(Target)
    If Not BUL Is Nothing Then
    Target.Offset(0, 0) = Cells(BUL.Row, BUL.Column + 1)
    Target.Offset(1, 0) = Cells(BUL.Row + 1, BUL.Column + 1)
    End If
End Sub

 

[Ferhat Pazarçevirdi]

Sanırım bütün cevapları birleştirip şunu yapmak en iyisi

With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
     .EnableEvents = False
           Range("C4:C1500").ClearContents
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
     .EnableEvents = True
End With

 

[enteresan]

Sanırım bütün cevapları birleştirip şunu yapmak en iyisi

With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
     .EnableEvents = False
           Range("C4:C1500").ClearContents
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
     .EnableEvents = True
End With

Evet sevfili fpc rumuzlu hocam, işte bu kadar. Sonsuz saygı ve sevgilerimle. Elleriniz dert görmesin.....