Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Sayfa adına sağ tuş ile açılan pencerede Taşı veya kopyala yı seçin
Yine açılan pencerede kitap yani dosya seçin.
(sona taşı) tek tık ile seçili hale getirin.
Kopya oluştur tik alanını işaretleyin.
Tamam butonuna basın.
Böylece işlem yaptığınız sayfanın tüm özellikleri , verileri ve sayfaya yazılan makroları ile birlikte bir yedeğini oluşturmuş oldunuz. (Bundan sonra sayfa adını değiştirin.)
Yada;
Sayfanın kod bölümüne aşağıdaki makroları yerleştirin ve temizle makrosunu bir butona bağlayın.
kod yani makro yazılan alana geçmek için sayfada iken Alt + F11 tuşlarına birlikte basın
İyi çalışmalar.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sat = Target.Row
süt = Target.Column
If sat >= 5 And süt = 5 And Cells(sat, süt) = "aktar" Then
sonsatir = Range("h65536").End(xlUp).Row + 1
Cells(sonsatir, "h") = Cells(sat, 1)
Cells(sonsatir, "ı") = Cells(sat, 4)
Range("h" & sonsatir & ":ı" & sonsatir).Borders.LineStyle = xlContinuous
End If
Cancel = True
End Sub
Sub temizle()
Range("h5:ı65536").ClearContents
Range("h5:ı65536").Borders.LineStyle = xlNone
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.