vba for next loop

phoenixmoto · #1 10-31-2018, 11:11 PM

Dim num as integer
sub mac1()

For num = 1 to 50
A = num * 2
cells (1,1) = A
next num
end sub

If i run this code cell cell(1,1) displays 100 i.e 50 * 2 instead of lowest num no i.e 1 * 2 which is equal to 2. Even if i declare A as integer problem persists please help.

Guessed · #2 10-31-2018, 11:19 PM

All the values get written into the same cell and the macro runs so fast you don't see anything until it has completed.

If you want to write to different cells change the location for each value of A
eg.
cells (num,1) = A

phoenixmoto · #3 10-31-2018, 11:34 PM

cant we display those answers in a single cell one at a time ?

Charles Kenyon · #4 11-01-2018, 05:16 AM

Try:

Code:

sub mac1()
     Dim num as integer
    For num = 1 to 50
       A = num * 2
       cells (1,1) = A
      MsgBox "The current values are " & num & " and " & A
  Next num
end sub

macropod · #5 11-06-2018, 01:59 PM

Cross-posted at: http://www.vbaexpress.com/forum/show...-for-next-loop
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Do Loop bug	donlincolnmsof	Word VBA	11	09-07-2017 10:07 PM
Macro Loop Help	Twizzle008	Word VBA	15	09-18-2015 03:20 PM
Loop - Row increment	jrt	Excel Programming	1	04-16-2015 01:46 PM
End or alter a loop?	DJSOUND	Word VBA	1	10-11-2013 08:11 PM
How to a For loop in VBA	Jennifer Murphy	Word VBA	1	01-29-2013 03:30 AM