Kesilen fatura kayıtlarını başka sayfaya ekleyerek kaydetmek.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet: Set s1 = Sheets("FATURA")
Dim s2 As Worksheet: Set s2 = Sheets("Fatura Kayıtları")
Dim son2 As Long: son2 = s2.Range("A65500").End(xlUp).Row + 1
Say = WorksheetFunction.CountIf(s2.Range("d2:d" & son2), s1.Cells(4, 6))
If Say > 0 Then MsgBox "Bu fatura daha önce kaydedilmiştir...", vbInformation, "ASKM": Exit Sub

For i = 11 To 35
If s1.Cells(i, 1) <> "" Then
s2.Cells(son2, 1).Value = s1.Cells(2, 1).Value
s2.Cells(son2, 2).Value = s1.Cells(6, 6).Value
s2.Cells(son2, 3).Value = s1.Cells(8, 6).Value
s2.Cells(son2, 4).Value = s1.Cells(4, 6).Value 'fatura no
s2.Cells(son2, 5).Value = s1.Cells(i, 1).Value
s2.Cells(son2, 6).Value = s1.Cells(i, 2).Value
s2.Cells(son2, 7).Value = s1.Cells(i, 3).Value
s2.Cells(son2, 8).Value = s1.Cells(i, 4).Value
s2.Cells(son2, 9).Value = s1.Cells(i, 5).Value
s2.Cells(son2, 10).Value = s1.Cells(i, 6).Value
s2.Cells(son2, 11).Value = Round(s2.Cells(son2, 10) * 0.18, 2)
s2.Cells(son2, 12).Value = s2.Cells(son2, 10) + s2.Cells(son2, 11)
End If
son2 = son2 + 1
Next i



End Sub