• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Fatura bilgilerini aktarma

NADİR YILDIZ

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,418
Excel Vers. ve Dili
2016 Türkçe
Arkadaşlar Günaydın hepinize..Hesaplama tablosu sayfasında ki aynı ünvana sahip firmalara ait tarih, seri no, ft no, firma ünvanı,mal cinsi,miktarı,matrah,kdv ve bünyeye giren kdv tutarlarını yüklenilen kdv listesi sayfasında birleştirmek istiyorum.kısacası yukardaki gibi olmasını istiyorum..
 

Ekli dosyalar

arkadaşlar bu işlemin formüllemi yoksa makro ile yapılması daha uygun olur sizce
 
Kod: 
Sub test()
    Set s1 = Sheets("HESAPLAMA TABLOSU")
    Set s2 = Sheets("YÜKLENİLEN KDV LİSTESİ")

    lst = s1.Range("D15:R" & s1.Cells(Rows.Count, 4).End(3).Row).Value
    With CreateObject("Scripting.Dictionary")
        For i = LBound(lst) To UBound(lst)
            Key = lst(i, 1) & "|" & lst(i, 2) & "|" & lst(i, 3) & "|" & lst(i, 4)
            If Not .exists(Key) Then
                .Add Key, i
            Else
                sira = .Item(Key)
                lst(sira, 6) = lst(sira, 6) & "," & lst(i, 6)
                lst(sira, 7) = lst(sira, 7) & "," & lst(i, 7)
                lst(sira, 8) = lst(sira, 8) + lst(i, 8)
                lst(sira, 9) = lst(sira, 9) + lst(i, 9)
                lst(sira, 13) = lst(sira, 13) + lst(i, 13)
                lst(sira, 11) = ""
                lst(sira, 15) = 1
                lst(i, 1) = ""
            End If
        Next i
    End With
    sat = 5
    s2.Rows("5:" & Rows.Count).ClearContents
    For i = LBound(lst) To UBound(lst)
        If lst(i, 1) <> "" Then
            s2.Cells(sat, 2) = sat - 4
            s2.Cells(sat, 3).Resize(, 13).Value = Application.Index(lst, i, Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 13, 11, 14, 15))
            sat = sat + 1
            Top = Top + lst(i, 13)
        End If
    Next i
    s2.Cells(sat + 1, 11) = "Toplam"
    s2.Cells(sat + 1, 12) = Top
End Sub
 
Veysel bey teşekkürler..elinize sağlık..iyi günler dilerim
 
Arkadaşlar günaydın hesaplama tablomdaki aynı olan faturaları makro bu sayfada birleştimek için sağolsun Veysel Emre bey yardımcı olmuştu.ancak sorunum hesaplama tablosunda bazen aynı faturalardan birden çok satırda olabiliyor.yüklenilen kdv listesi sayfasına aktarılırken aynı faturaların mal cinsi,miktarı,matrah,kdv satırlarını iki defa aktarıyor.benim istediğim.hesaplama tablosunda birden çok aynı fatura olsa bile aynı faturaya ait sadece bir tane bilgisini bu sayfaya aktarması..bady,bady,93 adet,93 adet matrah ve kdv 2 katı değil.. bady,93 adet 279 , 22,32 gibi
 

Ekli dosyalar

Bu kodu bir dene sutünlar belki forklı olabilir eğer farklılık varsa buraya yaz hangi sütunlar toplanıp hangi sutüna gönderilecek.

Kod: 
Sub kdf_topla()

ZBasla = TimeValue(Now)
zaman = Timer
Application.ScreenUpdating = False
Application.Calculation = xlManual


Set S1 = Sheets("HESAPLAMA TABLOSU") ' veri sayfası
Set S2 = Sheets("YÜKLENİLEN KDV LİSTESİ") 'aktarılan sayfa

S2.Range("b5:o" & Rows.Count).ClearContents 'Clear
son1 = S1.Cells(Rows.Count, "b").End(3).Row

ReDim ara1(son1): ReDim ara2(son1):

For j = 15 To son1
ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "e")) & WorksheetFunction.Trim(S1.Cells(j, "f")) & WorksheetFunction.Trim(S1.Cells(j, "ı")) ' & WorksheetFunction.Trim(s1.Cells(j, "c"))
ara2(j) = 1
Next j

