$$Excel-Macros$$ Re: Need macro to copy date from excel file to another excel file

2014-11-18 Thread yudy0544
Hello ,

Thanks for the code.

Few changes needed :

1.Can we have a default path as the main folder “daily ATB”.(This will help 
to compare file saved in any sub folder of “Daily ATB”)
2.Post the data is copied and pasted in the comparison report daily file 
and previous file need to be auto closed (right now they are in open 
status).
3.Copied data to be filtered by column N (i.e Header RC [14,15 , 
Rc0606days, RC06=07 days]) and the filtered data to be pasted in the 
comparison report.

..Yudy

On Tuesday, November 18, 2014 10:08:31 AM UTC+5:30, Mandeep Baluja wrote:

 Hello Yudy, 

 Please find the attachment and the code make sure to adjust the path in 
 your code accordingly. 

 Sub Test()

 Dim dailyfile As Variant
 Dim previousfile As Variant
 Dim filetoopen1 As Variant
 Dim filetoopen2 As Variant
 Dim file1 As Variant
 Dim file2 As Variant

 Path = C:\Users\pc\Desktop\45.November.2014\

 file1 = InputBox(Enter first Daily file number)

 file2 = InputBox(Enter first Previous file number)
 dailyfile = Path  file1
 previousfile = Path  file2

 Workbooks.Open (dailyfile)
 Workbooks.Open (previousfile)

 'MsgBox file1
 Workbooks(file1  .xlsx).Worksheets(ATB).UsedRange.Copy
 ThisWorkbook.Sheets(Daily Report).Range(A1).PasteSpecial
 Workbooks(file2  .xlsx).Worksheets(ATB).UsedRange.Copy
 ThisWorkbook.Sheets(Previous Report).Range(A1).PasteSpecial


 End Sub

 Thanks  Regards, 
 *Mandeep baluja *


 On Friday, November 14, 2014 11:31:53 PM UTC+5:30, yudy...@gmail.com 
 wrote:

 Hello ,

 I am in need of macro to copy the required data from excel sheet for 
 comparison purpose.

 i have the detail requirement.

 Let me know in case of any questions.

 Awaiting for positive reply.

 Thanks,
 Yudy



-- 
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 macro to copy date from excel file to another excel file

2014-11-18 Thread Mandeep Baluja
you can set your default path by copying it in code there is no need to 
change it again and again.
add these lines of code in bottom
Workbooks(file1  .xlsx).Close savechanges:=False
Workbooks(file2  .xlsx).Close savechanges:=False

Thanks 
*Mandeep Baluja*


On Friday, November 14, 2014 11:31:53 PM UTC+5:30, yudy...@gmail.com wrote:

 Hello ,

 I am in need of macro to copy the required data from excel sheet for 
 comparison purpose.

 i have the detail requirement.

 Let me know in case of any questions.

 Awaiting for positive reply.

 Thanks,
 Yudy


-- 
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: Help needed enclosed template also

2014-11-18 Thread ram gopal yadav

Hi mandeep.

I have to compare prices of different varieties in various markets across 
markets. Mostly the price comparison is on daily/weekly/Monthly/Yearly 
basis and thier absolute change or diffrence between two dates.

But in the above formula mentioned by you,i have to select dates for 
various reports and to compare the different dates but in this i have to 
change the formula daily. 

And also to keep out the market or variety whom price are not available for 
the two dates.

Is there any permanent way ,any coding or any other way.




