satır silinebilirmi

[SAVAŞ1]

ekteki sayfada açıkladım bakarsanız

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayarak deneyin.

[vb:1:e7c86d8f45]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = 0 Then Exit Sub
If Intersect(Target, [d2:d65536]) Is Nothing Then Exit Sub
sat = Sheets("sayfa2").[a65536].End(3).Row + 1
For a = 1 To 4
Sheets("sayfa2").Cells(sat, a) = Cells(Target.Row, a)
Next
Rows(Target.Row).Delete
End Sub[/vb:1:e7c86d8f45]

 

[SAVAŞ1]

hiç bir işlev olamadı levent bey

 

[SAVAŞ1]

tamam oldu saolun