$$Excel-Macros$$ Re: automate copy paste

[Mandeep baluja]

Sub T()
 For Each sht In ActiveWorkbook.Sheets
 sht.UsedRange.Value = sht.UsedRange.Value

Next
End Sub

Try this 

Mandeep baluja 







On Wednesday, 29 March 2017 12:54:31 UTC+5:30, Sundarvelan wrote:
>
> Dear Friends,
>
> I have excel book with 70 to 90 sheets, each sheet has formulas.
>
> For consolidation purpose i need to copy paste each sheet as values.
>
> Is there any way to automate this copy paste.
>
> Thanks
> N.Sundarvelan
> 9600160150
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: If 2 conditions matches then give alert -- already exit

[Mandeep baluja]

Apply data validation in D4:D100 with Custom 
formula =COUNTIFS($D$4:$D$30,D9,$A$4:$A$30,A9)=1

Regards
Mandeep baluja 




On Monday, 17 April 2017 09:46:30 UTC+5:30, big smile wrote:
>
>
> Hello Friends 
>
> I want  that Column A & Column D this both contains if matches 
> With the same entry again then it should show me the error 
> That It is already exit in the Raw  _  which matches the same 
>
> Ex 
> If I have already had one entry in Raw 6 – Where written RAVI + Shop
> I am doing one entry again in Raw 8 
> Like this --- Ravi --  Borivlai – Direct – Shop- 50 
> Then  -- Ravi + Shop both alreay have in the raw 6 .
> So while doing new entry in raw 8 – it should show me that it is there in 
> Raw 6 .
>
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Re: vba recorded macro not working

[Mandeep baluja]

Show me the new output for the new format.

Regards
Mandeep baluja

On Tuesday, 26 July 2016 02:22:13 UTC+5:30, Mike B wrote:
>
> Hi All,
>
> Please find an updated workbook with three worksheets which show the "New 
> Format" of data the "Old Format" of data and what the "Data Should Look 
> Like".  What has change are two things; there used to be "Establishment: " 
> before the company name it has now been removed; the second thing that has 
> changed is "Accounting Period Start Date : " used to be in front of the 
> date, it now has been removed.  I have attached the existing module in my 
> macro that performed the correct formatting when the above two text strings 
> were used, now that they have been removed I am struggling how to do what 
> the macro used to do absent the "Establishment: " and  "Accounting Period 
> Start Date : ".
>
> Any help would be greatly appreciated by anyone that is available to help, 
> I am really stuck!
>
> Hi Mandeep,
>
> You helped me over a year ago with this macro; however they changed the 
> formatting of the data and now are not using the word “Establishment” 
> before the company name and are also not using the word “Accounting Period 
> Start Date  :” before the actual date and time; can you help to remove 
> these from my macro but still capture the company name and also the date?
>
> Thank you very much,
>
> Mike
>
>
>
>
> On Mar 12, 2015, at 7:49 PM, Mike B <mike...@gmail.com > 
> wrote:
>
> Hi Mandeep,
> I would appreciate you looking at the attached worksheet, I have written 
> and explanation in a comment on the worksheet explaining the issues I am 
> experiencing, I thought it would be easier for you to understand.
>
> On Sunday, March 8, 2015 at 12:08:13 PM UTC-5, Mike B wrote:
>
>> Thank you, thank you so much for all your help and quick response!!  I am 
>> going to have to study my books to understand your code fully, it is so 
>> precise and quick.  Thank you again, Mandeep!
>>
>> On Thursday, March 5, 2015 at 10:16:12 AM UTC-6, Mike B wrote:
>>>
>>>
>>>
>>> I try it works but goes back to what I just did even though I moved my 
>>> cursor down 11 rows. I would appreciate any help how to get it to advance 
>>> to the next block that I am trying to copy and paste.  I have about 7,000 
>>> rows of data to do.
>>> Thank you
>>> Mike B
>>>
>>>
>>> Sub just_dates2()
>>> '
>>> ' just_dates2 Macro
>>> '
>>>
>>> '
>>> Range("C1166:Y1166").Select
>>> Application.CutCopyMode = False
>>> ActiveCell.FormulaR1C1 = "Accounting Period Start Date : 12/29/2014 
>>> 5:15:09 AM"
>>> Range("B1167").Select
>>> ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
>>> DisplayAsIcon:=False, NoHTMLFormatting:=True
>>>
>>> 
>>> 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 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/BxB4QfFrdl4/unsubscribe.
> To unsubscribe from this group and all its topics, send an email to 
> excel-macros...@googlegroups.com .
> To post to this group, send email to excel-...@googlegroups.com 
> .
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
> <Mike's Test 1.xlsm>
>
>

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

$$Excel-Macros$$ Re: Count a particular alphabet in a string

[Mandeep Baluja]

Try this formula and drag it down.

=LEN(F5)-LEN(SUBSTITUTE(F5,"o",""))

' Regards :- Mandeep baluja
'https://www.facebook.com/groups/825221420889809/
'https://www.linkedin.com/in/mandeep-baluja-b777bb88
Add a share  if it helps :)

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Macro auto fill is not working

[Mandeep Baluja]

please share your sheet without password after pasting this code so that i 
can check.




On Monday, May 16, 2016 at 12:45:30 PM UTC+5:30, Ashkan Razania wrote:
>
> It didn't work. same problem
>
> On Monday, May 16, 2016 at 1:17:15 AM UTC-5, Mandeep Baluja wrote:
>>
>> Autofill works in scenario if data you want to paste it down similarly. 
>> What you're doing is selecting two columns and pasting it more than 2 
>> columns that's not possible bro.If you wish to paste your data 
>> automatically you can do this by selecting the appropriate no of columns.
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Application.EnableEvents = False
>> Worksheets("2").Range("C26:ZZ27").Select
>> Selection.AutoFill Destination:=Worksheets("2").Range("C26:Zz52")
>> Application.EnableEvents = True
>>
>> 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 https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: need help with Evaluate function

[Mandeep Baluja]

Share your sheet otherwise its not possible what the other variables 
holds Position ?? Player ??

Regards :- Mandeep baluja
'https://www.facebook.com/groups/825221420889809/
'https://www.linkedin.com/in/mandeep-baluja-b777bb88



On Friday, May 13, 2016 at 7:28:01 AM UTC+5:30, Jaime Richmond wrote:
>
> I am looping thru and getting a count of values in an array for a specific 
> user in a single row range.  I switch to another range and add in the value 
> fro that rnage
>
> Here is the code:
> If Evaluate("ISREF('" & "Game" & i & "'!A1)") Then
>  Set ws = ThisWorkbook.Sheets("Game" & i)
>  Else
>  Set ws = ThisWorkbook.Sheets("Games")
>  End If
> 
>  With ws
> 'for each game get the range for the names
> 'Provide the correct range for the specific Game
> Set Rng = .Range("Game" & i)
> r = Rng.Row
> C = Rng.Column
> iRows = Rng.Rows.Count
> iCols = Rng.Columns.Count
> 
> 'need to lop thru each player in the grid, get values if match
> For p = 1 To iRows
> 'get value if name matches
> sName = .Cells(r + p - 1, C)
> If sName = Player Then
> 'add up
> sPos = "=" & Position
> Set RngPlayerGame = .Range(.Cells(r + p - 1, C), 
> .Cells(r + p - 1, C + iCols))
> iCount = iCount + ws.Evaluate("COUNTIF(RngPlayerGame," 
> & Chr(34) & "=B" & Chr(34) & ")")'.Evaluate("=COUNTIF(.Cells(r + p - 1, 
> C), .Cells(r + p - 1, C + iCols) ,Chr(34) & ='& Position)")
> End If
> Next
>
> It does run, no errors, but returns a value of 0 which is incorrect.  
> Answer is 1, then 2, then 1,1,2,1 for the first player.
>
> But if I use :
>'=COUNTIF(B3:G3,"=B")
>
> I get the correct value.  CLearly I need to use parameters and fnot hard 
> code.  
>
> In advance - THANK YOU so much.  This one has me by the short hairs!
>
> jaime
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: value(more than 0) entered in cell should show today's date in another cell

[Mandeep Baluja]

In b1 put this formula =IF(A1>0,TODAY(),"")

On Sunday, May 15, 2016 at 4:54:53 PM UTC+5:30, NIJ wrote:
>
> is there any function  in excel (2003)  for 
>
>
>
> if value   more than 0  entered in cell say A1 should  show today's date 
> in  cell  B1
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Macro auto fill is not working

[Mandeep Baluja]

Autofill works in scenario if data you want to paste it down similarly. 
What you're doing is selecting two columns and pasting it more than 2 
columns that's not possible bro.If you wish to paste your data 
automatically you can do this by selecting the appropriate no of columns.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Worksheets("2").Range("C26:ZZ27").Select
Selection.AutoFill Destination:=Worksheets("2").Range("C26:Zz52")
Application.EnableEvents = True

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

Re: $$Excel-Macros$$ Error in Excel-VB macro

[Mandeep Baluja]

Great Paul



