DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
Sat = ActiveCell.Row
gsat = Sheets("Ödemeler").[A65536].End(3).Row + 1
Sheets("Ödemeler").Cells(gsat, 1) = Cells(Sat, 1)
Sheets("Ödemeler").Cells(gsat, 2) = Cells(Sat, 2)
Sheets("Ödemeler").Cells(gsat, 3) = Cells(Sat, 3)
Range(Cells(Sat, 2), Cells(Sat, 3)).ClearContents
Range(Cells(Sat, 5), Cells(Sat, 5)).ClearContents
End Sub