hücreleri sıra ile silmek

[tugay70]

bu gece sizlerden son isteğim olacak
gönderdiğim örnekte kaydet i tıklayınca nasıl tek tek kaydediyorsa sil i de tıklayınca geriye doğru tek tek silsin teşekkurler...

 

[tugay70]

koruma şifresi söylemeyi unuttum şifre "123"

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:c8bbcadd82]Sub sil()
Sheets("sayfa1").Unprotect "123"
son = [g65536].End(xlUp).Row
adr = "g" & son & ":" & "i" & son
Range(adr).Clear
Sheets("sayfa1").Protect "123"
End Sub
[/vb:1:c8bbcadd82]

 

[VisualBasic]

Option Explicit

Sub SıfreAc()
  Sheets("Sayfa1").Unprotect "123"
End Sub

Sub Sıfrele()
  Sheets("Sayfa1").Protect "123"
End Sub

Sub Aktar()
  Sheets("Sayfa1").Select
  SıfreAc
  [A2] = [B6] + [B8]
  Range("A2:C2").Copy Range(Range("G65536").End(xlUp).Offset(1, 0), Range("G65536").End(xlUp).Offset(1, 3))
  Sıfrele
End Sub

Sub Sil()
  Sheets("Sayfa1").Select
  SıfreAc
  Range(Range("G65536").End(xlUp), Range("G65536").End(xlUp).Offset(0, 3)).Clear
  Sıfrele
End Sub

Sub TumunuSil()
  SıfreAc
  Sheets("Sayfa1").Range("G:I").ClearContents
  Sıfrele
End Sub

 

[abazya]

Bak bakalım olmuşmu bu sefer denedim

 

[tugay70]

teşekkur ederim