Best System Error Solution: counter in vba [Anwsered]

Friday, 23 September 2016

counter in vba [Anwsered]

counter in vba

hi,

In a macro I have various string with : "counter ..." but I don't understad if it's only a value or something else, someone can explane me?
thanks
here the example:

counter = 0

    For i = 1 To Sheets("main (2)").Range("A6").CurrentRegion.Rows.Count
      Sheets("main (2)").Select
      Range("A5").Offset(i, 0).Select
      deptno = ActiveCell.Offset(0, 0).FormulaR1C1
      acctno = ActiveCell.Offset(0, 2).FormulaR1C1
      intercompanyno = ActiveCell.Offset(0, 4).FormulaR1C1
      projectnumber = ActiveCell.Offset(0, 5).FormulaR1C1
      Comments = ActiveCell.Offset(0, 7).FormulaR1C1
      ColumnCount = Range("A1").CurrentRegion.Columns.Count - 9
      For j = 1 To ColumnCount
        Sheets("main (2)").Select
        amount = Range("A5").Offset(i, j + 9).FormulaR1C1
        If amount <> "" Then
            Sheets("source_file").Select
            Range("A1").Offset(counter, 0).Select
            ActiveCell.Offset(0, 0).NumberFormat = "@"
            ActiveCell.Offset(0, 10) = Comments
            counter = counter + 1
         End If
      Next j
       Sheets("Source_file").Columns.EntireColumn.AutoFit
       Sheets("Source_file").Columns.HorizontalAlignment = xlCenter
    Next i

Solutions to the Problem counter in vba

Download SmartPCFixer to Fix It (Free)

thanks for your reply,
but i don't understand one thing, if I write counter = 0 is the same thing as write for example i = 1 ??
thanks
Hi,
Yes it's exactly the same.
In your snippet of code, counter is what's called a variable.
Whoever wrote the code set it's value to zero and then the value changed as the code ran.

To check for Windows updates. Open Windows Update by clicking the Start button , clicking All Programs, and then clicking Windows Update. In the left pane, click Check for updates, and then wait while Windows looks for the latest updates for your computer. If any updates are found, click Install updates.

Install the latest updates for Windows and for the program displaying the error. Note that the update for the program might be listed as an optional update on the Windows Update page.

Open Windows Update by clicking the Start button Picture of the Start button. In the search box, type Update, and then, in the list of results, click Windows Update.