Hi all,
I'm looking for a way to simplify this code:
Range("C12,D12,H12,I12") = "A"
Range("C19,D19,H19,I19") = "B"
Range("C26,D26,H26,I26") = "C"
Range("C27,D27,H27,I27") = "D"
Range("C29,D29,H29,I29") = "E"
... etc etc ...
There are a lot of ranges, but the columns are always C, D, H & I. Is there anyway to simplify it so I can just have one row number for each range (eg Range("C,D,H,I & 12") = "A"?
Any help would be greatly appreciated.
Thanks,
Jamie
Hello jamiem4,
Here is one way...
With Worksheets("Sheet1").Range("C1:D1,H1:I1") .Offset(12, 0).Value = "A" .Offset(19, 0).Value = "B" .Offset(26, 0).Value = "C" .Offset(27, 0).Value = "D" .Offset(29, 0).Value = "E" End With
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
Another method:
Rows(12).Range("C1,D1,H1,I1") = "A" Rows(19).Range("C1,D1,H1,I1") = "B" Rows(26).Range("C1,D1,H1,I1") = "C" Rows(27).Range("C1,D1,H1,I1") = "D" Rows(29).Range("C1,D1,H1,I1") = "E"
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks