View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ken Hudson Ken Hudson is offline
external usenet poster
 
Posts: 186
Default Need help re Macro

Hi,
Would this work for you?

Option Explicit
Dim Iloop As Integer
Dim CountRows As Integer
Sub RunLoop()

CountRows = Range("A65536").End(xlUp).Row

For Iloop = 1 To CountRows
If Cells(Iloop, 1) - Int(Cells(Iloop, 1)) = 0 Then
'Your code here.
End If
Next Iloop

End Sub

"Jayruh05" wrote:

I am trying to write a macro that will perform a formula to every row that
has column A populated with an integer. Column A will vary in the amount of
rows that are populated, so I need a macro that will perform my formula until
it reaches a cell in column A that is not populated (or null). Any help
would be greatly appreciated.