DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=-(Sayfa1!B3)
Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, son As Long
Set s1 = Sheets("satış")
Set s2 = Sheets("isimler")
x = s2.Range("d65536").End(3).Row + 1
s2.Range("d" & x).Value = -(s1.Range("b3").Value)
s2.Range("e" & x).Value = s1.Range("c3").Value
s2.Range("f" & x).Value = s1.Range("d3").Value
End Sub
Sub EKSİLT()
SON_SATIR = [isimler!D65536].End(3).Row + 1
If SON_SATIR < 4 Then SON_SATIR = 4
Sheets("isimler").Cells(SON_SATIR, "D") = [B3] * -1
Sheets("isimler").Cells(SON_SATIR, "E") = [C3]
Sheets("isimler").Cells(SON_SATIR, "F") = [D3]
MsgBox "Ödenen miktarı kişinin hesabından düştüm.", vbInformation
End Sub