Macro is just running and not fetching any outcome.
Regards,
Kaushik
On May 26, 2017 16:11, "'Martin George' via MS EXCEL AND VBA MACROS" <
excel-macros@googlegroups.com> wrote:
>
> --------------------------------------------
> On Thu, 5/25/17, Paul Schreiner <schreiner_p...@att.net> wrote:
>
> Subject: Re: $$Excel-Macros$$ Links
> To: "excel-macros@googlegroups.com" <excel-macros@googlegroups.com>
> Date: Thursday, May 25, 2017, 8:17 PM
>
> The workbook that you add the VBA macro to is
> identified as "ThisWorkbook".
> so, in the
> macro:
>
> ThisWorkbook.Sheets(1).Range("A2:Z65000").ClearContents
> clears
> the contents of the first sheet in
> "Thisworkbook"then:
>
> ThisWorkbook.Sheets(1).Cells(nRow, "A").Value =
> Sht.Name
>
> ThisWorkbook.Sheets(1).Cells(nRow, "B").Value =
> Rng.Address
>
> If (InStr(1, Rng.Formula, "[") > 0) Then
>
> ThisWorkbook.Sheets(1).Cells(nRow, "C").Value =
> "'" & Rng.Formula
>
> Else
>
> ThisWorkbook.Sheets(1).Cells(nRow, "D").Value =
> "'" & Rng.Formula
>
> End Ifputs
> the listing on the first sheet of the workbook.
> Paul-----------------------------------------
> “Do
> all the good you can,
> By all the means you
> can,
> In all the ways you can,
> In all the places you can,
> At
> all the times you can,
> To all the people you
> can,
> As long as ever you can.” - John
> Wesley
> -----------------------------------------
>
>
>
> On Thursday, May 25, 2017 12:50 PM,
> KAUSHIK SAVLA <savla.kaus...@gmail.com> wrote:
>
>
> Hi Paul,
> Macro got run and gave finished
> message.
> Where can I
> find the desired output?
> Regards, Kaushik
> On May 25, 2017 19:06,
> "Paul Schreiner" <schreiner_p...@att.net>
> wrote:
> OK.Spent
> WAY longer on this than I should have.
> I
> should've had you create a "dummy" set of
> workbooks that looked like yours instead of me spending an
> hour+ guessing what yours looks like.
> So,
> I put together 20 separate workbooks with data.then
> added 15 sheets to the "data" workbook and
> created 150 random links to both the 20 external workbooks
> and the internal worksheets.
> It took about 15 minutes
> to write some code to look at the formulas and determine
> which are internal/external formulas.
> It
> DOESN'T distinguish between calculations and other
> formulas.
> Since I don't know what you want to do with
> it, and how you want it to list the matches, I'll just
> give you what I have and you can decide what you want to
> change.
> If it isn't what you
> want, then send me a sample to write against.
> Here it is:
> Sub
> Link_Summary()
>
> Dim DatFldr, DatFile
>
> Dim aLinks
>
> Dim nRow
>
> ' Location
> and name of main Data file.
>
> DatFldr = "C:\temp\vba\Savla\"
>
> DatFile = "DataFile.xlsb"
>
> On Error Resume Next
>
> Workbooks(DatFile).Activate
>
> If (Err.Number <> 0) Then
>
> Workbooks.Open DatFldr & DatFile, UpdateLinks:=False
>
> Err.Clear
>
> End If
>
> nRow = 1
>
> ThisWorkbook.Sheets(1).Range("
> A2:Z65000").ClearContents
>
> Dim Sht As Worksheet, Rng As Range
>
> For Each Sht In ActiveWorkbook.Sheets
>
> For Each Rng In Sht.UsedRange
>
> If (Rng.Value & "X" <> Rng.Formula &
> "X") Then
>
> nRow = nRow + 1
>
> ThisWorkbook.Sheets(1).Cells( nRow, "A").Value =
> Sht.Name
>
> ThisWorkbook.Sheets(1).Cells( nRow, "B").Value =
> Rng.Address
>
> If (InStr(1, Rng.Formula, "[") > 0) Then
>
> ThisWorkbook.Sheets(1).Cells( nRow, "C").Value =
> "'" & Rng.Formula
>
> Else
>
> ThisWorkbook.Sheets(1).Cells( nRow, "D").Value =
> "'" & Rng.Formula
>
> End If
>
> End If
>
> Next Rng
>
> Next Sht
>
> ThisWorkbook.Activate
>
> MsgBox "Finished"End
> Sub
> Paul------------------------------
> -----------
> “Do all the good you can,
> By all the means you can,
> In
> all the ways you can,
> In all the places you
> can,
> At all the times you can,
> To all the people you can,
> As
> long as ever you can.” - John Wesley
> ------------------------------
> -----------
>
>
> On Thursday, May 25, 2017 2:51 AM,
> KAUSHIK SAVLA <savla.kaus...@gmail.com>
> wrote:
>
>
> Hi
> Paul
> You are correct, I
> don't want to break links. Not possible to send workbook
> as it contains sensitive confidential information.
> Just suppose there is a worksheet
> named A in workbook. It is linked to external workbook
> named say X, Y and it is also linked to worksheets in
> workbook say name B, C, D, E in different
> cells.
> What I want
> is in new workbook it should displayWorksheet A -
> Linked from external workbook X, Y and internal
> worksheets B, C, D, E.
> This process repeat for all
> worksheets within a workbook.
> Regards, Kaushik
> Savla8373916768
> On
> May 25, 2017 00:53, "Paul Schreiner" <schreiner_p...@att.net>
> wrote:
> It
> sounds like you're not wanting to REMOVE the
> links,but
> basically generate a list of worksheets and the name of the
> external workbooks linked to those sheets.
> That
> doesn't sound difficult.
> But the
> error you're suggesting doesn't make sense because
> you're not "pasting" anything (with the macro
> I suggested).
> It
> would take me at least an hour to TRY to create a file set
> that MIGHT duplicate your structure. Is
> it at all possible for you to send me the workbook directly
> (schreiner_p...@att.net)?
> If
> not, can you send me the macro you're using that is
> causing the problems?Paul------------------------------
> -----------
> “Do all the good you can,
> By all the means you can,
> In
> all the ways you can,
> In all the places you
> can,
> At all the times you can,
> To all the people you can,
> As
> long as ever you can.” - John Wesley
> ------------------------------
> -----------
>
>
> On Wednesday, May 24, 2017 3:07 PM,
> KAUSHIK SAVLA <savla.kaus...@gmail.com>
> wrote:
>
>
> Hi
> Paul,
>
> What I am
> looking for is below.
>
> 1. I have
> a workbook with 100 worksheets
> 2. Each
> worksheet is linked to several external Workbooks and
> several tabs/worksheets within workbook.
> 3. What I
> want to do is first list all name of tabs sequentially in a
> new workbook and against each worksheet name mention the
> unique source with name say linked to external ABC, XYZ,
> files and linked to a, b, c, d, e, f....
> Worksheets.
> This I
> want to do for all 100 worksheets.
>
> Hope this
> helps.
>
> Regards,
> Kaushik
> On
> May 25, 2017 00:23, "KAUSHIK SAVLA" <savla.kaus...@gmail.com>
> wrote:
> Hi
> Paul,
>
>
>
> What I am looking for is below.
>
>
>
> 1. I have a workbook with 100 worksheets
>
> 2. Each worksheet is linked to several external Workbooks
> and several table within workbook.
>
> 3. What I want to do is first list all name of tabs
> sequentially in a new workbook and against each worksheet
> name mention the unique source with name say linked to
> external ABC, XYZ, files and linked to a, b, c, d, e,
> f.... Worksheets.
>
> This I want to do for all 100 worksheets.
>
>
>
> Hope this helps.
>
>
>
> Regards,
>
> Kaushik
>
>
>
> --
>
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
> wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
> Facebook page of this forum @ https://www.facebook.com/
> discussexcel
>
>
>
> FORUM RULES
>
>
>
> 1) Use concise, accurate thread titles. Poor thread titles,
> like Please Help, Urgent, Need Help, Formula Problem, Code
> Problem, and Need Advice will not get quick attention or may
> not be answered.
>
> 2) Don't post a question in the thread of another
> member.
>
> 3) Don't post questions regarding breaking or bypassing
> any security measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Jobs posting is not allowed.
>
> 6) Sharing copyrighted material and their links is not
> allowed.
>
>
>
> NOTE : Don't ever post confidential data in a
> workbook. Forum owners and members are not responsible for
> any loss.
>
> ---
>
> You received this message because you are subscribed to a
> topic in the Google Groups "MS EXCEL AND VBA
> MACROS" group.
>
> To unsubscribe from this topic, visit https://groups.google.com/d/
> topic/excel-macros/ lYmOGDBlWFU/unsubscribe.
>
> To unsubscribe from this group and all its topics, send an
> email to excel-macros+unsubscribe@
> googlegroups.com.
>
> To post to this group, send email to excel-macros@googlegroups.com.
>
> Visit this group at https://groups.google.com/
> group/excel-macros.
>
> For more options, visit https://groups.google.com/d/
> optout.
>
>
>
>
>
> --
>
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
> wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
> Facebook page of this forum @ https://www.facebook.com/
> discussexcel
>
>
>
> FORUM RULES
>
>
>
> 1) Use concise, accurate thread titles. Poor thread titles,
> like Please Help, Urgent, Need Help, Formula Problem, Code
> Problem, and Need Advice will not get quick attention or may
> not be answered.
>
> 2) Don't post a question in the thread of another
> member.
>
> 3) Don't post questions regarding breaking or bypassing
> any security measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Jobs posting is not allowed.
>
> 6) Sharing copyrighted material and their links is not
> allowed.
>
>
>
> NOTE : Don't ever post confidential data in a workbook.
> Forum owners and members are not responsible for any
> loss.
>
> ---
>
> You received this message because you are subscribed to the
> Google Groups "MS EXCEL AND VBA MACROS" group.
>
> To unsubscribe from this group and stop receiving emails
> from it, send an email to excel-macros+unsubscribe@
> googlegroups.com.
>
> To post to this group, send email to excel-macros@googlegroups.com.
>
> Visit this group at https://groups.google.com/
> group/excel-macros.
>
> For more options, visit https://groups.google.com/d/
> optout.
>
>
>
>
>
>
>
> --
>
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
> wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
> Facebook page of this forum @ https://www.facebook.com/
> discussexcel
>
>
>
> FORUM RULES
>
>
>
> 1) Use concise, accurate thread titles. Poor thread titles,
> like Please Help, Urgent, Need Help, Formula Problem, Code
> Problem, and Need Advice will not get quick attention or may
> not be answered.
>
> 2) Don't post a question in the thread of another
> member.
>
> 3) Don't post questions regarding breaking or bypassing
> any security measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Jobs posting is not allowed.
>
> 6) Sharing copyrighted material and their links is not
> allowed.
>
>
>
> NOTE : Don't ever post confidential data in a workbook.
> Forum owners and members are not responsible for any
> loss.
>
> ---
>
> You received this message because you are subscribed to a
> topic in the Google Groups "MS EXCEL AND VBA
> MACROS" group.
>
> To unsubscribe from this topic, visit https://groups.google.com/d/
> topic/excel-macros/ lYmOGDBlWFU/unsubscribe.
>
> To unsubscribe from this group and all its topics, send an
> email to excel-macros+unsubscribe@
> googlegroups.com.
>
> To post to this group, send email to excel-macros@googlegroups.com.
>
> Visit this group at https://groups.google.com/
> group/excel-macros.
>
> For more options, visit https://groups.google.com/d/
> optout.
>
>
>
>
>
> --
>
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
> wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
> Facebook page of this forum @ https://www.facebook.com/
> discussexcel
>
>
>
> FORUM RULES
>
>
>
> 1) Use concise, accurate thread titles. Poor thread titles,
> like Please Help, Urgent, Need Help, Formula Problem, Code
> Problem, and Need Advice will not get quick attention or may
> not be answered.
>
> 2) Don't post a question in the thread of another
> member.
>
> 3) Don't post questions regarding breaking or bypassing
> any security measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Jobs posting is not allowed.
>
> 6) Sharing copyrighted material and their links is not
> allowed.
>
>
>
> NOTE : Don't ever post confidential data in a workbook.
> Forum owners and members are not responsible for any
> loss.
>
> ---
>
> You received this message because you are subscribed to the
> Google Groups "MS EXCEL AND VBA MACROS" group.
>
> To unsubscribe from this group and stop receiving emails
> from it, send an email to excel-macros+unsubscribe@
> googlegroups.com.
>
> To post to this group, send email to excel-macros@googlegroups.com.
>
> Visit this group at https://groups.google.com/
> group/excel-macros.
>
> For more options, visit https://groups.google.com/d/
> optout.
>
>
>
>
>
>
>
> --
>
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
> wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
> Facebook page of this forum @ https://www.facebook.com/
> discussexcel
>
>
>
> FORUM RULES
>
>
>
> 1) Use concise, accurate thread titles. Poor thread titles,
> like Please Help, Urgent, Need Help, Formula Problem, Code
> Problem, and Need Advice will not get quick attention or may
> not be answered.
>
> 2) Don't post a question in the thread of another
> member.
>
> 3) Don't post questions regarding breaking or bypassing
> any security measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Jobs posting is not allowed.
>
> 6) Sharing copyrighted material and their links is not
> allowed.
>
>
>
> NOTE : Don't ever post confidential data in a workbook.
> Forum owners and members are not responsible for any
> loss.
>
> ---
>
> You received this message because you are subscribed to a
> topic in the Google Groups "MS EXCEL AND VBA
> MACROS" group.
>
> To unsubscribe from this topic, visit https://groups.google.com/d/
> topic/excel-macros/ lYmOGDBlWFU/unsubscribe.
>
> To unsubscribe from this group and all its topics, send an
> email to excel-macros+unsubscribe@
> googlegroups.com.
>
> To post to this group, send email to excel-macros@googlegroups.com.
>
> Visit this group at https://groups.google.com/
> group/excel-macros.
>
> For more options, visit https://groups.google.com/d/
> optout.
>
>
>
>
>
> --
>
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
> wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
> Facebook page of this forum @ https://www.facebook.com/discussexcel
>
>
>
> FORUM RULES
>
>
>
> 1) Use concise, accurate thread titles. Poor thread titles,
> like Please Help, Urgent, Need Help, Formula Problem, Code
> Problem, and Need Advice will not get quick attention or may
> not be answered.
>
> 2) Don't post a question in the thread of another
> member.
>
> 3) Don't post questions regarding breaking or bypassing
> any security measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Jobs posting is not allowed.
>
> 6) Sharing copyrighted material and their links is not
> allowed.
>
>
>
> NOTE : Don't ever post confidential data in a workbook.
> Forum owners and members are not responsible for any
> loss.
>
> ---
>
> You received this message because you are subscribed to the
> Google Groups "MS EXCEL AND VBA MACROS" group.
>
> To unsubscribe from this group and stop receiving emails
> from it, send an email to excel-macros+unsubscr...@googlegroups.com.
>
> To post to this group, send email to excel-macros@googlegroups.com.
>
> Visit this group at https://groups.google.com/group/excel-macros.
>
> For more options, visit https://groups.google.com/d/optout.
>
>
>
>
> --
>
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
> wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
> Facebook page of this forum @ https://www.facebook.com/discussexcel
>
>
>
> FORUM RULES
>
>
>
> 1) Use concise, accurate thread titles. Poor thread titles,
> like Please Help, Urgent, Need Help, Formula Problem, Code
> Problem, and Need Advice will not get quick attention or may
> not be answered.
>
> 2) Don't post a question in the thread of another
> member.
>
> 3) Don't post questions regarding breaking or bypassing
> any security measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Jobs posting is not allowed.
>
> 6) Sharing copyrighted material and their links is not
> allowed.
>
>
>
> NOTE : Don't ever post confidential data in a workbook.
> Forum owners and members are not responsible for any
> loss.
>
> ---
>
> You received this message because you are subscribed to the
> Google Groups "MS EXCEL AND VBA MACROS" group.
>
> To unsubscribe from this group and stop receiving emails
> from it, send an email to excel-macros+unsubscr...@googlegroups.com.
>
> To post to this group, send email to excel-macros@googlegroups.com.
>
> Visit this group at https://groups.google.com/group/excel-macros.
>
> For more options, visit https://groups.google.com/d/optout.
> 7intre conducatorii revolutiei romane si ai celei maghiare pentru a
> mpotriva dusmanului comun Imperiul Habsburgic. ecembrie 1848 a devenit
> imparat la Viena Franz losif. Acesta a cerut usiei tariste pentru
> inabusirea revolutiilor din Imperiu. in vara lui 1849 vperiale au declansat
> o ofensiva in Transilvania concomitent cu ea trupelor tariste in
> provincie. in fata acestui pericol aflat intr-o >arte dificila guvernul
> maghiar a acceptat sa desfasoare tratative cu orii revolutiei romane din
> Transilvania. Tratativele s-au desfasurat la intre Nicblae Balcescu si
> Lajos Kossuth. Sub presiunea iminenta a trupelor tariste guvernul maghiar
> a acceptat sa semneze la.2 14 iulie >eghedin! un document intitulat
> Proiectul de pacificare . ederile sale consemnau insa o stare deja
> existenta de cateva luni in iia. Astfel se recunosteau dreptul romanilor
> de a-si folosi propria limba listratie independenta Bisericii
> Ortodoxe prezenta romanilor in atia de stat. Totodata s-a semnat un
> tratat pentru formarea unei legiuni i.' in noua' lege a
> nationalitatilor votata in iulie 1849 de catre tul maghiar au
> fost acordate unele drepturi politice romanilor. in np prin eforturile lui
> Balcescu s-a obtinut neutralitatea lui Avram lancu din Transilvania. Toate
> acestea au intervenit insa mult prea tarziu. La jst 1849 armata maghiara a
> capitulat la sina.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to a topic in the
> Google Groups "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this topic, visit https://groups.google.com/d/
> topic/excel-macros/lYmOGDBlWFU/unsubscribe.
> To unsubscribe from this group and all its topics, send an email to
> excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
