Sub cari_kaydet()
satir = Cells(Rows.Count, "B").End(3).Row + 1
If ActiveSheet.Shapes("satisbtn").OLEFormat.Object.Value = 1 Then
Cells(satir, "B").Value = "Satış"
Cells(satir, "C").Value = Range("D3").Value
Cells(satir, "D").Value = Range("D4").Value
Cells(satir, "E").Value = Range("E4").Value
Cells(satir, "F").Value = Range("D5").Value
Cells(satir, "H").Value = Range("D6").Value
Cells(satir, "I").Value = Range("D7").Value
Cells(satir, "J").Value = Range("D8").Value
Cells(satir, "K").Value = Range("D9").Value
Cells(satir, "S").Value = Range("D15").Value
Cells(satir, "T").Value = Range("D16").Value
Cells(satir, "U").Value = Range("D17").Value
Cells(satir, "V").Value = Range("D18").Value
End If
If ActiveSheet.Shapes("ihracatbtn").OLEFormat.Object.Value = 1 Then
'Cells(satir, "B").Value = "İhracat"
End If
If ActiveSheet.Shapes("tahsilatbtn").OLEFormat.Object.Value = 1 Then
'Cells(satir, "B").Value = "Tahsilat"
End If
If ActiveSheet.Shapes("tumubtn").OLEFormat.Object.Value = 1 Then
Cells(satir, "B").Value = "Tümü"
Cells(satir, "C").Value = Range("D3").Value
Cells(satir, "D").Value = Range("D4").Value
Cells(satir, "E").Value = Range("E4").Value
Cells(satir, "F").Value = Range("D5").Value
Cells(satir, "H").Value = Range("D6").Value
Cells(satir, "I").Value = Range("D7").Value
Cells(satir, "J").Value = Range("D8").Value
Cells(satir, "K").Value = Range("D9").Value
Cells(satir, "M").Value = Range("D10").Value
Cells(satir, "O").Value = Range("D11").Value
Cells(satir, "P").Value = Range("D12").Value
Cells(satir, "Q").Value = Range("D13").Value
Cells(satir, "R").Value = Range("D14").Value
Cells(satir, "S").Value = Range("D15").Value
Cells(satir, "T").Value = Range("D16").Value
Cells(satir, "U").Value = Range("D17").Value
Cells(satir, "V").Value = Range("D18").Value
End If
Range("L" & satir).FormulaR1C1 = "=((RC[-3]*RC[-2])*RC[-1]/100)+(RC[-3]*RC[-2])"
Range("N" & satir).FormulaR1C1 = "=RC[-5]*RC[-1]"
End Sub