You might have a modern environment with all sorts of high-tech equipment, but what makes it worthwhile is how you seamlessly bring together the presentation with audio, video and lighting. The ATEN Control System provides integrated control and system automation.
Solved
Using a macro to generate segregation lines
Posted on 2014-12-30
I am trying to create a macro that will generate a segregation line between each Rep's business (column A). (see example - Sheet 2).
The sample attached has about 100 lines of data and three or four Reps. However, my real data could contain upwards of 4,000 lines. Also, I would like to automatically create a RED border around column F and columns Z, AA (as one double column). The problem I am having, is that each time I generate the data, the number of lines changes. I would want the macro to decide where the end of the data is and create the borders based on the end of the data.
Sheet 1 contains the data as it appears today.
Sheet 2 contains the data with a sample of how I am trying to 'auto format'.
Any help or guidance would be greatly appreciated.
Thanks.
The sample attached has about 100 lines of data and three or four Reps. However, my real data could contain upwards of 4,000 lines. Also, I would like to automatically create a RED border around column F and columns Z, AA (as one double column). The problem I am having, is that each time I generate the data, the number of lines changes. I would want the macro to decide where the end of the data is and create the borders based on the end of the data.
Sheet 1 contains the data as it appears today.
Sheet 2 contains the data with a sample of how I am trying to 'auto format'.
Any help or guidance would be greatly appreciated.
Thanks.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2-
2
5 Comments
It is attached now.
Sample-Data.xlsx
Sample-Data.xlsx
This will do it. Paste the code block into a module. It contains the 'AddBorders' sub and a separate sub to apply the red outline formatting. It uses the 'resize' and 'offset' functions to omit the title rows. You can change the values for the number of rows to exclude as required.
Sub AddBorders()
Const NumberOfTitleRows As Integer = 2
Dim usedRng As Range
Dim checkRng As Range
Dim formatRng As Range
Set usedRng = ActiveSheet.UsedRange
Set checkRng = Intersect(usedRng, Columns(1))
Set checkRng = checkRng.Resize(checkRng.Rows.Count - NumberOfTitleRows).Offset(NumberOfTitleRows, 0)
For Each c In checkRng
If c.Value <> "" Then
With Intersect(c.EntireRow, usedRng).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThick
End With
End If
Next
Set formatRng = Intersect(usedRng, Columns("F"))
Set formatRng = formatRng.Resize(formatRng.Rows.Count - 1).Offset(1, 0)
Call RedOutlineFormat(formatRng)
Set formatRng = Intersect(usedRng, Columns("z:aa"))
Set formatRng = formatRng.Resize(formatRng.Rows.Count - 1).Offset(1, 0)
Call RedOutlineFormat(formatRng)
End Sub
Sub RedOutlineFormat(rng As Range)
rng.Borders(xlDiagonalDown).LineStyle = xlNone
rng.Borders(xlDiagonalUp).LineStyle = xlNone
With rng.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThick
End With
With rng.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThick
End With
With rng.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThick
End With
With rng.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThick
End With
End Sub
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Ever wonder what it's like to get hit by ransomware? "Tom" gives you all the dirty details first-hand – and conveys the hard lessons his company learned in the aftermath.
- Acronis
- Software-Other
- Ransomware
- Microsoft Office
- Security
- *Backup Software
New style of hardware planning for Microsoft Exchange server.
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
Suggested Courses
Course of the Month10 days, 19 hours left to enroll
719 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.