On Tuesday, November 18, 2014 10:41:27 AM UTC+5:30, Mandeep Baluja wrote:

 Create a calculated field and set the format of text according find the 
 result attachment. 

 Thanks 
 *Mandeep baluja  http://vbaexcelsql.blogspot.in/*

 On Monday, November 17, 2014 2:11:34 PM UTC+5:30, ram gopal yadav wrote:

 Dear all, i need your help in attached excel.

 In Worksheet named 'Master' - Daily prices are hand filled from various 
 weblinks and sources.

 In 2nd worksheet named 'pivot'- i get table from master sheet for 
 variety prices in different markets.

 Here the blanks remain blank

 In 3 rd worksheet named daily-
 It is the output report to be paste in word file.
 Here i have to find changes
 and also delete the markets or variety whom last two day prices arenot 
 available.


 Problem are

 I have to do daily removal of markets whom both day price are not 
 available

 second,if a single day price is available change came as huge by 
 considering blank as zero , 

 so i have to do manually the
 Daily removal of markets whom both day prices are not available and also 
 write NA (not available) in the price column whom one day price is 
 available.

 Is it, any way where i can calculate the change in pivot itself and hide 
 the blank automatically.


 Please find the enclosed template file

 Looking forward for your response asap.



 Regards.

 RAM GOPAL YADAV
 Contact-08130155401


  

-- 
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 macro to copy date from excel file to another excel file

2014-11-18 Thread yudy0544
Also can you provide me sloution for the 3. Point.

-- 
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 macro to copy date from excel file to another excel file

2014-11-18 Thread yudy0544
Also can you provide me sloution for the 3. Point.

-- 
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 macro to copy date from excel file to another excel file

2014-11-18 Thread Mandeep Baluja
Use this code to apply filter do the changes as per your data. 

Sub Filter()

Dim lastrow

Range(m2:q65536).Select
Selection.Clear

lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range(A1:e  lastrow).Select


Sheets(Mainsheet).Range(A1:e  lastrow).AdvancedFilter 
Action:=xlFilterCopy, CriteriaRange:= _
Sheets(Mainsheet).Range(x1:ab2), 
CopyToRange:=Sheets(Mainsheet).Range(m2), Unique:=True

Range(m:Q).EntireColumn.AutoFit


Columns(K:K).EntireColumn.Hidden = True

End Sub


On Friday, November 14, 2014 11:31:53 PM UTC+5:30, yudy...@gmail.com wrote:

 Hello ,

 I am in need of macro to copy the required data from excel sheet for 
 comparison purpose.

 i have the detail requirement.

 Let me know in case of any questions.

 Awaiting for positive reply.

 Thanks,
 Yudy


-- 
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$$ Add and remove text box on ever time button click.

2014-11-18 Thread Rupesh Patil
Hello Experts,

any help?


On Mon, Nov 17, 2014 at 4:10 PM, Rupesh Patil patil.rupesh1...@gmail.com
wrote:

 Hello experts,

 I need your help,I have one userform which attached with mail for your
 reference, what I need is add text boxes vertical on button every time
 click Add Button and remove this text boxes every time on Remove Button
 click. and Add-Remove row accordingly in sheet.

 --
 Thanks  Regards,
 Rupesh Patil,
 (9970196189)
 ​.​

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




-- 
Thanks  Regards,
Rupesh Patil,
(9970196189),
Ayushman Pvt. Ltd.

-- 
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: Add and remove text box on ever time button click.

2014-11-18 Thread Mandeep Baluja

Dear Rupesh, 

Please find the attachment . 

Regards,
*Mandeep Baluja *


On Monday, November 17, 2014 4:10:26 PM UTC+5:30, Rupesh Patil wrote:

 Hello experts,

 I need your help,I have one userform which attached with mail for your 
 reference, what I need is add text boxes vertical on button every time 
 click Add Button and remove this text boxes every time on Remove Button 
 click. and Add-Remove row accordingly in sheet.

 -- 
 Thanks  Regards,
 Rupesh Patil,
 (9970196189)
 ​.​
  

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


VBA query Add Controls on button click (1).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: $$Excel-Macros$$ Error in VBA

2014-11-18 Thread USMAN TARIQ
i have figured out the issue the following code works . but actually in our
project the updated files are replaced everyday .