On Tuesday, May 10, 2016 at 4:53:10 PM UTC+5:30, Paul Schreiner wrote:
>
> What I mean is:
>
> Protection can be at either the Workbook level, WorkSHEET level, or both. 
> Some of the worksheets are protected.
> It LOOKS like the workbook protection flag is set, but the workbook isn't 
> really protected.
> Otherwise, I couldn't protect the workbook without first knowing the 
> password to UNprotect it.
>
> I experienced the same issue you did with regard to opening the file.
> I protected the WORKBOOK (with password), then unprotected it (with 
> password)
> and the problem went away.
>
> *Paul*
> -
>
>
>
>
>
>
>
> *“Do all the good you can,By all the means you can,In all the ways you 
> can,In all the places you can,At all the times you can,To all the people 
> you can,As long as ever you can.” - John Wesley*
> -
>
>
> On Tuesday, May 10, 2016 7:10 AM, ITP Abdulgani Shaikh <
> itpabd...@gmail.com > wrote:
>
>
>
> But, yes workbook is password protected, but earlier it doesn't gives 
> error, but now when I am opening workbook it gives error for debug.
>
> On Mon, May 9, 2016 at 7:31 PM, Paul Schreiner  > wrote:
>
> The problem seems to be that some protection flag for the workbook is set.
> I'm using Excel 2010, and for some reason, on the Review tab, the Protect 
> Workbook icon doesn't SHOW that it is protected. 
> But I protected the workbook (with password) and then unprotected it.
>
> After that, the macros work correctly.
>
> *Paul*
> -
>
>
>
>
>
>
>
> *“Do all the good you can,By all the means you can,In all the ways you 
> can,In all the places you can,At all the times you can,To all the people 
> you can,As long as ever you can.” - John Wesley*
> -
>
>
> On Monday, May 9, 2016 9:09 AM, ITP Abdulgani Shaikh  > wrote:
>
>
>
> I want to make sure that macro is enable in excel sheet, but it gives 
> error.
>
> Please guide.
>
>
>
> -- 
> Shaikh AbdulGani A R
> ITP, STP, TRP, STRP
> -- 
> 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...@googlegroups.com .
> To post to this group, send email to excel-...@googlegroups.com 
> .
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
>
> -- 
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
> https://www.facebook.com/discussexcel
>  
> FORUM RULES
>  
> 1) Use concise, accurate thread titles. Poor thread titles, like Please 
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice 
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security 
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>  
> NOTE : Don't ever post confidential data in a workbook. Forum owners and 
> members are not responsible for any loss.
> --- 
> You received this message because you are subscribed to the Google Groups 
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an 
> email to excel-macros...@googlegroups.com .
> To post to this group, send email to excel-...@googlegroups.com 
> .
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
>
>
>
> -- 
> Shaikh AbdulGani A R
> ITP, STP, TRP, STRP
> -- 
> 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 

$$Excel-Macros$$ Re: Suimifs vba code processitng too slow

[Mandeep Baluja]

Try this code 

Sub Macro8()

Sheets("Pivot 101 value (NA)").Range("R7").FormulaR1C1 = 
"=SUMIFS('PrevNON NA'!C[-1],'PrevNON NA'!C[-13],[@[Po Number]],'PrevNON 
NA'!C[-12],[@[Po Line]])"
lr = Sheets("Pivot 101 value (NON NA)").Cells(Rows.Count, 
18).End(xlUp).Row
Range("R7:R" & lr).FillDown

Sheets("Pivot 101 value (NA)").Select
 Range("R7").Select
ActiveCell.FormulaR1C1 = "=SUMIFS('PrevNA'!C[-1],'PrevNA'!C[-13],[@[Po 
Number]],'PrevNA'!C[-12],[@[Po Line]])"
lr = Sheets("Pivot 101 value (NA)").Cells(Rows.Count, 18).End(xlUp).Row
Range("R7:R" & lr).FillDown

End Sub



' Regards :- Mandeep baluja
'https://www.facebook.com/groups/825221420889809/
'https://www.linkedin.com/in/mandeep-baluja-b777bb88
Add a share  if it helps :)
'**

















On Wednesday, May 11, 2016 at 11:28:19 AM UTC+5:30, raj.he...@gmail.com 
wrote:
>
> Hello Everyone,
>
> Just to give quick introduction, Myself Raj  I am  financial Analyst into 
> reporting domain but I try experimenting few codes in excel vba, I have 
> come across this group and found to be really helpful.
>
> Thanks  to Ayush and also one and all,for initiating such helpful platform 
> to each one of us which provides opportunity to learn and can enhance  
> potentials.
>
> I have tried bit coding part I was successful in running but it seems that 
> sumifs formula is taking long time to populate the results .
>
> Sheets("Pivot 101 value (NON NA)").Select
>Range("R7").Select
> ActiveCell.FormulaR1C1 = _
> "=SUMIFS('PrevNON NA'!C[-1],'PrevNON NA'!C[-13],[@[Po 
> Number]],'PrevNON NA'!C[-12],[@[Po Line]])"
>   Selection.AutoFill Destination:=Range("r7:r" & 
> ActiveSheet.UsedRange.Rows.Count)
>
>
> can some one please help me to fix the slow lag issue
>
> in sheets Pivot 101 value (NA) & Pivot 101 value (NON NA)
>
> I am trying to populate R column using sumifs formula the  steps which I 
> followed to get this result is
>
> 1) In sheet "Pivot 101 value (NON NA)")   column r com I am trying to pull 
> values from sheet PrevNON NA from Column Q using PO number  and PO line 
> items combinations in sumifs
> 2) similarly In Sheet Pivot 101 value (NON NA) column r com I am trying to 
> pull values from sheet PrevNA from Column Q using PO number  and PO line 
> items combinations in sumifs
>
>
> Rest of the macro is executing well but only this  sumifs is causing 10-20 
> min time to populate this.
>
> please find the attached macro sheet and kindly help me in fixing this.
>
> Thanks one and all have  a great day.
>
>
>
>
>
> Tha
> Raj
>
>
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: overflow error issue

[Mandeep baluja]

>
> Will you please let me know why you're not using a simple vlookup 
>> function,index match for the same it would be more faster than this to 
>> search using find method one by one, while defining the value to integer it 
>> doesn't matter how many rows of data you have 1 to 5 lac it will work for 
>> -32,768 
>> through 32,767 (signed) That's i used long  to run the macro for all rows. 
>>  Another thing you can use a dictionary object or use array to intesify the 
>> speed of macro. Don't miss Application.screenupdating = false in every code 
>> to avoid flickering.
>>
>
Regards, 
Mandeep baluja 
 
 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: overflow error issue

[Mandeep baluja]

>
> Define your variable as long !!
>

Sub dnew()
Dim i As long
Dim lrow As long
lrow = Sheets("to").Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To lrow
If Sheets("to").Cells(i, 2).Value = "up" Then
Sheets("to").Cells(i, 2).Value = ""
Sheets("to").Cells(i, 1).Value = ""
End If
Next i
End Sub 
Regards, 
Mandeep baluja 
https://www.linkedin.com/messaging/thread/6086488646137958400 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: SUMMERY OF PIVOT TABLE

[Mandeep Baluja]

PFA and let me know !!


Regards, 
Mandeep baluja 
https://www.linkedin.com/messaging/thread/6086488646137958400 
https://www.linkedin.com/in/mandeep-baluja-b777bb88?trk=hp-identity-name

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


SAMPLE (3).xls
Description: MS-Excel spreadsheet

$$Excel-Macros$$ Re: matching and copying data from row excel worksheet to another

[Mandeep Baluja]

>
> Ya I did this for consecutive sequence of 19,23,28 ,Please find the 
> attached formula in the file with helper.
>


Regards, 
Mandeep baluja 
https://www.linkedin.com/messaging/thread/6086488646137958400 
https://www.linkedin.com/in/mandeep-baluja-b777bb88?trk=hp-identity-name 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Trick_To_Get.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: SUMMERY OF PIVOT TABLE

[Mandeep Baluja]

Send me the sheet !!! 
>
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Copy data from different sheets to 1 summary sheet (single excel file)

[Mandeep Baluja]

zaks Every thing is possible Except my increment :P !! Elaborate what you 
wish to combine from Every sheet.
@ Devendra :Same process, but for workbooks you need to loop files in 
folder one by one and Consolidate it !!

*Regards, *
*Mandeep baluja *
*https://www.linkedin.com/messaging/thread/6086488646137958400 *
*https://www.linkedin.com/in/mandeep-baluja-b777bb88?trk=hp-identity-name*

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Copy data from different sheets to 1 summary sheet (single excel file)

[Mandeep Baluja]

>
> Worksheets Combine  !! Run this macro Hope you're aware about how to run a 
> macro !! if not try this 
>
> https://support.office.com/en-us/article/Run-a-macro-5e855fd2-02d1-45f5-90a3-50e645fe3155


Sub Simple_Combine()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Error Resume Next
For Each sht In ActiveWorkbook.Sheets
If sht.Name = "Collated" Then sht.Delete
Next
Dim i As Long
Sheets.Add.Name = "Collated"
Set ws = Sheets("Collated")
For Each sht In ActiveWorkbook.Sheets
If sht.Name <> "Collated" Then
sht.UsedRange.Copy ws.Range("A" & Cells(Rows.Count, 
1).End(xlUp).Offset(1, 0).Row)
End If
Next


Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Copy data from different sheets to 1 summary sheet (single excel file)

