Make counter invisible

  • Thread starter Thread starter hotherps
  • Start date Start date
H

hotherps

I have the following code: (It was given by two previous respondents) I
works great!

But If I change my value From "PACK" to some other string like "ABC
can I hide the counter?
Thanks!

Dim i As Integer
Dim L As Integer

i = 0
For Each CELL In Range("A1:DD267")
If CELL.Value = "PACK" Then
i = i + 1
For j = 0 To 7
CELL.Offset(0, j).Value = "PACK" & CStr(i)
Next j
If i > 40 Then i = 0
End If
Next CEL
 
What exactly do you mean by hide the counter?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Re-reading your previous post, I guess you mean that you don't want ABC1,
ABc2, etc. you just want ABC. Correct?

If so, it is simply

Dim i As Integer
Dim L As Integer

i = 0
For Each CELL In Range("A1:DD267")
If CELL.Value = "ABC" Then
i = i + 1
For j = 0 To 7
CELL.Offset(0, j).Value = "ABC"
Next j
If i > 40 Then i = 0
End If
Next CELL

Gets over the problem of a repeated number in a column<vbg>


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top