Thread
:
Need macro to add numbers in rows
View Single Post
#
9
Posted to microsoft.public.excel.programming
Claus Busch
external usenet poster
Posts: 3,872
Misinformation - see this instead
Hi Kaj,
Am Fri, 1 Nov 2013 20:17:10 GMT schrieb
:
A B C D
1
2 1
3 text
4 text
5
6 2
7 text
8
9 3
10 text
11
12 4
13 text
14 text
15
try:
Sub Test()
Dim LRow As Long
Dim rngC As Range
Dim i As Long
LRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In Range("A1:A" & LRow)
If IsNumeric(rngC) And Not IsEmpty(rngC) Then
i = i + 1
rngC = i
End If
Next
End Sub
Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
Reply With Quote
Claus Busch
View Public Profile
Find all posts by Claus Busch