[Mandeep Baluja]

Simple use this formula after pressing the button, Without any hassle 
,Clear sheet after doing work. 
>
>
Regards, 
Mandeep baluja 


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Excel_Macro_Grp.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: Copy data from different sheets to 1 summary sheet (single excel file)

[Mandeep Baluja]

>
> Haha !! Glad to Help Bro :P,Thanks for providing the references otherwise 
>> it will be cumbersome to look values !! 
>>
>
 
 

Regards, 
Mandeep baluja 
https://www.linkedin.com/messaging/thread/6086488646137958400 
https://www.linkedin.com/in/mandeep-baluja-b777bb88?trk=hp-identity-name

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Multiple Mail merge same page

[Mandeep Baluja]

>
> Use a mail merge option in word You can refer to google to see step by 
> step process,In my early phase I tried this for more than 2000 
> customers,Create an excel sheet set the tags in Word mail merge it will 
> create that for you.

 

Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Day, Date, Months

[Mandeep Baluja]

We can't entertain manual changes request, As your data is not correct Lots 
of typo errors in this Ex: "Wednesdsy",Extra Spaces in no particular trend



Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Date formula for Age Calculation

[Mandeep baluja]

>
> Hey Amar, 
>

While doing  manipulations with date you must ensure the Format of System 
date format.Some people use mm/dd/ and others use dd/mm/ so if 
someone has provide you the data in his format and you'r date format is 
different from that it will shows you the error.

Note one thing First date in Excel is 01-01-1900 means year 1900, Any date 
beyond this date will not be accepted in any computer format you're using 
therefore 30/12/1889 will show you error I changed your formula to make it 
a date which follows the date format rules. Means Month should not 
be greater than 12,dates should not exceeds 31. 

Please find the attached Data 

Regards, 
Mandeep Baluja  
 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Date formula.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: Run code when new cells are added (and only on newly added cells)

[Mandeep baluja]

Hey Vicky,

I didn't understand what exactly you're looking for , But provided you a 
solution. check the attachment

Public lr As Long

Private Sub Worksheet_Activate()
 lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox lr
If Target.Count > 1 Then Exit Sub
If Target.Value <> "" Then
If Not Intersect(Target, Range(Cells(lr, "A"), Cells(1048576, "A"))) Is 
Nothing Then
Cells(Target.Row, 2).Value = "Entry done at: " & Now()
    
End If
End If


End Sub

Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


d.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: How to get Account Information of Excel using VBA Hi All,

[Mandeep baluja]

Check this out !! 

Sub getproperties()

On Error Resume Next
rw = 1
Worksheets(2).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
rw = rw + 1
Next

End Sub


Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Comment macro code with macros (not manually)

[Mandeep baluja]

>
> Do you have more than 1 macro ? Why don't you paste the code in notepad 
> and simply replace Msgbox with 'Msgbox and paste it in vba module. 
>

 Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Workbook_BeforClose Event working as expected only 1st time NOT the 2nd time

[Mandeep baluja]

Tried 15 times every time it works perfectly !! 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Comment macro code with macros (not manually)

[Mandeep Baluja]

>
> Haha :P Can you please let us know what will be the use of this ? Okay 
> check this out !!! Enable the trust center to programatically access vba 
> modules 


