Re: $$Excel-Macros$$ load graph in userform

2014-09-05 Thread Hilary Lomotey
excellent boss, well done


On Tue, Sep 2, 2014 at 6:30 AM, Anil Gawli gawlianil8...@gmail.com wrote:

 ​Dear Hilary,

 Pl find below attached file for you ref.

 Warm Regards,
 Gawli Anil.


 On Mon, Sep 1, 2014 at 9:16 PM, Hilary Lomotey resp...@gmail.com wrote:

 Hello Experts

 Just found a temporal solution to my question above however, i wish to
 have some modification, i managed to get the code below but i modified it
 with  Dim x As Integer where
 x = Sheet1.Range(P6).Value, however when i select ion it an option
 for the chart to chart ie eg i select LOS from the listbox, it doesnt
 change so unless the chart reloads, so i added unload me pic.show, is there
 a way to go around this instead. thanks


 Private Sub ListBox1_Click()
 Sheet1.Range(p5).Value = ListBox1.Value
 Pic.Caption = ListBox1.Value
 Unload Me
 Pic.Show
 End Sub


 Private Sub UserForm_Initialize()

 Dim strFile As String
 Dim x As Integer
 x = Sheet1.Range(P6).Value
  ' export picture
 With Sheet2
 strFile = .Parent.Path  x1temp.gif
 .ChartObjects(x).Chart.Export strFile
 End With

  ' load picture
 Image1.PictureSizeMode = fmPictureSizeModeStretch
 Image1.Picture = LoadPicture(strFile)

  ' remove picture from disk
 Kill strFile

 End Sub



 On Mon, Sep 1, 2014 at 4:19 PM, Hilary Lomotey resp...@gmail.com wrote:

  [image: Boxbe] https://www.boxbe.com/overview This message is
 eligible for Automatic Cleanup! (resp...@gmail.com) Add cleanup rule
 https://www.boxbe.com/popup?url=https%3A%2F%2Fwww.boxbe.com%2Fcleanup%3Ftoken%3DBPP2sNpZ8l37nvqp%252B%252FIJpzOHs%252FBDBmrd5u351F7NQkC5GtspdoLbATK359fSxj1bSFyjFTQMKDoCr86HG78V2Rz1L49fcrlL%252FT7OVA%252FPMk9mmnLK0foMyOPT%252FVGqoLGMtUvLEsW2Fck%253D%26key%3Dh4aSOyI%252FduxY4MZmnHTUgIzDZWrBFEQR3i35g3cTQEk%253Dtc_serial=18439678443tc_rand=749486360utm_source=stfutm_medium=emailutm_campaign=ANNO_CLEANUP_ADDutm_content=001
 | More info
 http://blog.boxbe.com/general/boxbe-automatic-cleanup?tc_serial=18439678443tc_rand=749486360utm_source=stfutm_medium=emailutm_campaign=ANNO_CLEANUP_ADDutm_content=001

 Hello Experts,

 i want to load graphs in the userform, i got some codes but its not
 working, can some please assist with the file attached,  the objective is
 to load the graph in the graph sheet in the userform on the dashboard by
 selecting the required option. thanks

 --
 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 http://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 http://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 

Re: $$Excel-Macros$$ Text file to excel

2014-09-05 Thread Ganesh N
Hi Paul,

Im fine with every thing but after saving the excel file to .txt it contain
some additional () quotes (unwanted). can you please help me to avoid that
one ?

Thanks  Regards,
Ganesh N


On Fri, Sep 5, 2014 at 8:58 AM, Ganesh N ganeshg...@gmail.com wrote:

 Thanks Paul. Let me check on this.

 Regards,
 Ganesh N


 On Thu, Sep 4, 2014 at 11:29 PM, Paul Schreiner schreiner_p...@att.net
 wrote:

 Have you tried recording a macro?

 When I recorded macros, I came up with:

 Sub Open_Macro()
 Workbooks.OpenText Filename:=C:\temp\mfg_appl_log.txt, Origin:=437,
 _
 StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
 _
 ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
 Comma:=False _
 , Space:=False, Other:=True, OtherChar:=|, _
 FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4,
 1), _
 Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _
 TrailingMinusNumbers:=True
 End Sub

 Sub Save_Macro()
 ActiveWorkbook.Save
 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*
 -

