İlgili Satır Silinmesi

[nuclearist]

İyi günler,
sayfa 1 deki satır değişimlerini diğer sayfalara yansıtmak için aşağıdaki kodu kullanıyorum. örneğin elli satır data varken son satırı sildiğimde budeğişim diğer sayfalara yansıyor. ancak elli satırın 46. satırı ve aşağısını komple sildiğimde diğer sayfalarda sadece 46. satır silinmiş oluyor. bu sorunu nasıl halledebilirim?
şimdiden telekkür eder, iyi çalışmalar dilerim.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Satır As Integer
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Satır = Selection.Row
If Cells(Satır, "A") = "" Then
Sheets("Debye").Rows(Satır).ClearContents
Sheets("Cole-Cole").Rows(Satır).ClearContents
Sheets("Cole-Davidson").Rows(Satır).ClearContents
Sheets("Hav-Neg").Rows(Satır).ClearContents
Sheets("MWS").Rows(Satır).ClearContents
End If
End Sub

 

[Kemal Demir]

Aşagıdaki Kod 1.Sheet itibari ile Tüm Sheetlerin 46 Satırı ve sonrasını Etkiler.

Sub kirkaltisil()
For x=1 to sheets.Count
'Satır İçeriği ni siler
Sheets(x).Rows("46:100").ClearContents
'Satır kopmle siler
Sheets(x).Rows("46:100").delete
Next
'1.Sheet'i gider bunu isteye göre değiştir
Sheets(1).select
End Sub

Umarım Doğru anlamısımdır.

 

[nuclearist]

Aşagıdaki Kod 1.Sheet itibari ile Tüm Sheetlerin 46 Satırı ve sonrasını Etkiler.

Sub kirkaltisil()
For x=1 to sheets.Count
'Satır İçeriği ni siler
Sheets(x).Rows("46:100").ClearContents
'Satır kopmle siler
Sheets(x).Rows("46:100").delete
Next
'1.Sheet'i gider bunu isteye göre değiştir
Sheets(1).select
End Sub

Umarım Doğru anlamısımdır.

teşekkür ederim ancak, ben 46 yı örnek olarak verdim. bu sayı değişken. yazacağımız kod 1. sayfanın birinci kolonundaki data sayısını sayıp diğer sayfalardaki diğer tüm kolonların satırlarını ayarlamalı.

 

[hamitcan]

Bir de aşağıdaki şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
ilksatir = Selection.Row
sonsatir = Selection.SpecialCells(xlCellTypeLastCell).Row
If Target.Column = 1 And Cells(ilksatir, 1) = "" Then
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Sayfa1" Then
Sheets(i).Rows(ilksatir & ":" & sonsatir).Clear
End If
Next
End If
End Sub

 

[nuclearist]

Bir de aşağıdaki şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
ilksatir = Selection.Row
sonsatir = Selection.SpecialCells(xlCellTypeLastCell).Row
If Target.Column = 1 And Cells(ilksatir, 1) = "" Then
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Sayfa1" Then
Sheets(i).Rows(ilksatir & ":" & sonsatir).Clear
End If
Next
End If
End Sub

Sayın Hamitcan ilginiz için teşekkür ederim. benim bu kodu kullandığım sayfaya sayfa koruması koymam gerekiyor (ilk dört kolon hariç ). yapılacak olan düzeltme diğer sayfalarda ilk yedi kolonu etkileyecek. kod bu haliyle sayfa koruma hatası veriyor. kodu bahsettiğim şekilde güncellemeniz mümkün mü? teşekkür ederim.

 

[nuclearist]

Sayın arkadaşlar, büyük uğraşlar sonucu problemi çözdüm. hepinize teşekkür ederim.

Private Sub Worksheet_Deactivate()
sonsat = Sheets("VERI").[a65536].End(3).Row
Sheets("Debye").Range("E" & sonsat + 1 & ":G65536").ClearContents
End Sub