Re: $$Excel-Macros$$ Need Help With VBA using VLookup

2014-02-21 Thread Swapnil Palande
Pls ptovide sample data with desire output.

Regards,
Swapnil.
On Feb 21, 2014 11:23 PM, "Erick C"  wrote:

> Good morning VBA masters.
>
> Let me start off by saying I am not a VB expert by any means.  I am
> getting a bit better with modifying small things here and there, but I am
> absolutely lost when it comes to writing code from scratch.  That being
> said, I have a code that works fine, but I am trying to add some
> functionality to it.  I have an Excel spreadsheet that has Holidays
> listed.  What I am looking to do is possibly use a vllokup to compare
> today's date to the range of dates in the holiday tab.  If it is an error
> (not matching) then it should move on to the next check, which is a cell
> that the user can manually select yes or no in order to continue the code.
> If it finds a match (today is a holiday), then it should stop running at
> that point and do nothing else.
> I found a bit of code online.  I have been trying to get it to work as I
> describe above, but I am not sure how to exactly get it working correctly.
> Specifically, I do not know how to get the code to stop, or if my little
> intermediate If statement is done correctly, if my VLookup statement is
> written correctly, or if the code makes any sense at all!   This is what I
> have so far:
>
> '--- Compare today's date to dates in holiday tab
> Worksheets("Holidays").Activate
> strFound = Application.WorksheetFunction.VLookup(.Range("D2"),
> .Range("B2:B100"), 1, 0)
> If IsError(strFound) Then
> '--- Check to see if emails are manually turned off
> Worksheets("Daily_Email").Activate
> If .Range("F2") = "NO" Then
> End Sub
> Else
> '(I am guessing I can then copy in all of my working code here)
> End If
> Else
> End If
> End Sub
>
> Can someone please give me a little helping hand with getting this written
> correctly?  I would greatly appreciate any help that I can get!!
>
> Thanks
>
> Erick
>
> --
> 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/groups/opt_out.
>

-- 
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/groups/opt_out.


RE: $$Excel-Macros$$ Any good group for MS Access

2014-02-21 Thread Amit.Desai (MERU)
Thanks.

Regards,
Amit Desai - MIS Manager
M: +91 9867232534

[cid:image001.jpg@01CF2FC7.CEFC43B0]
[cid:image002.jpg@01CF2FC7.CEFC43B0][cid:image003.jpg@01CF2FC7.CEFC43B0]

From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On 
Behalf Of Yahya Muhammad
Sent: 22 February 2014 11:47
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Any good group for MS Access


Try this :

http://www.utteraccess.com/forum/forums.html




On Sat, Feb 22, 2014 at 7:40 AM, Amit.Desai (MERU) 
mailto:amit.de...@merucabs.com>> wrote:
Dear Friends,

Please suggest any good group for MS Access.

Regards,
Amit Desai -



Disclaimer: This message and its attachments contain confidential information 
and may also contain legally privileged information. This message is intended 
solely for the named addressee. If you are not the addressee indicated in this 
message (or authorized to receive for addressee), you may not copy or deliver 
any part of this message or its attachments to anyone or use any part of this 
message or its attachments. Rather, you should permanently delete this message 
and its attachments (and all copies) from your system and kindly notify the 
sender by reply e-mail. Any content of this message and its attachments that 
does not relate to the official business of Meru Cab Company Pvt. Ltd. must be 
taken not to have been sent or endorsed by any of them. Email communications 
are not private and no warranty is made that e-mail communications are timely, 
secure or free from computer virus or other defect.
--
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/groups/opt_out.

--
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/groups/opt_out.


Disclaimer: This message and its attachments contain confidential information 
and may also contain legally privileged information. This message is intended 
solely for the named addressee. If you are not the addressee indicated in this 
message (or authorized to receive for addressee), you may not copy or deliver 
any part of this message or its attachments to anyone or use any part of this 
message or its attachments. Rather, you should permanently delete this message 
and its attachments (and all copies) from your system and kindly notify the 
sender by reply e-mail. Any content of this message and its attachments that 
does not relate to the official business of Meru 

Re: $$Excel-Macros$$ Any good group for MS Access

2014-02-21 Thread Yahya Muhammad
Try this :

http://www.utteraccess.com/forum/forums.html





On Sat, Feb 22, 2014 at 7:40 AM, Amit.Desai (MERU)
wrote:

>  Dear Friends,
>
>
>
> Please suggest any good group for MS Access.
>
>
>
> Regards,
>
> *Amit Desai *-
>
>
>
> --
> Disclaimer: This message and its attachments contain confidential
> information and may also contain legally privileged information. This
> message is intended solely for the named addressee. If you are not the
> addressee indicated in this message (or authorized to receive for
> addressee), you may not copy or deliver any part of this message or its
> attachments to anyone or use any part of this message or its attachments.
> Rather, you should permanently delete this message and its attachments (and
> all copies) from your system and kindly notify the sender by reply e-mail.
> Any content of this message and its attachments that does not relate to the
> official business of Meru Cab Company Pvt. Ltd. must be taken not to have
> been sent or endorsed by any of them. Email communications are not private
> and no warranty is made that e-mail communications are timely, secure or
> free from computer virus or other defect.
>
> --
> 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/groups/opt_out.
>

-- 
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/groups/opt_out.


Re: $$Excel-Macros$$ find and move the duplicate values in another sheet

2014-02-21 Thread Lakshman P
Thank u boss






On Fri, Feb 21, 2014 at 11:23 AM, ashish koul  wrote:

> Sub sample()
> Dim cl As Range
> Dim j As Integer
> For Each cl In Range("a2:m29")
> j = 0
> If cl.Column > 1 Then
> j = Application.WorksheetFunction.CountIf(Range(Cells(cl.Row, 1),
> Cells(cl.Row, cl.Column - 1)), cl)
> End If
>
> If Application.WorksheetFunction.CountIf(Range("a1:m" & cl.Row - 1),
> cl) + j > 0 Then
> cl.Cut
> Destination:=Sheets("Foaie2").Range("a1048576").End(xlUp).Offset(1, 0)
> End If
> Next
>
>
>
>
>
>
>
>
> End Sub
>
>
>
> On Wed, Feb 19, 2014 at 9:31 PM, ady7ful  wrote:
>
>> Hello,
>>
>> I have a file with many values, distributed across multiple columns.
>>
>> From sheet1 i want to find and move all the duplicate values in the sheet
>> 2
>>
>> and I need a macro,a code macro to work at the level of the sheets,
>> Sheet1-Sheet2
>>
>> I want to move cut/paste all values duplicates 2 times 3 times or how
>> many times is found
>> from sheet1, in sheet2 the results to be made in columns A and B
>>
>> in sheet 1 to remain single value, only the values themselves which
>> didn't pair
>> I mean if a value is 2 times
>> to move the original value
>> but and double found
>>
>> Thank you
>>
>> --
>> 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/groups/opt_out.
>>
>
>
>
> --
>  *Regards*
>
> *Ashish Koul*
>
>
>  *Visit*
> http://www.excelvbamacros.in
> Like Us on 
> Facebook
> Join Us on Facebook 
>
>
> P Before printing, think about the environment.
>
>
>
> --
> 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/groups/opt_out.
>

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

$$Excel-Macros$$ Any good group for MS Access

2014-02-21 Thread Amit.Desai (MERU)
Dear Friends,

Please suggest any good group for MS Access.

Regards,
Amit Desai -



Disclaimer: This message and its attachments contain confidential information 
and may also contain legally privileged information. This message is intended 
solely for the named addressee. If you are not the addressee indicated in this 
message (or authorized to receive for addressee), you may not copy or deliver 
any part of this message or its attachments to anyone or use any part of this 
message or its attachments. Rather, you should permanently delete this message 
and its attachments (and all copies) from your system and kindly notify the 
sender by reply e-mail. Any content of this message and its attachments that 
does not relate to the official business of Meru Cab Company Pvt. Ltd. must be 
taken not to have been sent or endorsed by any of them. Email communications 
are not private and no warranty is made that e-mail communications are timely, 
secure or free from computer virus or other defect.

-- 
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/groups/opt_out.


$$Excel-Macros$$ Need Help With VBA using VLookup

2014-02-21 Thread Erick C
Good morning VBA masters.
 
Let me start off by saying I am not a VB expert by any means.  I am getting 
a bit better with modifying small things here and there, but I am 
absolutely lost when it comes to writing code from scratch.  That being 
said, I have a code that works fine, but I am trying to add some 
functionality to it.  I have an Excel spreadsheet that has Holidays 
listed.  What I am looking to do is possibly use a vllokup to compare 
today's date to the range of dates in the holiday tab.  If it is an error 
(not matching) then it should move on to the next check, which is a cell 
that the user can manually select yes or no in order to continue the code.  
If it finds a match (today is a holiday), then it should stop running at 
that point and do nothing else.
I found a bit of code online.  I have been trying to get it to work as I 
describe above, but I am not sure how to exactly get it working correctly. 
Specifically, I do not know how to get the code to stop, or if my little 
intermediate If statement is done correctly, if my VLookup statement is 
written correctly, or if the code makes any sense at all!   This is what I 
have so far:
 
'--- Compare today's date to dates in holiday tab
Worksheets("Holidays").Activate
strFound = Application.WorksheetFunction.VLookup(.Range("D2"), 
.Range("B2:B100"), 1, 0)
If IsError(strFound) Then
'--- Check to see if emails are manually turned off
Worksheets("Daily_Email").Activate
If .Range("F2") = "NO" Then
End Sub
Else
'(I am guessing I can then copy in all of my working code here)
End If
Else
End If
End Sub
 
Can someone please give me a little helping hand with getting this written 
correctly?  I would greatly appreciate any help that I can get!!
 
Thanks
 
Erick

-- 
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/groups/opt_out.