*From:* Ganesh N ganeshg...@gmail.com
 *To:* excel-macros@googlegroups.com excel-macros@googlegroups.com
 *Sent:* Thursday, September 4, 2014 1:20 PM
 *Subject:* Re: $$Excel-Macros$$ Text file to excel

 Dear Paul,

 Thanks for your reply. your rite but i have to open by macro because i
 have to do some automation after i open the .txt file to excel.

 Kindly help me how to open the .txt file using macro. I mean code to open
 and save the same.

 Thanks  Regards,
 Ganesh N


 On Thu, Sep 4, 2014 at 10:45 PM, Paul Schreiner schreiner_p...@att.net
 wrote:

 I'm sure I must be misunderstanding the question.

 Assuming your text file has a .txt extension:

 Why don't you simply:
 launch Excel
 File-Open
  Change file types to: Text Files (*.prn;*.txt;*.csv)

 do whatever formatting is applicable

 when saving, the file should default to .txt

 so, what am I missing in this question?

 *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*
 -

*From:* Ganesh N ganeshg...@gmail.com
 *To:* excel-macros@googlegroups.com excel-macros@googlegroups.com
 *Sent:* Thursday, September 4, 2014 11:44 AM
 *Subject:* $$Excel-Macros$$ Text file to excel

 Dear expert,

 I want to open the text file in excel (copy all the data from text file)
 and have to do some computation on excel and again I need to save the excel
 file to text file. I need to know how to open the text file (or how to copy
 the data from text file) and how to save the excel data to text file.
 Required your help one that.

 Thanks  Regards,
 Ganesh N

 --
 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 http://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) 

$$Excel-Macros$$ Can UDF entered as a formula in names return a value to VBA?

2014-09-05 Thread kkurzban13
 Hi folks, hope you don't mind the cross-posting, other group's read my 
post twice and replied none where I originally put it on 9/3 and after 
scanning the other recent postings it appears they don't seem to center on 
the kind of issue I've asked about
 
.
.
. 
 
I've got a function requiring a user to enter a table and my UDF needs to 
know when the table gets created/changed/updated.  It can then be uploaded 
and used in a public memory variable which should speed up the spreadsheet. 
 
So far, the main idea is to run a simple checksum algorithm on it, but I'm 
trying to avoid placing the checksum under the table or invisible on a 
sheet, so instead I placed it as a formula in names. 
 

When I try to get the return in VBA, it ends up being the formula, not 
the executed function's value.  An entry on the spreadsheet sees it as a 
function call and works fine. 
I like the idea of using the names domain because I can check if it exists 
to facilitate initialization (function tells user to enter a keystroke to 
invoke a macro, which sorts the keys table, etc. and creates/runs a 
checksum).  Further, I'm trying to avoid an event driven solution because I 
want to offer the function to others at work only in the form of an import 
as module (can't import to ThisWorkbook or have the macro write code in 
ThisWorkbook without some form of user instructions to add appropriate 
additional library access, right?).
Is there a way to execute the function in names from a UDF in a VBA module, 
make it update if the table (computed checksum) changes, or does anyone 
have any suggestion that will allow for the same initialization scenario 
without having to code beyond a module/UDF?
TIA, 

KK's Dad (my rugrats account)

P.S.  If I've done it again ... posted to a group that focuses on other 
topics ... please suggest a more appropriate newsgroup?

-- 
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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Re: $$Excel-Macros$$ Text file to excel

2014-09-05 Thread Paul Schreiner
That's a bit more involved.
Have you ever used the filesystem object similar to:


Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, f
Set fs = CreateObject(Scripting.FileSystemObject)
Set f = fs.OpenTextFile(c:\temp\testfile.txt, ForAppending, True)
f.Write Hello world!
f.Close