For m = 15 To son1
aranan5 = ara1(m)
say = 0
For t = 15 To son1
If ara1(t) = aranan5 Then

say = say + 1
If say > 1 Then
ara2(t) = 0
'MsgBox ara1(t) & Chr(10) & aranan5 & Chr(10) & say & Chr(10) & ara2(t) & Chr(10) & t
End If
'MsgBox ara1(t) & Chr(10) & aranan5 & Chr(10) & say & Chr(10) & ara2(t)
End If
Next t
Next m


sat1 = 5

For r = 15 To son1
aranan1 = ara1(r)
sut9 = ""
sut10 = ""
sut11 = 0
sut12 = 0
sut16 = 0

If ara2(r) = 1 Then

k = 0
For i = r To son1

If ara2(i) = 1 Then
If ara1(i) = aranan1 Then

k = k + 1

If k = 1 Then
sut9 = S1.Cells(i, 9).Value
sut10 = S1.Cells(i, 10).Value
Else
sut9 = sut9 & "," & S1.Cells(i, 9).Value
sut10 = sut10 & "," & S1.Cells(i, 10).Value
End If

sut11 = sut11 + CDbl(S1.Cells(i, 11).Value)
sut12 = sut12 + CDbl(S1.Cells(i, 12).Value)
sut16 = sut16 + CDbl(S1.Cells(i, 16).Value)
ara2(i) = 0
End If
End If
Next i


S2.Cells(sat1, 2).Value = sat1 - 4
S2.Cells(sat1, 3).Value = S1.Cells(r, 4).Value
S2.Cells(sat1, 4).Value = S1.Cells(r, 5).Value
S2.Cells(sat1, 5).Value = S1.Cells(r, 6).Value
S2.Cells(sat1, 6).Value = S1.Cells(r, 7).Value
S2.Cells(sat1, 7).Value = S1.Cells(r, 8).Value


S2.Cells(sat1, 8).Value = sut9
S2.Cells(sat1, 9).Value = sut10
S2.Cells(sat1, 10).Value = sut11
S2.Cells(sat1, 11).Value = sut12
S2.Cells(sat1, 12).Value = sut16


S2.Cells(sat1, 14).Value = S1.Cells(r, 17).Value
S2.Cells(sat1, 15).Value = S1.Cells(r, 18).Value


sat1 = sat1 + 1

End If
Next r

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
zBitis = TimeValue(Now)

MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
"İşlem süresi ; " & Format(Timer - zaman, "0.00") & Chr(10) & _
"Geçen Süre " & CDate(zBitis - ZBasla), vbInformation, " Sonuç Penceresi"

End Sub
 
gönderdiğin kodu uyguladım ancak listede aynı faturayı alt alta döküyor.benim istediğim bu değil.aynı olan faturayı birleştirmek istiyorum.ancak hesaplama tablosunda aynı faturadan birden çok olabiliyor.yüklenilen kdv listesine aktarırken aynı fatura hesaplama tablosunda kaç defa varsa toplayarak yazıyor.kısacası aynı faturadan hesaplama tablosunda kaç tane olursa olsun aynı fatura bilgilerini yüklenilen kdv listesine bir defa aktarmasını istiyorum.senin gönderdiğin kod alt alta sıralıyor.böyle istemiyorum.gönderdiğim örnekte sarı ile taralı alanlarda aynı faturadan kaç tane varsa hepsini yazmış.
 

Ekli dosyalar

Burada şunu öğrenmek istiyorum bu ayırımları fatura numarasına göre mi yapıyorsunuz.

Yani fatura numarasına göre aktarım yapılacak ama HESAPLAMA TABLOSU sayfasında K sütunu toplanacak P sütunu toplanmayacak. böylemi

Ben kodu E & F & I sütunları aynı ise toplama yapılacak aynı değilse alt alta işlem yapacak

her şey kodun burasında

Kod: 
ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "e")) & WorksheetFunction.Trim(S1.Cells(j, "f")) & WorksheetFunction.Trim(S1.Cells(j, "ı")) ' & WorksheetFunction.Trim(s1.Cells(j, "c"))

Siz bunu şöyle yapıp deneyin.

Kod: 
ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "f"))
 
