NETSİS BÜYÜK ALIŞ BÜYÜK SATIŞ İÇİN EXCEL MAKRO
Netsis’te Fatura modülünde “Fatura / İrsaliye İcmali” penceresinden raporlayıp Excel formatında kaydedin. Oluşturduğunuz Excel dosyasını açıp Visual Basic bölümünü açın aşağıdaki kodu kopyalayıp yapıştırın ve çalıştırın.
Attribute VB_Name = "Module1"
Sub liste()
belge = 0
firma = ""
toplam = 0
Cells(1, 1).Select
For i = 2 To 10000
Cells(i, 1).Select
If ActiveCell.Value = "" Then
Cells(i - 1, 4).Select
firma = ActiveCell.Value
Cells(i, 14).Select
toplam = ActiveCell.Value
Cells(i + 1, 1).Select
belge = ActiveCell.ValueIf toplam >= 5000 Then
Cells(i, 18).Select
ActiveCell.Value = firma
Cells(i, 19).Select
ActiveCell.Value = belge
Cells(i, 20).Select
ActiveCell.Value = toplam
End If
End If
Next i
liste2
End Sub
Sub liste2()
belge2 = 0
firma2 = ""
toplam2 = 0
sira = 1
Cells(1, 18).Select
For s = 1 To 10000
Cells(s, 18).Select
If ActiveCell.Value <> "" Then
firma2 = ActiveCell.Value
Cells(s, 19).Select
belge2 = ActiveCell.Value
Cells(s, 20).Select
toplam2 = ActiveCell.Value
Cells(sira, 21).Select
ActiveCell.Value = firma2
Cells(sira, 22).Select
ActiveCell.Value = belge2
Cells(sira, 23).Select
ActiveCell.Value = toplam2
sira = sira + 1
End If
Next s
End Sub