You would open the text file, then loop through your worksheet and write each 
line.
Usually, I build a string variable from the worksheet row and write the string.

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
-

 From: Ganesh N ganeshg...@gmail.com
To: excel-macros@googlegroups.com excel-macros@googlegroups.com 
Sent: Friday, September 5, 2014 8:12 AM
Subject: Re: $$Excel-Macros$$ Text file to excel
  


Hi Paul,


Im fine with every thing but after saving the excel file to .txt it contain 
some additional () quotes (unwanted). can you please help me to avoid that 
one ?


Thanks  Regards,
Ganesh N



On Fri, Sep 5, 2014 at 8:58 AM, Ganesh N ganeshg...@gmail.com wrote:

Thanks Paul. Let me check on this.


Regards,
Ganesh N



On Thu, Sep 4, 2014 at 11:29 PM, Paul Schreiner schreiner_p...@att.net 
wrote:

Have you tried recording a macro?

When I recorded macros, I came up with:

Sub Open_Macro()
Workbooks.OpenText Filename:=C:\temp\mfg_appl_log.txt, Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, 
 Comma:=False _
, Space:=False, Other:=True, OtherChar:=|, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), 
 _
Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _
TrailingMinusNumbers:=True
End Sub

Sub Save_Macro()
ActiveWorkbook.Save
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
-


 From: Ganesh N ganeshg...@gmail.com
To: excel-macros@googlegroups.com excel-macros@googlegroups.com 
Sent: Thursday, September 4, 2014 1:20 PM
Subject: Re: $$Excel-Macros$$ Text file to excel
 


Dear Paul,


Thanks for your reply. your rite but i have to open by macro because i have 
to do some automation after i open the .txt file to excel.


Kindly help me how to open the .txt file using macro. I mean code to open 
and save the same. 


Thanks  Regards,
Ganesh N



On Thu, Sep 4, 2014 at 10:45 PM, Paul Schreiner schreiner_p...@att.net 
wrote:

I'm sure I must be misunderstanding the question.

Assuming your text file has a .txt extension:

Why don't you simply:
launch Excel 
File-Open 
 Change file types to: Text Files (*.prn;*.txt;*.csv)

do whatever formatting is applicable

when saving, the file should default to .txt

so, what am I missing in this question? 

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
-


 From: Ganesh N ganeshg...@gmail.com
To: excel-macros@googlegroups.com excel-macros@googlegroups.com 
Sent: Thursday, September 4, 2014 11:44 AM
Subject: $$Excel-Macros$$ Text file to excel
 


Dear expert,


I want to open the text file in excel (copy all the data from text file) 
and have to do some computation on excel and again I need to save the 
excel file to text file. I need to know how to open the text file (or how 
to copy the data from text file) and how to save the excel data to text 
file. Required your help one that. 


Thanks  Regards,
Ganesh N


-- 
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 

$$Excel-Macros$$ Macroa

2014-09-05 Thread Jones George
Hi All,

I have a task at hand. Wherein i have files stored online on my office
intranet. And i need those files downloaded and merged as and when required.

For example, I have 10 folders and in each folders there are 2 files say A
and B, now whenever i need the data i have to download the files 1 by 1 and
merge the details in the file. Can a macro help me in getting the work
done. As in if i run the macro, the should get downloaded and merged based
on the file names. All As to be merged and Bs to be merged.

Let me know if this can be done with the help of macros. Just yes or no
will do.

Regards
Jones

-- 
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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Re: $$Excel-Macros$$ Need some help with VBA and Userform Please

2014-09-05 Thread Paul Schreiner
I think you're pretty close.
 
consider:
the syntax for Cells() is Cells(row,column)
and for column you can use the letter (rather than the number)
 
So, your set should look like:

.Cells(NextRw + 0, A).Value = Me.txtAssignmentName.Value
.Cells(NextRw + 1, A).Value = Me.txtDate
.Cells(NextRw + 2, A).Value = Me.txtAssignmentType.Value
.Cells(NextRw + 0, D).Value = Me.txtPointsReceived.Value
.Cells(NextRw + 1, D).Value = Me.txtPointsPossible.Value
(I only added the + 0 so everything lines up nicely. Rather OCD of me, I know)

