Hvorfor udskriver denne det samme og ikke skifter ved ix
Er ved at bygge videre på en sub jeg ikke selv har lavet, men jeg har et problem!problemet er at den udskriver (til ark) samme række x antal gange, selvom den egentlig skulle udskrive én række pr. sælger og så skifte til næste sælger - Tror det er et sted der hvor jeg fylder arrayet, men kan sku ikke gennemskue det!
------------------------------------------------------------
Sub prøve()
Workbooks("outboundny3udg.xls").Worksheets("Sælger").Activate
antalRÆKsælger = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row - 1
ReDim sælgerstatarray(antalRÆKsælger - 1, 8)
Call nulstilsælgerarray
Call optælsælgerstat
Call udskriftsælgerstat
Workbooks("outboundny3udg.xls").Worksheets("Sælgerstat").Activate
End Sub
Private Sub nulstilsælgerarray()
Dim ix As Integer
Workbooks("outboundny3udg.xls").Worksheets("Sælger").Activate
antalRÆKsælger = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row - 1
For ix = 0 To antalRÆKsælger - 1
sælgerstatarray(ix, 0) = "" 'sælger-init
sælgerstatarray(ix, 1) = 0 'antal skema
sælgerstatarray(ix, 2) = 0 'antal prod
sælgerstatarray(ix, 3) = 0 'Antal abn
sælgerstatarray(ix, 4) = 0 'antal lån
sælgerstatarray(ix, 5) = 0 'antal tele
sælgerstatarray(ix, 6) = 0 'lånomsæt
sælgerstatarray(ix, 7) = 0 'øvrigomsæt
sælgerstatarray(ix, 8) = 0 'totalomsæt
Next ix
End Sub
Private Sub optælsælgerstat()
Dim sælger, skema, prod, abn, lån, tele, lånomsæt, øvrigomsæt, totalomsæt
Dim ræk As Integer, antalRÆKsælger
Workbooks("outboundny3udg.xls").Worksheets("Sælger").Activate
antalRÆKsælger = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row - 1
antalSælgere = 0
For ræk = 2 To antalRÆKsælger
sælger = Cells(ræk, 1)
skema = Cells(ræk, 2)
prod = Cells(ræk, 3)
abn = Cells(ræk, 4)
lån = Cells(ræk, 5)
tele = Cells(ræk, 6)
lånomsæt = Cells(ræk, 7)
øvrigomsæt = Cells(ræk, 8)
totalomsæt = Cells(ræk, 9)
sælgerstat sælger, skema, prod, abn, lån, tele, lånomsæt, øvrigomsæt, totalomsæt
Next ræk
End Sub
Private Sub sælgerstat(sælger, skema, prod, abn, lån, tele, lånomsæt, øvrigomsæt, totalomsæt)
Dim ix As Integer, antalRÆKsælgerprøve As Integer
Workbooks("outboundny3udg.xls").Worksheets("Sælger").Activate
antalRÆKsælgerprøve = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row - 1
ReDim sælgerstatarray(antalRÆKsælgerprøve, 8)
For ix = 0 To antalRÆKsælgerprøve - 1
If sælgerstatarray(ix, 0) = "" Then
sælgerstatarray(ix, 0) = sælger
sælgerstatarray(ix, 1) = skema
sælgerstatarray(ix, 2) = prod
sælgerstatarray(ix, 3) = abn
sælgerstatarray(ix, 4) = lån
sælgerstatarray(ix, 5) = tele
sælgerstatarray(ix, 6) = lånomsæt
sælgerstatarray(ix, 7) = øvrigomsæt
sælgerstatarray(ix, 8) = totalomsæt
' Debug.Print sælgerstatarray(0, 0)
' Debug.Print sælgerstatarray(1, 0)
antalSælgere = antalSælgere + 1
End If
Next ix
End Sub
Private Sub udskriftsælgerstat()
Dim rRæk, sælger As Integer, antalRÆKsælgerprøve1 As Integer
Workbooks("outboundny3udg.xls").Worksheets("Sælger").Activate
antalRÆKsælgerprøve1 = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row - 1
rRæk = 2
For sælger = 0 To antalRÆKsælgerprøve1 - 1
With Workbooks("outboundny3udg.xls").Worksheets("Sælgerstat")
.Cells(rRæk, 1) = sælgerstatarray(sælger, 0) 'Sælgernavn
.Cells(rRæk, 2) = sælgerstatarray(sælger, 1) 'Skema
.Cells(rRæk, 3) = sælgerstatarray(sælger, 2) 'prod
.Cells(rRæk, 4) = sælgerstatarray(sælger, 3) 'abn
.Cells(rRæk, 5) = sælgerstatarray(sælger, 4) 'lån
.Cells(rRæk, 6) = sælgerstatarray(sælger, 5) 'tele
.Cells(rRæk, 7) = sælgerstatarray(sælger, 6) 'lånomsæt
.Cells(rRæk, 8) = sælgerstatarray(sælger, 7) 'øvrigomsæt
.Cells(rRæk, 9) = sælgerstatarray(sælger, 8) 'totalomsæt
End With
rRæk = rRæk + 1
Next sælger
End Sub