Kodu bu şekilde denermisiniz.

Kod: 
Sub kdf_topla()

ZBasla = TimeValue(Now)
zaman = Timer
Application.ScreenUpdating = False
Application.Calculation = xlManual


Set S1 = Sheets("HESAPLAMA TABLOSU") ' veri sayfası
Set S2 = Sheets("YÜKLENİLEN KDV LİSTESİ") 'aktarılan sayfa
'Set S2 = Sheets("YÜKLENİLEN")
S2.Range("b5:o" & Rows.Count).ClearContents 'Clear
son1 = S1.Cells(Rows.Count, "b").End(3).Row

ReDim ara1(son1): ReDim ara2(son1):

For j = 15 To son1
[COLOR="Blue"]'ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "e")) & WorksheetFunction.Trim(S1.Cells(j, "f")) & WorksheetFunction.Trim(S1.Cells(j, "ı")) ' & WorksheetFunction.Trim(s1.Cells(j, "c"))[/COLOR]
[COLOR="Red"]ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "f"))[/COLOR]

ara2(j) = 1
Next j

For m = 15 To son1
aranan5 = ara1(m)
say = 0
For t = 15 To son1
If ara1(t) = aranan5 Then

say = say + 1
If say > 1 Then
ara2(t) = 0
'MsgBox ara1(t) & Chr(10) & aranan5 & Chr(10) & say & Chr(10) & ara2(t) & Chr(10) & t
End If
'MsgBox ara1(t) & Chr(10) & aranan5 & Chr(10) & say & Chr(10) & ara2(t)
End If
Next t
Next m


sat1 = 5

For r = 15 To son1
aranan1 = ara1(r)
sut9 = ""
sut10 = ""
sut11 = 0
sut12 = 0
sut16 = 0

If ara2(r) = 1 Then

k = 0
For i = r To son1

[COLOR="Blue"]'If ara2(i) = 1 Then[/COLOR]
If ara1(i) = aranan1 Then

k = k + 1

If k = 1 Then
sut9 = S1.Cells(i, 9).Value
sut10 = S1.Cells(i, 10).Value
Else
sut9 = sut9 & "," & S1.Cells(i, 9).Value
sut10 = sut10 & "," & S1.Cells(i, 10).Value
End If

sut11 = sut11 + CDbl(S1.Cells(i, 11).Value)
sut12 = sut12 + CDbl(S1.Cells(i, 12).Value)
sut16 = sut16 + CDbl(S1.Cells(i, 16).Value)
ara2(i) = 0
End If
[COLOR="Blue"]'End If[/COLOR]
Next i


S2.Cells(sat1, 2).Value = sat1 - 4
S2.Cells(sat1, 3).Value = S1.Cells(r, 4).Value
S2.Cells(sat1, 4).Value = S1.Cells(r, 5).Value
S2.Cells(sat1, 5).Value = S1.Cells(r, 6).Value
S2.Cells(sat1, 6).Value = S1.Cells(r, 7).Value
S2.Cells(sat1, 7).Value = S1.Cells(r, 8).Value


S2.Cells(sat1, 8).Value = sut9
S2.Cells(sat1, 9).Value = sut10
S2.Cells(sat1, 10).Value = sut11
S2.Cells(sat1, 11).Value = sut12
S2.Cells(sat1, 12).Value = sut16


S2.Cells(sat1, 14).Value = S1.Cells(r, 17).Value
S2.Cells(sat1, 15).Value = S1.Cells(r, 18).Value


sat1 = sat1 + 1

End If
Next r

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
zBitis = TimeValue(Now)

MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
"İşlem süresi ; " & Format(Timer - zaman, "0.00") & Chr(10) & _
"Geçen Süre " & CDate(zBitis - ZBasla), vbInformation, " Sonuç Penceresi"

End Sub
 
.

halit bey yine olmadı kodları yazdım sizde deneyin sarıyla işaretledim.hesaplama tablosunda aynı faturadan 2 adet olduğu için yüklenilen kdv listesine adetleri ve mla cinslerini ikişer defa yazdırıyor
 

Ekli dosyalar

Birde bu kodu dene

Kod: 
Sub Düğme15_Tıklat()

ZBasla = TimeValue(Now)
zaman = Timer
Application.ScreenUpdating = False
Application.Calculation = xlManual