Now, if for the Points Recived value, if you want to set a default value, 
you could either set a default in the userform, or do something like:
If (Me.txtPointsReceived.Value  X = X) Then
.Cells(NextRw + 0, D).Value = -
Else
.Cells(NextRw + 0, D).Value = Me.txtPointsReceived.Value
End If


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
-

 From: Mr_Bill egge...@gmail.com
To: excel-macros@googlegroups.com 
Sent: Friday, September 5, 2014 1:34 AM
Subject: $$Excel-Macros$$ Need some help with VBA and Userform Please
  


Okay so I tried to do this on my own. Which in someways was good learned 
somethings. On the flip side I have aged 30 years and have pulled half 
my hair out. I have tried to get the information to input on the form 
put I can not get it in how I would like it. It is all going in the same row 
and It should be like the example below starting at row 6 and using 3 rows 5 
columns input the data, then the next one that gets input 
would skip a row and fill in 3 rows and 5 columns. This pattern will 
continue down the page. Hopefully someone can edit my current code to 
work in this fashion.



A6 = txtAssignmentName
A7 = txtDate
A8 = txtAssignmentType
D6 = txtPointsReceived
E6 = txtPointsPossible

SKIP Row 9

A10 = txtAssignmentName
A11 = txtDate
A12 = txtAssignmentType
D10 = txtPointsReceived
E10 = txtPointsPossible

And repeat this down the page for every new entry



Here is what I have which inputs everything in 1 row and poorly done as I am 
guessing at how to do this


Private Sub cmdSubmit_Click()
Application.ScreenUpdating = False Dim rNextCl As Range Dim NextRw As Long With 
Sheet1'find next empty row using Column A NextRw = .Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row 'This information starts at row 6 and goes down in 
groups of 3 rows and skips a row, so there is a
'blank row between the groups of 3 rows. .Cells(NextRw, 1).Value = 
Me.txtAssignmentName.Value 'this would go in A6 .Cells(NextRw, 2).Value = 
Me.txtDate 'this would go in A7 .Cells(NextRw, 3).Value = 
Me.txtAssignmentType.Value 'this would go in A8 .Cells(NextRw, 4).Value = 
Me.txtPointsReceived.Value 'this would go in D6 would be nice if the default if 
left blank would input a - in the sheet .Cells(NextRw, 5).Value = 
Me.txtPointsPossible.Value 'this would go in E6 'So this information would be 
Row 6:8 Then when I want to input another assignment it would 'skip a row and 
input the data. Not sure if it pushes the previous data down. End With 'confirm 
data transferred Unload Me
End Sub

-- 
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 http://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 

Re: $$Excel-Macros$$ Macroa

2014-09-05 Thread Paul Schreiner
You say: office intranet
 
is that what you mean? as in:
it's a link on a web site?
 
or is it actually on a network folder?
Actually, the link would actually BE pointing to a network folder. 
If you can open the file location, then you'd be able to see what the network 
path is to the file and use the VBA filesytem object to copy the file.
 
If it actually is on an intranet web page, then it can still be accomplished, 
but it's a little more involved.

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
-



 From: Jones George jonnie...@gmail.com
To: excel-macros@googlegroups.com 
Sent: Friday, September 5, 2014 10:15 AM
Subject: $$Excel-Macros$$ Macroa
  


Hi All, 
I have a task at hand. Wherein i have files stored online on my office 
intranet. And i need those files downloaded and merged as and when required. 
For example, I have 10 folders and in each folders there are 2 files say A and 
B, now whenever i need the data i have to download the files 1 by 1 and merge 
the details in the file. Can a macro help me in getting the work done. As in 
if i run the macro, the should get downloaded and merged based on the file 
names. All As to be merged and Bs to be merged. 
Let me know if this can be done with the help of macros. Just yes or no will 
do. 
Regards
Jones
-- 
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 http://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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


