sutundaki istenilen hücreyi silme

[kemal turan]

Merhaba,
Aşağıdaki kodumuzu sitemizden buldum.
Bu koda ekleme kopyala yapıştır özelliği gerekiyor.
Açıklamayı örnek dosyada yaptım.
Teşekkür edeirm.


Option Explicit
Sub SİL()
Cells(ActiveCell.Row, "B").ClearContents
Cells(ActiveCell.Row, "C").ClearContents
End Sub

 

[acolkesen1]

Merhaba,
Cells(ActiveCell.Row, "B").Delete
Cells(ActiveCell.Row, "c").Delete
şeklide değiştirin..

 

[kemal turan]

Sn.Acolkesen1,
ilginiz için teşekkür ederim.
Dosyamdaki sayfa kodunda değişiklik yapmıştım.
Dosyaya bakabildiniz mi acaba.
Silme işleminden sonra kes-yapıştır işlemi için yardımcı olabilecekmisiniz.
Teşekkür ederim.

 

[kemal turan]

Merhaba,
İhtiyacım olan kod için yardımlarınızı bekliyorum.
Teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Kemal bey "Delete" komutunu kullanırsanız kes-yapıştır işlemine gerek kalmaz...

 

[kemal turan]

Merhaba Korham Hocam,
Delete komutunu denedim oldu.
Fakat benim b sutunu ile m sutunu arasında düşeyara formüllerim var.onlarda siliniyor.
Sadece 2 sutundaki verilerimizi istediğim gibi silebilirsek çok iyi olur.
Aksi halde delete ile devam edip, sayfayı yenilediğimde formülleride her defasında yenilemem gerekecek.
Çok teşekkür ederim.
Selametle kalınız.

 

[Korhan Ayhan]

Kemal Bey,

Satır silmek istiyorsanız ve sayfanızda formüller varsa kullandığınız formülleri bu yönde revize ederseniz sorun kalmaz. Yapamam derseniz bu şekilde olan bir dosya ekleyip yapmak istediğiniz işlemi açıklayın yardımcı olalım.

 

[kemal turan]

Pardon korhan hocam,
yanındaki hücre bilgilerini silmiyor.
Çok teşekkür ederim.
Selmetle kalınız

 

[kemal turan]

Merhaba korhan hocam,
Deneme sayfasında sorun görülmedi, fakat orjinal dosyama uyarladığımda sorun çıktı.
Orjinal dosyama bir bakarsanız sevinirim.
Gerekli izahatı orada yaptım.
Hakınızı helal ediniz

 

[kemal turan]

Merhaba Korhan hocam,
Sitede yaptığım araştıma ile aşağıdaki şekilde kodu revize ettim.
İş sonunda eksilen formüllü satır adedini de revize ederek sorunu çözdüm.
Teşekkür eder hayırlı geceler dilerim.

Option Explicit

Sub SİL()
Cells(ActiveCell.Row, "C").EntireRow.Delete

End Sub