Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I have some code
that work in debug mode but not work if i run it normaly (if i run it normaly excel enter to the if condition only 1 time) What can i do with it?? Sub FormatNow() Dim Grow As Long For Grow = 4 To 31640 If Sheet1.Range(Cells(Grow, 8), Cells(Grow, 8)).Interior.Color = 12648447 Then 'MsgBox Grow Sheet1.Range(Cells(Grow, "Z"), Cells(Grow, "Z")).Value = Sheet1.Range(Cells(Grow, 8), Cells(Grow, 8)).Value 'MsgBox Sheet1.Range(Cells(Grow, "Z"), Cells(Grow, "Z")).Value End If Next End Sub |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Name your sheetfully i.e. workbook.sheet
"Alex" wrote in message ... I have some code that work in debug mode but not work if i run it normaly (if i run it normaly excel enter to the if condition only 1 time) What can i do with it?? Sub FormatNow() Dim Grow As Long For Grow = 4 To 31640 If Sheet1.Range(Cells(Grow, 8), Cells(Grow, 8)).Interior.Color = 12648447 Then 'MsgBox Grow Sheet1.Range(Cells(Grow, "Z"), Cells(Grow, "Z")).Value = Sheet1.Range(Cells(Grow, 8), Cells(Grow, 8)).Value 'MsgBox Sheet1.Range(Cells(Grow, "Z"), Cells(Grow, "Z")).Value End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Looking for code to separate one line of text into multiple lines in Excel | Excel Worksheet Functions | |||
how do i comment 1000 lines of code at once in vba for excel? | Excel Worksheet Functions | |||
Code for Inserting Multiple lines | Excel Discussion (Misc queries) | |||
How do I copy cells and skip lines? | Excel Discussion (Misc queries) | |||
Code Text Into Chart Lines? | Excel Programming |