$$Excel-Macros$$ Re: Need some help with VBA and Userform Please

2014-09-05 Thread Mr_Bill
Paul thank you for that. What in this would I need to change to match what 
you put.

Set ws = Sheet1
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Row

as the IRow part changed. This part gives me the blank row between the sets 
but unclear how to edit it to fix with your code.

-- 
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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


$$Excel-Macros$$ Re: Need some help with VBA and Userform Please

2014-09-05 Thread Mr_Bill
Figure it out Paul that works very nice now I need to get it to start at 
row 6 and go down from there.

-- 
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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Re: $$Excel-Macros$$ Text file to excel

2014-09-05 Thread Ganesh N
Thanks Paul. let me try on that. thanks again

Regards,
Ganesh N


On Fri, Sep 5, 2014 at 7:38 PM, Paul Schreiner schreiner_p...@att.net
wrote:

 That's a bit more involved.
 Have you ever used the filesystem object similar to:


 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 Dim fs, f
 Set fs = CreateObject(Scripting.FileSystemObject)
 Set f = fs.OpenTextFile(c:\temp\testfile.txt, ForAppending, True)
 f.Write Hello world!
 f.Close

 You would open the text file, then loop through your worksheet and write
 each line.
 Usually, I build a string variable from the worksheet row and write the
 string.

 *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*
 -

*From:* Ganesh N ganeshg...@gmail.com
 *To:* excel-macros@googlegroups.com excel-macros@googlegroups.com
 *Sent:* Friday, September 5, 2014 8:12 AM

 *Subject:* Re: $$Excel-Macros$$ Text file to excel

 Hi Paul,

 Im fine with every thing but after saving the excel file to .txt it
 contain some additional () quotes (unwanted). can you please help me to
 avoid that one ?

 Thanks  Regards,
 Ganesh N


 On Fri, Sep 5, 2014 at 8:58 AM, Ganesh N ganeshg...@gmail.com wrote:

 Thanks Paul. Let me check on this.

 Regards,
 Ganesh N


 On Thu, Sep 4, 2014 at 11:29 PM, Paul Schreiner schreiner_p...@att.net
 wrote:

 Have you tried recording a macro?

 When I recorded macros, I came up with:

 Sub Open_Macro()
 Workbooks.OpenText Filename:=C:\temp\mfg_appl_log.txt, Origin:=437, _
 StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
 ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
 Comma:=False _
 , Space:=False, Other:=True, OtherChar:=|, _
 FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4,
 1), _
 Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _
 TrailingMinusNumbers:=True
 End Sub

 Sub Save_Macro()
 ActiveWorkbook.Save
 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*
 -

*From:* Ganesh N ganeshg...@gmail.com
 *To:* excel-macros@googlegroups.com excel-macros@googlegroups.com
 *Sent:* Thursday, September 4, 2014 1:20 PM
 *Subject:* Re: $$Excel-Macros$$ Text file to excel

 Dear Paul,

 Thanks for your reply. your rite but i have to open by macro because i
 have to do some automation after i open the .txt file to excel.

 Kindly help me how to open the .txt file using macro. I mean code to open
 and save the same.

 Thanks  Regards,
 Ganesh N


 On Thu, Sep 4, 2014 at 10:45 PM, Paul Schreiner schreiner_p...@att.net
 wrote:

 I'm sure I must be misunderstanding the question.

 Assuming your text file has a .txt extension:

 Why don't you simply:
 launch Excel
 File-Open
  Change file types to: Text Files (*.prn;*.txt;*.csv)

 do whatever formatting is applicable

 when saving, the file should default to .txt

 so, what am I missing in this question?

 *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*
 -

*From:* Ganesh N ganeshg...@gmail.com
 *To:* excel-macros@googlegroups.com excel-macros@googlegroups.com
 *Sent:* Thursday, September 4, 2014 11:44 AM
 *Subject:* $$Excel-Macros$$ Text file to excel

 Dear expert,

 I want to open the text file in excel (copy all the data from text file)
 and have to do some computation on excel and again I need to save the excel
 file to text file. I need to know how to open the text file (or how to copy
 the data from text file) and how to save the excel data to text file.
 Required your help one that.

 Thanks  Regards,
 Ganesh N

 --
 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 