For example there is a file called Report A, it was delivered on 11/17 ,
but is not delivered  on 11/18 , in the folder the one that is delivered
still exist , but in my excel i want to show blank , because the latest one
is not available


Private Sub TestFileExistence()

 If FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\PSRA Day Tracker -
Exec.mhtml) And _
   Weekday(Date) = 2 Then



Range(P4).Value = X

End If
End Sub

So basically the code looks for the name of file , and if the name exist,
then it puts X in Excel.

*What i want the code should look for the Current Date File (like if we can
tie the Date Modified also with the name of the file ) , if that exist then
it should put X else if its old one then just leave it blank*




On Thu, Nov 13, 2014 at 10:49 AM, USMAN TARIQ usman.tariq1...@gmail.com
wrote:

 I FIGURED IT OUT ! , :)  There was  _ missing after And

 its working now

 Thanks

 On Thu, Nov 13, 2014 at 10:42 AM, Paul Schreiner schreiner_p...@att.net
 wrote:

 is FileFolderExists() a custom function?

 is this email wrapping?
 that is, is this actually one line?

 If FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\Exec Dollars -
 Current Period.pdf)and
 weekday(date) = 2 Then

 if so, be sure there's a space after the )
 If FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\Exec Dollars -
 Current Period.pdf) and weekday(date) = 2 Then
 I usually prefer to use more ( ):

 If ((FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\Exec Dollars -
 Current Period.pdf)) _
 and (weekday(date) = 2) _
 ) 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:* USMAN TARIQ usman.tariq1...@gmail.com
 *To:* excel-macros@googlegroups.com
 *Sent:* Thursday, November 13, 2014 10:07 AM
 *Subject:* $$Excel-Macros$$ Error in VBA

 Compile Error:
 Syntax Error


 the above error is coming for the below code . it happens when inject
 the Day condition

 Private Sub TestFileExistence()


 If FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\Exec Dollars -
 Current Period.pdf)and
 weekday(date) = 2 Then

 Range(A1).Value = X

 Else

 Range(A1).Value = !

 End If
 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 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/flur73p1oBA/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 

Re: $$Excel-Macros$$ Error in VBA

2014-11-18 Thread Paul Schreiner
your FileFolderExists() function probably utilizes the Filesytem object
and has something like:
 
if (fso.fileexists(filename)) then
 
you need to EITHER modify your FileFolderExists function 
to also use:
 
set f = fso.getfile(filename)
if (datediff(d,f.datelastmodified,now()) = 0) then
 
 
or add a variation of this to your parent macro.
 (which runs if the filefolderexists function returns true)
 
 

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: USMAN TARIQ usman.tariq1...@gmail.com
To: excel-macros@googlegroups.com 
Sent: Tuesday, November 18, 2014 10:26 AM
Subject: Re: $$Excel-Macros$$ Error in VBA
  


i have figured out the issue the following code works . but actually in our 
project the updated files are replaced everyday .

For example there is a file called Report A, it was delivered on 11/17 , but 
is not delivered  on 11/18 , in the folder the one that is delivered still 
exist , but in my excel i want to show blank , because the latest one is not 
available 



Private Sub TestFileExistence()


 If FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\PSRA Day Tracker - 
 Exec.mhtml) And _
   Weekday(Date) = 2 Then



Range(P4).Value = X


End If

End Sub

So basically the code looks for the name of file , and if the name exist, then 
it puts X in Excel.

What i want the code should look for the Current Date File (like if we can tie 
the Date Modified also with the name of the file ) , if that exist then it 
should put X else if its old one then just leave it blank
 





On Thu, Nov 13, 2014 at 10:49 AM, USMAN TARIQ usman.tariq1...@gmail.com 
wrote:

I FIGURED IT OUT ! , :)  There was  _ missing after And


its working now 


Thanks 


On Thu, Nov 13, 2014 at 10:42 AM, Paul Schreiner schreiner_p...@att.net 
wrote:

is FileFolderExists() a custom function?