Set S1 = Sheets("HESAPLAMA TABLOSU") ' veri sayfası
Set S2 = Sheets("YÜKLENİLEN KDV LİSTESİ") 'aktarılan sayfa
'Set S2 = Sheets("YÜKLENİLEN")
S2.Range("b5:o" & Rows.Count).ClearContents 'Clear

S1.Range("G15:G500").Interior.ColorIndex = xlNone

son1 = S1.Cells(Rows.Count, "b").End(3).Row

ReDim ara1(son1): ReDim ara2(son1):: ReDim ara3(son1):

For j = 15 To son1
'ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "e")) & WorksheetFunction.Trim(S1.Cells(j, "f")) & WorksheetFunction.Trim(S1.Cells(j, "ı")) ' & WorksheetFunction.Trim(s1.Cells(j, "c"))
ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "f")) ' & WorksheetFunction.Trim(S1.Cells(j, "g")) & WorksheetFunction.Trim(S1.Cells(j, "ı"))
ara3(j) = WorksheetFunction.Trim(S1.Cells(j, "f")) & WorksheetFunction.Trim(S1.Cells(j, "g")) & WorksheetFunction.Trim(S1.Cells(j, "ı"))
ara2(j) = 1
Next j

For m = 15 To son1
aranan5 = ara3(m)
say = 0
For t = 15 To son1
If ara3(t) = aranan5 Then

say = say + 1
If say > 1 Then
ara2(t) = 0
'MsgBox ara1(t) & Chr(10) & aranan5 & Chr(10) & say & Chr(10) & ara2(t) & Chr(10) & t
S1.Cells(t, 7).Interior.ColorIndex = 8
End If
'MsgBox ara1(t) & Chr(10) & aranan5 & Chr(10) & say & Chr(10) & ara2(t)
End If
Next t
Next m
'Exit Sub
sat1 = 5

For r = 15 To son1
aranan1 = ara1(r)
sut9 = ""
sut10 = ""
sut11 = 0
sut12 = 0
sut16 = 0

If ara2(r) = 1 Then

k = 0
For i = r To son1

If ara2(i) = 1 Then
If ara1(i) = aranan1 Then

k = k + 1

If k = 1 Then
sut9 = S1.Cells(i, 9).Value
sut10 = S1.Cells(i, 10).Value
Else
sut9 = sut9 & "," & S1.Cells(i, 9).Value
sut10 = sut10 & "," & S1.Cells(i, 10).Value
End If

sut11 = sut11 + CDbl(S1.Cells(i, 11).Value)
sut12 = sut12 + CDbl(S1.Cells(i, 12).Value)
sut16 = sut16 + CDbl(S1.Cells(i, 16).Value)
ara2(i) = 0
End If
End If
Next i


S2.Cells(sat1, 2).Value = sat1 - 4
S2.Cells(sat1, 3).Value = S1.Cells(r, 4).Value
S2.Cells(sat1, 4).Value = S1.Cells(r, 5).Value
S2.Cells(sat1, 5).Value = S1.Cells(r, 6).Value
S2.Cells(sat1, 6).Value = S1.Cells(r, 7).Value
S2.Cells(sat1, 7).Value = S1.Cells(r, 8).Value


S2.Cells(sat1, 8).Value = sut9
S2.Cells(sat1, 9).Value = sut10
S2.Cells(sat1, 10).Value = sut11
S2.Cells(sat1, 11).Value = sut12
S2.Cells(sat1, 12).Value = sut16


S2.Cells(sat1, 14).Value = S1.Cells(r, 17).Value
S2.Cells(sat1, 15).Value = S1.Cells(r, 18).Value


sat1 = sat1 + 1

End If
Next r

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
zBitis = TimeValue(Now)

MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
"İşlem süresi ; " & Format(Timer - zaman, "0.00") & Chr(10) & _
"Geçen Süre " & CDate(zBitis - ZBasla), vbInformation, " Sonuç Penceresi"

End Sub
 
kOD:

Kod: 
Sub Düğme15_Tıklat()
ZBasla = TimeValue(Now)
zaman = Timer
Application.ScreenUpdating = False
Application.Calculation = xlManual