Re: $$Excel-Macros$$ Re: Need some help with VBA and Userform Please

2014-09-05 Thread Paul Schreiner
Are you saying you need to set NextRw to 6 if it's the first set?
 
if so, after
NextRw = .Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
 
add:
 
If (NextRw  6) then NextRw = 6 

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
-

 From: Mr_Bill egge...@gmail.com
To: excel-macros@googlegroups.com 
Sent: Friday, September 5, 2014 11:16 AM
Subject: $$Excel-Macros$$ Re: Need some help with VBA and Userform Please
  


Figure it out Paul that works very nice now I need to get it to start at row 6 
and go down from there.


-- 
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 http://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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Re: $$Excel-Macros$$ Can UDF entered as a formula in names return a value to VBA?

2014-09-05 Thread Paul Schreiner
You're asking a question about VBA, so you've come to the right place!
You saidWhen I try to get the return in VBA, it ends up being the formula, 
not the executed function's value.
 
that shouldn't happen.
How are you trying to get it?
 
For a given cell (D4):
If the cell is an excel formula (like =vlookup() or a calculation),
Range(D4).Formula 
will return the formula but
Range(D4).Value 
should return the resulting value.
 
I'm not sure how you're going to get past using an event function though.
I'll have to think on it.

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
-

 From: kkurzba...@gmail.com kkurzba...@gmail.com
To: excel-macros@googlegroups.com 
Sent: Friday, September 5, 2014 9:22 AM
Subject: $$Excel-Macros$$ Can UDF entered as a formula in names return a value 
to VBA?
  


Hi folks, hope you don't mind the cross-posting, other
group's read my post twice and replied none where I originally put it on 9/3
and after scanning the other recent postings it appears they don't seem to
center on the kind of issue I've asked about

.
.
. 
 
I've got a function requiring a user to enter a table and
my UDF needs to know when the table gets created/changed/updated.  It can then 
be uploaded and used in a public memory
variable which should speed up the spreadsheet. 
 
So far, the main idea is to run a simple checksum
algorithm on it, but I'm trying to avoid placing the checksum under the table
or invisible on a sheet, so instead I placed it as a formula in
names. 
 
When I try to get the return in VBA, it ends
up being the formula, not the executed function's value.  An entry on the 
spreadsheet sees it as a
function call and works fine. 
I like the idea of using the names domain because I can
check if it exists to facilitate initialization (function tells user to enter a
keystroke to invoke a macro, which sorts the keys table, etc. and creates/runs a
checksum).  Further, I'm trying to avoid
an event driven solution because I want to offer the function to others at work
only in the form of an import as module (can't import to ThisWorkbook or have 
the macro write code in ThisWorkbook without some form of user instructions to 
add appropriate additional
library access, right?).
Is there a way to execute the function in names from a
UDF in a VBA module, make it update if the table (computed checksum) changes,
or does anyone have any suggestion that will allow for the same initialization 
scenario
without having to code beyond a module/UDF?
TIA, 
KK's Dad (my rugrats account)
P.S.  If I've done
it again ... posted to a group that focuses on other topics ... please suggest
a more appropriate newsgroup?
-- 
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 http://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 

Re: $$Excel-Macros$$ Can UDF entered as a formula in names return a value to VBA?

2014-09-05 Thread kkurzban13
Thanks for the reply!
 
Trying to get it by:
activeworkbook.names(chk).value
 
I've not tested the results, but in the immediate window this shows promise:
? evaluate(activeworkbook.names(chk).value)
 
where the chk name is my UDF(input range) call.
 
I've got another issue I'm working on too, but was not quite ready to give 
up yet ...  The table I grabbed from the spreadsheet and moved into a 
Public (global) variable is of type variant and may have some string 
representations of numbers that I will need to change to integers.  It 
seems once I stick the text in the array it doesn't want me to 
cInt(string number) coerce it.  I can't do the conversions on the front 
end because the table is subject to end-user changes with no data 
validation...
 