is this email wrapping?
that is, is this actually one line?

If FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\Exec Dollars - 
Current Period.pdf)and
weekday(date) = 2 Then

 
if so, be sure there's a space after the )If 
FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\Exec Dollars - Current 
Period.pdf) and weekday(date) = 2 Then

I usually prefer to use more ( ):
 
If ((FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\Exec Dollars - 
Current Period.pdf)) _
and (weekday(date) = 2) _
) 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: USMAN TARIQ usman.tariq1...@gmail.com
To: excel-macros@googlegroups.com 
Sent: Thursday, November 13, 2014 10:07 AM
Subject: $$Excel-Macros$$ Error in VBA
  


Compile Error:
Syntax Error 


the above error is coming for the below code . it happens when inject the 
Day condition 

Private Sub TestFileExistence()


If FileFolderExists(\\cf3.pepsico.pvt\psra\Output\BI4\Exec Dollars - 
Current Period.pdf)and
weekday(date) = 2 Then

Range(A1).Value = X

Else

Range(A1).Value = !

End If
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 quick 

$$Excel-Macros$$ Tandem filtering

2014-11-18 Thread Eugene Bernard
Hi all,

I have attached two workbooks, Orders and Stocks.

In the Orders workbook, I have a macro, which filters Itemwise once I run
the macro and enter the filter values like A001, A002 etc.,.

I like to have a slight modifications in the same macro, so that, when I
run the macro, filtering should  happen simultaneously in the both
workbooks Orders and Stock

TIA

Regards
Eugene

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


Orders.xls
Description: MS-Excel spreadsheet


Stocks.xls
Description: MS-Excel spreadsheet


Re: $$Excel-Macros$$ Error in VBA

2014-11-18 Thread USMAN TARIQ
following is the code in the *Module *

Public Function FileFolderExists(strFullPath As String) As Boolean
'Author   : Usman Tariq
'Macro Purpose: Check if a file or folder exists
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then
FileFolderExists = True

EarlyExit:
On Error GoTo 0
End Function

Please advise where to put if *(datediff(d,f.**datelastmodified,now()) =
0) then*

-- 
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$$ Error in VBA

2014-11-18 Thread USMAN TARIQ
*is the following fine ?*

Public Function FileFolderExists(strFullPath As String) As Boolean
'Author   : Usman Tariq
'Macro Purpose: Check if a file or folder exists
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then
FileFolderExists = True* And (DateDiff(d, f.datelastmodified, Now()) = 0)*


EarlyExit:
On Error GoTo 0
End Function







On Tue, Nov 18, 2014 at 11:18 AM, USMAN TARIQ usman.tariq1...@gmail.com
wrote:

 following is the code in the *Module *

 Public Function FileFolderExists(strFullPath As String) As Boolean
 'Author   : Usman Tariq
 'Macro Purpose: Check if a file or folder exists
 On Error GoTo EarlyExit
 If Not Dir(strFullPath, vbDirectory) = vbNullString Then
 FileFolderExists = True

 EarlyExit:
 On Error GoTo 0
 End Function

 Please advise where to put if *(datediff(d,f.**datelastmodified,now())
 = 0) then*



-- 
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$$ Error in VBA

