DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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