kdv raporu

[hidayet_saglam]

arkadaşlar bu konuda bana yardımcıolursanız sevinirim

 

[veyselemre]

Sub dene()
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Rapor").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

    Sheets("alınan rapor").Copy after:=Sheets(1)
    ActiveSheet.Name = "rapor"

    For x = 2 To [a65536].End(3).Row
        al = Cells(x, 1)
        If Not IsNumeric(al) And al <> "" And Cells(x, 5) = "" Then
            anaSatir = x
        ElseIf IsNumeric(al) Then
            sut = 0
            Select Case al
                Case 0
                    sut = 10
                Case 1
                    sut = 11
                Case 8
                    sut = 12
                Case 18
                    sut = 13
            End Select
            Cells(anaSatir, sut) = Cells(x, 5)
            If al > 0 Then Cells(anaSatir, sut + 3) = Cells(x, 8)
            Rows(x).ClearContents
        End If
    Next x

    For x = [a65536].End(3).Row To 2 Step -1
        If Cells(x, 1) = "" Then Rows(x).Delete
    Next x

    [a1:p1] = Array("Cari &#220;nvan", "Tarih", "Belge No", "Toplam &#304;ndirim", "matrah", "Kdv Siz Tutar", "Kdv", "Kdv.Tut", "Toplam", "&#37;0 matrah", "%1 matrah", "%8 matrah", "%18 matrah", "%1 kdv", "%8 kdv", "%18 kdv")
    Cells.EntireColumn.AutoFit

End Sub

 

[hidayet_saglam]

usta büyüksün

eline koluna sağlık duacınım kardeş
büyük bir yükten kurtardın