Seçili hücreleri sil makrosu

[sward175]

Herkese Merhabalar,

Ekli dosyada belirlediğim alandaki bilgileri "Menü Sil" makrosu ile yapmak istiyorum fakat hata veriyor.
İzlediğim yöntem yanlış galiba bu konuda yardımlarınızı rica ederim.
Saygı ve sevgi ile,
sward175

 

[çıtır]

Deneyiniz.Kolay gelsin.

Sub Alansil()
 Adres = Application.InputBox("Hücre adresini yazınız.Örn A1:D10 gibi", "Hücre Adresi")
    If Adres = "" Or Adres = False Then
    MsgBox "İptal edildi"
    Exit Sub
    End If
For Each hucre In ActiveSheet.Range(Adres)
 If IsError(hucre.Value) = True Then
    Range(hucre.Address) = ""
    ElseIf Range(hucre.Address) <> "" Then Range(hucre.Address) = ""
    End If
Next
End Sub

 

[sward175]

Sayın: çıtır, Merhaba,
İlginiz için teşekkür ederim.
B3:N41 dediğimizde, C,E,G,I,K,M,O Hücreleri de siliniyor bu hücrelerde düşeyara formulü var silinmemesi gerekiyor, bu konuyu nasıl aşacağız,
Selamlar,
sward175

 

[çıtır]

Şuanda aklıma gelen silineçek alanları tektek belirterek olabilir.

 

[sward175]

Merhabalar,

Silinmesini istediğim hücreler,
B4:B12
B14:B22
B24:B32
B34:B42
B44:B52
D412
D1422
D2432
D3442
D4452
F4:F12
F14:F22
F24:F32
F34:F42
F44:F52
H4:H12
H14:H22
H24:H32
H34:H42
H44:H52
J4:J12
J14:J22
J24:J32
J34:J42
J44:J52
J4:L12
L14:L22
L24:L32
L34:L42
L44:L52
N4:N12
N14:N22
N24:N32
N34:N42
N44:N52

Selamlar,
sward175

 

[bmutlu966]

Çözüm dosyanızda.

 

[sward175]

Merhaba,:bmutlu966,

400 hatası veriyor,
sward175

 

[bmutlu966]

Sanırım office versiyonunuz nedeniyle bu hatayı verdi. Aşağıdaki gibi deneyin bence.

Range("B4:B12").Select
Selection.ClearContents

Range("B14:B22").Select
Selection.ClearContents

Range("B24:B32").Select
Selection.ClearContents

Range("B34:B42").Select
Selection.ClearContents

Range("B44:B52").Select
Selection.ClearContents

 

[sward175]

Sayın, bmutlu966,
Bu kodları göndermiş olduğum dosyaya uygulayabilir misiniz acaba.
Bende hata veriyor,

Saygı ve sevgi ile,
sward175

 

[bmutlu966]

Eğer bu dosya da çalışmaz ise Excel'inizde bir problem var demektir.

 

[Seyit Tiken]

Seçilen formüllü hücreleri silmez.

Selection.SpecialCells(2, 7) = ""

 

[sward175]

sayın, bmutlu966,
Elinize sağlık, Teşekkürler,
Gayet güzel çalışıyor,

sward175

 

[sward175]

Sayın: Seyit Tiken,

İlginize teşekkür ederim.
yazdığınız ilaveyi sayın bmutlu966' nın dosyası hata vermesi durumunda ilave edeceğim. Teşekkür ediyorum.
sward175

 

[çıtır]

Sayın sward175
Daha önce vermiş olduğum kodlarda formüllü alanların silinmemesini istemiştiniz.O anda olumlu cevap veremedim.Benimde ilgimi çekti,aşağıdaki kodları yazdım.Formülle yazılmış alanları silmiyor.Sorununuzu çözdünüz ançak belki birilerinin işine yarar, aynı zaman size de olumlu cevap vermiş olurum.Kolay gelsin.

Sub Alansil()
 Adres = Application.InputBox("Hücre adresini yazınız.Örn A1:D10 gibi", "Hücre Adresi")
    If Adres = "" Or Adres = False Then
    MsgBox "İptal edildi"
    Exit Sub
    End If
    On Error GoTo 20
For Each hucre In ActiveSheet.Range(Adres)
   If hucre.HasFormula = True Then GoTo 10
   Range(hucre.Address).ClearContents
10:
Next
MsgBox "İşlem Tamam", vbInformation
Exit Sub
20:
MsgBox "Belirlediğiniz Alanda Birleştirilmiş Hücreler Var,İşlem Yapılamıyor", vbInformation
End Sub