Butona Bağlı Sil Makrosu

[1Al2Ver]

Merhaba,

Aşağıdaki makro ile, hücreye çift tıklaynca, hücredeki formülleri bozmadan, sadece verileri silmekteyim,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo hata
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 23) = vbNullString
Target.Offset(1).Select
hata:
End Sub

Arzum, çift tıklama yerine, bir buton aracılığı ile ve "Arama" isimli sayfada, B5:E100 aralığını, yine hücrelerdeki formülleri bozmadan, silmek istemekteyim,

Olması gereken kod nedir ?

Teşekkür ederim.

 

[Orion1]

Sub z()
On Error GoTo hata
If ActiveCell.Row >= 5 And ActiveCell.Row <= 100 And _
ActiveCell.Column >= 2 And ActiveCell.Column <= 5 Then
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 23) = vbNullString
ActiveCell.Offset(1).Select
End If
hata:
End Sub

 

[1Al2Ver]

Sub z()
On Error GoTo hata
If ActiveCell.Row >= 5 And ActiveCell.Row <= 100 And _
ActiveCell.Column >= 2 And ActiveCell.Column <= 5 Then
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 23) = vbNullString
ActiveCell.Offset(1).Select
End If
hata:
End Sub

Sayın Evren Gizlen merhaba,

Sözlerime ilginiz için teşekkür ederek başlamak istiyorum,

Kod'u Modül'e atadım, ancak butona bir kez tıkladığımda aktif satırın bir altındaki ve tüm sağındaki formül içermeyenleri silmekte,

Ayrıca aşağı doğru silme yapmam için her defasında butonu tıklıyorum,

Tek tıklama ile B5:E100 aralığını silmek için kodda ne gibi değişiklik gerekiyor ?

Teşekkür ederim.

 

[Orion1]

Arzum, çift tıklama yerine, bir buton aracılığı ile ve "Arama" isimli sayfada, B5:E100 aralığını, yine hücrelerdeki formülleri bozmadan, silmek istemekteyim,

Sayın Evren Gizlen merhaba,

Sözlerime ilginiz için teşekkür ederek başlamak istiyorum,

Kod'u Modül'e atadım, ancak butona bir kez tıkladığımda aktif satırın bir altındaki ve tüm sağındaki formül içermeyenleri silmekte,

Ayrıca aşağı doğru silme yapmam için her defasında butonu tıklıyorum,

Tek tıklama ile B5:E100 aralığını silmek için kodda ne gibi değişiklik gerekiyor ?

Teşekkür ederim.

Siz butona kod istemiştiniz Yukarıdaki söylediğiniz bu değilmidir?
Ayarıca sadece aktif satırı siler.Bir altını silmez.

 

[1Al2Ver]

Siz butona kod istemiştiniz Yukarıdaki söylediğiniz bu değilmidir?
Ayarıca sadece aktif satırı siler.Bir altını silmez.

Sayın Evren Gizlen merhaba,

Evet butona kod istedim ve yazdığınız kodu'da butona atadım, buraya kadar tamam,

İstediğime gelince, bir buton aracılığı ile B5:E100 arasındaki verilerden, içinde formül olanlar hariç, butona tek bir dokunuş ile silinsin idi,

Bu isteğe karşı yazdığınız kodu da ben uyguladım, ancak isteğimle örtüşmedi,

Teşekkür ederim.

 

[Orion1]

Aşağıdaki kodu kullanınız.

Sub z()
On Error GoTo hata
Range("B5:E100").SpecialCells(xlCellTypeConstants, 23) = vbNullString
ActiveCell.Offset(1).Select
hata:
End Sub

 

[1Al2Ver]

Aşağıdaki kodu kullanınız.

Sub z()
On Error GoTo hata
Range("B5:E100").SpecialCells(xlCellTypeConstants, 23) = vbNullString
ActiveCell.Offset(1).Select
hata:
End Sub

Sayın Evren Gizlen merhaba,

Zahmetleriniz ve çözüm için teşekkür ederim,

Yeniyılınız kutlu olsun,

Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen merhaba,

Zahmetleriniz ve çözüm için teşekkür ederim,

Yeniyılınız kutlu olsun,

Saygılarımla.

Rica ederim.
İyi çalışmalar.