Sub AddProcedureToModule()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim LineNum As Long
Const DQUOTE = """" ' one " character

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Module1")
Set CodeMod = VBComp.CodeModule

With CodeMod
LineNum = .CountOfLines + 1
.InsertLines LineNum, "Public Sub SayHello()"
LineNum = LineNum + 1
.InsertLines LineNum, "  For Each shp In ActiveSheet.Shapes "
LineNum = LineNum + 1
.InsertLines LineNum, "  ActiveSheet.Shapes(shp.Name).Select "
LineNum = LineNum + 1
.InsertLines LineNum, "  Selection.Delete"
LineNum = LineNum + 1
.InsertLines LineNum, " next"
LineNum = LineNum + 1
.InsertLines LineNum, "   ' MsgBox " & DQUOTE & "All objectes 
deleted successfully" & DQUOTE
    LineNum = LineNum + 1
.InsertLines LineNum, "End Sub"
End With
End Sub
 
Regards,
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Defining Name Ranges in Excel for different selection region using VBA/Macro

[Mandeep Baluja]

>
> check my code 
>
https://groups.google.com/forum/?hl=en%3Fhl%3Den#!searchin/excel-macros/mandeep%7Csort:date/excel-macros/x6VYCJQs1lg/7lMf8CAuDgAJ

Regards, 
Mandeep baluja 
https://www.linkedin.com/messaging/thread/6086488646137958400 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Defining Name Ranges in Excel for different selection region using VBA/Macro

[Mandeep Baluja]

>
> check my code 
>
https://groups.google.com/forum/?hl=en%3Fhl%3Den#!searchin/excel-macros/mandeep%7Csort:date/excel-macros/x6VYCJQs1lg/7lMf8CAuDgAJ

Regards, 
Mandeep baluja 
https://www.linkedin.com/messaging/thread/6086488646137958400 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Get files in a New folder with help of Macro

[Mandeep baluja]

Resolution Try this Regards, Try to change the directory path and run the 
macro where you have access. Mandeep baluja 

Examine the path of the WebDir and DBDir folders. To do this, log into 
Forecaster by using the SYS user and then clicking the company link. Both 
the WebDir and the DBDir folders should be on the IIS Server. The WebDir 
folder should have the following path:
\\MACHINENAME\WEBDIR\
The DbDir folder should have the following path:
\\MACHINENAME\DBDIR\
If there are multiple companies, set up separate WebDir and DBDir folders 
for each company. Companies should not share these folders. You should also 
enable Web sharing for the WebDir folder, and set the read and write 
permissions for the folder. To do this, follow these steps:
   
   1. In Windows Explorer, right-click the WebDir folder, and then click 
Sharing 
   and Security. The Properties dialog box opens.
   2. Click the Sharing tab.
   3. Click to select the Share this Folder option, and then click 
   Permissions.
   4. In the Group or user names box, click the target user group.
   5. In the Permissions box, click the appropriate check box to enable or 
   to deny each permission. Then click OK.
   6. Click the Web Sharing tab.
   7. Click to select theShare this Folder option.
   8. Repeat steps 4 and 5 on this tab.

Note The DBDir folder should be shared with full control permissions 
enabled for the frxforecaster user.

This article was TechKnowledge Document ID: 27775

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: VBA access to sheets on Google Drive

[Mandeep baluja]

Hey paul,

I tried the same what I attempted before sometime is trying to open the 
google sheet through internet explorer with vba code and send the 
keystrokes to download the file option, but I was unsuccessful because 
Internet explorer is not correct browser same keystrokes works in 
googlechrome but not in internet explorer you will see when you do. And 
then lookup for last file downloaded in download folder and copy paste the 
data. 

Regards, 
Mandeep baluja 


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Change in existing macro.

[Mandeep Baluja]

Sub CopyToFold()
Dim i As Integer
Dim fName As String
Dim sourcepath As Object
Dim destpath As Object

Set sourcepath = Application.FileDialog(msoFileDialogFolderPicker)
sourcepath.Show
Sourcefld = sourcepath.SelectedItems(1) & "\"
   ' Debug.Print sourcefld
Set destpath = Application.FileDialog(msoFileDialogFolderPicker)
 destpath.Show
destfld = destpath.SelectedItems(1) & "\"
  ' Debug.Print destfld

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row

fName = Cells(i, 1)

FileCopy Sourcefld & fName, destfld & fName

Next

End Sub


Regards, 
Mandeep baluja 

 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Change in existing macro.

[Mandeep Baluja]

>
> Small error in paul code change this line Set fc = fl.Files to Set fc = 
> fldr.Files 
>
>
Regards, 
Mandeep baluja  

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Replace formula / or MACRO - From List

[Mandeep Baluja]

>
> Check this out !!! 
>

Regards, 
Mandeep baluja  

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


TEST001 (2).xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: Modification of macro

[Mandeep baluja]

>
> Check this out !!! Regards, Mandeep baluja 
>


Sub MyFilter()

Dim path1 As String

Dim lngStart As Long, lngEnd As Long
lngStart = Range("f1").Value 'assume this is the start date
lngEnd = Range("g1").Value 'assume this is the end date
path1 = ThisWorkbook.Path & "\"
Debug.Print path1
'assume you have field name / label in D29
Range("a1:a3000").AutoFilter Field:=1, _
Criteria1:=">=" & lngStart, _
Operator:=xlAnd, _
Criteria2:="<=" & lngEnd
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Set newbook = Workbooks.Add
With newbook
.Sheets("Sheet1").Select
Range("A1").PasteSpecial xlPasteAll
Application.DisplayAlerts = False
.SaveAs Filename:=path1 & Format(lngStart, "dd/mm/yy") & "-" & 
Format(lngEnd, "dd/mm/") & ".xlsx"
Application.DisplayAlerts = True
Sheets("Data").Select
Application.CutCopyMode = False
Selection.AutoFilter
'Range("F1").Select
ActiveWorkbook.Save
End With
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 https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Find and Replace with Bold

[Mandeep Baluja]

>
> *What are the parameters/criteria to do the bold,Give us output format 
> required and list of words that need to be bold by giving example in Excels 
> sheet.*
>

Regards, 
Mandeep baluja  

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Find and Replace with Bold

[Mandeep Baluja]

>
>  check Two scenarios given in different sheets and let me know !! 
>>
>

Sub MakeBold()

Dim nrows As Long: nrows = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

With ActiveSheet
 For nrow = 2 To nrows
Searchstring = .Range("A" & nrow).Value
searchchar = .Range("B" & nrow).Value
Strtpnt = InStr(1, Searchstring, searchchar, vbTextCompare)
endpnt = Len(.Range("B" & nrow))
If Strtpnt <> 0 Then
.Range("A" & nrow).Characters(Strtpnt, endpnt).Font.Bold = True
End If
 Next
End With

End Sub

Sub MakeBold2()

Dim nrows As Long: nrows = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim cmplr As Long: cmplr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

cmparr = Range("B2:B" & cmplr)

For i = LBound(cmparr, 1) To UBound(cmparr, 1)
With ActiveSheet
 For nrow = 2 To nrows
Searchstring = .Range("A" & nrow).Value
searchchar = cmparr(i, 1)
Strtpnt = InStr(1, Searchstring, searchchar, vbTextCompare)
endpnt = Len(cmparr(i, 1))
If Strtpnt <> 0 Then
.Range("A" & nrow).Characters(Strtpnt, endpnt).Font.Bold = True
End If
 Next
 
End With
Next
 
End Sub

Regards, 

Mandeep baluja 

 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Pivot Sorting

[Mandeep Baluja]

>
> PFA !! thread closed !!! 


Regards, 
Mandeep baluja 
https://www.linkedin.com/messaging/thread/6086488646137958400 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Pivot_Sorting.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: formula for creating numbers

[Mandeep Baluja]

>
> hey Man,
>

Read what i wrote bro on side *Put these values in column F as values you 
will get the desired result** ,which means  Copy cells Q2:Q21 go to cell f2 
and do pastespecial paste as values check your results then.*

*Regards, *
*Mandeep baluja *

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: flaps on a single group

[Mandeep Baluja]

Hey Fabio, 

Please clear the doubts

3 Tabs means Three worksheets ?? 
Add means merge ??
Filter the data on what criteria ??

Are you looking to merge files with VBA code automatically ?

Regards,
Mandeep baluja 


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Re: Search specific text or numbers in excel folder

[Mandeep Baluja]

Hey,

I understood you're question that's why I replied bro. Okay let me tell you 
a trick. 
 

> Go to that folder open in window explorer on right side you will see the 
> search option enter the number you're are looking for it will show you 
> those files which contains the text present anywhere in the report,copy 
> those files in separate folder simple !! Now main work copy the address bar 
> like path 
>
C:\Users\Mandeep.baluja\Desktop\Hell paste it in google address bar , it 
will show open a link with file names copy all text from webpage by ctrl+A 
put it in excel files ,Now you have the names of file you are interested in 
!! 

Regards,
Mandeep baluja 


 
 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Re: Search specific text or numbers in excel folder

[Mandeep Baluja]

Check this out and let me know !!  Regards, Mandeep baluja 


Sub SearchDir()

Dim i  As Long: i = 2   'A variable to paste values in main 
sheet
Dim Searchword As Variant   'Search value to be used
Dim Wbmain As Workbook  'Main workbook
Dim fldAs Object'fso object

On Error GoTo Tech: 'On error Go to 
@mandeep.bal...@snapdeal.com

'Turn off Flickering
Application.ScreenUpdating = False: Application.DisplayAlerts = False

Set Wbmain = ThisWorkbook
Wbmain.Sheets("Sheet2").Cells.ClearContents
Wbmain.Sheets("Sheet2").Range("A1:C1") = Array("Filename", "Sheetname", 
"Cellnumber")
Searchword = Wbmain.Sheets("Sheet1").Range("A3")
Wbmain.Sheets("Sheet2").AutoFilterMode = False

'Set path of Folder
Set fld = Application.FileDialog(msoFileDialogFolderPicker)
fld.Show
fldpath = fld.SelectedItems(1) & "\"
fname = Dir(fldpath)

'Looping of Files
Do While fname <> ""
  Set wbtemp = Workbooks.Open(fldpath & fname)
For Each ws In wbtemp.Sheets
Wbmain.Sheets("Sheet2").Cells(i, 2).Value = ws.Name
Wbmain.Sheets("Sheet2").Cells(i, 1).Value = fname
ws.Activate
Set f = ws.Cells.Find(what:=Searchword, 
LookIn:=xlValues, lookat:=xlWhole)
If Not f Is Nothing Then
k = f.Address
Add = f.Address
Do
   Set f = ws.UsedRange.FindNext(f)
 If f.Address <> k Then
Add = Add & "," & f.Address
End If
Loop While Not f Is Nothing And k <> f.Address
Wbmain.Sheets("sheet2").Cells(i, 3).Value = 
Add
End If
i = i + 1
Next
fname = Dir()
wbtemp.Close
Loop

Wbmain.Sheets("sheet2").Activate
lr = Wbmain.Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

Wbmain.Sheets("Sheet2").Range("A1:C" & lr).AutoFilter field:=3, 
Criteria1:=""
Wbmain.Sheets("Sheet2").Range("A2:A" & 
lr).SpecialCells(xlCellTypeVisible).Select
Selection.Rows.Delete
Wbmain.Sheets("Sheet2").AutoFilterMode = False

Exit Sub

Tech:
MsgBox "An unexpected error has occured You have done something Wrong 
Contact mandeep.bal...@snapdeal.com"

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


Question Sheet.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: Having trouble with INDEX and INDIRECT

[Mandeep Baluja]

>
> Hey, 
>

The Error you are getting is just because the defined array is not Correct 
in INDEX,Let me Explain it to you  Why !!

Indirect Syntax is =INDEX(Array,Rownum,Column) 
For example you want to go two rows down and 2 columns wide then formula 
would be = index(A1:D10,2rows down,3columns to right)

Here the value of L9 = 3 which is column which means 3 columns to right*(Which 
is not defined in Array)* from starting and M9 = 1 Which is the row 

*Change your array to :- $A$64:$D$501 *


*Regards, *
*Mandeep baluja *

 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Required Macro

[Mandeep Baluja]

PFA !!

Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


BasicTxlsm.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: add date instantly when there is update in worksheet

[Mandeep Baluja]

>
> Use the worksheet event to trigger, It depends on you where you want to 
> place date. 
>

Private Sub Worksheet_Change(ByVal Target As Range)
'Application.EnableEvents = False
Range("E1").Value = Date
'Application.EnableEvents = True
End Sub
 

Regards,
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Need an help on this Macros

[Mandeep Baluja]

>
> Check this result of your first query. Second will done  after completing 
> my ofc work :D Not have much time to involve today
>

Regards,
Mandeep baluja  

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


2_assignment.xls
Description: MS-Excel spreadsheet

$$Excel-Macros$$ Re: formula for creating numbers

[Mandeep Baluja]

>
> check this formula !! I don't use solver in my work if I can achieve this 
> with simple formula 
>

Regards, 
Mandeep baluja  

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


SOLVER.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: 52 week high & low formula excluding zero

[Mandeep Baluja]

>
> This question has gone over my head !!! Need a better explanation for this 
> !! 


Regards, 
Mandeep baluja  


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Search specific text or numbers in excel folder

[Mandeep Baluja]

>
> This can be achieved easily with the VBA code, Why don't you give it a Try 
> to loop files reside in folder and open it and checking all sheets one by 
> one and use find method to search for specific keywords.
>

Regards, 
Mandeep baluja  

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: formula for creating numbers

[Mandeep Baluja]

PFA !! 

Regards, 
Mandeep baluja 


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


FORMULA%2520FOR%2520NUMBERS.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: Web query to get exam result for all students from university website

[Mandeep baluja]

Check this thread done by me in which the code is doing is providing input 
to website and showing the info, In past I had made a Macro which can fetch 
data from flipkart site their product names and their price value, It seems 
to me your scenario is as same as I did in past, Things depends on what 
website you're using and what tags value you wish to achieve.

Regards,
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: no solution

[Mandeep baluja]

Please send a personal msg to him !! Thread closed !!

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Student attendance

[Mandeep baluja]

Show me the file with absentees not updated so that i can check and rectify 
it once again. 

Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Sorting Comma Separated Values in a cell

[Mandeep Baluja]

umns("C:C").Replace What:="Y", Replacement:="", 
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'--Sorting column second
ActiveWorkbook.Worksheets("Sheet3").sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet3").sort.SortFields.Add 
Key:=Sheets("Sheet3").Range("C1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet3").sort
.SetRange Range("C1:D" & lr)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

'---
lr = Sheets("Sheet3").Cells(Rows.Count, 6).End(xlUp).Row
 
Sheets("Sheet3").Columns("F:F").Replace What:="-*", Replacement:="", 
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Sheets("Sheet3").Columns("F:F").Replace What:="Years", Replacement:="", 
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

ActiveWorkbook.Worksheets("Sheet3").sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet3").sort.SortFields.Add 
Key:=Sheets("Sheet3").Range("f1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet3").sort
.SetRange Range("f1:g" & lr)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

'Dim varout() As Variant
counter = 1
l1 = Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Row
l2 = Sheets("Sheet3").Cells(Rows.Count, 4).End(xlUp).Row
l3 = Sheets("Sheet3").Cells(Rows.Count, 7).End(xlUp).Row
l4 = Sheets("Sheet3").Cells(Rows.Count, 11).End(xlUp).Row

For i = 1 To l1
ReDim Preserve varout(1 To counter)
varout(i) = ws.Cells(i, 1).Value
counter = counter + 1
Next
 '  MsgBox Join(varout, ",")

For j = 1 To l2
ReDim Preserve varout(1 To counter + 1)
varout(counter) = ws.Cells(j, 4).Value
counter = counter + 1
Next

'MsgBox Join(varout, ",")
For k = 1 To l3
ReDim Preserve varout(1 To counter + 1)
varout(counter) = ws.Cells(k, 7).Value
counter = counter + 1
Next


For L = 1 To l4
ReDim Preserve varout(1 To counter + 1)
varout(counter) = ws.Cells(L, 11).Value
counter = counter + 1
Next
   
  temp = Join(varout, ",")
  ws1.Cells(Rownum, "C").Value = temp
Next
'ws.Cells.ClearContents

End Sub


Regards,
Mandeep baluja 
https://www.facebook.com/groups/825221420889809/




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Sorting.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Sorting Comma Separated Values in a cell

[Mandeep Baluja]

>
> Didn't get what is ref.name ??? Didn't find it anywhere in your data,Will 
> it be possible if you share the output required format.
>

Regards,
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: combine 2 excel workbook using macros selecting only selected rows

[Mandeep Baluja]

Does output sheet created for each Pref value given below ?? if yes are 
these sheets created in same workbook with Pref name if not, means you need 
only one sheet for pref 10001 ?

Regards,
Mandeep Baluja

Pref 1001 1002 1005 1007 1009 1005 25000 151233 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Help Required

[Mandeep Baluja]

>
> PFA !! Ticket closed 
>
Regards,
Mandeep baluja  

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Site_PM_Summary_Report_-_OME_140116030839_10046.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12

Re: $$Excel-Macros$$ Sorting Comma Separated Values in a cell

[Mandeep Baluja]

  Hey Devendra,

Asked for output format? your query is not understandable. data shuffled 
all the data ??, 

Show me the output you require for this data given below :-

Col 1Col 2
A10,8year,5 year,15 
B15,20year,17
D30,50 year,12

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Re: Help Required

[Mandeep Baluja]

Multiply date with 1

On Thursday, January 14, 2016 at 5:54:19 PM UTC+5:30, neeraj chauhan wrote:
>
> Dear sir,
>
>  
>
> Thanks sir !!
>
> Kindly share the formula.
>
>  
>
> *From:* excel-...@googlegroups.com  [mailto:
> excel-...@googlegroups.com ] *On Behalf Of *Mandeep Baluja
> *Sent:* Thursday, January 14, 2016 4:50 PM
> *To:* MS EXCEL AND VBA MACROS
> *Subject:* $$Excel-Macros$$ Re: Help Required
>
>  
>
> PFA !! Ticket closed 
>
> Regards,
>
> Mandeep baluja  
>
> -- 
> 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...@googlegroups.com .
> To post to this group, send email to excel-...@googlegroups.com 
> .
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Re: Help Required

[Mandeep Baluja]

>
> Your Date is not date but to convert a date to number you can simply 
> multiply it with one this scenario works most of the cases but not for all. 
>

For Example your date is in A1 put formula in b1 = A1*1

Regards,
Mandeep baluja 

ticket closed
 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Student attendance

[Mandeep Baluja]

Check this out I have extended your date to 1 to 15 as instructed 

Regards,
Mandeep baluja 

Sub Fill_Absents()


Dim workrngNE As Range
Dim workrngPE As Range
Dim workrngSS As Range
Dim Datasheet As Worksheet
Dim Nrows As Long

Application.ScreenUpdating = False


Set ws = Sheets("Consolidated attendance")
Set workrngNE = Sheets("Consolidated attendance").Range("D6:R75")
Set workrngPE = Sheets("Consolidated attendance").Range("s6:AG75")
Set workrngSS = Sheets("Consolidated attendance").Range("AH6:AV75")

Set Datasheet = Sheets("Data entry")
ws.Range("D6:AV75").ClearContents

Nrows = Datasheet.Cells(Rows.Count, 1).End(xlUp).Row
For nrow = 4 To Nrows
Choice = Datasheet.Cells(nrow, "A")
Select Case Choice
Case Is = "NE"
Tempdate = Datasheet.Cells(nrow, "C")
Varout = Split(Datasheet.Cells(nrow, "D"), ",")
 For i = LBound(Varout) To UBound(Varout)
 Tempid = Varout(i)
For Each Cell In workrngNE
If CInt(Tempid) = 
CInt(ws.Cells(Cell.Row, 1).Value) And Tempdate = ws.Cells(4, Cell.Column) 
Then
   Cell.Value = "A"
   End If
Next
 Next
Set Tempdate = Nothing
Set Tempid = Nothing
Set Varout = Nothing
Case Is = "PE"
Tempdate = Datasheet.Cells(nrow, "C")
Varout = Split(Datasheet.Cells(nrow, "D"), ",")
 For i = LBound(Varout) To UBound(Varout)
 Tempid = Varout(i)
For Each Cell In workrngPE
   If CInt(Tempid) = 
CInt(ws.Cells(Cell.Row, 1).Value) And Tempdate = ws.Cells(4, Cell.Column) 
Then
Cell.Value = "A"

   End If
Next
 Next
 Set Tempdate = Nothing
Set Tempid = Nothing
Set Varout = Nothing
Case Is = "SS"
  
Tempdate = Datasheet.Cells(nrow, "C")
Varout = Split(Datasheet.Cells(nrow, "D"), ",")
 For i = LBound(Varout) To UBound(Varout)
 Tempid = Varout(i)
For Each Cell In workrngSS
   If CInt(Tempid) = 
CInt(ws.Cells(Cell.Row, 1).Value) And Tempdate = ws.Cells(4, Cell.Column) 
Then
Cell.Value = "A"
   End If
Next
 Next
  Set Tempdate = Nothing
Set Tempid = Nothing
Set Varout = Nothing
  
 End Select
Next

'MsgBox "I Am Done"
ws.Activate
Range("D6:AV75").SpecialCells(xlCellTypeBlanks).Select
Selection.Value = "P"

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


student%2520attendance%2520new.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Re: Required Missing Date

[Mandeep Baluja]

>
> Can you please provide the output format you're looking for, This will 
> help us for better understanding.
>

Regards,
Mandeep baluja  
 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ vba code for listing folder name and file name

[Mandeep Baluja]

Hey Kat,

I am sorry but i didn't get the logic of this code which is totally 
different from your above query,Things which i understand its just checking 
whether file_name following the criteria or not,

if 9th letter of the file name is equal to R then do something else show 
error in all columns.

try this : 


Sub Test()
Dim rw As Integer
Dim fso As Object
Dim oFolder As Object
Dim F As Object
Dim sf As Object
Dim col As Integer
Dim i As Integer
Dim fil As Object

rw = 2 ' first row
Set fso = CreateObject("scripting.filesystemobject")
Set oFolder = fso.GetFolder("E:\Macros_Collection\")
i = 1
Cells(i, 1) = "Master Folder"
Cells(i, 2) = "Location"
Cells(i, 3) = "File name"
Cells(i, 4) = "Revision times"
Cells(i, 5) = "Date Modified"
Cells(i, 6) = "Revision times"
Cells(i, 7) = "Date Modified"
Cells(i, 8) = "Revision times"
Cells(i, 9) = "Date Modified"

For Each F In oFolder.subfolders
Cells(rw, 1) = F.Name
Cells(rw, 2) = F.Path
For Each sf In F.subfolders
Cells(rw, 3) = Left(sf.Name, 8)
col = 4
For Each fil In sf.Files
If fil.Name <> "Thumbs.db" Then
If Mid(fil.Name, 9, 1) = "R" Then
Cells(rw, col) = Mid(fil.Name, 10, InStrRev(fil.Name, 
".") - 10)
Else
Range(Cells(rw, col), Cells(rw, 9)) = "error"
End If
End If
 rw = rw + 1
Next fil

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

$$Excel-Macros$$ Re: Combined Output

[Mandeep Baluja]

>
> PFA !! Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


combination (1).xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: Higher and Lower value to show in different column

[Mandeep Baluja]

Put this in f8 =MAX($C$8:$C$11)
put this in g8 =MIN($C$8:$C$11)

Ticket closed -

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ vba code for listing folder name and file name

[Mandeep Baluja]

Revision time ?? I have not heard about this while searching it on the 
internet I found 
this http://excel.tips.net/T002868_Using_Revision_Tracking.html which track 
the changes done workbook shared on network. Is revision time being noted 
anywhere in your workbook your snapshot is not showing what is the revision 
time you have entered 6,7 etc. 

This is a bit difficult but not impossible,What i assumed is you each sheet 
in Excel having the History sheet which tracks the changes with the last 
line "The history ends with the changes saved on 11-01-2016 at 13:01." 
after certain interval
 
Confirm this first !!


Regards,
Mandeep baluja




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Need Help in calculation of score

[Mandeep Baluja]

>
>  Hey check this out !! 
>>
>
Regards, 
Mandeep baluja 
 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


SG (2).xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: Need Help in calculation of score

[Mandeep Baluja]

Hey SG,

It's very difficult to understand your query what you wish or what you want 
to achieve as may be we both are using different terminology or might be 
explanation. Sorry to say Hope someone will help you with these given below 
instructions as I am not able to matchup the aim.
 
You Wrote:-
1) What i need is to calculate the final score in column "I"
2) however, i'm, not able to do distribution of score. "Here the 
distribution is given in range("K3:P5")"
3) if any of parameter is NA then its score must be distributed in rest of 
the parameters.(Not to M(Fatal) parameter) 
4) Sorry for the confusion. Final score is 100 if all are Yes.
5) I need the formula in Colum "I" for Score.(Distribution of Score in case 
of "NA" should be calculated here.)
6) The difference in headers are typo errors.
7) d4 & e4 are no..that means their score 30& 10 = 40 gets divided by 4. so 
the score in k4  is 20,l4=30,m4=0,n4=0,o4 =25 & p4=25,*so that final score 
in i4 is 100. if any parameter goes "No"*, then its number get deducted 
from total score.
8) Also, in k11, why the score is 20. It should be 10 only according to the 
header & same for rest of the cells.


Regards,
Mandeep baluja 





-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: vba code help for the open file location

[Mandeep Baluja]

Check this out !! 

REgards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


update button code.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Re: Create Multiple Excel Files from One file

[Mandeep Baluja]

 Let me know !!

Sub CreateSheetsDemo()

Dim wb As Workbook
Dim wbtemp As Workbook
Dim Workrng As Range
Dim uniquename As Variant
Dim Dic As Object
Dim lr As Long: lr = Sheets("Order").Cells(Rows.Count, 4).End(xlUp).Row
mypath = ThisWorkbook.Path & "\"

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wb = ThisWorkbook
Set Workrng = wb.Sheets("order").Range("A1:E" & lr)
Debug.Print Workrng.Address
Set Dic = CreateObject("Scripting.dictionary")
Set dic2 = CreateObject("Scripting.dictionary")
Set dic3 = CreateObject("Scripting.dictionary")
Dic.RemoveAll
dic2.RemoveAll
dic3.RemoveAll
ActiveSheet.AutoFilterMode = False
For ROWNUM = 2 To lr
If (Not Dic.Exists(Cells(ROWNUM, 4).Value)) Then
Debug.Print Cells(ROWNUM, 5)
   Dic.Add Cells(ROWNUM, 4).Value, Cells(ROWNUM, 5).Value
End If
Next
uniquename = Dic.keys
For i = LBound(uniquename) To UBound(uniquename)
Workrng.AutoFilter field:=4, Criteria1:=uniquename(i)
Set wbtemp = Workbooks.Add
Workrng.SpecialCells(xlCellTypeVisible).Copy
wbtemp.Sheets("Sheet1").Range("A1").PasteSpecial 
Paste:=xlPasteAll
wbtemp.Sheets("Sheet1").Name = "Order"
'Calculation work
Set ws = wbtemp.Sheets.Add ' ADDED THIS LINE BECAUSE MY EXCEL 
BOOK DOES NOT CREATES "SHEET2" AUTOMATICALLY
ws.Name = "Summary"
wbtemp.Sheets("Summary").Range("A1:B1").Merge
Debug.Print Dic.Item(uniquename(i))
wbtemp.Sheets("Summary").Range("A1").Value = uniquename(i) & " 
  Employee id :" & Dic.Item(uniquename(i))
lr = wbtemp.Sheets("order").Cells(Rows.Count, 4).End(xlUp).Row
  
'---
  For ROWNUM = 2 To lr
If (Not dic2.Exists(wbtemp.Sheets("order").Cells(ROWNUM, 
2).Value)) Then
   dic2.Add wbtemp.Sheets("order").Cells(ROWNUM, 2).Value, 1
Else
 dic2.Item(wbtemp.Sheets("order").Cells(ROWNUM, 2).Value) = 
dic2.Item(wbtemp.Sheets("order").Cells(ROWNUM, 2).Value) + 1
End If
  Next
varout1 = dic2.keys
 wbtemp.Sheets("Summary").Range("A3").Resize(UBound(varout1) + 
1, 1) = Application.Transpose(varout1)
 
   For Each cell In wbtemp.Sheets("Summary").Range("A2:a10")
cell.Offset(0, 1) = dic2.Item(cell.Value)
 Next
 
  
'---
  For ROWNUM = 2 To lr
If (Not dic3.Exists(wbtemp.Sheets("order").Cells(ROWNUM, 
3).Value)) Then
   dic3.Add wbtemp.Sheets("order").Cells(ROWNUM, 3).Value, 1
Else
 dic3.Item(wbtemp.Sheets("order").Cells(ROWNUM, 3).Value) = 
dic3.Item(wbtemp.Sheets("order").Cells(ROWNUM, 3).Value) + 1
End If
  Next

Varout2 = dic3.keys
wbtemp.Sheets("Summary").Range("A10").Resize(UBound(Varout2) + 
1, 1) = Application.Transpose(Varout2)

For Each cell In wbtemp.Sheets("Summary").Range("A10:a20")
cell.Offset(0, 1) = dic3.Item(cell.Value)
 Next
  wbtemp.Sheets("Summary").Columns("A:I").AutoFit
   wbtemp.SaveAs Filename:=mypath & uniquename(i)
wbtemp.Close
wb.Sheets("order").AutoFilterMode = False
'Dic.RemoveAll
dic2.RemoveAll
dic3.RemoveAll
   
Next

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

Re: $$Excel-Macros$$ Download data of a Google sheet in excel sheet with VBA

[Mandeep Baluja]

Hey Devendra,

The issues is while using a sendkeys method procedure send the keys one by 
one not once at that time. Therefore it is opening the compact controls of 
Google spreadsheet without going into actual control. Looking for the 
procedure which can process the keycombination at once :(.

Once the file is downloaded rest of work is easy
Regards,
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Re: Create Multiple Excel Files from One file

[Mandeep Baluja]

Glad to help !!! 

Regards,
Mandeep baluja


>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Create Multiple Excel Files from One file

[Mandeep Baluja]

Did you run the code in input file ? Have you tried debugging of code step 
by step ? Why paste:=xlpasteall is deleted ? I have not received this error 
while  running this code something u are doing wrong unintentionally. 

Regards,
Mandeep 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Re: Create Multiple Excel Files from One file

[Mandeep Baluja]

>
> Try This code !!
>

Sub CreateSheetsDemo()

Dim wb As Workbook
Dim wbtemp As Workbook
Dim Workrng As Range
Dim uniquename As Variant
Dim Dic As Object
Dim lr As Long: lr = Sheets("Order").Cells(Rows.Count, 4).End(xlUp).Row
mypath = ThisWorkbook.Path & "\"

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wb = ThisWorkbook
Set Workrng = wb.Sheets("order").Range("A1:E" & lr)
Debug.Print Workrng.Address
Set Dic = CreateObject("Scripting.dictionary")
Set dic2 = CreateObject("Scripting.dictionary")
Set dic3 = CreateObject("Scripting.dictionary")
Dic.RemoveAll
dic2.RemoveAll
dic3.RemoveAll
ActiveSheet.AutoFilterMode = False
For rownum = 2 To lr
If (Not Dic.Exists(Cells(rownum, 4).Value)) Then
   Dic.Add Cells(rownum, 4).Value, Cells(rownum, 5).Value
End If
Next
uniquename = Dic.keys
For i = LBound(uniquename) To UBound(uniquename)
Workrng.AutoFilter field:=4, Criteria1:=uniquename(i)
Set wbtemp = Workbooks.Add
Workrng.SpecialCells(xlCellTypeVisible).Copy
wbtemp.Sheets("Sheet1").Range("A1").PasteSpecial 
Paste:=xlPasteAll
wbtemp.Sheets("Sheet1").Name = "Order"
'Calculation work
Set ws = wbtemp.Sheets.Add ' ADDED THIS LINE BECAUSE MY EXCEL 
BOOK DOES NOT CREATES "SHEET2" AUTOMATICALLY
ws.Name = "Summary"
wbtemp.Sheets("Summary").Range("A1:B1").Merge
Debug.Print
wbtemp.Sheets("Summary").Range("A1").Value = uniquename(i) & " 
  Employee id :" & Dic.Item(uniquename(i))
lr = wbtemp.Sheets("order").Cells(Rows.Count, 4).End(xlUp).Row
  
'---
  For rownum = 2 To lr
If (Not dic2.Exists(wbtemp.Sheets("order").Cells(rownum, 
2).Value)) Then
   dic2.Add wbtemp.Sheets("order").Cells(rownum, 2).Value, 1
Else
 dic2.Item(wbtemp.Sheets("order").Cells(rownum, 2).Value) = 
dic2.Item(wbtemp.Sheets("order").Cells(rownum, 2).Value) + 1
End If
  Next
varout1 = dic2.keys
 wbtemp.Sheets("Summary").Range("A3").Resize(UBound(varout1) + 
1, 1) = Application.Transpose(varout1)
 
   For Each cell In wbtemp.Sheets("Summary").Range("A2:a10")
cell.Offset(0, 1) = dic2.Item(cell.Value)
 Next
 
  
'---
  For rownum = 2 To lr
If (Not dic3.Exists(wbtemp.Sheets("order").Cells(rownum, 
3).Value)) Then
   dic3.Add wbtemp.Sheets("order").Cells(rownum, 3).Value, 1
Else
 dic3.Item(wbtemp.Sheets("order").Cells(rownum, 3).Value) = 
dic3.Item(wbtemp.Sheets("order").Cells(rownum, 3).Value) + 1
End If
  Next

Varout2 = dic3.keys
wbtemp.Sheets("Summary").Range("A10").Resize(UBound(Varout2) + 
1, 1) = Application.Transpose(Varout2)

For Each cell In wbtemp.Sheets("Summary").Range("A10:a20")
cell.Offset(0, 1) = dic3.Item(cell.Value)
 Next
  wbtemp.Sheets("Summary").Columns("A:I").AutoFit
   wbtemp.SaveAs Filename:=mypath & uniquename(i)
wbtemp.Close
wb.Sheets("order").AutoFilterMode = False
Dic.RemoveAll
dic2.RemoveAll
dic3.RemoveAll
   
Next

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

$$Excel-Macros$$ Re: Need Help in Macro Loop for data dirstribution

[Mandeep Baluja]

>
> Check this out,Easily achieved with formula

 

> {=IFERROR(INDEX(Raw!$D$2:$H$85,MATCH('WAVE 1'!$A4&'WAVE 1'!B$2&'WAVE 
> 1'!$A$2,Raw!$A$2:$A$85!$B$2:$B$85!$C$2:$C$85,0),MATCH(B$3,Raw!$D$1:$H$1,0)),0)}

 
 

>  


Regards, 
Mandeep baluja  

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Sample Report.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: Create Multiple Excel Files from One file

[Mandeep Baluja]

Check this out !! and let me know 


Sub CreateSheetsDemo()

Dim wb As Workbook
Dim wbtemp As Workbook
Dim Workrng As Range
Dim uniquename As Variant
Dim Dic As Object
Dim lr As Long: lr = Sheets("Order").Cells(Rows.Count, 4).End(xlUp).Row
mypath = ThisWorkbook.Path & "\"

Set wb = ThisWorkbook
Set Workrng = wb.Sheets("order").Range("A1:E" & lr)
Debug.Print Workrng.Address
Set Dic = CreateObject("Scripting.dictionary")
Set dic2 = CreateObject("Scripting.dictionary")
Set dic3 = CreateObject("Scripting.dictionary")

For rownum = 2 To lr
If (Not Dic.Exists(Cells(rownum, 4).Value)) Then
   Dic.Add Cells(rownum, 4).Value, Cells(rownum, 5).Value
End If
Next
uniquename = Dic.keys
For i = LBound(uniquename) To UBound(uniquename)
   Workrng.AutoFilter field:=4, Criteria1:=uniquename(i)
   Set wbtemp = Workbooks.Add
Workrng.SpecialCells(xlCellTypeVisible).Copy
wbtemp.Sheets("Sheet1").Range("A1").PasteSpecial 
Paste:=xlPasteAll
wbtemp.Sheets("Sheet1").Name = "Order"
'Calculation work
 wbtemp.Sheets("Sheet2").Name = "Summary"
 wbtemp.Sheets("Summary").Range("A1:B1").Merge
 Debug.Print
 wbtemp.Sheets("Summary").Range("A1").Value = uniquename(i) & " 
  Employee id :" & Dic.Item(uniquename(i))
 lr = wbtemp.Sheets("order").Cells(Rows.Count, 4).End(xlUp).Row
  
'---
  For rownum = 2 To lr
If (Not dic2.Exists(Cells(rownum, 2).Value)) Then
   dic2.Add Cells(rownum, 2).Value, 1
Else
 dic2.Item(Cells(rownum, 2).Value) = 
dic2.Item(Cells(rownum, 2).Value) + 1
End If
  Next
Varout1 = dic2.keys
 wbtemp.Sheets("Summary").Range("A3").Resize(UBound(Varout1) + 
1, 1) = Application.Transpose(Varout1)
 
   For Each cell In wbtemp.Sheets("Summary").Range("A2:a10")
cell.Offset(0, 1) = dic2.Item(cell.Value)
 Next
 
  
'---
  For rownum = 2 To lr
If (Not dic3.Exists(Cells(rownum, 3).Value)) Then
   dic3.Add Cells(rownum, 3).Value, 1
Else
 dic3.Item(Cells(rownum, 3).Value) = 
dic3.Item(Cells(rownum, 3).Value) + 1
End If
  Next

Varout2 = dic3.keys
wbtemp.Sheets("Summary").Range("A10").Resize(UBound(Varout2) + 
1, 1) = Application.Transpose(Varout2)

For Each cell In wbtemp.Sheets("Summary").Range("A10:a20")
cell.Offset(0, 1) = dic3.Item(cell.Value)
 Next
  wbtemp.Sheets("Summary").Columns("A:I").AutoFit
   wbtemp.SaveAs Filename:=mypath & uniquename(i)
wbtemp.Close
wb.Sheets("order").AutoFilterMode = False

dic2.RemoveAll
dic3.RemoveAll

   
Next

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

Re: $$Excel-Macros$$ Download data of a Google sheet in excel sheet with VBA

[Mandeep Baluja]

Hey Devendra,

Excel has option in Data tab and "From Web" option to import the data from 
websites,I Tried and found that this Case doesn't work if your sheet 
contains a lot of data and to fetch it will take a lot of time, Instead of 
this what i think is to Download the file first and then use vba to check 
the latest file in your downloads and copy the data into your sheets which 
will be much faster that fetching from spreadsheet and then discard the 
temp sheet. Here the problem comes with automation is you have to work with 
internet explorer to do the same rather than using a GoogleChrome. 
I thoroughly studied to find the shortcut to download a file with Send keys 
it should be like sendkeys "%+FD{Enter}",Once the file will get downloaded 
it is easy to do the rest of work with VBA. Let's see who will implement 
this successfully.

Paul@ can you do one thing to send the keys combination to internet 
explorer.

Sub Fetch_Data_from_Spreadsheet()

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate 
"https://docs.google.com/spreadsheets/d/1z1W_cnkiMsQjgHmuoolxrXgm9h54NC0CQiHqtb8KNZk/edit?ts=5607ad6d#gid=0;
ie.Visible = True

Application.SendKeys "%+FD{Enter}", True

End Sub

Regards,
Mandeep baluja 
 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Quasi Vlookup

[Mandeep Baluja]

Check this out !!! 

Regards,
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


CONTAINER PROJECT - 001.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: Formula

[Mandeep Baluja]

Hi, 

Kindly elaborate your query !! 

Regards, 
Mandeep Baluja

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: data validation upon saving...

[Mandeep Baluja]

Hi Lin,

Check the attachment and find the same Scenario as required !! One thing 
which i didn't understand from where predetermined Total comes.(If I am 
assuming it correctly You are trying to validate values from two different 
sheets), Set this scenario in your sheet accordingly.


Regards,
Mandeep baluja 
 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Validate.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: purchase sales in excel

[Mandeep Baluja]

 Hi Hemal,

You need Sales Qty against a purchase through RG which can easily retrieved 
in attachment through sumproduct Note: Duplicates values in sales table is 
summed  !! 
If you want to get all the details from sales table to purchase table,There 
you need to mention Which row you want to retrieve and on what criteria as 
you sales table have duplicates. 

Regards, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


price protection 19.11 to 01.12.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: Enable/Disable text box based on User Login

[Mandeep Baluja]

Check this attachment !! userid for admin is : admin and password is 123 
same as for Guest. 

Regards,
Mandeep baluja 
https://www.facebook.com/groups/825221420889809/

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Demo_of_userform_with_Limitited_access_to_guest.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: macro for hard copy of formulas

[Mandeep Baluja]

Check this out is this you're looking for !!   Regards, Mandeep baluja 


Sub GetDetails_of_Sheet()

Dim ws As Worksheet
Dim i  As Long: i = 2

On Error Resume Next

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each sht In ActiveWorkbook.Sheets
If sht.Name = "Info" Then sht.Delete
Next

Set ws = Sheets.Add
ws.Name = "Info"
ws.Range("A1:C1") = Array("Cellno", "Formulaused", "Sheetname")

For Each sht In ActiveWorkbook.Sheets
If sht.Name <> "Info" Then
  For Each cell In 
sht.UsedRange.SpecialCells(xlCellTypeFormulas)
 ws.Range("A" & i) = cell.Address
ws.Range("B" & i) = "'" & cell.Formula
  ws.Range("C" & i) = sht.Name
i = i + 1

Next
End If
Next

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

Re: $$Excel-Macros$$ plz help

[Mandeep Baluja]

Dear Sudhir/Pankaj,

First thing you should not is this showing Error because of regional 
Setting, because both of you're using different Date format,As I check this 
file it shows me the same error
because My System format is "dd/mm/" While the answer in sheet is in 
format mm/dd/,Whenever Excel file is opened it wait and show the 
Screenshot the sheet Where you can't perform
any operation, As you enable the warning Excel cells checks the Format 
which is incorrect for Data, Here the values turned out to be an error.

If you wish to see just change your regional setting and date format to 
mm/dd/ you will get the correct results.

Now, As I checked the Question You Can solve it by Simply using Correct 
formats of Date by changing Dates Format.

Note:: Don't forget to remove the Spaces around your Text 

Thanks, 
Mandeep baluja 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

$$Excel-Macros$$ Re: Paragraph - Split Up - Excel

[Mandeep Baluja]

Run this code !! Mandeep baluja 


Sub SplitPara()

Dim lr As Long: lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim j As Long: j = 0
For Nrow = 2 To lr
arr = Split(Trim(Range("A" & Nrow).Value), vbLf)
ReDim arr1(LBound(arr) To UBound(arr))
 For lb = LBound(arr) To UBound(arr)
 If arr(lb) <> "" Then
 arr1(j) = arr(lb)
 j = j + 1
 End If
 
Next

ReDim Preserve arr1(0 To j - 1)
Range("b" & Nrow).Resize(1, UBound(arr1) + 1).Value = arr1
j = 0
Next

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


SplitParagraphswithArray.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: VBA (Excel) Transferring Data to Website

[Mandeep Baluja]

 Check this updated Attachment !!! 

Regards, 
Mandeep baluja 
https://www.facebook.com/groups/825221420889809/

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


defease with ease.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Macro (Excel) Need data via Formula

[Mandeep Baluja]

  Check this out !! 
 Mandeep baluja 



On Wednesday, December 9, 2015 at 3:31:45 PM UTC+5:30, Sadiq wrote:
>
> Hello Team ,
>
>  
>
> I have a excel sheet where have Team Name in “A” column and in “B” column 
> we have count. I need Team name details in another sheet with count of Team 
> Name via formula.
>
>  
>
> Sheet attached for your easy reference.
>
>  
>
> Rgds,
>
> Mohd Sadiq
>

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


Demo.xlsx
Description: MS-Excel 2007 spreadsheet

$$Excel-Macros$$ Re: VBA (Excel) Transferring Data to Website

[Mandeep Baluja]

Go to tools reference enable microsoft internet controls, microsoft html 
object librarary. I did the coding to process data from excel to this 
website but unable to fill the datepicker control working on Jquery to do 
the same that will soon post the same. 

Regards, 
Mandeep baluja 

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


defease with ease.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Macro (Excel) Need data via Formula

[Mandeep Baluja]

Check this out and let me know !!! 

Two formulas to be used !! 

Regards, 
Mandeep baluja 


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


Demo.xlsx
Description: MS-Excel 2007 spreadsheet

Re: $$Excel-Macros$$ Macro (Excel) Need data via Formula

[Mandeep Baluja]

Check this out !!! 

Regards, 
Mandeep baluja 


On Wednesday, December 9, 2015 at 5:22:27 PM UTC+5:30, Sadiq wrote:
>
> I did not required the count of name .
>
> I need that names in cells of given count.
>
> e.g -
>
> Name- Sadiq
> Count 20
>
> I need this name in 20 times in "a" cell.
>
>
> On Wed, Dec 9, 2015 at 3:45 PM, Mandeep Baluja <rocke...@gmail.com 
> > wrote:
>
>>
>>   Check this out !! 
>>  Mandeep baluja 
>>
>>
>>
>> On Wednesday, December 9, 2015 at 3:31:45 PM UTC+5:30, Sadiq wrote:
>>>
>>> Hello Team ,
>>>
>>>  
>>>
>>> I have a excel sheet where have Team Name in “A” column and in “B” 
>>> column we have count. I need Team name details in another sheet with count 
>>> of Team Name via formula.
>>>
>>>  
>>>
>>> Sheet attached for your easy reference.
>>>
>>>  
>>>
>>> Rgds,
>>>
>>> Mohd Sadiq
>>>
>> -- 
>> 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...@googlegroups.com .
>> To post to this group, send email to excel-...@googlegroups.com 
>> .
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/d/optout.
>>
>
>
>
> -- 
> Regards
> Mohd Sadiq
> contact no:- 9565809193
> E-mail :- mohdsa...@gmail.com 
>

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


Demo.xlsx
Description: MS-Excel 2007 spreadsheet

Re: $$Excel-Macros$$ Macro (Excel) Need data via Formula

[Mandeep baluja]

Hi, 

Give us a clear explanation to what to achieve by giving some output !!

Regards, 
Mandeep baluja 

-- 
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: VBA (Excel) Transferring Data to Website

[Mandeep baluja]

Thanks Bro,I tried my best took some help from my friend lokesh for 
Datepicker control. By google chrome select the tag element and see the 
name by right click and go to inspect element and check the name !! You 
Can't name them but you can assign it to objects and do the manipulation on 
objects which reflect on page. 

Regards, 
Mandeep

-- 
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: Sorting Positive & negative numbers rows

[Mandeep Baluja]

>
> How to judge the negative trend, I can't see any value which is negative 
> here, What pattern needs to follow, 
> continuous positive growth means all arrows should move upwards? Please 
> put comments on your data for some random entries so that we can understand 
> your requirement. 


Regards, 
Mandeep baluja  

>  

-- 
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$$ Re: Sorting Positive & negative numbers rows

[Mandeep Baluja]

>
> Find the attachment and let me know !! 
>


Regards, 
Mandeep baluja  

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


Sorting Positive & negative numbers rows (1).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: SQL Queriies in Excel sheets

[Mandeep Baluja]

 Sorry , I am bit confused are you willing to run a query of SQL from 
Excel, Thant's needs a connection, Or you're trying to work in Excel as 
same as you do in SQL by Getting Data as per your requirement from Sheet1 
to Output sheet with the help of Macros/VBA Codes. 

Regards, 
Mandeep baluja 


-- 
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$$ Re: Sorting Positive & negative numbers rows

[Mandeep Baluja]

Hi Amar,

There are many ways to do it, it depends on you what you're looking for 
,This can be achieved with the help of Helper Column, with Filter,advance 
filter require a range to refer as far as i know, apply this formula in 
helper column and put this criteria true for positive false for negative 

=IF(AND(J8:O8>0),"True","False")

Regards,
Mandeep baluja 

-- 
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: Macro copies the Cell BG colours in one worksheet to designated cells in another worksheet

[Mandeep Baluja]

Run this code and let me know 
Regards, 
Mandeep baluja 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rownum As Long:
Dim colnum As Long:
Dim Temp   As Long: Temp = 4
Dim lastentry As Long

With ActiveSheet
  For colnum = 2 To 6
If colnum = 3 Or colnum = 6 Then
   lastentry = 10
Else
   lastentry = 12
End If
For Rownum = 2 To lastentry
 Sheets("Sheet1").Cells(Rownum, colnum).Interior.Color = 
.Cells(Temp, 18).DisplayFormat.Interior.Color
' Sheets("Sheet1").Cells(Rownum, colnum).Value = .Cells(Temp, 
18).Value
 Temp = Temp + 1
Next
 Next
End With

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$$ Hey Paul, Need your suggestion

[Mandeep Baluja]

Hi Paul, Thanks for you Good suggestions will apply the same in future, the 
thing which i was looking to remove the InStr statements which is checking 
multiply as you instructed combining the values first and adding it in 
dictionary object to remove duplicacy(Given Below) will not combine the 
result as like my output given in the attachment if you run my macro. Still 
thanks a lot.  

Sub Test()
Dim varData As Variant, varOut() As Variant
Dim i As Long, j As Long
Dim myDic As Object
Dim key As String, myStr As String

With Sheets("Sheet1")
If myDic Is Nothing Then
Set myDic = CreateObject("Scripting.Dictionary")
varData = .Range("A1:D1085")
For i = LBound(varData) To UBound(varData)
key = varData(i, 1) & "," & varData(i, 2) & "," _
& varData(i, 3) & "," & varData(i, 4)
If Not myDic.Exists(key) Then
myDic(key) = i
ReDim Preserve varOut(j)
varOut(j) = key
j = j + 1
End If
Next
End If
End With

With Sheets("Sheet2")
For i = LBound(varOut) To UBound(varOut)
.Cells(i + 1, 1).Resize(1, 4) = Split(varOut(i), ",")
Next
End With
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.

$$Excel-Macros$$ Re: help to concatenate function.

[Mandeep Baluja]

>
> Check this attachment !! regards,  Mandeep 
>

 

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


Combine_Names_till blank cell .xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

$$Excel-Macros$$ Re: Moving mail within Gmail Account

[Mandeep Baluja]

>
> Please follow the group rules, Post question related to Excel ,  Try this. 
>
 

> http://www.labnol.org/internet/transfer-gmail/28088/


Regards, 
Mandeep baluja  

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