Set S1 = Sheets("HESAPLAMA TABLOSU") ' veri sayfası
Set S2 = Sheets("YÜKLENİLEN KDV LİSTESİ") 'aktarılan sayfa
'Set S2 = Sheets("YÜKLENİLEN")
S2.Range("b5:o" & Rows.Count).ClearContents 'Clear

S1.Range("G15:G1000").Interior.ColorIndex = xlNone

son1 = S1.Cells(Rows.Count, "b").End(3).Row

ReDim ara1(son1): ReDim ara2(son1): ReDim ara3(son1): ReDim ara4(son1):: ReDim ara5(son1):: ReDim ara6(son1):

For j = 15 To son1
'ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "e")) & WorksheetFunction.Trim(S1.Cells(j, "f")) & WorksheetFunction.Trim(S1.Cells(j, "ı")) ' & WorksheetFunction.Trim(s1.Cells(j, "c"))
ara1(j) = WorksheetFunction.Trim(S1.Cells(j, "f")) ' & WorksheetFunction.Trim(S1.Cells(j, "g")) & WorksheetFunction.Trim(S1.Cells(j, "ı"))
ara3(j) = WorksheetFunction.Trim(S1.Cells(j, "f")) & WorksheetFunction.Trim(S1.Cells(j, "g")) & WorksheetFunction.Trim(S1.Cells(j, "ı"))
ara2(j) = 1
ara4(j) = WorksheetFunction.Trim(S1.Cells(j, "k"))
ara5(j) = WorksheetFunction.Trim(S1.Cells(j, "L"))
ara6(j) = WorksheetFunction.Trim(S1.Cells(j, "P"))
Next j

For m = 15 To son1
aranan5 = ara3(m)
aranan6 = ara4(m)

say = 0
For t = 15 To son1
If ara3(t) = aranan5 Then

say = say + 1
If say > 1 Then
ara2(t) = 0
ara4(m) = ara4(m) + CDbl(ara4(t))
ara5(m) = ara5(m) + CDbl(ara5(t))
ara6(m) = ara6(m) + CDbl(ara6(t))
'MsgBox ara1(t) & Chr(10) & aranan5 & Chr(10) & say & Chr(10) & ara2(t) & Chr(10) & t
S1.Cells(t, 7).Interior.ColorIndex = 8
End If
'MsgBox ara1(t) & Chr(10) & aranan5 & Chr(10) & say & Chr(10) & ara2(t)
End If
Next t
Next m

'Exit Sub
sat1 = 5

For r = 15 To son1
aranan1 = ara1(r)
sut9 = ""
sut10 = ""
sut11 = 0
sut12 = 0
sut16 = 0

If ara2(r) = 1 Then

k = 0
For i = r To son1

If ara2(i) = 1 Then
If ara1(i) = aranan1 Then

k = k + 1

If k = 1 Then
sut9 = S1.Cells(i, 9).Value
sut10 = S1.Cells(i, 10).Value
Else
sut9 = sut9 & "," & S1.Cells(i, 9).Value
sut10 = sut10 & "," & S1.Cells(i, 10).Value
End If

sut11 = sut11 + CDbl(ara4(i)) 'CDbl(S1.Cells(i, 11).Value)
sut12 = sut12 + CDbl(ara5(i)) 'CDbl(S1.Cells(i, 12).Value)
sut16 = sut16 + CDbl(ara6(i)) 'CDbl(S1.Cells(i, 16).Value)
ara2(i) = 0
End If
End If
Next i


S2.Cells(sat1, 2).Value = sat1 - 4
S2.Cells(sat1, 3).Value = S1.Cells(r, 4).Value
S2.Cells(sat1, 4).Value = S1.Cells(r, 5).Value
S2.Cells(sat1, 5).Value = S1.Cells(r, 6).Value
S2.Cells(sat1, 6).Value = S1.Cells(r, 7).Value
S2.Cells(sat1, 7).Value = S1.Cells(r, 8).Value


S2.Cells(sat1, 8).Value = sut9
S2.Cells(sat1, 9).Value = sut10
S2.Cells(sat1, 10).Value = sut11
S2.Cells(sat1, 11).Value = sut12
S2.Cells(sat1, 12).Value = sut16


S2.Cells(sat1, 14).Value = S1.Cells(r, 17).Value
S2.Cells(sat1, 15).Value = S1.Cells(r, 18).Value