$$Excel-Macros$$ Macro to to move lines in Pivot table

2014-02-21 Thread Souhbane El Basri


Dears,

I have a pivot table with customer data. Each customer may have several 
sites.

I want to send a webform, but there are constraints to link the data to 
fields in the form.

The “Initial Data” represents the pivot and I want to transform it to what 
is built in sheet “Transformed Data”.

I would like to move each customer linked to an email address to right side 
of the line.

Then, I would have one single line that contains ONE email address and 
several customers.

Can you help please?

Thanks a lot.

Souhbane

-- 
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/groups/opt_out.


Demo.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet


$$Excel-Macros$$ Re: how to crack Excel VBA password

2014-02-21 Thread elis smith
* You can use Excel file password creacker *software which easily crack 
Excel file password unlock Excel spreadsheet 
after then fastly re-open Microsoft Excel 
file..

-- 
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/groups/opt_out.


$$Excel-Macros$$ Excel micro

2014-02-21 Thread Rupesh Patil
Hi Expert

I am trying to get multi select list box value into textbox with comma
separated and I am using following code.

Private Sub List_Food_Change()
Dim item As Integer
Dim listitemvalue As String
For item = 0 To List_Food.ListCount - 1
If List_Food.Selected(item) = True Then
listitemvalue = List_Food.List(item)
Else
listitemvalue = listitemvalue & "," & List_Food.List(item)
End If
Next item
tbFood.Value = listitemvalue
End Sub


this code not working as expected. could you please tell me what is wrong
in this code.

-- 
Thanks and Regards, Rp.

-- 
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/groups/opt_out.


Re: $$Excel-Macros$$ $$ Excel-Macros$$ How to create consolidated production log

2014-02-21 Thread Manjunath Narayanappa
Thank you sir,

Can you please teach me, when i was trying to extract data from individual
production log using consolidated work book.
It was pulling data even from header of the individual production log


Function BrowseFolder() As String
Dim objFso As Object

Set objFso = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
 If .Show = -1 Then
If .SelectedItems.Count > 0 Then
Set objFolder = objFso.GetFolder(.SelectedItems(1))
BrowseFolder = objFolder.path
End If
End If
End With
End Function

Sub consolidate()
Dim strPath As String
Dim objFolder As Object
Dim objFile As Object
Dim objFso As Object
Dim wksCon As Worksheet
Dim wbkOpen As Workbook
Dim lngLastrow As Long
strPath = BrowseFolder
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If strPath <> "" Then
If Len(Dir(strPath, vbDirectory)) > 1 Then
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(strPath)

For Each objFile In objFolder.Files
Set wbkOpen = Workbooks.Open(objFile.path)
   If wbkOpen.FullName <> ThisWorkbook.FullName Then
For Each wksCon In wbkOpen.Worksheets
lngLastrow = ThisWorkbook.Worksheets(1).Range("a" &
Rows.Count).End(xlUp).Row + 1
wksCon.UsedRange.Offset(1).Copy
ThisWorkbook.Worksheets(1).Range("a" & lngLastrow)
wksCon.UsedRange.Borders.Weight = 2

Next
wbkOpen.Close
   End If
Next
MsgBox "Done", vbInformation
Else
MsgBox "Please select a folder containing all Files you want to
consolidate", vbCritical, "Browse"
End If
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub




Please assist me.


Thanks
Manjunath


On Fri, Feb 21, 2014 at 6:43 AM, Manjunath Narayanappa <
manjunath.n1...@gmail.com> wrote:

> Thank you very much, i'm not getting words to express ...
> Its was simply superb
>
> Can you please teach me . Why was first consolidated workbook was pulling
>  data even from header for individual production log.(eg: A1, A2, A3 rows)
> Is there any option that we can extract data from A4 rows.
>
> Thanks
> Manjunath
>
>
>
>
>
>
> On Thu, Feb 20, 2014 at 4:40 PM, priti verma wrote:
>
>> somthing like this?
>>
>> if you have date in 2nd column.it wil put all data of today,s date.
>>
>>
>>  On Wed, Feb 19, 2014 at 10:00 AM, Manjunath Narayanappa <
>> manjunath.n1...@gmail.com> wrote:
>>
>>>  Hi
>>>
>>> Thank you very much,
>>>  Please note :On daily basis i need to extract data from 50 users
>>> individual IPL& pull same data in consolidated IPL
>>>
>>>
>>> *for ex : I have a data for 02/18/2014 & 02/19/2014 i need to extract
>>> only 02/19/2014 todays data*
>>> *so every day when i run report it need to extract for that particular
>>> day*
>>> *& if there are any*
>>>
>>> Please find the attachment for your reference
>>>
>>>  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/groups/opt_out.
>>>
>>
>>  --
>> 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 res

$$Excel-Macros$$ Custom Auto Filter

2014-02-21 Thread Aamir Shahzad
Dear Friends,

If we have name list & want to use the custom auto filter e.g. filter the
data name start from D to start from S. How?

-- 
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/groups/opt_out.