THANKS AGAIN FOR JUMPING IN :-)
 
 
On Friday, September 5, 2014 10:26:57 AM UTC-5, Paul Schreiner wrote:

 You're asking a question about VBA, so you've come to the right place!
 You saidWhen I try to get the return in VBA, it ends up being the 
 formula, not the executed function's value.
  
 that shouldn't happen.
 How are you trying to get it?


-- 
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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Re: $$Excel-Macros$$ Macroa

2014-09-05 Thread Jones George
Its actually a sharepoint link. Its a database wherein anybody can save any
file and its openly available for viewing.
Its not a shared drive, however its in the folder format.

Regards
Jones
On 5 Sep 2014 19:56, Paul Schreiner schreiner_p...@att.net wrote:

 You say: office intranet

 is that what you mean? as in:
 it's a link on a web site?

 or is it actually on a network folder?
 Actually, the link would actually BE pointing to a network folder.
 If you can open the file location, then you'd be able to see what the
 network path is to the file and use the VBA filesytem object to copy the
 file.

 If it actually is on an intranet web page, then it can still be
 accomplished, but it's a little more involved.

 *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*
 -

*From:* Jones George jonnie...@gmail.com
 *To:* excel-macros@googlegroups.com
 *Sent:* Friday, September 5, 2014 10:15 AM
 *Subject:* $$Excel-Macros$$ Macroa

 Hi All,
 I have a task at hand. Wherein i have files stored online on my office
 intranet. And i need those files downloaded and merged as and when required.
 For example, I have 10 folders and in each folders there are 2 files say A
 and B, now whenever i need the data i have to download the files 1 by 1 and
 merge the details in the file. Can a macro help me in getting the work
 done. As in if i run the macro, the should get downloaded and merged based
 on the file names. All As to be merged and Bs to be merged.
 Let me know if this can be done with the help of macros. Just yes or no
 will do.
 Regards
 Jones
 --
 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 http://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 http://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  : 

Re: $$Excel-Macros$$ Macroa

2014-09-05 Thread Paul Schreiner
I've done that with Sharepoint.
 
In my Library view, I can open with Explorer and it opens the folder.
 
However, it opens as:
http://blah/blah/blah
 
I was able to drop the http: and change the / to \
and end up with:
SP_path = \\blah\blah\blah
 
I then create a filesystem object and parse through the files like:

   If (fso.folderexists(SP_path)) Then
Set fld = fso.GetFolder(SP_path)
Set fc = fld.Files
For Each f In fc
EXT = fso.getextensionname(f.Name)
If (Left(UCase(EXT), 3) = XLS) Then
   ...
end if
next f
  end if
 of course, if you already know the filename,
you can use:
if (fso.fileexists(filename)) then

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
-

 From: Jones George jonnie...@gmail.com
To: excel-macros@googlegroups.com 
Sent: Friday, September 5, 2014 11:58 AM
Subject: Re: $$Excel-Macros$$ Macroa
  


Its actually a sharepoint link. Its a database wherein anybody can save any 
file and its openly available for viewing.
Its not a shared drive, however its in the folder format.
 
Regards
Jones 
On 5 Sep 2014 19:56, Paul Schreiner schreiner_p...@att.net wrote:

You say: office intranet

is that what you mean? as in:
it's a link on a web site?

or is it actually on a network folder?
Actually, the link would actually BE pointing to a network folder. 
If you can open the file location, then you'd be able to see what the network 
path is to the file and use the VBA filesytem object to copy the file.

If it actually is on an intranet web page, then it can still be accomplished, 
but it's a little more involved.

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
-


 From: Jones George jonnie...@gmail.com
To: excel-macros@googlegroups.com 
Sent: Friday, September 5, 2014 10:15 AM
Subject: $$Excel-Macros$$ Macroa
  