2014-11-18 Thread USMAN TARIQ
also i want i have 2 sheets in my work book, want to use the *Private Sub
Workbook_Open() , its not working for me :(*

On Tue, Nov 18, 2014 at 11:20 AM, USMAN TARIQ usman.tariq1...@gmail.com
wrote:

 *is the following fine ?*

 Public Function FileFolderExists(strFullPath As String) As Boolean
 'Author   : Usman Tariq
 'Macro Purpose: Check if a file or folder exists
 On Error GoTo EarlyExit
 If Not Dir(strFullPath, vbDirectory) = vbNullString Then
 FileFolderExists = True* And (DateDiff(d, f.datelastmodified, Now()) =
 0)*


 EarlyExit:
 On Error GoTo 0
 End Function







 On Tue, Nov 18, 2014 at 11:18 AM, USMAN TARIQ usman.tariq1...@gmail.com
 wrote:

 following is the code in the *Module *

 Public Function FileFolderExists(strFullPath As String) As Boolean
 'Author   : Usman Tariq
 'Macro Purpose: Check if a file or folder exists
 On Error GoTo EarlyExit
 If Not Dir(strFullPath, vbDirectory) = vbNullString Then
 FileFolderExists = True

 EarlyExit:
 On Error GoTo 0
 End Function

 Please advise where to put if *(datediff(d,f.**datelastmodified,now())
 = 0) then*




-- 
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$$ Error in VBA

2014-11-18 Thread USMAN TARIQ
Following is not woreking



Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
With ws
.EnableOutlining = True
.Protect UserInterfaceOnly:=True, AllowFiltering:=True, _
AllowFormattingColumns:=True, AllowInsertingRows:=True
End With
NextEnd Sub


On Tue, Nov 18, 2014 at 12:46 PM, USMAN TARIQ usman.tariq1...@gmail.com
wrote:

 also i want i have 2 sheets in my work book, want to use the *Private Sub
 Workbook_Open() , its not working for me :(*

 On Tue, Nov 18, 2014 at 11:20 AM, USMAN TARIQ usman.tariq1...@gmail.com
 wrote:

 *is the following fine ?*

 Public Function FileFolderExists(strFullPath As String) As Boolean
 'Author   : Usman Tariq
 'Macro Purpose: Check if a file or folder exists
 On Error GoTo EarlyExit
 If Not Dir(strFullPath, vbDirectory) = vbNullString Then
 FileFolderExists = True* And (DateDiff(d, f.datelastmodified, Now()) =
 0)*


 EarlyExit:
 On Error GoTo 0
 End Function







 On Tue, Nov 18, 2014 at 11:18 AM, USMAN TARIQ usman.tariq1...@gmail.com
 wrote:

 following is the code in the *Module *

 Public Function FileFolderExists(strFullPath As String) As Boolean
 'Author   : Usman Tariq
 'Macro Purpose: Check if a file or folder exists
 On Error GoTo EarlyExit
 If Not Dir(strFullPath, vbDirectory) = vbNullString Then
 FileFolderExists = True

 EarlyExit:
 On Error GoTo 0
 End Function

 Please advise where to put if *(datediff(d,f.**datelastmodified,now())
 = 0) then*





-- 
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 macro to copy date from excel file to another excel file

2014-11-18 Thread yudy0544
Hi Mandeep,

Can we have only one code which you provided earlier that will include 
filtering the required data(as per point 3.)and then paste the records in daily 
file  previous file.

Thanks,
Ujjwal

-- 
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$$ hyperlink issue for fixed cell

2014-11-18 Thread amar takale
Dear All friends

Pls solve my hyperlink issue.

If I give hyperlink for specific cell through button (Here text box)
in row in same sheet or different sheet then jump on that cell
perfectly but issue is that if i add rows in sheet then hyperlink link
change that specific cell.

I required fixed hyperlink for button that my desired cell if there
are add rows many times

Regards
Amar

-- 
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: hyperlink issue for fixed cell

2014-11-18 Thread Mandeep Baluja
used name range to achieve the same :) it will not get shifted when you 
named that cell and apply link on that. 

Thanks 
*Mandeep Baluja *

On Wednesday, November 19, 2014 10:24:36 AM UTC+5:30, amar takale wrote:

 Dear All friends 

 Pls solve my hyperlink issue. 

 If I give hyperlink for specific cell through button (Here text box) 
 in row in same sheet or different sheet then jump on that cell 
 perfectly but issue is that if i add rows in sheet then hyperlink link 
 change that specific cell. 

 I required fixed hyperlink for button that my desired cell if there 
 are add rows many times 

 Regards 
 Amar 


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