By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,212 Members | 1,362 Online
Bytes IT Community

Home Questions Articles Browse Topics Latest Top Members FAQ

home > topics > microsoft excel > questions > how to make comparison chart to display two varying sets of data.
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,212 IT Pros & Developers. It's quick & easy.

How to make comparison chart to display two varying sets of data.

P: 5
Hello.

I am not sure if you can help me. I just don't know...

I would love to know, how to make comparison chart to display two varying sets of data.

I have two workbooks.

One of the workbook have 181 worksheets. "Each worksheet name after a country and have its own data.

Next

The other workbook have 185 worksheets."Each worksheet name after a country and have its own data.

This is the hard part:

#1 How can I link both workbook data together using macros? Country vs Country or USA vs USA as an example.

#2 How can I create a comparison chart to display two varying sets of data, both varying sets of data beginning with the zero values?

If you think I sound crazy. Please just say so lol. I am not sure if you are open in helping me. If so, I am looking for someone to point me to the right direction.

Thanks in advance

Cheers,


https://drive.google.com/file/d/1mmsL54lWBSVNsrP0INleJe-uW8U-2VVD/view?usp=sharing


https://drive.google.com/file/d/1JigNJKkY2IMGg4-aSXu0NnFnRRuvb6jx/view?usp=sharing
2 Weeks Ago #1

✓ answered by SioSio

1. Delete this line.
Expand|Select|Wrap|Line Numbers
  1. Private Sub UserForm_Click()
  2.  
  3. End Sub
2. Specify the following character string for the constant.
Expand|Select|Wrap|Line Numbers
  1. 'Specify the path of Book A.
  2. '(Ex.)
  3. 'Const Path1 As String = "C:\Excel_data1\"
  4. Const Path1 As String = "Your excel Book A path\"
  5.  
  6. 'Specify the path of Book B.
  7. '(Ex.)
  8. 'Const Path2 As String = "C:\Excel_data2\"
  9. Const Path2 As String = "Your excel Book B path\"
  10.  
  11. 'Specify the file name of Book A
  12. '(Ex.)
  13. 'Const BookA_fname As String = "Unemployment_Rate.xlsx"
  14. Const BookA_fname As String = "Unemployment_Rate.xlsx"
  15.  
  16. 'Specify the file name of Book B
  17. '(Ex.)
  18. 'Const BookB_fname As String = "GDP_Annual_Growth_Rate_%.xlsx"
  19. Const BookB_fname As String = "GDP_Annual_Growth_Rate_%.xlsx"
  20.  
  21. 'Specify the full path of Book A. No need to change.
  22. Const BookA As String = Path1 & BookA_fname
  23.  
  24. 'Specify the full path of Book B. No need to change.
  25. Const BookB As String = Path2 & BookB_fname
3. In the Sub UserForm_Initialize() subroutine, restore the following.(No need to change.)
Expand|Select|Wrap|Line Numbers
  1.     Workbooks.Open Filename:=Unemployment_Rate.xlsx
  2.         '｜
  3.          'V
  4.     Workbooks.Open Filename:=BookA
  5.     Workbooks.Open Filename:=GDP_Annual_Growth_Rate_%.xlsx
  6.         '｜
  7.          'V
  8.     Workbooks.Open Filename:=BookB
4.By changing the constant, change the variable "path" of Private Sub CommandButton2_Click () to "path1" and "path2".
Expand|Select|Wrap|Line Numbers
  1. Private Sub CommandButton2_Click()
  2. 'Link both workbook data
  3.     Dim i1 As Long
  4.     Dim j1 As Long
  5.     Dim i2 As Long
  6.     Dim j2 As Long
  7.  
  8.     Worksheets("Sheet1").Select
  9.     For i1 = 1 To 5
  10.         For j1 = 1 To 2
  11.             Cells(i1, j1).value = "='" & Path1 & "[" & BookA_fname & "]" & SheetA & "'!R" & i1 & "C" & j1
  12.         Next j1
  13.     Next i1
  14.  
  15.     Worksheets("Sheet2").Select
  16.     For i2 = 1 To 5
  17.         For j2 = 1 To 2
  18.             Cells(i2, j2).value = "='" & Path2 & "[" & BookB_fname & "]" & SheetB & "'!R" & i2 & "C" & j2
  19.         Next j2
  20.     Next i2
  21.  
  22. End Sub

