Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make counter invisible
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 -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make counter invisible
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) "hotherps " wrote in message ... I have the following code: (It was given by two previous respondents) It 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 CELL --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make counter invisible
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) "hotherps " wrote in message ... I have the following code: (It was given by two previous respondents) It 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 CELL --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to make hidden sheet invisible | New Users to Excel | |||
How to run macros and make the workbooks invisible | Excel Programming | |||
thanks TOM. How to run macros and make the workbooks invisible | Excel Programming | |||
How to make the Toolbar Invisible through VBA | Excel Programming | |||
Make one column Invisible. | Excel Programming |