| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Skipping rows with VBA
Hello,
Here's my VBA Procedure. I need to help: Is it possible to only evaluate the odd-numbered rows? Sub trimit() Dim a As Long x = Mid(Application.Trim(Range("a5")), 12, 20) For a = 1 To 100 If Cells(a, 1).Value 0 Then Cells(a, 2).Value = x Else Cells(a, 2).Value = 0 End If -- Regards, Jeff |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Skipping rows with VBA
Jeff,
Try x = Mid(Application.Trim(Range("a5")), 12, 20) For a = 1 To 100 If a Mod 2 = 1 Then If Cells(a, 1).Value 0 Then Cells(a, 2).Value = x Else Cells(a, 2).Value = 0 End If End If Next a -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Jeff" wrote in message ... Hello, Here's my VBA Procedure. I need to help: Is it possible to only evaluate the odd-numbered rows? Sub trimit() Dim a As Long x = Mid(Application.Trim(Range("a5")), 12, 20) For a = 1 To 100 If Cells(a, 1).Value 0 Then Cells(a, 2).Value = x Else Cells(a, 2).Value = 0 End If -- Regards, Jeff |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Skipping rows with VBA
Thank you Chip,
I made a misake. I meant even-numbered rows. Can you help? -- Regards, Jeff "Chip Pearson" wrote: Jeff, Try x = Mid(Application.Trim(Range("a5")), 12, 20) For a = 1 To 100 If a Mod 2 = 1 Then If Cells(a, 1).Value 0 Then Cells(a, 2).Value = x Else Cells(a, 2).Value = 0 End If End If Next a -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Jeff" wrote in message ... Hello, Here's my VBA Procedure. I need to help: Is it possible to only evaluate the odd-numbered rows? Sub trimit() Dim a As Long x = Mid(Application.Trim(Range("a5")), 12, 20) For a = 1 To 100 If Cells(a, 1).Value 0 Then Cells(a, 2).Value = x Else Cells(a, 2).Value = 0 End If -- Regards, Jeff |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Skipping rows with VBA
For even numbered rows, change
If a Mod 2 = 1 Then to If a Mod 2 = 0 Then -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Jeff" wrote in message ... Thank you Chip, I made a misake. I meant even-numbered rows. Can you help? -- Regards, Jeff "Chip Pearson" wrote: Jeff, Try x = Mid(Application.Trim(Range("a5")), 12, 20) For a = 1 To 100 If a Mod 2 = 1 Then If Cells(a, 1).Value 0 Then Cells(a, 2).Value = x Else Cells(a, 2).Value = 0 End If End If Next a -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Jeff" wrote in message ... Hello, Here's my VBA Procedure. I need to help: Is it possible to only evaluate the odd-numbered rows? Sub trimit() Dim a As Long x = Mid(Application.Trim(Range("a5")), 12, 20) For a = 1 To 100 If Cells(a, 1).Value 0 Then Cells(a, 2).Value = x Else Cells(a, 2).Value = 0 End If -- Regards, Jeff |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Skipping rows with VBA
Another way:
For a = 1 To 100 Step 2 or For a = 2 To 100 step 2 (depending on which ones you want to skip.) Jeff wrote: Hello, Here's my VBA Procedure. I need to help: Is it possible to only evaluate the odd-numbered rows? Sub trimit() Dim a As Long x = Mid(Application.Trim(Range("a5")), 12, 20) For a = 1 To 100 If Cells(a, 1).Value 0 Then Cells(a, 2).Value = x Else Cells(a, 2).Value = 0 End If -- Regards, Jeff -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Rows & Columns in Excel | Excel Worksheet Functions | |||
| Automatically inserting rows | Excel Worksheet Functions | |||
| Hiding Rows if the linked rows are blank | Excel Discussion (Misc queries) | |||
| Trouble with skipping rows | Excel Worksheet Functions | |||
| flexible paste rows function that inserts the right number of rows | Excel Discussion (Misc queries) | |||
Linear Mode