Hi All, 
I have a task at hand. Wherein i have files stored online on my office 
intranet. And i need those files downloaded and merged as and when required. 
For example, I have 10 folders and in each folders there are 2 files say A 
and B, now whenever i need the data i have to download the files 1 by 1 and 
merge the details in the file. Can a macro help me in getting the work done. 
As in if i run the macro, the should get downloaded and merged based on the 
file names. All As to be merged and Bs to be merged. 
Let me know if this can be done with the help of macros. Just yes or no will 
do. 
Regards
Jones
-- 
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 http://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 

Re: $$Excel-Macros$$ Solution Requested

2014-09-05 Thread Nagendra Joshi
Thanks Buddy,

For your support.


On Fri, Sep 5, 2014 at 8:46 AM, Pramod Singh pramod...@gmail.com wrote:

 Hi Joshi,


 PFA.


 On Thu, Sep 4, 2014 at 10:20 PM, Nagendra Joshi nitin620@gmail.com
 wrote:

 Dear Team,

 Please find the enclosed file which contains many sheets but i need a
 solution regarding the first  second sheet.

 First sheet is a dump which is directly entered by the field executives,
 now what is want is if Status column value is Issued in first sheet
 then automatically need to reflect those particular rows in the second
 sheet according to their header formation.

 Looking for your help VBA query or Excel function both are requested ..

 Regards,
 Nagendra Joshi
 9555636358

 --
 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 http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/d/optout.




 --
 *PramodSingh*

 --
 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/3Lvd4etSHz4/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 http://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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


$$Excel-Macros$$ Re: Need some help with VBA and Userform Please

2014-09-05 Thread Mr_Bill
That works great thank you :)

One more question if I have data in the sheet from column a to e how would 
I get this to work with columns G:K starting at row 6 

I tried but if the last row of info in column A is row 66 and I edit this 
form to work for column G:K it inputs the info at G67 and not G6

Updated code

Private Sub cmdSubmit_Click()
 Application.ScreenUpdating = False
 Dim NextRw As Long
 Dim ws As Worksheet
 Dim startRow As Long
   
 
 Set ws = Sheet1
 NextRw = ws.Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Row
 If NextRw  6 Then NextRw = 6
  ' Add data to worksheet 
 ws.Cells(NextRw + 0, G) = Me.txtAssignmentName.Value
 ws.Cells(NextRw + 1, G) = Me.txtDate.Value
 ws.Cells(NextRw + 2, G) = Me.txtAssignmentType.Value
 If (Me.txtPointsReceived.Value  X = X) Then
 ws.Cells(NextRw + 0, J).Value = -
 Else
 ws.Cells(NextRw + 0, J).Value = Me.txtPointsReceived.Value
 End If
 ws.Cells(NextRw + 0, K) = Me.txtPointsPossible.Value
  
  Unload Me
 End Sub


-- 
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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Re: $$Excel-Macros$$ Solution Requested

2014-09-05 Thread Pramod Singh
Ur Welcome



P


On Fri, Sep 5, 2014 at 10:43 PM, Nagendra Joshi nitin620@gmail.com
wrote:

 Thanks Buddy,

 For your support.


 On Fri, Sep 5, 2014 at 8:46 AM, Pramod Singh pramod...@gmail.com wrote:

 Hi Joshi,


 PFA.


 On Thu, Sep 4, 2014 at 10:20 PM, Nagendra Joshi nitin620@gmail.com
 wrote:

 Dear Team,

 Please find the enclosed file which contains many sheets but i need a
 solution regarding the first  second sheet.

 First sheet is a dump which is directly entered by the field executives,
 now what is want is if Status column value is Issued in first sheet
 then automatically need to reflect those particular rows in the second
 sheet according to their header formation.

 Looking for your help VBA query or Excel function both are requested ..

 Regards,
 Nagendra Joshi
 9555636358

 --
 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 http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/d/optout.




 --
 *PramodSingh*

 --
 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/3Lvd4etSHz4/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 http://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 http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/d/optout.




-- 
*PramodSingh*

-- 
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