In the example I showed, It put a link of A1:B5 of BookA to Sheet1 and a link of A1:B5 of BookB to Sheet2, and draw a scatter plot of them.
Change the variables i1 and i2, j1 and j2 of Private Sub CommandButton1_Click () and change the ange ("A1: B5") of Private Sub CommandButton2_Click () according to your environment.

Share this Question
Share on Google+
8 Replies
100+
P: 150
In my environment I can't see the link you provided, so it may be an irrelevant answer.

First, prepare two excel sheets(Ex. sheet1 and sheet2).
prepare two combobox and two commandbutton in the userform.
The two combobox store the sheet names of the two books In UserForm_Initialize() function.
Select an item from each of the two combobox.
Click the first button to link Sheet1 and Sheet2 with the sheets of the two books selected in the combobox in CommandButton1_Click() function.
Click the second button to display a scatter plot of the data on the two sheets in CommandButton2_Click() function..
Modify data range used to draw the graph, graph type and each Const data for your envronment.

Expand|Select|Wrap|Line Numbers
  1. Dim SheetA As String
  2. Dim SheetB As String
  3. Const Path As String = "C:\Excel_data\"
  4. Const BookA_fname = "BookA.xlsx"
  5. Const BookB_fname = "BookB.xlsx"
  6. Const BookA As String = Path & BookA_fname
  7. Const BookB As String = Path & BookB_fname
  8.  
  9. Private Sub UserForm_Initialize()
  10.     Dim ws As Worksheet
  11.     Workbooks.Open Filename:=BookA
  12.     With ComboBox1
  13.         For Each ws In ActiveWorkbook.Worksheets
  14.             .AddItem ws.Name
  15.         Next
  16.     End With
  17.     Workbooks.Open Filename:=BookB
  18.     With ComboBox2
  19.         For Each ws In ActiveWorkbook.Worksheets
  20.             .AddItem ws.Name
  21.         Next
  22.     End With
  23.     Workbooks(BookA_fname).Close
  24.     Workbooks(BookB_fname).Close
  25. End Sub
  26.  
  27. Private Sub ComboBox1_Change()
  28.     SheetA = ComboBox1.List(ComboBox1.ListIndex)
  29. End Sub
  30.  
  31. Private Sub ComboBox2_Change()
  32.     SheetB = ComboBox2.List(ComboBox2.ListIndex)
  33. End Sub
  34.  
  35. Private Sub CommandButton1_Click()
  36. 'Link both workbook data
  37.     Dim i1 As Long
  38.     Dim j1 As Long
  39.     Dim i2 As Long
  40.     Dim j2 As Long
  41.     Worksheets("Sheet1").Select
  42.     For i1 = 1 To 5
  43.         For j1 = 1 To 2
  44.             Cells(i1, j1).value = "='" & Path & "[" & BookA_fname & "]" & SheetA & "'!R" & i1 & "C" & j1
  45.         Next j1
  46.     Next i1
  47.     Worksheets("Sheet2").Select
  48.     For i2 = 1 To 5
  49.         For j2 = 1 To 2
  50.             Cells(i2, j2).value = "='" & Path & "[" & BookB_fname & "]" & SheetB & "'!R" & i2 & "C" & j2
  51.         Next j2
  52.     Next i2
  53. End Sub
  54.  
  55. Private Sub CommandButton2_Click()
  56. 'Plot Graph
  57.     Range("A1:B5").Select
  58.     ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
  59.     ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$5")
  60.     ActiveChart.Axes(xlValue).MajorGridlines.Select
  61.     ActiveChart.SeriesCollection.NewSeries
  62.     ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
  63.     ActiveChart.FullSeriesCollection(2).XValues = "=Sheet2!$A$2:$A$5"
  64.     ActiveChart.FullSeriesCollection(2).Values = "=Sheet2!$B$2:$B$5"
  65.     ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
  66. End Sub
1 Week Ago #2
P: 5
Hello SioSio.

I am not sure if I can fix this. I am trying my best to follow your teaching. I am not sure what I have done is correct and it seems like I am not getting the results.

Please SioSio. If you are willing please let me know as I have place the codes in the files below.

Let me know, how to move forward

This is a short video that explain my problem: https://drive.google.com/file/d/1u6d...ew?usp=sharing

Thanks in advance

https://drive.google.com/file/d/1qLW...ew?usp=sharing

https://drive.google.com/file/d/1mtE...ew?usp=sharing
1 Week Ago #3
100+
P: 150
It seems that the contents I wrote before did not reach you well, so I will show you the procedure again.

1. Create a "new" excel book.

2.Prepare two excel sheets(Ex.sheet1 and sheet2).

3.developter tab
Create a Developer tab for your convenience. To turn on the Developter tab, execute the following steps.
3.1. Right click anywhere on the ribbon, and then click Customize the Ribbon.
3.2.Under Customize the Ribbon, on the right side of the dialog box, select Main tabs (if necessary).
3.3.Check the Developer check box.
3.4.Click OK.
3.5. You can find the Developer tab next to the View tab.

4. Click "Visual Basic" on the Developer tab to open the vba editor.

5.Click Insert, "User form".If the Toolbox does not appear automatically, click View, Toolbox.

After this, create two comboboxes and two buttons according to the contents written earlier.

P.S.
The link you posted is not visible in my environment.
Please use the tools in "Post your reply".
1 Week Ago #4
P: 5
SioSio

Thanks for your feedback. I greatly appreciate it.
I have followed your second comments, but when it comes to the coding. I am not sure if I made a mistake. I have receive an error which states: "Compile error: Invalid qualifier".

Please view code and image for a better understanding.

Thanks in advance for your swift reply.


Expand|Select|Wrap|Line Numbers
  1. Private Sub UserForm_Click()
  2.  
  3. End Sub
  4. Dim SheetA As String
  5. Dim SheetB As String
  6. Const Path As String = "C:\Excel_data\"
  7. Const BookA_fname = "C:\Users\Corey\Desktop\Unemployment_Rate"
  8. Const BookB_fname = "C:\Users\Corey\Desktop\GDP_Annual_Growth_Rate_%"
  9. Const BookA As String = Path & BookA_fname
  10. Const BookB As String = Path & BookB_fname
  11.  
  12. Private Sub UserForm_Initialize()
  13.     Dim ws As Worksheet
  14.     Workbooks.Open Filename:=Unemployment_Rate.xlsx
  15.     With ComboBox1
  16.         For Each ws In ActiveWorkbook.Worksheets
  17.             .AddItem ws.Name
  18.         Next
  19.     End With
  20.     Workbooks.Open Filename:=GDP_Annual_Growth_Rate_%.xlsx
  21.     With ComboBox2
  22.         For Each ws In ActiveWorkbook.Worksheets
  23.             .AddItem ws.Name
  24.         Next
  25.     End With
  26.     Workbooks(BookA_fname).Close
  27.     Workbooks(BookB_fname).Close
  28. End Sub
  29.  
  30. Private Sub ComboBox1_Change()
  31.     SheetA = ComboBox1.List(ComboBox1.ListIndex)
  32. End Sub
  33.  
  34. Private Sub ComboBox2_Change()
  35.     SheetB = ComboBox2.List(ComboBox2.ListIndex)
  36. End Sub
  37.  
  38. Private Sub CommandButton1_Click()
  39. 'Link both workbook data
  40.     Dim i1 As Long
  41.     Dim j1 As Long
  42.     Dim i2 As Long
  43.     Dim j2 As Long
  44.     Worksheets("Sheet1").Select
  45.     For i1 = 1 To 5
  46.         For j1 = 1 To 2
  47.             Cells(i1, j1).Value = "='" & Path & "[" & BookA_fname & "]" & SheetA & "'!R" & i1 & "C" & j1
  48.         Next j1
  49.     Next i1
  50.     Worksheets("Sheet2").Select
  51.     For i2 = 1 To 5
  52.         For j2 = 1 To 2
  53.             Cells(i2, j2).Value = "='" & Path & "[" & BookB_fname & "]" & SheetB & "'!R" & i2 & "C" & j2
  54.         Next j2
  55.     Next i2
  56. End Sub
  57.  
  58. Private Sub CommandButton2_Click()
  59. 'Plot Graph
  60.     Range("A1:B5").Select
  61.     ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
  62.     ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$5")
  63.     ActiveChart.Axes(xlValue).MajorGridlines.Select
  64.     ActiveChart.SeriesCollection.NewSeries
  65.     ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
  66.     ActiveChart.FullSeriesCollection(2).XValues = "=Sheet2!$A$2:$A$5"
  67.     ActiveChart.FullSeriesCollection(2).Values = "=Sheet2!$B$2:$B$5"
  68.     ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
  69. End Sub
Attached Images
File Type: jpg 1.jpg (68.8 KB, 5 views)
File Type: jpg 2.jpg (77.9 KB, 5 views)
File Type: jpg 3.jpg (98.2 KB, 4 views)
File Type: jpg 4.jpg (86.3 KB, 5 views)
File Type: jpg 5.jpg (87.6 KB, 4 views)
6 Days Ago #5
100+
P: 150
1. Delete this line.
Expand|Select|Wrap|Line Numbers
  1. Private Sub UserForm_Click()
  2.  
  3. End Sub
2. Specify the following character string for the constant.
Expand|Select|Wrap|Line Numbers
  1. 'Specify the path of Book A.
  2. '(Ex.)
  3. 'Const Path1 As String = "C:\Excel_data1\"
  4. Const Path1 As String = "Your excel Book A path\"
  5.  
  6. 'Specify the path of Book B.
  7. '(Ex.)
  8. 'Const Path2 As String = "C:\Excel_data2\"
  9. Const Path2 As String = "Your excel Book B path\"
  10.  
  11. 'Specify the file name of Book A
  12. '(Ex.)
  13. 'Const BookA_fname As String = "Unemployment_Rate.xlsx"
  14. Const BookA_fname As String = "Unemployment_Rate.xlsx"
  15.  
  16. 'Specify the file name of Book B
  17. '(Ex.)
  18. 'Const BookB_fname As String = "GDP_Annual_Growth_Rate_%.xlsx"
  19. Const BookB_fname As String = "GDP_Annual_Growth_Rate_%.xlsx"
  20.  
  21. 'Specify the full path of Book A. No need to change.
  22. Const BookA As String = Path1 & BookA_fname
  23.  
  24. 'Specify the full path of Book B. No need to change.
  25. Const BookB As String = Path2 & BookB_fname
3. In the Sub UserForm_Initialize() subroutine, restore the following.(No need to change.)
Expand|Select|Wrap|Line Numbers
  1.     Workbooks.Open Filename:=Unemployment_Rate.xlsx
  2.         '｜
  3.          'V
  4.     Workbooks.Open Filename:=BookA
  5.     Workbooks.Open Filename:=GDP_Annual_Growth_Rate_%.xlsx
  6.         '｜
  7.          'V
  8.     Workbooks.Open Filename:=BookB
4.By changing the constant, change the variable "path" of Private Sub CommandButton2_Click () to "path1" and "path2".
Expand|Select|Wrap|Line Numbers
  1. Private Sub CommandButton2_Click()
  2. 'Link both workbook data
  3.     Dim i1 As Long
  4.     Dim j1 As Long
  5.     Dim i2 As Long
  6.     Dim j2 As Long
  7.  
  8.     Worksheets("Sheet1").Select
  9.     For i1 = 1 To 5
  10.         For j1 = 1 To 2
  11.             Cells(i1, j1).value = "='" & Path1 & "[" & BookA_fname & "]" & SheetA & "'!R" & i1 & "C" & j1
  12.         Next j1
  13.     Next i1
  14.  
  15.     Worksheets("Sheet2").Select
  16.     For i2 = 1 To 5
  17.         For j2 = 1 To 2
  18.             Cells(i2, j2).value = "='" & Path2 & "[" & BookB_fname & "]" & SheetB & "'!R" & i2 & "C" & j2
  19.         Next j2
  20.     Next i2
  21.  
  22. End Sub

In the example I showed, It put a link of A1:B5 of BookA to Sheet1 and a link of A1:B5 of BookB to Sheet2, and draw a scatter plot of them.
Change the variables i1 and i2, j1 and j2 of Private Sub CommandButton1_Click () and change the ange ("A1: B5") of Private Sub CommandButton2_Click () according to your environment.
6 Days Ago #6
P: 5
SioSio. I must say to you again... Thank you for your patience and support.

I have followed your instructions and tuition. Please identify below if the code have been plugin into the right location and please view the screen shot of the error and other photos that supports what I am trying to accomplish.

Thanks in advance SioSio.

1.jpg
2.jpg
3.jpg
4.jpg
5.jpg

Expand|Select|Wrap|Line Numbers
  1. Dim SheetA As String
  2. Dim SheetB As String
  3. 'Specify the path of Book A.
  4. '(Ex.)
  5. 'Const Path1 As String = "C:\Excel_data1\"
  6. Const Path1 As String = "Your excel Book A path\"
  7.  
  8. 'Specify the path of Book B.
  9. '(Ex.)
  10. 'Const Path2 As String = "C:\Excel_data2\"
  11. Const Path2 As String = "Your excel Book B path\"
  12.  
  13. 'Specify the file name of Book A
  14. '(Ex.)
  15. 'Const BookA_fname As String = "Unemployment_Rate.xlsx"
  16. Const BookA_fname As String = "Unemployment_Rate.xlsx"
  17.  
  18. 'Specify the file name of Book B
  19. '(Ex.)
  20. 'Const BookB_fname As String = "GDP_Annual_Growth_Rate_%.xlsx"
  21. Const BookB_fname As String = "GDP_Annual_Growth_Rate_%.xlsx"
  22.  
  23. 'Specify the full path of Book A. No need to change.
  24. Const BookA As String = Path1 & BookA_fname
  25.  
  26. 'Specify the full path of Book B. No need to change.
  27. Const BookB As String = Path2 & BookB_fname
  28.  
  29. Private Sub UserForm_Initialize()
  30.     Dim ws As Worksheet
  31.         Workbooks.Open Filename:=Unemployment_Rate.xlsx
  32.         '|
  33.          'V
  34.     Workbooks.Open Filename:=BookA
  35.     Workbooks.Open Filename:=GDP_Annual_Growth_Rate_%.xlsx
  36.         '|
  37.          'V
  38.     Workbooks.Open Filename:=BookB
  39.         Next
  40.     End With
  41.     Workbooks(BookA_fname).Close
  42.     Workbooks(BookB_fname).Close
  43. End Sub
  44.  
  45. Private Sub ComboBox1_Change()
  46.     SheetA = ComboBox1.List(ComboBox1.ListIndex)
  47. End Sub
  48.  
  49. Private Sub ComboBox2_Change()
  50.     SheetB = ComboBox2.List(ComboBox2.ListIndex)
  51. End Sub
  52.  
  53. Private Sub CommandButton1_Click()
  54. 'Link both workbook data
  55.     Dim i1 As Long
  56.     Dim j1 As Long
  57.     Dim i2 As Long
  58.     Dim j2 As Long
  59.     Worksheets("Sheet1").Select
  60.     For i1 = 1 To 5
  61.         For j1 = 1 To 2
  62.             Cells(i1, j1).Value = "='" & Path & "[" & BookA_fname & "]" & SheetA & "'!R" & i1 & "C" & j1
  63.         Next j1
  64.     Next i1
  65.     Worksheets("Sheet2").Select
  66.     For i2 = 1 To 5
  67.         For j2 = 1 To 2
  68.             Cells(i2, j2).Value = "='" & Path & "[" & BookB_fname & "]" & SheetB & "'!R" & i2 & "C" & j2
  69.         Next j2
  70.     Next i2
  71. End Sub
  72.  
  73. Private Sub CommandButton2_Click()
  74. 'Plot Graph
  75.     Range("A1:B5").Select
  76.     ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
  77.     ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$5")
  78.     ActiveChart.Axes(xlValue).MajorGridlines.Select
  79.     ActiveChart.SeriesCollection.NewSeries
  80.     ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
  81.     ActiveChart.FullSeriesCollection(2).XValues = "=Sheet2!$A$2:$A$5"
  82.     ActiveChart.FullSeriesCollection(2).Values = "=Sheet2!$B$2:$B$5"
  83.     ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
  84. End Sub
  85.  
  86.  
  87.  
4 Days Ago #7
100+
P: 150
The base code is shown in #2.
#6 shows only the code in #2 and the modified portion of your code shown in #5.
Expand|Select|Wrap|Line Numbers
  1. Dim SheetA As String
  2. Dim SheetB As String
  3. Const Path1 As String = "C:\Users\Corey\Desktop\"
  4. Const Path2 As String = "C:\Users\Corey\Desktop\"
  5. Const BookA_fname As String = "Unemployment_Rate.xlsx"
  6. Const BookB_fname As String = "GDP_Annual_Growth_Rate_%.xlsx"
  7. Const BookA As String = Path1 & BookA_fname
  8. Const BookB As String = Path2 & BookB_fname
  9.  
  10. Private Sub UserForm_Initialize()
  11.     Dim ws As Worksheet
  12.     Workbooks.Open Filename:=BookA
  13.     With ComboBox1
  14.         For Each ws In ActiveWorkbook.Worksheets
  15.             .AddItem ws.Name
  16.         Next
  17.     End With
  18.     Workbooks.Open Filename:=BookB
  19.     With ComboBox2
  20.         For Each ws In ActiveWorkbook.Worksheets
  21.             .AddItem ws.Name
  22.         Next
  23.     End With
  24.     Workbooks(BookA_fname).Close
  25.     Workbooks(BookB_fname).Close
  26. End Sub
  27.  
  28. Private Sub ComboBox1_Change()
  29.     SheetA = ComboBox1.List(ComboBox1.ListIndex)
  30. End Sub
  31.  
  32. Private Sub ComboBox2_Change()
  33.     SheetB = ComboBox2.List(ComboBox2.ListIndex)
  34. End Sub
  35.  
  36. Private Sub CommandButton1_Click()
  37. 'Link both workbook data
  38.     Dim i1 As Long
  39.     Dim j1 As Long
  40.     Dim i2 As Long
  41.     Dim j2 As Long
  42.     Worksheets("Sheet1").Select
  43.     For i1 = 1 To 5
  44.         For j1 = 1 To 2
  45.             Cells(i1, j1).value = "='" & Path1 & "[" & BookA_fname & "]" & SheetA & "'!R" & i1 & "C" & j1
  46.         Next j1
  47.     Next i1
  48.     Worksheets("Sheet2").Select
  49.     For i2 = 1 To 5
  50.         For j2 = 1 To 2
  51.             Cells(i2, j2).value = "='" & Path2 & "[" & BookB_fname & "]" & SheetB & "'!R" & i2 & "C" & j2
  52.         Next j2
  53.     Next i2
  54. End Sub
  55.  
  56. Private Sub CommandButton2_Click()
  57. 'Plot Graph
  58.     Range("A1:B5").Select
  59.     ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
  60.     ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$5")
  61.     ActiveChart.Axes(xlValue).MajorGridlines.Select
  62.     ActiveChart.SeriesCollection.NewSeries
  63.     ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
  64.     ActiveChart.FullSeriesCollection(2).XValues = "=Sheet2!$A$2:$A$5"
  65.     ActiveChart.FullSeriesCollection(2).Values = "=Sheet2!$B$2:$B$5"
  66.     ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
  67. End Sub
4 Days Ago #8
P: 5
SioSio.

Hello,

The VBA coding is great. You have given me an other way to get similar results and I am thankful for the opportunity.

Will chat soon.

Thanks for taking the time in helping me move to the next level.

Greatly appreciate it.

Solve
2 Days Ago #9

Post your reply

Sign in to post your reply or Sign up for a free account.

Question stats

  • viewed: 2896
  • replies: 8
  • date asked: 2 Weeks Ago
BYTES.COM © 2020 About Bytes | Advertise on Bytes | Privacy Policy | Manage Cookies
Sitemap | Microsoft Excel Answers Sitemap | Microsoft Excel Insights Sitemap

Follow us to get the Latest Bytes Updates