software

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(quot;a5quot;)), 12, 20)
For a = 1 To 100
If Cells(a, 1).Value gt; 0 Then
Cells(a, 2).Value = x
Else
Cells(a, 2).Value = 0
End If
--
Regards,
JeffJeff,

Try

x = Mid(Application.Trim(Range(quot;a5quot;)), 12, 20)
For a = 1 To 100
If a Mod 2 = 1 Then
If Cells(a, 1).Value gt; 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
quot;Jeffquot; gt; wrote in message
...
gt; Hello,
gt; Here's my VBA Procedure.
gt; I need to help: Is it possible to only evaluate the
gt; odd-numbered rows?
gt;
gt; Sub trimit()
gt; Dim a As Long
gt; x = Mid(Application.Trim(Range(quot;a5quot;)), 12, 20)
gt; For a = 1 To 100
gt; If Cells(a, 1).Value gt; 0 Then
gt; Cells(a, 2).Value = x
gt; Else
gt; Cells(a, 2).Value = 0
gt; End If
gt; --
gt; Regards,
gt; Jeff
gt;
Thank you Chip,
I made a misake. I meant even-numbered rows. Can you help?

--
Regards,
Jeff
quot;Chip Pearsonquot; wrote:

gt; Jeff,
gt;
gt; Try
gt;
gt; x = Mid(Application.Trim(Range(quot;a5quot;)), 12, 20)
gt; For a = 1 To 100
gt; If a Mod 2 = 1 Then
gt; If Cells(a, 1).Value gt; 0 Then
gt; Cells(a, 2).Value = x
gt; Else
gt; Cells(a, 2).Value = 0
gt; End If
gt; End If
gt; Next a
gt;
gt; --
gt; Cordially,
gt; Chip Pearson
gt; Microsoft MVP - Excel
gt; Pearson Software Consulting, LLC
gt; www.cpearson.com
gt;
gt;
gt;
gt; quot;Jeffquot; gt; wrote in message
gt; ...
gt; gt; Hello,
gt; gt; Here's my VBA Procedure.
gt; gt; I need to help: Is it possible to only evaluate the
gt; gt; odd-numbered rows?
gt; gt;
gt; gt; Sub trimit()
gt; gt; Dim a As Long
gt; gt; x = Mid(Application.Trim(Range(quot;a5quot;)), 12, 20)
gt; gt; For a = 1 To 100
gt; gt; If Cells(a, 1).Value gt; 0 Then
gt; gt; Cells(a, 2).Value = x
gt; gt; Else
gt; gt; Cells(a, 2).Value = 0
gt; gt; End If
gt; gt; --
gt; gt; Regards,
gt; gt; Jeff
gt; gt;
gt;
gt;
gt;

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
quot;Jeffquot; gt; wrote in message
...
gt; Thank you Chip,
gt; I made a misake. I meant even-numbered rows. Can you help?
gt;
gt; --
gt; Regards,
gt; Jeff
gt;
gt;
gt;
gt; quot;Chip Pearsonquot; wrote:
gt;
gt;gt; Jeff,
gt;gt;
gt;gt; Try
gt;gt;
gt;gt; x = Mid(Application.Trim(Range(quot;a5quot;)), 12, 20)
gt;gt; For a = 1 To 100
gt;gt; If a Mod 2 = 1 Then
gt;gt; If Cells(a, 1).Value gt; 0 Then
gt;gt; Cells(a, 2).Value = x
gt;gt; Else
gt;gt; Cells(a, 2).Value = 0
gt;gt; End If
gt;gt; End If
gt;gt; Next a
gt;gt;
gt;gt; --
gt;gt; Cordially,
gt;gt; Chip Pearson
gt;gt; Microsoft MVP - Excel
gt;gt; Pearson Software Consulting, LLC
gt;gt; www.cpearson.com
gt;gt;
gt;gt;
gt;gt;
gt;gt; quot;Jeffquot; gt; wrote in message
gt;gt; ...
gt;gt; gt; Hello,
gt;gt; gt; Here's my VBA Procedure.
gt;gt; gt; I need to help: Is it possible to only evaluate the
gt;gt; gt; odd-numbered rows?
gt;gt; gt;
gt;gt; gt; Sub trimit()
gt;gt; gt; Dim a As Long
gt;gt; gt; x = Mid(Application.Trim(Range(quot;a5quot;)), 12, 20)
gt;gt; gt; For a = 1 To 100
gt;gt; gt; If Cells(a, 1).Value gt; 0 Then
gt;gt; gt; Cells(a, 2).Value = x
gt;gt; gt; Else
gt;gt; gt; Cells(a, 2).Value = 0
gt;gt; gt; End If
gt;gt; gt; --
gt;gt; gt; Regards,
gt;gt; gt; Jeff
gt;gt; gt;
gt;gt;
gt;gt;
gt;gt;
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:
gt;
gt; Hello,
gt; Here's my VBA Procedure.
gt; I need to help: Is it possible to only evaluate the odd-numbered rows?
gt;
gt; Sub trimit()
gt; Dim a As Long
gt; x = Mid(Application.Trim(Range(quot;a5quot;)), 12, 20)
gt; For a = 1 To 100
gt; If Cells(a, 1).Value gt; 0 Then
gt; Cells(a, 2).Value = x
gt; Else
gt; Cells(a, 2).Value = 0
gt; End If
gt; --
gt; Regards,
gt; Jeff

--

Dave Peterson