sat1 = sat1 + 1

End If
Next r

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
zBitis = TimeValue(Now)

MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
"İşlem süresi ; " & Format(Timer - zaman, "0.00") & Chr(10) & _
"Geçen Süre " & CDate(zBitis - ZBasla), vbInformation, " Sonuç Penceresi"

End Sub
 
.

Halit bey günaydın sizi çok uğraştırdım biliyorum.ama çözüme ulaşamadık bir türlü en iyisi baştan anlatayım size.hesaplama tablosu sayfasında ay içinde yapılan ihracatlara ilişkin yüklenilen kdv'lerin hesaplamaları var.bu tabloda herhangi bir sorun yok.ay içinde yapılan ihracatları C sütunundaki İhracat ft no'ya göre takip ediyorum.asıl sorun burdan sonra başlıyor çünkü aynı firmaya ait aynı faturayı bazen birkaç ihracatta kullanıyorum.haliyle aynı fatura listede birkaç yerde yer alıyor.yüklenilen kdv listesine aktarırkende aynı faturayı listede iki defa yer aldığı için mal cinsi,miktar,matrah ve kdv'yi iki defa toplayarak aktarıyor..örnek olarak nadir 29843 nolu fatura aslında matrah 1.260 TL kdv'si 100,80 TL iken yüklenilen kdv listesinde matrah 2.520 TL KDV'si 201,60 TL olarak aktarıyor.yine halit 32676 nolu fatura aslında miktarı 50 ve 18 adet,matrah 680 TL KDV'si 54,40 iken yüklenilen kdv listesinde 1.360 matrah 108,80 kdv olarak aktarıyor..halit nadir ve hasan firmasından alınan ancak bir tek ihracatta kullanılan faturaları miktar,matrah,kdv'lerini doğru aktarıyor..özetle aynı fatura hesaplama tablosunda birden çok yerde varsa yüklenilen kdv listesine aktarırken matrah ve kdv'leri listede kaç defa varsa toplamını alıyor.Ayrıca halit 32676 ft.da 50 ve 18 adet elbise varken aktarırken sadece 50 elbise aktarıyor 50 adet,18 adet olması gerekiyor..eğer bu faturada mal cinsini değiştirirseniz örneği çorap yaptığınızda o zaman 50 ve 18 adet olarak aktarıyor...sorunların daha iyi anlaşılması için satıları renklendirdim..bu durumları düzeltmek istiyorum.teşekkür ederim ilginize
 

Ekli dosyalar

halit bey aktarırken sayılarda hata var yeşil ile renkli olan her iki sayfadada aynı olması gerekiyor.aktarımda sorun var
Genişletmek için tıkla ...

14 nolu mesajınıza 15 nolu mesajda ceavap verdim ancak faturalar aynı olduğu için yeşil renkli satırlardaki toplamlar aynı olmaması lazım.

diğer taraftan;

13 nolu mesajdaki kod sizin bu dediklerinizi yapması lazım kontrol edin.
 
halit bey 13 14 15 mesajlarınızı hepsine uyguladım uyguladıkça uyguladığım yeni örneği size attım son attığımda da yien sorun var..zaten 13 14 15 nolu mesajlar işimi görmüş olsaydı sizi daha fazla uğraştırmazdım..son örnek hata veriyor sonuç itibari ile sizde uygularsanız sorunun nerelerde kaynaklandığını göreceksiniz
 
16 nolu mesajınızdaki dosya ile ilgili
(YÜKLENİLEN KDV LİSTESİ) sayfasına 4 satır veri örnek olarak yapmışsınız.
aynı dosya ile ilgili verilerin tamamını istediğiniz gibi manuel elle (YÜKLENİLEN KDV LİSTESİ) sayfasına aktarın ve bir bakalım sonuç ne oluyor.

şimdi ben aktrıyorum 9 satırlık veri aktarıyor
 
halit bey ben anlatıyorum ama sonuç alamıyorum.bendede 9 satır aktarıyor sorun ayrıntılı olarak anlattım..16 nolu mesajımı okuyup kontrol ederseniz tam olarak ne demek istediğimi anlayacaksınız..zaten listeyi doğru aktarsa size yazıp durmam öyle değilmi
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst