You can associate each shape to a macro: shp.OnAction = “OtherMacro” In the other macro, you can get the name of which shape was clicked with Application.Caller. Then you get the row index after “shp”, thus linking to the row in the initial selection. shpName = Application.Caller cellRow = Val(Replace(shpName, "shp", "")) If that’s not enough, you may need to add the full originating cell address to the name of the shape, but preserving the index, as that’s used to add the connectors later.
Hello dear, God bless your efforts. I am a totally newbie vba learner. I come to play with that code and have a simple enquiry. How could i amend this code so that i can return all generated workbooks, inside a folder by which the code is run. Thanks a lot Sub test() Dim rg As Range, i As Long, wb As Workbook Dim vNames As Variant, v As Variant
Set rg = Workbooks("All raw data.csv").Worksheets("All raw data").UsedRange
'get unique names With CreateObject("Scripting.Dictionary") For i = 2 To rg.Rows.Count .Item(rg.Cells(i, 1).Value) = Empty Next i vNames = .keys End With
For Each v In vNames ThisWorkbook.Worksheets("Sheet1").Copy Set wb = ActiveWorkbook wb.SaveAs v, 51 rg.AutoFilter 1, v rg.Offset(1).Columns("A").SpecialCells(xlCellTypeVisible).Copy wb.Worksheets(1).Cells(2, 1) rg.Offset(1).Columns("U").SpecialCells(xlCellTypeVisible).Copy wb.Worksheets(1).Cells(2, 2) rg.Offset(1).Columns("Q").SpecialCells(xlCellTypeVisible).Copy wb.Worksheets(1).Cells(2, 3) wb.Save Next v End Sub
I am afraid your enquiry has nothing to do with what this video is all about. I recommend you post your question in some forum such as Excel Help Forum, Mr Excel Forum, or Reditt Forum, StackOverflow, etc.
I have questions, please explain how you created the link column , how you assigned the code?
Note sure I understand. The link column? assign code? you mean assign code to the button? just right-click the button and assign the macro.
Hi there,
Thanks for amazing video please can you share VBA code for organization chart?
Many Thanks
You can find it here: excelmacrobusiness.blogspot.com/2020/06/org-chart-creator.html
Hello sir , Can you please give me the code for creating hierarchy flowchart which you just shown in the start of the video
That's in this other post: excelmacrobusiness.blogspot.com/2020/06/org-chart-creator.html
Hi sir
It is very useful video. Would it be possible to make flow diagram for functional level
Sure it is. Please check this other example: excelmacrobusiness.blogspot.com/2020/06/org-chart-creator.html
hi sir, Is there a way to capture the text of a flowchart with a mouse click and search for that text and link to the content?
You can associate each shape to a macro:
shp.OnAction = “OtherMacro”
In the other macro, you can get the name of which shape was clicked with Application.Caller. Then you get the row index after “shp”, thus linking to the row in the initial selection.
shpName = Application.Caller
cellRow = Val(Replace(shpName, "shp", ""))
If that’s not enough, you may need to add the full originating cell address to the name of the shape, but preserving the index, as that’s used to add the connectors later.
Right vlivk in the element... Look for Hipervinculo, o hiperlink
hi sir，how to do the second example with tier and link in the video？
You can check that and download the file in this post: excelmacrobusiness.blogspot.com/2020/06/org-chart-creator.html
Hello dear, God bless your efforts.
I am a totally newbie vba learner.
I come to play with that code and have a simple enquiry.
How could i amend this code so that i can return all generated workbooks, inside a folder by which the code is run.
Thanks a lot
Sub test()
Dim rg As Range, i As Long, wb As Workbook
Dim vNames As Variant, v As Variant
Set rg = Workbooks("All raw data.csv").Worksheets("All raw data").UsedRange
'get unique names
With CreateObject("Scripting.Dictionary")
For i = 2 To rg.Rows.Count
.Item(rg.Cells(i, 1).Value) = Empty
Next i
vNames = .keys
End With
For Each v In vNames
ThisWorkbook.Worksheets("Sheet1").Copy
Set wb = ActiveWorkbook
wb.SaveAs v, 51
rg.AutoFilter 1, v
rg.Offset(1).Columns("A").SpecialCells(xlCellTypeVisible).Copy wb.Worksheets(1).Cells(2, 1)
rg.Offset(1).Columns("U").SpecialCells(xlCellTypeVisible).Copy wb.Worksheets(1).Cells(2, 2)
rg.Offset(1).Columns("Q").SpecialCells(xlCellTypeVisible).Copy wb.Worksheets(1).Cells(2, 3)
wb.Save
Next v
End Sub
I am afraid your enquiry has nothing to do with what this video is all about. I recommend you post your question in some forum such as Excel Help Forum, Mr Excel Forum, or Reditt Forum, StackOverflow, etc.