|
Hallo Zusammen,
ich habe hier ein Script was nicht ganz so funktioniert wie ich erwarte. Ansich soll es Daten per Zeilenangabe in einer Tabelle X suchen und in einem Tabellenblatt Y ausgeben. Danach wandert die select Zeile eine Spalte weiter (X-Achse = Datum). Der columnCounter funktioniert perfekt, allerdings gibt das Skript die Werte einer falschen Zeile aus, was irgendwie keinen Sinn macht, da die Zeile fest definiert ist. U.a. funktioniert auch die Multiplikation mit (-1) nicht. Kann mir hier bitte jemand weiterhelfen...ich steh auf dem Schlauch.
For columnCounter = 7 To 18
Sheets(UploadDeptCode).Cells(counter, columnCounter) = Sheets(SalesDeptCode).Cells(55, (columnCounter + 4)) ' Gross sales pulled by month here from row 55.
Sheets(UploadDeptCode).Cells(18, columnCounter) = Sheets(SalesDeptCode).Cells(183, (columnCounter + 4)) * -1 'allowance for returns, a negative value into the upload, but it is a revenue account, so this should be ok. Row 183.
Sheets(UploadDeptCode).Cells(19, columnCounter) = (Sheets(SalesDeptCode).Cells(185, (columnCounter + 4)) - Sheets(SalesDeptCode).Cells(175, (columnCounter + 4))) * -1 'Discounts in row 185 less PPD in row 175
Sheets(UploadDeptCode).Cells(21, columnCounter) = Sheets(SalesDeptCode).Cells(175, (columnCounter + 4)) * -1 'PPD Allowance in row 175
Sheets(UploadDeptCode).Cells(22, columnCounter) = Sheets(SalesDeptCode).Cells(181, (columnCounter + 4)) * -1 'COGS in row 181
Next columnCounter
End Sub
|