otomatik satır silme

[nuclearist]

Herkese iyi akşamlar.,
elimde 4 sütun data var (bunlar A,B,C,D sütunlarıdır). bunlardaki satır sayısı değişebiliyor. Diğer dört sütunda (E,F,G,H) otomatik hesaplanılan data bulunmakta. bu dört sütundaki satır sayısının ilk dört sütundaki kadar olmasını artan kısımların boşaltılmasını arzu ediyorum. bu sorunum ile ilgili bir kod verebilir misiniz. Şimdiden Teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sil()
Dim deg(4)
For a = 1 To 4
deg(a) = Cells(65536, a).End(3).Row
Next
sat = WorksheetFunction.Max(deg()) + 1
Range("e" & sat & ":h65536").Clearcontents
End Sub

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde tarif edebilirmisiniz.

 

[nuclearist]

Sayın leventm yardımınız için teşekkür ederim.
verdiğiniz kodda değişkenlerin boyutlarını tanımlayarak işler hale getirebildim. ancak kodun çalışması için vb de çalıştır butonuna basmam gerekiyor. bu işi otomatik hale getirebilir miyiz?
saygılarımla...

 

[Levent Menteşoğlu]

Bu durumda bir örnek dosya eklermisiniz.

 

[nuclearist]

tabiki gönderebilirim.dosya biraz büyükçe, sıkıştırsam daha iyi olacak.
ekli dosya açılınca VERI adlı sayfa gelecek. burada en alttan bir satır sildiğimizde Debye adlı sayfada (verdiiğini kod bu sayfada) E,F,G,H satırlarının da silinmesi gerekiyor. teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
sat = Selection.Row
If Cells(sat, "a") = "" Then Sheets("Debye").Rows(sat).ClearContents
End Sub

 

[nuclearist]

Sayın leventm. yardımınız için teşekkür ederim. ama işe yaramadı. sanırım ilk gönderdiğiniz kodu kullanıp makroyu elle çalıştıracağım. iyi geceler.

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz sayfada silme işlemini nasıl yapıyorsunuz ? Birde VERI isimli sayfanızda örneğin 50. satırı sildiğinizde Debye isimli sayfada da 50. satırdaki E,F,G,H satırlarımı silinecek ?

 

[nuclearist]

Sayın Cost Control. silme işlemini Sayın Leventm beyin verdiği kodu kullanarak yapıyorum. ancak bunun için kod sayfasından makroyu çalıştırmam gerekiyor. sorum tam olarak dediğiniz gibi olacak. VERI sayfasındaki satır silinince diğer sayfalardaki E,F,G,H sütunlarının ilgili satırları da silinmeli. dosyanın sıkıştırılmış halini ekliyorum.
bu arada. kitaptaki tüm sayfalar içindeki grafikler otomatik olarak güncellenebilir mi? (çünkü satır sayısı değiştiğinde grafik içindeki serinin aralığı da değişmeli). şimdiden teşekkür ederim. iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Ekte dosyanızda gerekli düzenlemeleri yaptım. VERI isimli sayfada A sütununda bir hücrede silme işlemi yaptığınızda diğer sayfalarda da ilgili satır içeriği tamamen silinecektir.

 

[nuclearist]

çok teşekkür ederim. sayın Cost Control. dosyayı şimdi indirdim. birazdan inceleyeceğim. ilginize teşekkürler...