Re: $$Excel-Macros$$ Help with Proper Syntax for Range function with variables

[Ashish Koul]

try

Range("A" & bottom & ":M" & bottom).Select

On Sat, Nov 5, 2016 at 1:34 AM, Johnny <flem...@gmail.com> wrote:

> I searched for the answer to this before posting. I know what I'm trying
> to do can work, it's just that the syntax is kicking my butt
>
> I find the bottom row number (in my case 462) using Column E in this
> example, and I'd like to select the Range from Column A to Column M with
> that row number.
>
> Dim bottom As Integer
> Dim r As Integer
> bottom = Cells(Rows.Count, "E").End(xlUp).Row
> *Range("A & bottom:" & M & bottom).Select* < This is the offending
> error. I know it's a misplaced colon or quote...
>
> *** I'm basically needing to write: *range(A462:M462).select*, but using
> the variable "bottom"
>
> Thanks for your help!
>
> John
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Query on formula

[Ashish Koul]

=IF(COUNTIFS($A:$A,$G9,$B:$B,$F9,$C:$C,H$4)=1,"Y","N")

On Fri, Sep 16, 2016 at 9:47 PM, Kal xcel <kalx...@gmail.com> wrote:

> Dear Experts,
>
> Please help me to solve the attached query.
>
> --
> *Kalyan Chattopadhyay*
>
>
> *Executive Corporate MIS*
>
> *Joy Cosmetics*
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Find a same word in the worksheets multiple times using vba code

[Ashish Koul]

paste words in sheet2 and change range as per ur requirement

Sub loop_word()
Dim cl As Range
'
For Each cl In Sheets("Sheet2").Range("a1:a2")
Call find_word(cl.Value)
Next
End Sub


Sub find_word(wrd)
'https://msdn.microsoft.com/en-us/library/office/ff839746.aspx


With Worksheets("Sheet1").UsedRange
Set c = .Find(wrd, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Color = vbYellow
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub


On Tue, Apr 12, 2016 at 1:09 AM, Priyanka Jaswal <
priyankajaswal...@gmail.com> wrote:

> In the below code , a word apple has been written , in my sheet i cant
> define words, it consists of 1000 words and i cant put any specific word,
> is there any way of to put it across like
>
> *Dim wordto find as string wordtofind=*" "
> , thanks
> On Monday, April 11, 2016, Ashish Koul <koul.ash...@gmail.com> wrote:
>
>> Sub sample()
>> 'https://msdn.microsoft.com/en-us/library/office/ff839746.aspx
>> Dim wordtofind As String
>> wordtofind = "apple"
>>
>> With Worksheets(1).UsedRange
>> Set c = .Find(wordtofind, LookIn:=xlValues)
>> If Not c Is Nothing Then
>> firstAddress = c.Address
>> Do
>> c.Interior.Color = vbYellow
>> Set c = .FindNext(c)
>> Loop While Not c Is Nothing And c.Address <> firstAddress
>> End If
>> End With
>> End Sub
>>
>>
>> On Mon, Apr 11, 2016 at 8:30 PM, Priyanka Jaswal <
>> priyankajaswal...@gmail.com> wrote:
>>
>>> I want to highlight that particular word so for  example if there is a
>>> word retail in multiple columns and rows it should be highlighted with
>>> yellow color everywhr , only that word not a cell row or column, thanks
>>>
>>>
>>> On Monday, April 11, 2016, Ashish Koul <koul.ash...@gmail.com> wrote:
>>>
>>>> after match wht u wanna do highlight cell ?
>>>>
>>>> On Sun, Apr 10, 2016 at 10:04 PM, Priya <priyankajaswal...@gmail.com>
>>>> wrote:
>>>>
>>>>> Hi
>>>>>
>>>>> I am writing a code to look for same word in the worksheets , where
>>>>> ever it is written in the worksheet, (basically need all the rows where
>>>>> that particular word is written ). The data is huge and I cant set a code
>>>>> specific to a word. The issue I am getting is that  I only get one row 
>>>>> from
>>>>> all the results, whereas there are multiple rows and columns which 
>>>>> includes
>>>>> that particular keyword. Could you help.
>>>>>
>>>>> Private Sub CommandButton1_Click()
>>>>>  Dim MyNewValue As Variant
>>>>> Dim FoundCell As Object
>>>>> Dim Counter As Long
>>>>> Dim Flag As Boolean
>>>>> Dim SearchString As Variant
>>>>> '-
>>>>> '- Initialise Components
>>>>> Flag = False
>>>>> Worksheets("Sector Results").Rows("2:" & Rows.Count).ClearContents
>>>>> Worksheets("Function Results").Rows("2:" &
>>>>> Rows.Count).ClearContents
>>>>> Worksheets("Sector Results").Visible = False
>>>>> Worksheets("Function Results").Visible = False
>>>>> '-
>>>>> '- SET SEARCH KEY
>>>>> SearchString = TextBox2.Value()
>>>>> If SearchString = "" Then End
>>>>> Counter = 0
>>>>>
>>>>> '
>>>>> '- FIND ALL MATCHING CELLS IN SECTOR KEYWORD SHEET
>>>>> On Error Resume Next
>>>>> Set ws = Worksheets("Sector Keywords").Range("B:E")
>>>>> Set FoundCell = ws.Cells.Find(what:=SearchString,
>>>>> SearchOrder:=xlByRows, SearchDirection:=xlNext)
>>>>> If Not FoundCell Is Nothing Then
>>>>> FirstAddress = FoundCell.Address
>>>>> Do
>>>>> Counter = Counter + 1
>>>>> '
>>>&

Re: $$Excel-Macros$$ Find a same word in the worksheets multiple times using vba code

[Ashish Koul]

Sub sample()
'https://msdn.microsoft.com/en-us/library/office/ff839746.aspx
Dim wordtofind As String
wordtofind = "apple"

With Worksheets(1).UsedRange
Set c = .Find(wordtofind, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Color = vbYellow
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub


On Mon, Apr 11, 2016 at 8:30 PM, Priyanka Jaswal <
priyankajaswal...@gmail.com> wrote:

> I want to highlight that particular word so for  example if there is a
> word retail in multiple columns and rows it should be highlighted with
> yellow color everywhr , only that word not a cell row or column, thanks
>
>
> On Monday, April 11, 2016, Ashish Koul <koul.ash...@gmail.com> wrote:
>
>> after match wht u wanna do highlight cell ?
>>
>> On Sun, Apr 10, 2016 at 10:04 PM, Priya <priyankajaswal...@gmail.com>
>> wrote:
>>
>>> Hi
>>>
>>> I am writing a code to look for same word in the worksheets , where ever
>>> it is written in the worksheet, (basically need all the rows where that
>>> particular word is written ). The data is huge and I cant set a code
>>> specific to a word. The issue I am getting is that  I only get one row from
>>> all the results, whereas there are multiple rows and columns which includes
>>> that particular keyword. Could you help.
>>>
>>> Private Sub CommandButton1_Click()
>>>  Dim MyNewValue As Variant
>>> Dim FoundCell As Object
>>> Dim Counter As Long
>>> Dim Flag As Boolean
>>> Dim SearchString As Variant
>>> '-
>>> '- Initialise Components
>>> Flag = False
>>> Worksheets("Sector Results").Rows("2:" & Rows.Count).ClearContents
>>> Worksheets("Function Results").Rows("2:" & Rows.Count).ClearContents
>>> Worksheets("Sector Results").Visible = False
>>> Worksheets("Function Results").Visible = False
>>> '-
>>> '- SET SEARCH KEY
>>> SearchString = TextBox2.Value()
>>> If SearchString = "" Then End
>>> Counter = 0
>>>
>>> '
>>> '- FIND ALL MATCHING CELLS IN SECTOR KEYWORD SHEET
>>> On Error Resume Next
>>> Set ws = Worksheets("Sector Keywords").Range("B:E")
>>> Set FoundCell = ws.Cells.Find(what:=SearchString,
>>> SearchOrder:=xlByRows, SearchDirection:=xlNext)
>>> If Not FoundCell Is Nothing Then
>>> FirstAddress = FoundCell.Address
>>> Do
>>> Counter = Counter + 1
>>> '
>>> '- what to do if found
>>>  FoundCell.EntireRow.Copy Destination:=Sheets("Sector
>>> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>>>
>>> '
>>> Set FoundCell = ws.Cells.Find(what:=SearchString,
>>> After:=FoundCell, SearchOrder:=xlByRows, SearchDirection:=xlNext)
>>> Loop While Not FoundCell Is Nothing _
>>> And FoundCell.Address <> FirstAddress
>>> Worksheets("Sector Results").Visible = True
>>>
>>> Flag = True
>>> End If
>>>
>>> '
>>> '- FIND ALL MATCHING CELLS IN FUNCTION KEYWORD SHEET
>>> Set ws = Worksheets("Function Keywords").Range("B:E")
>>> Set FoundCell = ws.Cells.Find(what:=SearchString)
>>> If Not FoundCell Is Nothing Then
>>> FirstAddress = FoundCell.Address
>>> Do
>>> Counter = Counter + 1
>>> '
>>> '- what to do if found
>>>  FoundCell.EntireRow.Copy Destination:=Sheets("Function
>>> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>>>
>>> '
>>> Set FoundCell = ws.Cells.FindNext(FoundCell)
>>> Loop While Not FoundCell Is Nothing _
>>> And FoundCell.Address <> FirstAddress
>>> 

Re: $$Excel-Macros$$ Find a same word in the worksheets multiple times using vba code

[Ashish Koul]

after match wht u wanna do highlight cell ?

On Sun, Apr 10, 2016 at 10:04 PM, Priya <priyankajaswal...@gmail.com> wrote:

> Hi
>
> I am writing a code to look for same word in the worksheets , where ever
> it is written in the worksheet, (basically need all the rows where that
> particular word is written ). The data is huge and I cant set a code
> specific to a word. The issue I am getting is that  I only get one row from
> all the results, whereas there are multiple rows and columns which includes
> that particular keyword. Could you help.
>
> Private Sub CommandButton1_Click()
>  Dim MyNewValue As Variant
> Dim FoundCell As Object
> Dim Counter As Long
> Dim Flag As Boolean
> Dim SearchString As Variant
> '-
> '- Initialise Components
> Flag = False
> Worksheets("Sector Results").Rows("2:" & Rows.Count).ClearContents
> Worksheets("Function Results").Rows("2:" & Rows.Count).ClearContents
> Worksheets("Sector Results").Visible = False
> Worksheets("Function Results").Visible = False
> '-
> '- SET SEARCH KEY
> SearchString = TextBox2.Value()
> If SearchString = "" Then End
> Counter = 0
>
> '
> '- FIND ALL MATCHING CELLS IN SECTOR KEYWORD SHEET
> On Error Resume Next
> Set ws = Worksheets("Sector Keywords").Range("B:E")
> Set FoundCell = ws.Cells.Find(what:=SearchString,
> SearchOrder:=xlByRows, SearchDirection:=xlNext)
> If Not FoundCell Is Nothing Then
> FirstAddress = FoundCell.Address
> Do
> Counter = Counter + 1
> '
> '- what to do if found
>  FoundCell.EntireRow.Copy Destination:=Sheets("Sector
> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>
> '
> Set FoundCell = ws.Cells.Find(what:=SearchString,
> After:=FoundCell, SearchOrder:=xlByRows, SearchDirection:=xlNext)
> Loop While Not FoundCell Is Nothing _
> And FoundCell.Address <> FirstAddress
> Worksheets("Sector Results").Visible = True
>
> Flag = True
> End If
>
> '
> '- FIND ALL MATCHING CELLS IN FUNCTION KEYWORD SHEET
> Set ws = Worksheets("Function Keywords").Range("B:E")
> Set FoundCell = ws.Cells.Find(what:=SearchString)
> If Not FoundCell Is Nothing Then
> FirstAddress = FoundCell.Address
> Do
> Counter = Counter + 1
> '
> '- what to do if found
>  FoundCell.EntireRow.Copy Destination:=Sheets("Function
> Results").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
>
> '
> Set FoundCell = ws.Cells.FindNext(FoundCell)
> Loop While Not FoundCell Is Nothing _
> And FoundCell.Address <> FirstAddress
> Worksheets("Function Results").Visible = True
> Worksheets("Function Results").Activate
> Flag = True
> End If
>
> If Flag Then
> MsgBox ("Result Found")
> Else
> MsgBox ("No Result Found")
> End If
> End Sub
>
> Private Sub TextBox2_Change()
>  Worksheets("Sector Results").Visible = False
>  Worksheets("Function Results").Visible = False
> 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

Re: $$Excel-Macros$$ query on usage of Vlookup and Hlookup together

[Ashish Koul]

see attachment

On Mon, Mar 21, 2016 at 7:54 PM, Pooja Sharma <vatspoojav...@gmail.com>
wrote:

> Hi Ashish,
>
> This is not working.It is giving 0 value.
>
> Regards,
> Pooja Sharma
> On 21 Mar 2016 19:30, "Ashish Koul" <koul.ash...@gmail.com> wrote:
>
>> =VLOOKUP($A16,$A$2:$H$10,MATCH(B$15,$A$2:$H$2,0),0)
>>
>> On Mon, Mar 21, 2016 at 7:27 PM, Pooja Sharma <vatspoojav...@gmail.com>
>> wrote:
>>
>>> Hi All,
>>>
>>> Hi All,
>>>
>>> I have a query, if there is any possibility to apply Vlookup and Hlookup
>>> together to achieve results as required in the attached sheet.
>>>
>>> Regards,
>>> Pooja Sharma
>>>
>>> --
>>> 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.
>>>
>>
>>
>>
>> --
>> *Regards*
>>
>> *Ashish Koul*
>>
>>
>> *Visit*
>> http://www.excelvbamacros.in
>> Like Us on Facebook <https://www.facebook.com/excelvbacodes>
>> Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>
>>
>>
>> P Before printing, think about the environment.
>>
>>
>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros+unsubscr...@googlegroups.com.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> Visit this group at 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) Sh

Re: $$Excel-Macros$$ query on usage of Vlookup and Hlookup together

[Ashish Koul]

=VLOOKUP($A16,$A$2:$H$10,MATCH(B$15,$A$2:$H$2,0),0)

On Mon, Mar 21, 2016 at 7:27 PM, Pooja Sharma <vatspoojav...@gmail.com>
wrote:

> Hi All,
>
> Hi All,
>
> I have a query, if there is any possibility to apply Vlookup and Hlookup
> together to achieve results as required in the attached sheet.
>
> Regards,
> Pooja Sharma
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ VBA to save each page of a mail merge document seperately

[Ashish Koul]

Sub export_as_pdf()
Dim WordDoc As New Word.Document
Dim WordApp As New Word.Application



Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True


Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\xyz.docx")

For i = 2 To Sheets("Sheet1").Range("a65356").End(xlUp).Row
j = i - 1


WordDoc.ExportAsFixedFormat OutputFileName:= _
 ThisWorkbook.Path & "\abcde\" & Sheets("Sheet1").Range("a" &
i).Value & "xyz.pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint,
Range:= _
wdExportFromTo, From:=j, To:=j, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True,
BitmapMissingFonts:= _
True, UseISO19005_1:=False


Next

WordDoc.Close , False
WordApp.Quit

End Sub

On Wed, Mar 16, 2016 at 6:57 PM, gargee singh <garge...@hotmail.com> wrote:

> Hello everyone,
>
> Sorry forgot to share the file .
>
>
> Thanks and Regards,
> Gargee Singh
>
> --
> From: garge...@hotmail.com
> To: excel-macros@googlegroups.com
> Subject: $$Excel-Macros$$ VBA to save each page of a mail merge document
> seperately
> Date: Wed, 16 Mar 2016 18:50:06 +0530
>
>
> hello Group,
>
> Need help with saving each page ( as a PDF or a word  file)  of a mail
> merge document. I tried to find a few codes on the net but havent been able
> to work my way around any of those ?:(
>
>
> Thanks and Regards,
> Gargee Singh
>
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

Re: $$Excel-Macros$$ Assigning names to sheet

[Ashish Koul]

Sub loop_shts()
Dim cl As Range

For Each cl In Sheets("Sheet1").Range("a1:a571")
ThisWorkbook.Sheets.Add
after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = cl.Value


Next



End Sub


On Sat, Dec 26, 2015 at 10:19 PM, Izhar <izharra...@gmail.com> wrote:

> in this workbook I've different company names (look at column A). I need a
> macro when I run it the company names to be assigned to the sheets.
>
> Thanks in advance
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Excel sheet which shows folder name, the folder path of subfolder, the file name and file numbers

[Ashish Koul]

try this
http://www.excelvbamacros.in/2012/05/file-and-folder-series-get-names-of-all_26.html

see if it helps

On Wed, Dec 23, 2015 at 1:51 PM, Katherine Loo <katherine...@gmail.com>
wrote:

> Dear all,
>
> I would like to create an excel sheet which shows folder name, the folder
> path of subfolder, the file name in the subfolder and the updated revision
> numbers.
>
> I've written some codes and it can only shows the folder name and one of
> the folder name isn't appeared in the excel list. It would be highly
> appreciated if you could help.
>
> Thanks.
>
>
>
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ PERSONAL MACRO WORKBOOK

[ashish koul]

check this out
http://www.rondebruin.nl/win/personal.htm

On Fri, Nov 27, 2015 at 1:33 PM, Izhar <izharra...@gmail.com> wrote:

>
> I've downloaded macro codes for this file and these codes are only run on
> this file if I want to run these codes on all the files i.e. PERSONAL MACRO
> WORKBOOK, then how can i do this.  Can anyone help me please.
>
> Thanks in advance
> NOTE:
> you may also run this code by choosing E1 and pressing CTRL+SHIFT+F
> --
> *Izhar Ul Haq*
>
>
>
> Cell# 009203069072597
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ excel-VBA-GEarth integrated but not able to display name for placemark through VBA,Plz HELP

[ashish koul]

Share the sample file
On Nov 27, 2015 1:41 PM, "shilpag"  wrote:

> Hi
> I have developed a small desktop application with excel data which
> will be displayed on to Google Earth by VBA code.
>  The google earth is displaying coordinates  (values are looped by macro )
> but i am not able to show respective names for those coordinates ,
>  as getting Byref argument tyoe mismatch error.
>  Please help me to sort it out , since i have to give demo on the same in
> coming exams.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Combine Name then Time and date stamp for reference number

[ashish koul]

i tried this =B1(B3,"hhmmss") and is working fine. Could you please
check it at your end

On Fri, Nov 13, 2015 at 9:47 AM, Alex K <vipinsuranc...@gmail.com> wrote:

> Hello,
>
>Please see attached file I am trying to combine first name + last name
> + timestamp to create a case number.  My issue is that when I merge all
> three together I get a strange time stamp I want HH:MM:SS can anyone help
> me ?
>
>
> I tried something like this still didn't work
>
> =B2&” “(B3,”hh:mm:ss”)
>
>
> Actual Results:TestThis42320.9670534722
>
>
> Expected Result: TestThis231222
>
>
>
> thanks,
>
> Alex
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Macro to populate a column with data from another column

[ashish koul]

see if it helps

On Wed, Nov 11, 2015 at 3:52 AM, Andre Polivarov <poliva...@gmail.com>
wrote:

> Hello,
>
> I need to come up with a Macro to populate 50 rows in column (E)
> Parent Category ID .
>
> I have a table with the following columns: (A) Group ID, (B) Client ID,
> (C) Category ID, (D) Category Name, (E) Parent Category ID
>
> I need to populate "Parent Category ID" column for the rows where
> "Category Name" = "sub category X for parent category Y" with a "Category
> Name" = "parent category Y"
>
> Please see an attachment to understand the logic
>
> I would appreciate any help!
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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


formula.xlsx
Description: MS-Excel 2007 spreadsheet

Re: $$Excel-Macros$$ I need the formula to look up

[ashish koul]

check this see if it helps

On Sun, Nov 1, 2015 at 6:26 PM, Will Sob <will00...@gmail.com> wrote:

> I need the formula to look up when for example ball 33 was last drawn and
> then look at the date this draw occured and then calculate the difference
> between that date and todays date
> I dont know if this is possible
>
>
>
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
>
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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


sample home run.xlsx
Description: MS-Excel 2007 spreadsheet

Re: $$Excel-Macros$$ How to do a summary of a large table

[ashish koul]

you can try pivot table or power pivot

On Sat, Oct 10, 2015 at 6:03 PM, Greg Della-Croce <greg_della-cr...@sil.org>
wrote:

> Since I do no see a way to do this with just functions, I think I am going
> to have to write some code to do this myself, but I would appreciate a word
> from the experts (aka you people)
>
> I have a table with just shy of 50,000 rows that looks something like this:
>
> Key1 Key2  MinDateMaxDateTotalItems
> A1  10/1/2010  4/2/2011 12
> B4   03/1/2009  09/10/2014 52
> C24 01/2/2015   4/17/2015  08
> B4  02/15/2008  06/03/201210
>
> I need to summarize this down to:
> Key1 Key2  MinDateMaxDateTotalItems
> A1  10/1/2010  4/2/2011 12
> B4  02/15/208  09/10/2014  62
> C24 01/2/2015   4/17/2015  08
>
>
> I just can't see how to do this without reading all 50,000 rows 50,000
> times since VLookup will not return multiple records using a compound key.
>   Add to that I don't remember the process for reading each record in a
> table and stopping at the end of the table.  (Can you say it has been a
> looong time since I wrote VBA code like this?)
>
> Is there a kind soul out there that can push me in the correct direction
> with some suggestions?
>
> Thanks to everyone who takes the time to reply ahead of time!  I do
> appreciate it.
>
> GregDC
>
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Filter rows with com

[ashish koul]

Option Compare Text

Sub filteroncomments()

Dim commenttext As String
Dim commentrng As Range
Dim cl As Range

With ActiveSheet
.FilterMode = False
.UsedRange.EntireRow.Hidden = False
On Error Resume Next
Set commentrng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If commentrng Is Nothing Then
MsgBox "No comments on worksheet"
Exit Sub
End If



.UsedRange.EntireRow.Hidden = True

commenttext = InputBox("Enter comment to search")

For Each cl In commentrng
If cl.EntireRow.Hidden = True Then
If InStr(cl.Comment.Text, commenttext) > 0 Then
cl.EntireRow.Hidden = False
End If

Next

End With


End Sub


On Sat, Sep 26, 2015 at 7:03 PM, BK <balajikanna...@gmail.com> wrote:

> Dear Experts,
> Kindly tell how to filter rows in excel sheet with comment in a particular
> column
>
> --
> 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.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook <https://www.facebook.com/excelvbacodes>
Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Need help on keeping copy-paste simpler

[ashish koul]

Can u pls share a sample file
On Sep 12, 2015 9:38 PM, "Isabel Cristina Ortiz"  wrote:

> Thank you Basole for your message!
> I have been already using your recommendation on my code, but it still
> takes a lot of memory.
>
> Regards,
> Isabel
>
>
>
> On Saturday, September 12, 2015 at 9:20:05 AM UTC-5, Basole wrote:
>>
>> Hi isabel, try using "Application.ScreenUpdating = False" To Turn Off at
>> the start of code. and "Application.Calculation = xlCalculationManual" To
>> turn off the automatic calculation
>> at the beginning of the code
>> see example:
>>
>> Dim u As Integer, v As Integer
>> u = Range("Months").Value - 1
>> Application.ScreenUpdating = False 'To Turn Off at the start of code.
>> Application.Calculation = xlCalculationManual  'To turn off the automatic 
>> calculationIf u > 1 Then
>> For v = 1 To u - 1
>> Application.Goto Range("ColumnLong"), True
>> Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
>> Application.Goto Range("ColumnFormulas"), True
>> Selection.Copy
>> Selection.Offset(0, -2).Select
>> Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, 
>> SkipBlanks:= _
>> False, Transpose:=False
>> Application.CutCopyMode = False
>> Next v
>>
>> ElseEnd If
>> Application.ScreenUpdating = True 'To Turn on at the end of the code.
>> Application.Calculation = xlCalculationAutomatic 'To turn On the automatic 
>> calculation
>>
>>
>> Regards.
>>
>>
>>
>> 2015-09-11 13:31 GMT-03:00 Isabel Cristina Ortiz :
>>
>>> Hello,
>>> I have been working on a workbook. It is a cash flow and macro helps me
>>> to change the numbers of years (columns) because each project needs
>>> different time periods.
>>> What I do is that I have two columns named as "ColumnLong" and
>>> "ColumnFormulas". The first one is empty and only serves as a reference
>>> point to add more cells to the left to it, according to the number of
>>> months of the cash flow.
>>> Then, I always check the number of months on a specific cell named
>>> "Months" and I have a loop, it insert a column left to "ColumnLong", then
>>> goes to "ColumnFormulas" and it paste it into the new column which is two
>>> columns left to "ColumnFormulas".
>>>
>>> What I need is a simpler code because I have several loops similar to
>>> this one and I am having memory problems.
>>> I have been working on some recommendations I found on
>>> http://www.excelitems.com/2010/12/optimize-vba-code-for-faster-macros.html
>>> but wasn't able to apply to this code.
>>>
>>> I hope you can help me.
>>> Best regards,
>>> Isabel
>>>
>>>
>>> This is the code I am using:
>>>
>>> Dim u As Integer, v As Integer
>>> u = Range("Months").Value - 1
>>>
>>> If u > 1 Then
>>> For v = 1 To u - 1
>>> Application.Goto Range("ColumnLong"), True
>>> Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
>>> Application.Goto Range("ColumnFormulas"), True
>>> Selection.Copy
>>> Selection.Offset(0,   - 2).Select
>>> Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
>>> SkipBlanks:= _
>>> False, Transpose:=False
>>> Application.CutCopyMode = False
>>> Next v
>>>
>>> Else
>>> End If
>>>
>>>
>>>
>>>
>>>
>>> --
>>> 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.
>>>
>>
>> --
> 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.
> 

Re: $$Excel-Macros$$ Macro to strip LinkedIn Company Page Followers.

[ashish koul]

could you please share the sample file and output u like to see

On Wed, Aug 26, 2015 at 3:46 PM, MMartin rcbr4nch...@gmail.com wrote:

 Hi,

 I am trying to use this macro to strip and sort my company page
 followers.  I am not technical but found this and have tried to get it to
 work for me.

 It appears to start working then it just stops and I have lost lots of my
 data  I have four files that I need to run micro in then merge the
 results.  All it appears to do is add in a new column A with a number for
 each record.

 Sub Macro1()

 Range(A1).Select

 lastRow = LastRowIndex(ActiveSheet, 1)

 Do While ActiveCell.Row  lastRow

 ActiveCell.Select
 Selection.RowHeight = 49.5

 Selection.Offset(1, 0).Select
 Selection.Delete Shift:=xlUp
 Selection.Delete Shift:=xlUp

 Selection.Offset(3, 0).Select
 Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 Selection.Offset(1, 0).Select

 lastRow = LastRowIndex(ActiveSheet, 1)

 Loop

 ' AutoFit Column Width
 Cells.Select
 With Selection
 .VerticalAlignment = xlBottom
 .WrapText = False
 .Orientation = 0
 .AddIndent = False
 .IndentLevel = -1
 .ShrinkToFit = False
 .ReadingOrder = xlContext
 .MergeCells = False
 End With
 Selection.Columns.AutoFit

 ' Insert a column
 Columns(A:A).Select
 Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

 ' Insert record numbers
 Range(A1).Select
 i = 1
 Selection.Value = i
 Do While ActiveCell.Row  lastRow
 i = i + 1
 Selection.Offset(5, 0).Select
 Selection.Value = i
 Loop

 'clear last row
 Selection.ClearContents

 End Sub


 Function LastRowIndex(ByVal w As Worksheet, ByVal col As Variant) As Long
 Dim r As Range

 Set r = Application.Intersect(w.UsedRange, w.Columns(col))
 If Not r Is Nothing Then
 Set r = r.Cells(r.Cells.Count)

 If IsEmpty(r.Value) Then
 LastRowIndex = r.End(xlUp).Row
 Else
 LastRowIndex = r.Row
 End If
 End If
 End Function

 hope someone can help me.

 Thanks


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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Excel Dashboard

[ashish koul]

http://chandoo.org/wp/excel-dashboards/
http://optionexplicitvba.com/category/dashboards/

On Wed, Aug 19, 2015 at 11:55 AM, Deepa deepa.bha...@gmail.com wrote:

 Hi Everyone,
 Can someone please give me some site which gives really fancy dashboard
 illustration. We are tryng to build a couple of dahsboard but the
 coolness quotient is a lil low. Any help would be much appreciated.

 TIA

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ To seek help on fuzzy text matching of list of 30000 text values from a list of 300000 text values

[ashish koul]

download fuzzy match addin
http://www.microsoft.com/en-in/download/details.aspx?id=15011

On Fri, Aug 14, 2015 at 10:38 PM, sandeepkumarbaran...@gmail.com wrote:

 Hi

 Could anyone help me in performing fuzzy text matching of a list of 3
 text values from a list of 30 text values?
 If you have a spreadsheet template from the same, could you please send it
 across to me?

 Thanks and regards

 Sandeep Kumar Baranwal


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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Code Loops indefiniely due to cell value

[ashish koul]

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Target.Cells.Count = 1 Then

If Target.Address = $K$2 Then
'  ADD UR CODE HERE


End If



End If
Application.EnableEvents = True

End Sub

On Mon, Jul 27, 2015 at 5:54 PM, garge...@hotmail.com wrote:

  Hello,

 i just realized that it also runs the code when i change some other cell
 on the sheet e.g i use some other validation on the sheet or calculate
 something elsewhere , why would that happen.

 i want it to run the code only when cell k2 is changed to a yes or no.

 thanks again.

  Sent by Outlook http://taps.io/outlookmobile for Android



 On Mon, Jul 27, 2015 at 5:13 AM -0700, garge...@hotmail.com wrote:

  its perfect!  thanks a lot...  :)

 Sent by Outlook http://taps.io/outlookmobile for Android



 On Mon, Jul 27, 2015 at 5:02 AM -0700, ashish koul 
 koul.ash...@gmail.com wrote:

   use application.enableevents = false at the beginning

  and application.enableevents  = true at end

 On Mon, Jul 27, 2015 at 5:29 PM, gargee singh garge...@hotmail.com
 wrote:


  Dear Experts



 I wrote a code to multiply or divide a range of numbers by 1000 if
 depending on whether a user selects a yes or no from a drop down in cell k2
 in the active sheet.  The problem is that once I select “yes” or “no” the
 code loops indefinitely because it finds a yes or no in the cell k2.



 What I want is to run the code only once when a user  selects “yes” and
 once when the user selects “no”, how can I code to terminate the process
 after the first run. Also I realized that the code runs if I change any
 cell on the sheet and not just K2 , how can this be fixed ?



 Codes below :-

 Private Sub Worksheet_Change(ByVal Target As Range)

 If (Range(k2) = Yes) Then

 Call inthousand

 End If

 End Sub

 Sub inthousand()

 Range(G17:W23).Select

 Dim cell As Range

 For Each cell In Selection

 cell = cell * 1000

 Next

 Selection.NumberFormat = #,##0.00 ;[Red](#,##0.00)

 End Sub

 Sub notinthousand()

 Range(G17:W23).Select

 Dim cell As Range

 For Each cell In Selection

 cell = cell / 1000

 Next

 Selection.NumberFormat = #,##0.00 ;[Red](#,##0.00)

 End Sub

 please  help.


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




 --
  *Regards*

 *Ashish Koul*


  *Visit*
 http://www.excelvbamacros.in
  Like Us on Facebook https://www.facebook.com/excelvbacodes
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


  P Before printing, think about the environment.



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

 FORUM RULES

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

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

Re: $$Excel-Macros$$ Code Loops indefiniely due to cell value

[ashish koul]

use application.enableevents = false at the beginning

and application.enableevents  = true at end

On Mon, Jul 27, 2015 at 5:29 PM, gargee singh garge...@hotmail.com wrote:


 Dear Experts



 I wrote a code to multiply or divide a range of numbers by 1000 if
 depending on whether a user selects a yes or no from a drop down in cell k2
 in the active sheet.  The problem is that once I select “yes” or “no” the
 code loops indefinitely because it finds a yes or no in the cell k2.



 What I want is to run the code only once when a user  selects “yes” and
 once when the user selects “no”, how can I code to terminate the process
 after the first run. Also I realized that the code runs if I change any
 cell on the sheet and not just K2 , how can this be fixed ?



 Codes below :-

 Private Sub Worksheet_Change(ByVal Target As Range)

 If (Range(k2) = Yes) Then

 Call inthousand

 End If

 End Sub

 Sub inthousand()

 Range(G17:W23).Select

 Dim cell As Range

 For Each cell In Selection

 cell = cell * 1000

 Next

 Selection.NumberFormat = #,##0.00 ;[Red](#,##0.00)

 End Sub

 Sub notinthousand()

 Range(G17:W23).Select

 Dim cell As Range

 For Each cell In Selection

 cell = cell / 1000

 Next

 Selection.NumberFormat = #,##0.00 ;[Red](#,##0.00)

 End Sub

 please  help.


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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ is it possible to reduce this sorting code

[ashish koul]

Sub MULTI_LEVEL_SORT()
'1ST level SORT ON NAME COL A
'2ND level SORT ON START DATE COL B
'3RD levle SORT ON END DATE COL C
Sheets(Sample).Range(a1:d 
Sheets(Sample).Range(a1).End(xlDown).Row).Sort _
key1:=Sheets(Sample).Range(A:A), order1:=xlAscending, _
key2:=Sheets(Sample).Range(B:B), order2:=xlAscending, _
key3:=Sheets(Sample).Range(C:C), order3:=xlAscending, _
Header:=xlYes
End Sub

On Thu, Jul 9, 2015 at 3:55 PM, Rohit Jadhav rohitj...@gmail.com wrote:

 Hi
 I want to sort a range say a1 to j15 containing various details of one's
 mutual fund portfolio like company name, fund name, fund type, no of units
 held, NAV , dividend received etc.
 I have created sorting code from excel but is it possible to reduce this
 code. I am using a separate function for sorting as shown below  passing
 it 2 parameters viz. name of the sheet containing data  how to sort the
 data i.e. by value or by fund name.
 Also if anyone can explain the 2nd part of the sorting code  is it
 necessary to do this part, I would be very thankful.

 -

 Sub sorting_Needs()
 Dim i As String, j As Integer
 abb: i = InputBox(Do you want to  Chr(10) _
  1. sort data by value  Chr(10) _
  2. Sort data by name, Choice, 1)

 Select Case i
 Case Is = 1
  j = sort_data(Sheet1, Range(I:I))
 Case Is = 2
  j = sort_data(Sheet1, Range(b:b))
 Case Else
 i = MsgBox(Please select a valid choice, vbRetryCancel, Error
 Massage)
 If i = 4 Then
 GoTo abb
 End If
 End Select

 End Sub
 Public Function sort_data(sh As String, col As Range)

 'activate the data sheet
 Sheets(sh).Activate
 'select the entire data table in the sheet
 Range(A1).Select
 Selection.CurrentRegion.Select

 'code generated by excel for sorting a range


 ActiveWorkbook.Worksheets(sh).Sort.SortFields.Clear
 ActiveWorkbook.Worksheets(sh).Sort.SortFields.Add Key:=col _
 , SortOn:=xlSortOnValues, Order:=xlAscending,
 DataOption:=xlSortNormal

 '2nd part
 With ActiveWorkbook.Worksheets(sh).Sort
 .SetRange Range(A1:j12)
 .Header = xlYes
 .MatchCase = False
 .Orientation = xlTopToBottom
 .SortMethod = xlPinYin
 .Apply
 End With
 End Function



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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS 
EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel

Re: $$Excel-Macros$$ Query (Outlook VBA)

[ashish koul]

http://www.excelvbamacros.in/2014/02/loop-through-all-outlook-emails-saved.html

On Wed, Jun 3, 2015 at 4:20 PM, Soumyendu Paul soumyendu...@gmail.com
wrote:

 Hi,

 I have an outlook message stored in hard drive folder. Want to read this
 file for extracting data into excel. Please help!!

 Regrds,
 Soumyendu

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Macro to print first spreadsheet as PDF

[ashish koul]

download and install this addin
https://www.microsoft.com/en-in/download/details.aspx?id=9943



On Wed, Jun 3, 2015 at 2:21 PM, mayur zinknax.zin...@gmail.com wrote:

 Hi Experts,

 I want to print/save as two sheet as PDF file.
 For first sheet - Selection required from Cell C4 to last column and cell
 used. Also there are multiple comments(user entry) columns in first
 sheet. I want that comments  to be wrap text and visible while printing PDF
 file* (Excel comments will remain shrink to fit).*

 For Second sheet range is fixed.

 Print to PDF works in office 2010 version, I have tried same examples in
 Excel 2007, but it says invalid argument called error. Is it possible to
 print PDF using Excel2007 or earlier versions.


 Please advise.

 Thanks,
 Mayur

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ How To: Email macros to another user?

[ashish koul]

you can simply email the personal workbook as attachment to her

else press alt+ f11 and copy and paste the codes to new workbook and send
it to her

Location of personal workbook :
http://wheatblog.com/2011/08/where-is-the-excel-personal-macro-workbook-located/


On Wed, May 27, 2015 at 7:16 PM, Jessica jesswi...@gmail.com wrote:

 I created a macros housed in my personal workbook. How can I email this to
 another co-worker so she can use it while I'm on vacation to run reports?

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Outlook Signature Problem using VBA

[ashish koul]

try example 1

http://www.rondebruin.nl/win/s1/outlook/signature.htm

On Thu, May 28, 2015 at 9:20 AM, Soumyendu Paul soumyendu...@gmail.com
wrote:

 Dear All,

 Please find the attachment where I have embedded my outlook signature.
 Initially it is loaded with full images but at the time of sending; images
 go missing from signature.

 Please suggest any solution.

 Best regards,
 Soumyendu

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Count if in an active status

[ashish koul]

type this in g1
=SUM(IF(F1=DATE(YEAR($B$1:$B$14),MONTH($B$1:$B$14),1),IF(F1=DATE(YEAR($C$1:$C$14),MONTH($C$1:$C$14),1),1,0)))


and press ctrl +shift =enter


see if it helps


On Fri, May 15, 2015 at 12:10 AM, Heather Battle hbattle2...@gmail.com
wrote:

 that's correct

 On Thursday, May 14, 2015 at 1:13:52 PM UTC-4, ashish wrote:

 just wanted to check even if the some one is active just for a day in a
 month  like start date is 1 jan 2014 and end date is 2 jan 2014  will that
 be counted as active in jan month


 On Thu, May 14, 2015 at 10:37 PM, Heather Battle hbatt...@gmail.com
 wrote:

 I have a spreadsheet where i have participants that enrollment start and
 end dates. i would like to know if there is a formula to determine if they
 were in active status for a particular month and since there is a group of
 them, to count a number people who were also active given the start and end
 dates with the same formula?

 Example: Billy enrolled on 9/13/13 and ended 12/16/14. The question
 would be Was he active for the month July 2014? answer would be yes and
 he would be counted in the month August, September, October, November and
 December.

 Is there anyway to this?

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

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on Facebook https://www.facebook.com/excelvbacodes
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You

Re: $$Excel-Macros$$ Count if in an active status

[ashish koul]

just wanted to check even if the some one is active just for a day in a
month  like start date is 1 jan 2014 and end date is 2 jan 2014  will that
be counted as active in jan month


On Thu, May 14, 2015 at 10:37 PM, Heather Battle hbattle2...@gmail.com
wrote:

 I have a spreadsheet where i have participants that enrollment start and
 end dates. i would like to know if there is a formula to determine if they
 were in active status for a particular month and since there is a group of
 them, to count a number people who were also active given the start and end
 dates with the same formula?

 Example: Billy enrolled on 9/13/13 and ended 12/16/14. The question would
 be Was he active for the month July 2014? answer would be yes and he
 would be counted in the month August, September, October, November and
 December.

 Is there anyway to this?

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Assistance with Dynamic Dashboard reporting

[ashish koul]

check http://chandoo.org/wp/excel-dashboards/

On Mon, Apr 13, 2015 at 1:38 PM, Janaki Dalvi janaki.dal...@gmail.com
wrote:

 Hello All,

 Recently i have been working on a project which involves a lot of
 reporting and hence would like more insights into dynamic dashboard
 reporting. I've been through some of the earlier posts, but what i need is
 a website that would help me to get started from scratch as am not
 typically from a IT background

 Looking forward for your suggestion

 Regards,
 Janaki

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Converting excel files to .txt format with delimiter comma

[ashish koul]

Option Explicit
Sub export_range_delimit()

Dim arr As Variant
Dim fs As Object
Dim delimittxt
Dim i As Long
Dim j As Long
Dim line As String
Dim rng As Range
Dim delimittype As String
delimittype = ,

Set fs = CreateObject(Scripting.FileSystemObject)
Set delimittxt = fs.CreateTextFile(C:\Users\xx\Desktop\ 
delimit.txt, True)
Set rng = Sheet1.Range(a1:b17)
arr = rng
For j = LBound(arr) To UBound(arr)
line = 
For i = 1 To rng.Columns.Count
line = line  delimittype  arr(j, i)
Next
delimittxt.WriteLine Right(line, Len(line) - 1)
Next
delimittxt.Close
Set delimittxt = Nothing
Set fs = Nothing

End Sub


see if it helps


On Mon, Feb 23, 2015 at 9:47 PM, ashish koul koul.ash...@gmail.com wrote:

 Do you wanna export range in comma delimit text file?.

 On Mon, Feb 23, 2015 at 9:38 PM, Muneera Shabana 
 muneera.shab...@gmail.com wrote:

 Hello there,

 I have written a macro to convert xls files to text file, however I have
 2 problems here:
 1. My code doesnot show xlsx format to pick up from the source folder
 2. I am not sure when to add the code to have delimiter comma in my
 text file.

 I am not an expert, so seeking support from you guys, please help!!




 Sub XLS_to_TXT()

 Dim wb As Workbook
 Dim SourcePath As String
 Dim strFile As String, strDir As String
 Dim newpath As String
 Dim k
 Dim q
 Dim j

   Set j = Application.FileDialog(msoFileDialogFolderPicker)

   j.Show

  SourcePath = j.SelectedItems(1)

  SourcePath = SourcePath  \

 '// SourcePath = H:\Macros\

 strFile = Dir(SourcePath  *.xlsx)

 Do While strFile  

 Set wb = Workbooks.Open(Filename:=SourcePath  strFile, Local:=True)

 newpath = H:\Macros\csv\

  k = Replace(wb.FullName, .xlsx, .txt)

  q = Replace(k, SourcePath, newpath)

  wb.SaveAs q

  wb.Close True

 Set wb = Nothing

 strFile = Dir

 Loop

 MsgBox The files are successfully converted into text format  placed in
 target folder

 Application.Wait (Now + TimeValue(00:00:02))

 ActiveWorkbook.FollowHyperlink newpath

 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.




 --
 *Regards*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on Facebook https://www.facebook.com/excelvbacodes
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.






-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Converting excel files to .txt format with delimiter comma

[ashish koul]

Do you wanna export range in comma delimit text file?.

On Mon, Feb 23, 2015 at 9:38 PM, Muneera Shabana muneera.shab...@gmail.com
wrote:

 Hello there,

 I have written a macro to convert xls files to text file, however I have 2
 problems here:
 1. My code doesnot show xlsx format to pick up from the source folder
 2. I am not sure when to add the code to have delimiter comma in my text
 file.

 I am not an expert, so seeking support from you guys, please help!!




 Sub XLS_to_TXT()

 Dim wb As Workbook
 Dim SourcePath As String
 Dim strFile As String, strDir As String
 Dim newpath As String
 Dim k
 Dim q
 Dim j

   Set j = Application.FileDialog(msoFileDialogFolderPicker)

   j.Show

  SourcePath = j.SelectedItems(1)

  SourcePath = SourcePath  \

 '// SourcePath = H:\Macros\

 strFile = Dir(SourcePath  *.xlsx)

 Do While strFile  

 Set wb = Workbooks.Open(Filename:=SourcePath  strFile, Local:=True)

 newpath = H:\Macros\csv\

  k = Replace(wb.FullName, .xlsx, .txt)

  q = Replace(k, SourcePath, newpath)

  wb.SaveAs q

  wb.Close True

 Set wb = Nothing

 strFile = Dir

 Loop

 MsgBox The files are successfully converted into text format  placed in
 target folder

 Application.Wait (Now + TimeValue(00:00:02))

 ActiveWorkbook.FollowHyperlink newpath

 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.




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Re: Run time error...

[ashish koul]

if its a simple data validation then you can do it directly  like
range(a1).value  =xyz

On Fri, Feb 13, 2015 at 3:32 PM, Christos Alekopoulos 
christosalekopou...@gmail.com wrote:

 Sorry I was not specific and sorry again I wish I could share the file...
 It is just a dropdown list on a cell.

  I have the VBA that replaces the values of cells but the thing is that
 there are a couple of cells that are populated via those lists and the
 values won't change. Unfortunately, I am not allowed to change the spread
 sheet at all.

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ How to set a default in Page setup Sheet

[ashish koul]

Hi

In page setup - go to sheet - and choose none... See if it helps


[image: Inline image 1]




On Sat, Jan 10, 2015 at 11:02 PM, Siegfried Schulte schulte...@gmail.com
wrote:



 When printing a sheet that has comments one can choose how to handle the
 comments

1. [None]
2. At end of sheet
3. As displayed n sheet.


 On my computer the default is set to 2; I would like to set it to choice 1
 {None].
 Anybody knows the answer?

 Siegfried

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Need Help

[ashish koul]

try this

=TEXT(DATE(2014,3+COUNTIF($A$1:A2,A2),1),)

On Wed, Dec 24, 2014 at 3:46 PM, Raj Kumar rajlu...@gmail.com wrote:

 hi,

 WIid is Whole seller unique id and i have to reflect total months from
 april to march individully based on WID

 so kidnly help me

 On 24 December 2014 at 15:38, Vaibhav Joshi v...@vabs.in wrote:

 hi

 what is WID..

 if you want to file Apr-Mar below then select range B2:B13, after that
 using mouse take your cursor to bottom end of right side till it becomes
 dark black plus sign  then double click on it,.



 +
 *I did not do this for you. God is here working through me for you.*

 On Wed, Dec 24, 2014 at 3:32 PM, Raj Kumar rajlu...@gmail.com wrote:

 Hi Expert,

 we need your help we have attached excel file.
 actuall i have data based on Wid and i have to update in attached as
 mentioned below based on formula

 WID Months
 1  April
 1  May
 1  June
 1  July
 1  August
 1  September
 1  October
 1  November
 1  December
 1  January
 1  February
 1  March
 2  April

 etc

 so kindly help me based on formula

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

 FORUM RULES

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

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


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

 FORUM RULES

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

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


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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes

Re: $$Excel-Macros$$ VBA

[ashish koul]

Try Excel Power Programming by John Walkenbach

and for online tutorials visit
http://www.andypope.info/links.htm#forums



On Sat, Aug 16, 2014 at 9:24 AM, Ruchi Sharma simpliru...@gmail.com wrote:

 Hi,

 I do not have much knowledge of VBA but wanted to learn it. Can you refer
 some book? So that I can start with the self study.


 Thanks,
 Ruchi




 Sent from my iPhone

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ How to remove vb code after you make a copy

[ashish koul]

try this link

http://www.ozgrid.com/VBA/delete-sheet-code.htm


On Fri, Jun 27, 2014 at 3:03 AM, Rob Flott robfl...@gmail.com wrote:

 My application allows the user to make a copy of a worksheet so it can be
 viewed outside of the application.  The problem I have with this is the
 code written to that specific worksheet.

 Is there code I can include in the 'make copy' macro that would remove all
 VB code associated to that sheet?

 I appreciate any direction you can provide.

 Thank you

 Here is my current 'make copy' macro:

 Sub MakeCopy()
 Sheets(Report).Select
 Sheets(Report).Copy
 ActiveSheet.Unprotect
 Application.ScreenUpdating = False

 ActiveSheet.Shapes.Range(Array(Button 1, Button 2, Button 3, _
 TextBox 12, Group 6, Group 9)).Select
 Selection.Delete

 Rows(4:5).Select
 Selection.Delete Shift:=xlUp

 Range(A2:A3).Select
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme,
 Operation:=xlNone _
 , SkipBlanks:=False, Transpose:=False
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
 SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False

 Range(A1).Select

 Application.ScreenUpdating = True
 End Sub
 ...
 And here is the code associated with the 'report' sheet:

 Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 'sorts the datarange based on selected column heading
 Application.ScreenUpdating = False
 If ActiveCell.Address = $F$7 Then Sheets(List).Range(A20).Value =
 F:F
 If ActiveCell.Address = $G$7 Then Sheets(List).Range(A20).Value =
 G:G
 If ActiveCell.Address = $H$7 Then Sheets(List).Range(A20).Value =
 H:H
 If ActiveCell.Address = $I$7 Then Sheets(List).Range(A20).Value =
 I:I
 If ActiveCell.Address = $J$7 Then Sheets(List).Range(A20).Value =
 J:J
 If ActiveCell.Address = $K$7 Then Sheets(List).Range(A20).Value =
 K:K

 Call BR_RnkH2L

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Help with 5 line charts from one pivot table

[ashish koul]

can u share sample file


On Tue, Jun 24, 2014 at 11:42 AM, Prayank Vidyarthi 
prayank.vidyar...@gmail.com wrote:

 Hi,

 If I have a pivot table (as shown below) in which destinations sold has
 been sorted as Top 5 and Month has been sorted as Top 3. I wanted to create
 5 different line charts showing each destination separately. For e.g. One
 line chart showing Malaysia, 2nd line chart showing Switzerland, 3rd line
 chart showing Karnataka and so on. Is this possible? The reason why I want
 to manage these 5 line charts using one pivot table is that I have to show
 these graphs for only Top 5 destinations sold and as the next month's data
 will be added, I do not have to select these destinations manually from
 each pivot table.


Region West   Actions (All)   Show/Don't Show Show   Sold Show/Don't
 Show Show Sum of Sold  Destinations Sold Month Total  Malaysia
 February-14 62January-14 58November-13 26  London July-13 53
 February-14 53August-13 10  Switzerland March-14 67August-13 24
 Karnataka February-14 75  Singapore July-13 26February-14 24
 March-14 20
 Why I want to display it in 5 different line charts is that it looks very
 wired.

 Please help.

 If you have a better representation of this data please do suggest.

 Regards
 Prayank

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Macro Help

[ashish koul]

 please paste this code in worksheet module


On Fri, Jun 6, 2014 at 7:36 PM, Eugene Bernard eugene.bern...@gmail.com
wrote:

 Dear Ashish,

 Thanks for the code !!

 I just copied and tested, it is not giving expected result.
 What i am doing wrong. Please guide.

 Regards
 Eugene


 On Fri, Jun 6, 2014 at 10:13 AM, ashish koul koul.ash...@gmail.com
 wrote:

 Try this
 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim arr, i As Long
 arr = Range(a2:d  Range(a65356).End(xlUp).Row - 1)
 'On Error GoTo err:
 Application.EnableEvents = False
 If Target.Count  1 Then Application.Undo
 If Target.Column = 2 Then

 For i = LBound(arr) To UBound(arr)
 If UCase(arr(i, 1)) = UCase(Range(a  Target.Row).Value)
 And UCase(arr(i, 2)) = UCase(Range(b  Target.Row).Value) Then

 Range(c  Target.Row).Value = arr(i, 3)
 Range(d  Target.Row).Value = arr(i, 4)

 Exit For
 End If
 Next

 End If


 Application.EnableEvents = True
 Exit Sub
 'err:
 Application.EnableEvents = True
 MsgBox err.Description
 End Sub


 On Thu, Jun 5, 2014 at 11:01 PM, Eugene Bernard eugene.bern...@gmail.com
  wrote:

 Hi all,

 Please find attahced sheet.

 I have a requirement like this.

 In this scenario, I have parts with unique ID which passes thro' 3
 stages like S1,S2,S3.

 whenever user updates a new row, based on ID and Stage as well as qty,
 the status should get updated automatically.

 in this example, after adding a new row in row 5, the status column of
 ID A001 should get update automatically to 12 ie A002 is now at
 stage 2.

 Can anybody help me on this please.

 Regards
 Eugene


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

 FORUM RULES

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

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




 --
 *Regards*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on Facebook https://www.facebook.com/excelvbacodes
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

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

Re: $$Excel-Macros$$ Macro Help

[ashish koul]

Try this
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, i As Long
arr = Range(a2:d  Range(a65356).End(xlUp).Row - 1)
'On Error GoTo err:
Application.EnableEvents = False
If Target.Count  1 Then Application.Undo
If Target.Column = 2 Then

For i = LBound(arr) To UBound(arr)
If UCase(arr(i, 1)) = UCase(Range(a  Target.Row).Value) And
UCase(arr(i, 2)) = UCase(Range(b  Target.Row).Value) Then

Range(c  Target.Row).Value = arr(i, 3)
Range(d  Target.Row).Value = arr(i, 4)

Exit For
End If
Next

End If


Application.EnableEvents = True
Exit Sub
'err:
Application.EnableEvents = True
MsgBox err.Description
End Sub


On Thu, Jun 5, 2014 at 11:01 PM, Eugene Bernard eugene.bern...@gmail.com
wrote:

 Hi all,

 Please find attahced sheet.

 I have a requirement like this.

 In this scenario, I have parts with unique ID which passes thro' 3 stages
 like S1,S2,S3.

 whenever user updates a new row, based on ID and Stage as well as qty,
 the status should get updated automatically.

 in this example, after adding a new row in row 5, the status column of ID
 A001 should get update automatically to 12 ie A002 is now at stage 2.

 Can anybody help me on this please.

 Regards
 Eugene


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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Re: Coloms in many workesbooks to rows in a master workbook?

[ashish koul]

are you using 2003



On Sun, Jun 1, 2014 at 12:18 PM, Michael Lovin mwlo...@gmail.com wrote:

 Wellit appears that it is doing something. (i see as if files open but
 just for a second) .but still not populating the master_file...I renamed to
 master_file1...and place in the same directory as  my student
 files.because of a prompt that your file was read only... (idid
 notice that file was populated already form the 3 student data  so  I
 deleted it and save the file again  then rand the VB again... it did not
 populate..  hard to understand why this is not working...
  The code looks similar to the old code ...but still not workingI
 did change the path to  ...

 Sub merge_data()
  Dim filenm As String, folderpath As String
  folderpath =
 C:\Users\Michael\Desktop\ESL_Consulting\Students\Student_Test\ ' change
 folder here
  filenm = Dir(folderpath)
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  While (filenm  )
  If InStr(filenm, .xls)  0 Then ' open only excel workbooks
  ' if found display full path in message box
  Call copy_data(folderpath  filenm)
  End If
  filenm = Dir
  Wend
  Application.CutCopyMode = False
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  Range(a1).Select
  End Sub

 Sub copy_data(filename As String)
 Dim wkb As Workbook
 Dim i As Long
 Set wkb = Workbooks.Open(filename)

 i = ThisWorkbook.Sheets(1).Range(xfd1).End(xlToLeft).Column + 1
 ThisWorkbook.Sheets(1).Cells(1, i).Value = Left(wkb.Name, InStr(wkb.Name,
 .) - 1)
 wkb.Sheets(1).Range(J6:j9).Copy
 Destination:=ThisWorkbook.Sheets(1).Cells(2, i)

 wkb.Close , False

 End Sub


 On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:

 I am sure this has been asked many times but I cannot find a thread that
 answers my questions.  I have code (pasted below)  but it does not work
 and it does not error(no highlight or pop up error message)

 I have several workbooks with sequential file names..student1, student2,
 etc. .In each workbook first sheet (Sheet1) there is a coloum with data
 (J6:J9) .. Each row is a different label  ie Gammar, Vocabulary, etc
 I want to sequence through the workbooks, copy the data at (J6:J9) and
 paste it into master workbook, in a rows with the colum as the titles ...so
 under A coloum the J6:J9 data is pasted into A1, A2,,A3, etc in sequence
 for all the student workbooks.
 I hope I explained that clearly... here is the code so far...but not
 working and no error pop up

 Sub LoopThroughDirectory()
 Dim MyFile As String
 Dim erow
 Dim Filepath As String
 MyFile = Dir(C:\Users\Michael\Desktop\ESL_Consulting\Students\
 Student_Test\))

 Do While Len(MyFile)  0
 If MyFile = Student_Master.xlsm Then
 Exit Sub
 End If
 Workbooks.Open (Filepath  MyFile)
 Range(J6:J9).Copy
 ActiveWorkbook.Close
 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(Cells(erow,
 1), Cells(erow, 4))

 MyFile = Dir
 Loop
 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.




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post

Re: $$Excel-Macros$$ Re: Coloms in many workesbooks to rows in a master workbook?

[ashish koul]

ok wait 2 min


On Sun, Jun 1, 2014 at 12:34 PM, Michael Lovin mwlo...@gmail.com wrote:

 office 2010


 On Sunday, June 1, 2014 2:53:01 PM UTC+8, ashish wrote:

 are you using 2003



 On Sun, Jun 1, 2014 at 12:18 PM, Michael Lovin mwl...@gmail.com wrote:

 Wellit appears that it is doing something. (i see as if files open
 but just for a second) .but still not populating the master_file...I
 renamed to master_file1...and place in the same directory as  my student
 files.because of a prompt that your file was read only... (idid
 notice that file was populated already form the 3 student data  so  I
 deleted it and save the file again  then rand the VB again... it did not
 populate..  hard to understand why this is not working...
  The code looks similar to the old code ...but still not
 workingI did change the path to  ...

 Sub merge_data()
  Dim filenm As String, folderpath As String
  folderpath = 
 C:\Users\Michael\Desktop\ESL_Consulting\Students\Student_Test\
 ' change folder here
  filenm = Dir(folderpath)
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  While (filenm  )
  If InStr(filenm, .xls)  0 Then ' open only excel workbooks
  ' if found display full path in message box
  Call copy_data(folderpath  filenm)
  End If
  filenm = Dir
  Wend
  Application.CutCopyMode = False
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  Range(a1).Select
  End Sub

 Sub copy_data(filename As String)
 Dim wkb As Workbook
 Dim i As Long
 Set wkb = Workbooks.Open(filename)

 i = ThisWorkbook.Sheets(1).Range(xfd1).End(xlToLeft).Column + 1
 ThisWorkbook.Sheets(1).Cells(1, i).Value = Left(wkb.Name,
 InStr(wkb.Name, .) - 1)
 wkb.Sheets(1).Range(J6:j9).Copy 
 Destination:=ThisWorkbook.Sheets(1).Cells(2,
 i)

 wkb.Close , False

 End Sub


 On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:

 I am sure this has been asked many times but I cannot find a thread
 that answers my questions.  I have code (pasted below)  but it does not
 work and it does not error(no highlight or pop up error message)

 I have several workbooks with sequential file names..student1,
 student2, etc. .In each workbook first sheet (Sheet1) there is a coloum
 with data  (J6:J9) .. Each row is a different label  ie Gammar, Vocabulary,
 etc
 I want to sequence through the workbooks, copy the data at (J6:J9) and
 paste it into master workbook, in a rows with the colum as the titles ...so
 under A coloum the J6:J9 data is pasted into A1, A2,,A3, etc in sequence
 for all the student workbooks.
 I hope I explained that clearly... here is the code so far...but not
 working and no error pop up

 Sub LoopThroughDirectory()
 Dim MyFile As String
 Dim erow
 Dim Filepath As String
 MyFile = Dir(C:\Users\Michael\Desktop\ESL_Consulting\Students\Studen
 t_Test\))

 Do While Len(MyFile)  0
 If MyFile = Student_Master.xlsm Then
 Exit Sub
 End If
 Workbooks.Open (Filepath  MyFile)
 Range(J6:J9).Copy
 ActiveWorkbook.Close
 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(Cells(erow,
 1), Cells(erow, 4))

 MyFile = Dir
 Loop
 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...@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*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on Facebook https://www.facebook.com/excelvbacodes
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula

Re: $$Excel-Macros$$ Re: Coloms in many workesbooks to rows in a master workbook?

[ashish koul]

try this its working fine i tested it again

add  \ at teh edn of folder path C:\Users\ashishkoul\Desktop\Sample files 1
june 2014\students\

Sub merge_data()
 Dim filenm As String, folderpath As String
 folderpath = C:\Users\ashishkoul\Desktop\Sample files 1 june
2014\students\ ' change folder here
 filenm = Dir(folderpath)
 Application.DisplayAlerts = False
 Application.ScreenUpdating = False
 While (filenm  )
 If InStr(filenm, .xls)  0 Then ' open only excel workbooks
 ' if found display full path in message box
 If UCase(filenm)  UCase(master_file.xlsm) Then Call
copy_data(folderpath  filenm) ' change master file name here
 End If
 filenm = Dir
 Wend
 Application.CutCopyMode = False
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
 Range(a1).Select
 End Sub
Sub copy_data(filename As String)
Dim wkb As Workbook
Dim i As Long
Set wkb = Workbooks.Open(filename)
i = ThisWorkbook.Sheets(1).Range(xfd1).End(xlToLeft).Column + 1
ThisWorkbook.Sheets(1).Cells(1, i).Value = Left(wkb.Name, InStr(wkb.Name,
.) - 1)
wkb.Sheets(1).Range(J6:j9).Copy
Destination:=ThisWorkbook.Sheets(1).Cells(2, i)
wkb.Close , False
End Sub








On Sun, Jun 1, 2014 at 12:36 PM, ashish koul koul.ash...@gmail.com wrote:

 ok wait 2 min


 On Sun, Jun 1, 2014 at 12:34 PM, Michael Lovin mwlo...@gmail.com wrote:

 office 2010


 On Sunday, June 1, 2014 2:53:01 PM UTC+8, ashish wrote:

 are you using 2003



 On Sun, Jun 1, 2014 at 12:18 PM, Michael Lovin mwl...@gmail.com wrote:

 Wellit appears that it is doing something. (i see as if files open
 but just for a second) .but still not populating the master_file...I
 renamed to master_file1...and place in the same directory as  my student
 files.because of a prompt that your file was read only... (idid
 notice that file was populated already form the 3 student data  so  I
 deleted it and save the file again  then rand the VB again... it did not
 populate..  hard to understand why this is not working...
  The code looks similar to the old code ...but still not
 workingI did change the path to  ...

 Sub merge_data()
  Dim filenm As String, folderpath As String
  folderpath = C:\Users\Michael\Desktop\ESL_
 Consulting\Students\Student_Test\ ' change folder here
  filenm = Dir(folderpath)
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  While (filenm  )
  If InStr(filenm, .xls)  0 Then ' open only excel workbooks
  ' if found display full path in message box
  Call copy_data(folderpath  filenm)
  End If
  filenm = Dir
  Wend
  Application.CutCopyMode = False
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  Range(a1).Select
  End Sub

 Sub copy_data(filename As String)
 Dim wkb As Workbook
 Dim i As Long
 Set wkb = Workbooks.Open(filename)

 i = ThisWorkbook.Sheets(1).Range(xfd1).End(xlToLeft).Column + 1
 ThisWorkbook.Sheets(1).Cells(1, i).Value = Left(wkb.Name,
 InStr(wkb.Name, .) - 1)
 wkb.Sheets(1).Range(J6:j9).Copy 
 Destination:=ThisWorkbook.Sheets(1).Cells(2,
 i)

 wkb.Close , False

 End Sub


 On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:

 I am sure this has been asked many times but I cannot find a thread
 that answers my questions.  I have code (pasted below)  but it does 
 not
 work and it does not error(no highlight or pop up error message)

 I have several workbooks with sequential file names..student1,
 student2, etc. .In each workbook first sheet (Sheet1) there is a coloum
 with data  (J6:J9) .. Each row is a different label  ie Gammar, 
 Vocabulary,
 etc
 I want to sequence through the workbooks, copy the data at (J6:J9) and
 paste it into master workbook, in a rows with the colum as the titles 
 ...so
 under A coloum the J6:J9 data is pasted into A1, A2,,A3, etc in sequence
 for all the student workbooks.
 I hope I explained that clearly... here is the code so far...but not
 working and no error pop up

 Sub LoopThroughDirectory()
 Dim MyFile As String
 Dim erow
 Dim Filepath As String
 MyFile = Dir(C:\Users\Michael\Desktop\ESL_Consulting\Students\Studen
 t_Test\))

 Do While Len(MyFile)  0
 If MyFile = Student_Master.xlsm Then
 Exit Sub
 End If
 Workbooks.Open (Filepath  MyFile)
 Range(J6:J9).Copy
 ActiveWorkbook.Close
 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(Cells(erow,
 1), Cells(erow, 4))

 MyFile = Dir
 Loop
 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

Re: $$Excel-Macros$$ Re: Coloms in many workesbooks to rows in a master workbook?

[ashish koul]

can you share sample input file


On Sun, Jun 1, 2014 at 12:56 PM, Michael Lovin mwlo...@gmail.com wrote:

 It worked   sort of..  here is the master_file1.xlsmBEFORE running
 the VB...

Score by Category




  Grammar




  Reading / Writing




  Vocabulary




  Speaking / Listening





 Here it is AFTER runing the last code you sent

Score by Category student1 student2 student3 Student_Master Table1
 Grammar 0% 0% 0%

  Reading / Writing 0% 0% 0%

  Vocabulary 0% 0% 0%

  Speaking / Listening 0% 0% 0%


 As you can see it added some data  but just zeros  and also that
 Student_Master Table1



 On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:

 I am sure this has been asked many times but I cannot find a thread that
 answers my questions.  I have code (pasted below)  but it does not work
 and it does not error(no highlight or pop up error message)

 I have several workbooks with sequential file names..student1, student2,
 etc. .In each workbook first sheet (Sheet1) there is a coloum with data
 (J6:J9) .. Each row is a different label  ie Gammar, Vocabulary, etc
 I want to sequence through the workbooks, copy the data at (J6:J9) and
 paste it into master workbook, in a rows with the colum as the titles ...so
 under A coloum the J6:J9 data is pasted into A1, A2,,A3, etc in sequence
 for all the student workbooks.
 I hope I explained that clearly... here is the code so far...but not
 working and no error pop up

 Sub LoopThroughDirectory()
 Dim MyFile As String
 Dim erow
 Dim Filepath As String
 MyFile = Dir(C:\Users\Michael\Desktop\ESL_Consulting\Students\
 Student_Test\))

 Do While Len(MyFile)  0
 If MyFile = Student_Master.xlsm Then
 Exit Sub
 End If
 Workbooks.Open (Filepath  MyFile)
 Range(J6:J9).Copy
 ActiveWorkbook.Close
 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(Cells(erow,
 1), Cells(erow, 4))

 MyFile = Dir
 Loop
 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.




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Re: Coloms in many workesbooks to rows in a master workbook?

[ashish koul]

try this one
Sub merge_data()
 Dim filenm As String, folderpath As String
 folderpath = C:\Users\ashishkoul\Desktop\Sample files 1 june
2014\students\ ' change folder here
 filenm = Dir(folderpath)
 Application.DisplayAlerts = False
 Application.ScreenUpdating = False
 While (filenm  )
 If InStr(filenm, .xls)  0 Then ' open only excel workbooks
 ' if found display full path in message box
 If UCase(filenm)  UCase(master_file.xlsm) Then Call
copy_data(folderpath  filenm)
 End If
 filenm = Dir
 Wend
 Application.CutCopyMode = False
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
 Range(a1).Select
 End Sub
Sub copy_data(filename As String)
Dim wkb As Workbook
Dim i As Long
Set wkb = Workbooks.Open(filename)
i = ThisWorkbook.Sheets(1).Range(xfd1).End(xlToLeft).Column + 1
With ThisWorkbook.Sheets(1)
.Cells(1, i).Value = Left(wkb.Name, InStr(wkb.Name, .) - 1)
.Range(.Cells(2, i), .Cells(5, i)).Value =
wkb.Sheets(1).Range(J6:j9).Value
End With
wkb.Close , False
End Sub



On Sun, Jun 1, 2014 at 1:00 PM, Michael Lovin mwlo...@gmail.com wrote:

 here is a student file...they are all the same... you can see the data I
 need at J6:J9   I do not need formatingand I should tell you the
 cells are populated via formula's in each (same)

 On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:

 I am sure this has been asked many times but I cannot find a thread that
 answers my questions.  I have code (pasted below)  but it does not work
 and it does not error(no highlight or pop up error message)

 I have several workbooks with sequential file names..student1, student2,
 etc. .In each workbook first sheet (Sheet1) there is a coloum with data
 (J6:J9) .. Each row is a different label  ie Gammar, Vocabulary, etc
 I want to sequence through the workbooks, copy the data at (J6:J9) and
 paste it into master workbook, in a rows with the colum as the titles ...so
 under A coloum the J6:J9 data is pasted into A1, A2,,A3, etc in sequence
 for all the student workbooks.
 I hope I explained that clearly... here is the code so far...but not
 working and no error pop up

 Sub LoopThroughDirectory()
 Dim MyFile As String
 Dim erow
 Dim Filepath As String
 MyFile = Dir(C:\Users\Michael\Desktop\ESL_Consulting\Students\
 Student_Test\))

 Do While Len(MyFile)  0
 If MyFile = Student_Master.xlsm Then
 Exit Sub
 End If
 Workbooks.Open (Filepath  MyFile)
 Range(J6:J9).Copy
 ActiveWorkbook.Close
 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(Cells(erow,
 1), Cells(erow, 4))

 MyFile = Dir
 Loop
 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.




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you

Re: $$Excel-Macros$$ Re: Coloms in many workesbooks to rows in a master workbook?

[ashish koul]

its wokring at my end .




On Sun, Jun 1, 2014 at 1:12 PM, Michael Lovin mwlo...@gmail.com wrote:

 No population at all now...  by the way...I see why it was adding that
 data coloms..there were 2 files with hose names in the folder...I removed
 them...but  yeah  no data being populated at all now..


 On Sunday, June 1, 2014 3:35:09 PM UTC+8, ashish wrote:

 try this one
 Sub merge_data()
  Dim filenm As String, folderpath As String
  folderpath = C:\Users\ashishkoul\Desktop\Sample files 1 june
 2014\students\ ' change folder here
  filenm = Dir(folderpath)
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  While (filenm  )
  If InStr(filenm, .xls)  0 Then ' open only excel workbooks
  ' if found display full path in message box
  If UCase(filenm)  UCase(master_file.xlsm) Then Call
 copy_data(folderpath  filenm)
  End If
  filenm = Dir
  Wend
  Application.CutCopyMode = False
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  Range(a1).Select
  End Sub
 Sub copy_data(filename As String)
 Dim wkb As Workbook
 Dim i As Long
 Set wkb = Workbooks.Open(filename)
 i = ThisWorkbook.Sheets(1).Range(xfd1).End(xlToLeft).Column + 1
 With ThisWorkbook.Sheets(1)
 .Cells(1, i).Value = Left(wkb.Name, InStr(wkb.Name, .) - 1)
 .Range(.Cells(2, i), .Cells(5, i)).Value =
 wkb.Sheets(1).Range(J6:j9).Value
 End With
 wkb.Close , False
 End Sub



 On Sun, Jun 1, 2014 at 1:00 PM, Michael Lovin mwl...@gmail.com wrote:

 here is a student file...they are all the same... you can see the data I
 need at J6:J9   I do not need formatingand I should tell you the
 cells are populated via formula's in each (same)

 On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:

 I am sure this has been asked many times but I cannot find a thread
 that answers my questions.  I have code (pasted below)  but it does not
 work and it does not error(no highlight or pop up error message)

 I have several workbooks with sequential file names..student1,
 student2, etc. .In each workbook first sheet (Sheet1) there is a coloum
 with data  (J6:J9) .. Each row is a different label  ie Gammar, Vocabulary,
 etc
 I want to sequence through the workbooks, copy the data at (J6:J9) and
 paste it into master workbook, in a rows with the colum as the titles ...so
 under A coloum the J6:J9 data is pasted into A1, A2,,A3, etc in sequence
 for all the student workbooks.
 I hope I explained that clearly... here is the code so far...but not
 working and no error pop up

 Sub LoopThroughDirectory()
 Dim MyFile As String
 Dim erow
 Dim Filepath As String
 MyFile = Dir(C:\Users\Michael\Desktop\ESL_Consulting\Students\Studen
 t_Test\))

 Do While Len(MyFile)  0
 If MyFile = Student_Master.xlsm Then
 Exit Sub
 End If
 Workbooks.Open (Filepath  MyFile)
 Range(J6:J9).Copy
 ActiveWorkbook.Close
 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(Cells(erow,
 1), Cells(erow, 4))

 MyFile = Dir
 Loop
 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...@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*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on Facebook https://www.facebook.com/excelvbacodes
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member

Re: $$Excel-Macros$$ Re: Coloms in many workesbooks to rows in a master workbook?

[ashish koul]

welcome have a nice day


On Sun, Jun 1, 2014 at 1:15 PM, Michael Lovin mwlo...@gmail.com wrote:

 WOW man  I think you did it...it is looking good...so much help and
 paients with me...I thank you sincerely!


 On Sunday, June 1, 2014 3:35:09 PM UTC+8, ashish wrote:

 try this one
 Sub merge_data()
  Dim filenm As String, folderpath As String
  folderpath = C:\Users\ashishkoul\Desktop\Sample files 1 june
 2014\students\ ' change folder here
  filenm = Dir(folderpath)
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  While (filenm  )
  If InStr(filenm, .xls)  0 Then ' open only excel workbooks
  ' if found display full path in message box
  If UCase(filenm)  UCase(master_file.xlsm) Then Call
 copy_data(folderpath  filenm)
  End If
  filenm = Dir
  Wend
  Application.CutCopyMode = False
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  Range(a1).Select
  End Sub
 Sub copy_data(filename As String)
 Dim wkb As Workbook
 Dim i As Long
 Set wkb = Workbooks.Open(filename)
 i = ThisWorkbook.Sheets(1).Range(xfd1).End(xlToLeft).Column + 1
 With ThisWorkbook.Sheets(1)
 .Cells(1, i).Value = Left(wkb.Name, InStr(wkb.Name, .) - 1)
 .Range(.Cells(2, i), .Cells(5, i)).Value =
 wkb.Sheets(1).Range(J6:j9).Value
 End With
 wkb.Close , False
 End Sub



 On Sun, Jun 1, 2014 at 1:00 PM, Michael Lovin mwl...@gmail.com wrote:

 here is a student file...they are all the same... you can see the data I
 need at J6:J9   I do not need formatingand I should tell you the
 cells are populated via formula's in each (same)

 On Sunday, June 1, 2014 11:55:15 AM UTC+8, Michael Lovin wrote:

 I am sure this has been asked many times but I cannot find a thread
 that answers my questions.  I have code (pasted below)  but it does not
 work and it does not error(no highlight or pop up error message)

 I have several workbooks with sequential file names..student1,
 student2, etc. .In each workbook first sheet (Sheet1) there is a coloum
 with data  (J6:J9) .. Each row is a different label  ie Gammar, Vocabulary,
 etc
 I want to sequence through the workbooks, copy the data at (J6:J9) and
 paste it into master workbook, in a rows with the colum as the titles ...so
 under A coloum the J6:J9 data is pasted into A1, A2,,A3, etc in sequence
 for all the student workbooks.
 I hope I explained that clearly... here is the code so far...but not
 working and no error pop up

 Sub LoopThroughDirectory()
 Dim MyFile As String
 Dim erow
 Dim Filepath As String
 MyFile = Dir(C:\Users\Michael\Desktop\ESL_Consulting\Students\Studen
 t_Test\))

 Do While Len(MyFile)  0
 If MyFile = Student_Master.xlsm Then
 Exit Sub
 End If
 Workbooks.Open (Filepath  MyFile)
 Range(J6:J9).Copy
 ActiveWorkbook.Close
 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(Cells(erow,
 1), Cells(erow, 4))

 MyFile = Dir
 Loop
 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...@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*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on Facebook https://www.facebook.com/excelvbacodes
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4

Re: $$Excel-Macros$$ Coloms in many workesbooks to rows in a master workbook?

[ashish koul]

do you want data to be pasted in same column ? Can you share  a sample
input files and output yo like to see?


On Sun, Jun 1, 2014 at 9:25 AM, Michael Lovin mwlo...@gmail.com wrote:

 I am sure this has been asked many times but I cannot find a thread that
 answers my questions.  I have code (pasted below)  but it does not work
 and it does not error(no highlight or pop up error message)

 I have several workbooks with sequential file names..student1, student2,
 etc. .In each workbook first sheet (Sheet1) there is a coloum with data
 (J6:J9) .. Each row is a different label  ie Gammar, Vocabulary, etc
 I want to sequence through the workbooks, copy the data at (J6:J9) and
 paste it into master workbook, in a rows with the colum as the titles ...so
 under A coloum the J6:J9 data is pasted into A1, A2,,A3, etc in sequence
 for all the student workbooks.
 I hope I explained that clearly... here is the code so far...but not
 working and no error pop up

 Sub LoopThroughDirectory()
 Dim MyFile As String
 Dim erow
 Dim Filepath As String
 MyFile =
 Dir(C:\Users\Michael\Desktop\ESL_Consulting\Students\Student_Test\))

 Do While Len(MyFile)  0
 If MyFile = Student_Master.xlsm Then
 Exit Sub
 End If
 Workbooks.Open (Filepath  MyFile)
 Range(J6:J9).Copy
 ActiveWorkbook.Close
 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 ActiveSheet.Paste Destination:=Worksheets(Sheet1).Range(Cells(erow, 1),
 Cells(erow, 4))

 MyFile = Dir
 Loop
 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.




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Here is a Great Challenge - Retrieve data in from a multiple urls in one step

[ashish koul]

try this code

Sub Macro1()

Dim i As Date, j As Long

Application.ScreenUpdating = False
For i = DateSerial(2013, 1, 1) To DateSerial(2013, 1, 10) ' change start
date and end date

With ActiveSheet.QueryTables.Add(Connection:= _
URL;
http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=IBUCKSIV1day=;
 Day(i)  month=  Month(i)  year=  Year(i) 
graphspan=dayformat=1 _
, Destination:=Range(a1048576).End(xlUp).Offset(1, 0))
.Name = _
t_  i
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
  Next

'  For j = Range(a1048576).End(xlUp).Row To 1 Step -1
'  If Range(a  j).Value = br Then Range(a  j).EntireRow.Delete
'  Next
  Application.ScreenUpdating = True
End Sub


On Wed, May 14, 2014 at 1:08 AM, Frank Zolf anthonyfoxtr...@gmail.comwrote:


 Hi Guys! Everyone is welcome.

 Here's the website for a Personal Weather Station in London:

 http://www.wunderground.com/personal-weather-station/dashboard?ID=IBUCKSIV1#history/data/s20100101/e20140513/mcustom

 It features a option to produce CSV data of any single day, in intervals
 of 5 minutes. If you specify January, 1st, 2010, you link you get looks
 like this:

 http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=IBUCKSIV1;
 *day=1**month=1**year=2010*graphspan=dayformat=1

 This is not a dynamic entry or table, so you can edit the URL directly,
 and get the desired result:

 http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=IBUCKSIV1day=
 *1*month=1year=2010graphspan=dayformat=1

 http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=IBUCKSIV1day=
 *2*month=1year=2010graphspan=dayformat=1

 http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=IBUCKSIV1day=
 *3*month=1year=2010graphspan=dayformat=1
 ...

 http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=IBUCKSIV1day=
 *1*month=*3*year=*2010*graphspan=dayformat=1


 But no other changes can increase the length of the resulting output! The
 output will only contain less data. So, it has to move down this list, or a
 list like it.

 *Is there a way to make a macro to move down the list of URLs and save the
 outputs into one file?* CSV or excel formats both ok.

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

Re: $$Excel-Macros$$ Graph Query

[ashish koul]

wht do u wanna do .. its x y scatter chart

On Thu, May 8, 2014 at 4:59 PM, Shrinivas Shevde shrinivas...@gmail.comwrote:

 Dear All
 I received one excel file in whih there is a graph.
 When I try to edit series it shows X and Y series in same legend (screen
 shot attached)
 Please let me know how to do the same.
 I tried but I am getting only one series


 --
 Shrini

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Re: VBA Compare only visible rows

[ashish koul]

Sub macros_sample()
Dim baserange As Range
Dim cl As Range

Set baserange =
Sheets(Sheet1).Range(a2:a2500).SpecialCells(xlCellTypeVisible)

Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each cl In baserange

If cl.Value   Then
If
Application.WorksheetFunction.CountIf(Sheets(Sheet2).Range(a:A),
cl.Value) = 1 Then
cl.EntireRow.Hidden = True
End If
End If
Next

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

End Sub


On Thu, May 1, 2014 at 4:26 AM, Benjamin Gilberg gilberg.benja...@gmail.com
 wrote:

 I think I've taken a half step forward.  But now I'm locked in a circular
 argument with Excel.  It keeps telling me I have a next without a for.  If
 I remove the offending next it tells me I have a for without a next.

 Here's where I am now:


 Sub Check_Static()



 Dim CompareRange As Variant, x As Variant, y As Variant

 Set culllist = Worksheets(Cull_List).Range(a5:a1500)

 Set CompareRange = Worksheets(Static_Cull).Range(a5:a600)

 For Each x In culllist
 If whateverrow.Hidden = False Then
 For Each y In CompareRange
 If whateverrow.Hidden = False Then

 If x = y Then x.Select
 Selection.EntireRow.Hidden = True
 End If

 Next y
 End If


 Next x

 End Sub



 On Wednesday, April 30, 2014 11:49:43 AM UTC-7, Benjamin Gilberg wrote:

 Hey everyone and thanks in advance for any help.

 I have a fairly simple macro, that worked wonders in my tiny test set,
 but is slogging along at an incredibly slow pace when I set it to run it's
 full scale application.

 The 'Cull_List' worksheet has already been filtered down somewhat from
 it's initial 1500 or so rows through a separate Macro, and the 'Static Pool
 Details' worksheet has been as well, but I'd love to figure out a way to
 have the compare only look at visible rows in each worksheet as it works
 through the compare.


 Thanks again for any help.  And for the record, I program in VBA about
 once every 12 to 18 months, promptly forget everything I learned, and then
 have to try to struggle through it again the next time. So please assume
 that what I know would have trouble powering an ant's motorcycle around a
 bb.

 Ben

 Here's the code I'm working with



 Sub Check_Static()

 Dim CompareRange As Variant, x As Variant, y As Variant

 Set culllist = Worksheets(Cull_List).Range(a5:a1500)

 Set CompareRange = Worksheets(Static Pool Details).Range(a5:a1000)

 For Each x In culllist
 For Each y In CompareRange

 If x = y Then x.Select
 Selection.EntireRow.Hidden = True


 Next y
 Next x
 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.




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

NOTE  : Don't ever post

Re: $$Excel-Macros$$ VBA Compare only visible rows

[ashish koul]

Sub macros_sample()
Dim baserange As Range
Dim cl As Range

Set baserange =
Sheets(Sheet1).Range(a2:a2500).SpecialCells(xlCellTypeVisible)

Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each cl In baserange

If cl.Value   Then
If
Application.WorksheetFunction.CountIf(Sheets(Sheet2).Range(a:A),
cl.Value) = 1 Then
cl.EntireRow.Hidden = True
End If
End If
Next

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

End Sub


On Thu, May 1, 2014 at 12:55 AM, Benjamin Gilberg 
gilberg.benja...@gmail.com wrote:

 Hi Benjamin

 Can you please let us know are all your values unique? - Yes the values
 are unique.  It's a list of invoice numbers.  The first is a master list
 that has been culled to remove a certain group of clients.  The second set
 is a list of clients that we've had difficulties with.  The compare is
 designed to remove this second set of clients from the master list as
 well.  Leaving me a new list of a certain grouping of clients.  The reason
 I'm hiding instead of deleting is because the individual working with the
 new list won't always have access to the master list, and I'd like them to
 have the information available.

 Do you want to compare the same row nos or cell. Numbers ?  - The idea is
 that if your invoice appears in the second set, I'd like to pull you from
 the master list as well.  They are both in Column A of their respective
 worksheets

 Reason I m asking is if the values r unique and it is found you can use
 exit for as soon as condtion is met - That would be an excellent
 addition, but It would still be great to eliminate all the hidden rows from
 the compare.

 Also is it possible for you to share a sample file with dummy data - I've
 attached my tiny test file, but unfortunately due to sensitive information
 I can't attach the large master list.


 Hope this helps clarify for you.

 Ben
 Regards

 Ashish koul


 On Wednesday, April 30, 2014 11:56:06 AM UTC-7, ashish wrote:

 Hi Benjamin

 Can you please let us know are all your values unique?

 Do you want to compare the same row nos or cell. Numbers ?

 Reason I m asking is if the values r unique and it is found you can use
 exit for as soon as condtion is met

 Also is it possible for you to share a sample file with dummy data

 Regards

 Ashish koul
 Sent on my BlackBerry® from Vodafone
 --
 *From: * Benjamin Gilberg gilberg@gmail.com
 *Sender: * excel-...@googlegroups.com
 *Date: *Wed, 30 Apr 2014 11:49:43 -0700 (PDT)
 *To: *excel-...@googlegroups.com
 *ReplyTo: * excel-...@googlegroups.com
 *Subject: *$$Excel-Macros$$ VBA Compare only visible rows

 Hey everyone and thanks in advance for any help.

 I have a fairly simple macro, that worked wonders in my tiny test set,
 but is slogging along at an incredibly slow pace when I set it to run it's
 full scale application.

 The 'Cull_List' worksheet has already been filtered down somewhat from
 it's initial 1500 or so rows through a separate Macro, and the 'Static Pool
 Details' worksheet has been as well, but I'd love to figure out a way to
 have the compare only look at visible rows in each worksheet as it works
 through the compare.


 Thanks again for any help.  And for the record, I program in VBA about
 once every 12 to 18 months, promptly forget everything I learned, and then
 have to try to struggle through it again the next time. So please assume
 that what I know would have trouble powering an ant's motorcycle around a
 bb.

 Ben

 Here's the code I'm working with



 Sub Check_Static()

 Dim CompareRange As Variant, x As Variant, y As Variant

 Set culllist = Worksheets(Cull_List).Range(a5:a1500)

 Set CompareRange = Worksheets(Static Pool Details).Range(a5:a1000)

 For Each x In culllist
 For Each y In CompareRange

 If x = y Then x.Select
 Selection.EntireRow.Hidden = True


 Next y
 Next x
 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

Re: $$Excel-Macros$$ Is there any way to change the font with the Forms - ListBox?

[ashish koul]

Hi

Try this way
http://www.jkp-ads.com/articles/Excel2007FileFormat01.asp

Regards
Ashish Koul


On Tue, Apr 29, 2014 at 9:32 PM, Rob Flott robfl...@gmail.com wrote:

 For whatever reasons the size of my ActiveX ListBox expands and shrinks on
 an inconsistent basis forcing me to use the Forms ListBox instead.

 The problem I have with the Forms ListBox is the small font.

 1. Is there any way to change the font size within the Forms - ListBox?

 2. If not, is there a way to make a small userform with one ListBox that
 remains on the active worksheet?

 I have given up on ActiveX controls since they are so inconsistent.

 Thanks

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Re: Additional Control

[ashish koul]

in excel 2010 and above calender control has been removed so you will not
find it


On Tue, Apr 22, 2014 at 7:01 AM, Falina Gan falina...@gmail.com wrote:

 To Ashish,

 The article is for Windows XP and Office 2007.

 Do you have the experience in Microsoft Office Standard 2010- 32 bit?

 Hope to hear from you soon.

 Thanks.



 On Friday, April 18, 2014 1:47:34 PM UTC+8, Falina Gan wrote:

 To Whom It May Concern,

 May I ask, why can;t we click the additional Controls to create a new
 calender? Here is the image as below:-

 Thanks.



 https://lh3.googleusercontent.com/-W66RRb-bSOE/U1C735uHbiI/AGs/QMrtJZswwsc/s1600/additional+control.png

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Additional Control

[ashish koul]

try this

http://davaohandymom.blogspot.in/2013/05/solution-to-missing-not-showing.html


On Fri, Apr 18, 2014 at 11:17 AM, Falina Gan falina...@gmail.com wrote:

 To Whom It May Concern,

 May I ask, why can;t we click the additional Controls to create a new
 calender? Here is the image as below:-

 Thanks.



 https://lh3.googleusercontent.com/-W66RRb-bSOE/U1C735uHbiI/AGs/QMrtJZswwsc/s1600/additional+control.png

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Out Of Office

[ashish koul]

try this
http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/A_3487-Automating-Out-of-Office-in-Outlook.html


On Fri, Apr 18, 2014 at 10:52 PM, Bv Dileep bvdil...@gmail.com wrote:

 In current situation, OOO has to be manually edited and activated. At
 times, we miss on updating as well as activatin OOO leading to miss on
 important communications.





 Macro which performs the following: - Everytime when user exits Outlook,
 it should give choice to user to activate OOO.



 - If user selects to acticate OOO, the macro should ask for the date and
 time range similar to what outlook currently does. - Macro should give
 couple of standard OOO notes which user can select as per the need or else
 write a note on his own. - Once user click OK, the macro will activate OOO
 for the user.


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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook https://www.facebook.com/excelvbacodes
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Re: Macro to copy data from a specif range from many closed workbooks in a folder to a master file creat

[ashish koul]

 a specific range then paste it in the master file where
 for each closed workbook there is a new row added in the master file.

 Thank you so much in advance for your help. Any suggestions, examples,
 reading materials, advises, etc. are more than welcome.

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Need a help on sumproduct for MTD data

[ashish koul]

=SUMPRODUCT(($B$2:$DC$2=B9)*($B$4:$DC$4))


On Fri, Apr 11, 2014 at 4:50 PM, Ganesh N ganeshg...@gmail.com wrote:

 Hi Team,

 Kindly help me out to do sumproduct the data for MTD. (monthwise).

 Please find the attachment for your reference.

 Thanks  Regards,
 Ganesh N

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Specific dates Grouping(urgent) excel or vba

[ashish koul]

u can use countifs


On Wed, Apr 9, 2014 at 12:05 PM, Pankaj pankaji...@gmail.com wrote:


 Dear All,

 I want to calculate date wise grouping of month closing Like:-

 i have data of student

  Raw Data  ID Student name  Course Date of
 Registration Closing Dates From To Month3001 Sanjay English
 01-01-2014   01-01-2014 26-01-2014 Jan3002 Anil Hindi 02-01-2014   
 Lookup
 Dates   27-01-2014 28-02-2014 Feb3003 Prakash English 16-01-2014
 01-03-2014 27-03-2014 Mar3004 Sunil Hindi 23-01-2014
 3005 Happy English 27-01-20143006 Lovely Hindi 29-01-2014
3007 Arun English 01-02-20143008 Pankaj
 Hindi 15-02-2014 Result  3009 Amit English 28-02-2014
 Month Jan Feb Mar Total  3010 Karan Hindi 01-03-2014 Count of Students
 4 5 1 10

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Need VBA Code to extract pdf file from URL.

[ashish koul]

Declare Function URLDownloadToFile Lib urlmon Alias _
URLDownloadToFileA (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Function downloadfile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then downloadfile = True
End Function

Sub download_file()
'Source - 
http://www.cpearson.com/excel/downloadfile.aspxhttp://l.facebook.com/l.php?u=http%3A%2F%2Fwww.cpearson.com%2Fexcel%2Fdownloadfile.aspxh=TAQEit-rdenc=AZMLNgnrGp9ggxRiSuOJgUHMUCMa4SNXrgVisQk6U6ARpgZeEBLxWw5Sx8-z67s2RYilxKHosxGcUVcrgIDUUOQWpb82ECeR6UWfNwmrADeYx2dP6SgHDr6E25Id8XF8Ntuoeu_ikMOXRWZjTC0b3pxjs=1

Dim sURL As String
Dim LocalFilename As String
Dim filename As String

Const folder_name = C:\Documents and Settings\Ashish Koul\Desktop\sample
files\ 'change folder path

sURL = http://nseindia.com/content/nsccl/fao_participant_oi_21022014.csv;
' change url
filename = fao_participant_oi_21022014.csv ' file name

LocalFilename = folder_name  filename

Call downloadfile(sURL, LocalFilename)

End Sub


On Thu, Apr 10, 2014 at 5:07 PM, pankaj khairanar pankajkh...@gmail.comwrote:

 Dear Expert,

 I need your help in below scenario,

 I have to extract pdf's files from web application and save those pdf's in
 our local drive with same name. I have all URL's in excel file.

 So could you please help to do this?

 Please find the attached excel file for your reference!

 Best Regards,
 Pankaj Khairnar

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ What am I missing????

[ashish koul]

ignore the previous one and  try ths one
=SUM(OFFSET(A3,0,0,1,MATCH(ReportPeriod,$A$1:$M$1,0)))


On Thu, Apr 10, 2014 at 7:30 PM, ashish koul koul.ash...@gmail.com wrote:

 try ths not tested but shuld work

 =SUM(OFFSET(A3,0,1,1,MATCH(ReportPeriod,$A$1:$M$1,0)))


 On Thu, Apr 10, 2014 at 6:21 PM, Steve Weaver 
 steveweaver1...@gmail.comwrote:

 Thank you Ashish . . . works perfectly. How can I get Col Q on sheet Data
 to show year to date results?

 Sent from my iPhone

 On Apr 10, 2014, at 3:15 AM, ashish koul koul.ash...@gmail.com wrote:

 Change your formula in Col P
 =INDEX($B3:$M3,MATCH(ReportPeriod,$B$1:$M$1,0)) on sheet Data




 On Wed, Apr 9, 2014 at 9:31 PM, Steve Weaver 
 steveweaver1...@gmail.comwrote:



 Here is what I'd like to accomplish:

- ·   Select the desired ReportPeriod from the drop down list in
cell J3 on the Monthly IS tab


- ·   Return the appropriate values from the Data tab into
cell D9..D40 on the Monthly IS tab



 My problem is:

- ·   I'm not pulling the correct ReportPeriod from the Data
tab. Please note from the attached file that I have selected February as
the ReportPeriod BUT instead December results are being returned to the
Monthly IS tab.



 What am I missing and how to fix it?

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

 FORUM RULES

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

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




 --
 *Regards*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

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

 Copy of MyWorkFile III.xlsx

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

Re: $$Excel-Macros$$ What am I missing????

[ashish koul]

try ths not tested but shuld work

=SUM(OFFSET(A3,0,1,1,MATCH(ReportPeriod,$A$1:$M$1,0)))


On Thu, Apr 10, 2014 at 6:21 PM, Steve Weaver steveweaver1...@gmail.comwrote:

 Thank you Ashish . . . works perfectly. How can I get Col Q on sheet Data
 to show year to date results?

 Sent from my iPhone

 On Apr 10, 2014, at 3:15 AM, ashish koul koul.ash...@gmail.com wrote:

 Change your formula in Col P
 =INDEX($B3:$M3,MATCH(ReportPeriod,$B$1:$M$1,0)) on sheet Data




 On Wed, Apr 9, 2014 at 9:31 PM, Steve Weaver steveweaver1...@gmail.comwrote:



 Here is what I'd like to accomplish:

- ·   Select the desired ReportPeriod from the drop down list in
cell J3 on the Monthly IS tab


- ·   Return the appropriate values from the Data tab into cell
D9..D40 on the Monthly IS tab



 My problem is:

- ·   I'm not pulling the correct ReportPeriod from the Data
tab. Please note from the attached file that I have selected February as
the ReportPeriod BUT instead December results are being returned to the
Monthly IS tab.



 What am I missing and how to fix it?

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

 FORUM RULES

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

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




 --
 *Regards*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

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

 Copy of MyWorkFile III.xlsx

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

Re: $$Excel-Macros$$ Creating UserForm on Upper, Lower and Proper case

[ashish koul]

 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.




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Can too many calculations corrupt a workbook?

[ashish koul]

Hi Matt,

Please try this addin



On Tue, Apr 8, 2014 at 11:25 PM, Matt Watson mattwatson.m...@gmail.comwrote:

 I have a formula and macro rich workbook. It has about 21 worksheets that
 I work in. I mostly paste in from other excel sheets; on one sheet I
 extract data from HTML through Text-to-columns and a few filters via a
 macro.

 What I run into is that despite selecting all cells and deleting the
 data(once per month), I feel like Excel is storing the fact I had 4000 rows
 of data. Even after deleting the data, my scroll bar displays as if there
 are pages upon pages of blank cells. I get a noticeable amount of lag
 time(10-20 seconds) when I try to copy a calculation or formatting
 downwards. I also have issues where the file becomes corrupt during saving
 to where excel can't recover and I'm forced to use an earlier backed-up
 version. These problems have been happening more frequently as I add more
 macros and calculations. They only occur on this workbook.

 My best solution thus far is to completely delete the problematic
 worksheet, create a blank sheet, and rename it to the original name.

1. Is there a more efficient way to clear a worksheet that includes
all column/row counts? Can this be put into a macro?
2. Is this simply a result of having too much data on a single file? I
have a top notch PC.

 Thanks for your help!


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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Can too many calculations corrupt a workbook?

[ashish koul]

Hi Matt,

Please try this add-in

http://www.microsoft.com/en-in/download/details.aspx?id=21649

I am not sure but one of the reason can be you have applied formats in non
data cells( which is not even required). Please download the addin and try
to run it see if it solves your problem

Regards
Ashish





On Tue, Apr 8, 2014 at 11:55 PM, ashish koul koul.ash...@gmail.com wrote:

 Hi Matt,

 Please try this addin



 On Tue, Apr 8, 2014 at 11:25 PM, Matt Watson mattwatson.m...@gmail.comwrote:

 I have a formula and macro rich workbook. It has about 21 worksheets that
 I work in. I mostly paste in from other excel sheets; on one sheet I
 extract data from HTML through Text-to-columns and a few filters via a
 macro.

 What I run into is that despite selecting all cells and deleting the
 data(once per month), I feel like Excel is storing the fact I had 4000 rows
 of data. Even after deleting the data, my scroll bar displays as if there
 are pages upon pages of blank cells. I get a noticeable amount of lag
 time(10-20 seconds) when I try to copy a calculation or formatting
 downwards. I also have issues where the file becomes corrupt during saving
 to where excel can't recover and I'm forced to use an earlier backed-up
 version. These problems have been happening more frequently as I add more
 macros and calculations. They only occur on this workbook.

 My best solution thus far is to completely delete the problematic
 worksheet, create a blank sheet, and rename it to the original name.

1. Is there a more efficient way to clear a worksheet that includes
all column/row counts? Can this be put into a macro?
2. Is this simply a result of having too much data on a single file?
I have a top notch PC.

 Thanks for your help!


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




 --
 *Regards*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.






-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Need help to find the missing emp id on particular date

[ashish koul]

Sub sample()
Dim i As Long
Dim rng As Range
Dim strng As Long
Dim endrng As Long
Sheets(Sheet1).Range(a1:b 
Sheets(Sheet1).Range(a1).End(xlDown).Row).Sort
key1:=Sheets(Sheet1).Range(b:b), order1:=xlDescending, Header:=xlYes

On Error Resume Next
i = Application.WorksheetFunction.Match(Sheets(Sheet2).Range(i3),
Sheets(Sheet1).Range(b:b), 0)
If i = 0 Then Exit Sub


endrng = i +
Application.WorksheetFunction.CountIf(Sheets(Sheet1).Range(b:b),
Sheets(Sheet2).Range(i3)) - 1
Set rng = Sheets(Sheet1).Range(a  i  :a  endrng)

Sheets(Sheet2).Range(i6:i5000).Clear
j = 6
For i = 2 To Sheets(Sheet2).Range(a1).End(xlDown).Row
If Application.WorksheetFunction.CountIf(rng,
Sheets(Sheet2).Range(a  i)) = 0 Then
Sheets(Sheet2).Range(i  j) = Sheets(Sheet2).Range(a  i)
j = j + 1
End If
Next


End Sub


On Tue, Apr 8, 2014 at 6:44 PM, Ganesh N ganeshg...@gmail.com wrote:

 Hi Team,

 Any updates on the request ??

 Thanks  Regards,
 Ganesh


 On Tue, Apr 8, 2014 at 1:15 PM, Ganesh N ganeshg...@gmail.com wrote:

 Hi Team,

 Need a help in find the missed emp id list.

 Sheet1 have the actual employee ids and date. In sheet2 have overall
 employee ids in that i need to find the employee missed on particular date.
 Please find the attachment for your reference.

 Thanks  Regards,
 Ganesh N

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

 FORUM RULES

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

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


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

 FORUM RULES

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS 
EXCEL AND VBA MACROS group

Re: $$Excel-Macros$$ Help to merge text from difference cell

[ashish koul]

pls share sample file


On Mon, Apr 7, 2014 at 2:42 PM, Ashish Bhalara ashishbhalar...@gmail.comwrote:

 Dear experts,

 I want merge cell containing text value and want comma(,) between all cell
 value in cocatenate function but my query is that when cell value is blank,
 the comma should not be display. Is it possible, kindly guide regarding
 this.

 Thanks  regards.
 Ashish Bhalara
 9624111822
 P*Please do not print this email unless it is absolutely necessary.
 Spread environmental üawareness.♣♣♣*

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

 FORUM RULES

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

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

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Re: How to define the uppercase, lowercase and proper()

[ashish koul]

1- yes to avoid blank cells n formula's

2 you can try For Each cl In Range(a1:a100)
3 is it small -upper  sequence?


On Mon, Apr 7, 2014 at 8:59 PM, Falina Gan falina...@gmail.com wrote:

 Hi Ashish,

 Are you there to guide me on the questions below?

 Thanks


 On Sunday, April 6, 2014 10:56:23 PM UTC+8, Falina Gan wrote:

 Hi Ashiah,

 Thank you for your advise on the range. Could I ask you some questions as
 below:-

 1) Why do we use If cl.HasFormula = False And Not IsEmpty(cl) And Not
 IsDate(cl) Then is it that the cell must not be empty and not a date?

 2) If a user want to change the whole column rather than the cell, can we
 do it? Is it For Each cl In Selection.Col?

 3) If you refer back the image, how about the D - fruit column?

 We hope to hear from you.


 On Saturday, April 5, 2014 1:38:03 PM UTC+8, Falina Gan wrote:

 To Whom It May Concern,

 We would like to know if we are creating a column for uppercase,
 lowercase and initial case like the image as below:

 https://lh3.googleusercontent.com/-W-ODtj0Qj54/Uz-WLZMSBRI/AEw/milNQIqxnk4/s1600/upper.jpg


 Hope to hear from you soon.

 Thanks.

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Help to merge text from difference cell

[ashish koul]

please share a sample workbook


On Sat, Apr 5, 2014 at 1:18 PM, Ashish Bhalara ashishbhalar...@gmail.comwrote:

 Dear experts,

 I want merge cell containing text value and want comma(,) between all cell
 value in cocatenate function but my query is that when cell value is blank,
 the comma should not be display. Is it possible, kindly guide regarding
 this.

 Thanks  regards.
 Ashish Bhalara
 9624111822
 P*Please do not print this email unless it is absolutely necessary.
 Spread environmental üawareness.♣♣♣*

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Re: How to define the uppercase, lowercase and proper()

[ashish koul]

Sub propercase()
Dim cl As Range
For Each cl In Selection.Cells
If cl.HasFormula = False And Not IsEmpty(cl) And Not IsDate(cl) Then
cl = StrConv(cl.Text, vbProperCase)
End If
Next
End Sub


Sub uppercase()
Dim cl As Range
For Each cl In Selection.Cells
If cl.HasFormula = False And Not IsEmpty(cl) And Not IsDate(cl) Then
cl = StrConv(cl.Text, vbUpperCase)
End If
Next
End Sub

Sub lowercase()
Dim cl As Range
For Each cl In Selection.Cells
If cl.HasFormula = False And Not IsEmpty(cl) And Not IsDate(cl) Then
cl = StrConv(cl.Text, vbLowerCase)
End If
Next
End Sub


On Sat, Apr 5, 2014 at 11:13 AM, Falina Gan falina...@gmail.com wrote:

 To Whom It May Concern,

 In VBA please. thanks.

 On Saturday, April 5, 2014 1:38:03 PM UTC+8, Falina Gan wrote:

 To Whom It May Concern,

 We would like to know if we are creating a column for uppercase,
 lowercase and initial case like the image as below:

 https://lh3.googleusercontent.com/-W-ODtj0Qj54/Uz-WLZMSBRI/AEw/milNQIqxnk4/s1600/upper.jpg


 Hope to hear from you soon.

 Thanks.

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Compare two worksheet Trial Balance

[ashish koul]

please share a sample workbook with some dummy data


On Sat, Apr 5, 2014 at 8:02 PM, Sandeep Kumar Chhajer 
chhajersand...@gmail.com wrote:

 Dear Excel gurus,

 Kindly check the trailing mail.
 Thanks  Regards,
 Sandeep Kumar Chhajer
 Mumbai
 India

 Sent on my BlackBerry(R) from Vodafone

 -Original Message-
 From: Sandeep Kumar Chhajer chhajersand...@gmail.com
 Sender: excel-macros@googlegroups.com
 Date: Sat, 5 Apr 2014 04:21:56
 To: Excel Macrosexcel-macros@googlegroups.com
 Reply-To: excel-macros@googlegroups.com
 Subject: $$Excel-Macros$$ Compare two worksheet Trial Balance

 Dear Excel gurus,

 Every day I have to compare two identical formatted worksheet trial
 balance. I want macro to compare both the trial balance.
 Macro should work as below:
 It will give me an option to choose which two workbook contains (workbook
 only contains one worksheet containing trial balance).
 Both Work book contains data like below:
 TB 1st April
 G/L code.  Amount
 10005632.   -100
 20004128.  50
 30008721. -50
 40007214. 100

 TB 2nd April
 G/L code.  Amount
 10005632.   -100
 10009841. -10
 20004128.  60
 30008721. -50
 40007214. 100

 I used to compare both the sheet with vlookup and prepare report like below

 Changes in TB
 G/L code.   Amount.  Mode
   Change
 10009841.  -10.   New code
 20004128.10.  Change in amount

 (sorry for reason of confidentiality I can't share file with you all. I
 hope you all understand)

 If any one can help me out to automate the report I will be highly
 grateful.

 Thanks in advance.

 Thanks  Regards,
 Sandeep Kumar Chhajer
 Mumbai
 India

 Sent on my BlackBerry(R) from Vodafone

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

 FORUM RULES

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

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

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3

Re: $$Excel-Macros$$ Delete button on Sequence Column

[ashish koul]

who will be creating the pattern column ?

On Sat, Apr 5, 2014 at 10:30 AM, Falina Gan falina...@gmail.com wrote:

 To Whom It May Concern,

 Could you guide me with VBA codes, on these steps:-

 1) Create a sequence column as image below ( all in alphabets )
 2) Delete button to delete the sequence column
 3) Then the pattern column is in A column. ( refer to your right side )

 Hope to hear from you. Thanks


 https://lh3.googleusercontent.com/-Hz697YMgPPM/Uz-NmT7WsNI/AEc/DDx5v2sFrMY/s1600/pattern.jpg


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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Macro for copying from a notepad and creating a record in excel

[ashish koul]

can u share how your output look likes


On Thu, Apr 3, 2014 at 10:25 PM, Subhra Sardar dkbos...@gmail.com wrote:



 I am new to VBA and I need a little help with VBA.The file is attached.

 As you can see below *column B *(EVENT TYPE) there is a field named *JOB* and
 below the field *JOB* there is a field named *OCCURS*.For some fields you
 can see there is also another field below the job field named *WHEN*.So
 all I need to do is cut/copy Everything after *OCCURS* and *WHEN* and put
 it under another Column after column named LAST TIME on the same sheet.Now
 one important point is the statement after *WHEN can be very long and I
 need the total statement to fit in one cell.*

 Please I need help with these.Let me know if you need any other details.

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Show links which to other Data source

[ashish koul]

Sub find_links()
Dim extlinks
Dim j As Long, k As Long
Dim wkb As Workbook
Dim rng As Range, cl As Range
Dim links1 As String
Dim wk As Worksheet
Set wkb = Workbooks.Add
wkb.Sheets(1).Range(a1).Value = Sheet Name
wkb.Sheets(1).Range(b1).Value = Cell Address
wkb.Sheets(1).Range(c1).Value = Formula
wkb.Sheets(1).Range(d1).Value = External Link
k = 2
extlinks = ThisWorkbook.LinkSources(xlExcelLinks)

For Each wk In ThisWorkbook.Sheets
On Error Resume Next
Set rng = wk.UsedRange.SpecialCells(xlCellTypeFormulas)

If Not rng Is Nothing Then
For j = LBound(extlinks) To UBound(extlinks)
links1 = Left(extlinks(j), InStrRev(extlinks(j), \))  [ 
Right(extlinks(j), Len(extlinks(j)) - InStrRev(extlinks(j), \))
MsgBox links1
For Each cl In rng
If InStr(   cl.Formula, links1)  0 Then
wkb.Sheets(1).Range(a  k).Value = wk.Name
wkb.Sheets(1).Range(b  k).Value = cl.Address
wkb.Sheets(1).Range(c  k).Value = '  cl.Formula
wkb.Sheets(1).Range(d  k).Value = extlinks(j)
k = k + 1
End If
Next
Next
End If
Err.Clear
Set rng = Nothing
Next
End Sub



On Wed, Apr 2, 2014 at 4:10 PM, Ashish Bhalara ashishbhalar...@gmail.comwrote:



 -- Forwarded message --
 From: Ashish Bhalara ashishbhalar...@gmail.com
 Date: Tue, Apr 1, 2014 at 1:23 PM
 Subject: $$Excel-Macros$$ Show links which to other Data source
 To: excel-macros@googlegroups com excel-macros@googlegroups.com


 Dear experts,

 My workbook containing large no. of sheets  formulas, but I want to show
 those formulas which containing links to other data source of file. Kindly
 know me how to check it.

 --
 Regards.
 Ashish Bhalara
 9624111822
 P*Please do not print this email unless it is absolutely necessary.
 Spread environmental üawareness.♣♣♣*

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



 --
 Regards.
 Ashish Bhalara
 9624111822
 P*Please do not print this email unless it is absolutely necessary.
 Spread environmental üawareness.♣♣♣*

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

-- 
Are you =EXP

Re: $$Excel-Macros$$ All text box need to be enter

[ashish koul]

please share the sample file


On Wed, Apr 2, 2014 at 11:56 AM, Rameshwari rameshwarish...@gmail.comwrote:



 Dear Team,

 I am creating one tool in user form, it contains 3 textboxes, need help on
 fallowing

 If textbox3 fill with information then check for textbox4, if filled with
 information then check for textbox5. If all textbox 3, 4  5 are filled
 with information then go to remaining process.

 If any of 1 from these textbox is empty then prompt with the
 msgbox(textbox (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 http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/d/optout.




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Show links which to other Data source

[ashish koul]

Sub find_links()
Dim extlinks
Dim j As Long, k As Long
Dim wkb As Workbook
Dim rng As Range, cl As Range
Dim links1 As String
Dim links2 As String
Set wkb = Workbooks.Add
wkb.Sheets(1).Range(a1).Value = Cell Address
wkb.Sheets(1).Range(b1).Value = Formula
wkb.Sheets(1).Range(c1).Value = External Link
Set rng =
ThisWorkbook.Sheets(1).UsedRange.SpecialCells(xlCellTypeFormulas)
k = 2

extlinks = ThisWorkbook.LinkSources(xlExcelLinks)
For j = LBound(extlinks) To UBound(extlinks)
links1 = Left(extlinks(j), InStrRev(extlinks(j), \))  [
For Each cl In rng
If InStr(   cl.Formula, links1)  0 Then
wkb.Sheets(1).Range(a  k).Value = cl.Address
wkb.Sheets(1).Range(b  k).Value = '  cl.Formula
wkb.Sheets(1).Range(c  k).Value = extlinks(j)
k = k + 1
End If
Next
Next
End Sub

try this for sheet1 only use the loop  to go through all worksheets in the
workbook


On Tue, Apr 1, 2014 at 1:23 PM, Ashish Bhalara ashishbhalar...@gmail.comwrote:

 Dear experts,

 My workbook containing large no. of sheets  formulas, but I want to show
 those formulas which containing links to other data source of file. Kindly
 know me how to check it.

 --
 Regards.
 Ashish Bhalara
 9624111822
 P*Please do not print this email unless it is absolutely necessary.
 Spread environmental üawareness.♣♣♣*

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Save only a few sheets

[ashish koul]

do u want to save the worksheets from active workbook only or from multiple
workbooks?


On Fri, Mar 28, 2014 at 2:22 PM, Ravinder ravindervbacli...@gmail.comwrote:

 Pls provide attachement



 *From:* excel-macros@googlegroups.com [mailto:
 excel-macros@googlegroups.com] *On Behalf Of *Stefano Tagliaferri
 *Sent:* Friday, March 28, 2014 12:05 PM
 *To:* excel-macros@googlegroups.com
 *Subject:* $$Excel-Macros$$ Save only a few sheets





 Hello! Sorry for my English (Google translator)!

 I would like to write an Excel macro that can save to a different folder
 of the active, two or three sheets belonging to the folder where I'm
 working.

 It's possible? Thanks for your help

 Stefano

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

 FORUM RULES

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

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

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Macro for IF AND condition

[ashish koul]

can u share a sample file?


On Sun, Mar 30, 2014 at 9:44 PM, Renata Torquato
renataatorqu...@gmail.comwrote:

 Thanks.

 That's exactly what I tried before but it doesn't work ... =/

 Em domingo, 30 de março de 2014 12h29min52s UTC-3, ashish escreveu:

 Sub test()

 With Sheets(Sheet1)
 If .Range(a2).Value  VBA.Date And UCase(.Range(a1).Value) =
 UCase(ON TRACK ) Then
 .Range(a1).Value = DELAYED
 End If
 End With


 End Sub


 On Sun, Mar 30, 2014 at 8:32 PM, Renata Torquato renataa...@gmail.comwrote:

 I have the following situation:

 I would like the range (A1) to change to the status DELAYED if this
 range shows the status ON TRACK and if the deadline date on range A2 has
 passed the current date (Formula TODAY in another sheet). If the condition
 is false I would like range A1 to keep its status (DELAYED, ON TRACK,
 COMPLETED or ON TRACK), which means that nothing will change with the
 Macro.

 I have tried the code however it is not working. I was wondering if
 maybe it's due to the fact that all the conditions on range A1 are under
 data validation list?

 Which code should I try?

 Thanks.

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

 FORUM RULES

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

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an email to excel-macros...@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*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible

Re: $$Excel-Macros$$ Re: How to match a combobox result with an textbox

[ashish koul]

try this

Private Sub cboDM_Click()

Dim wk As Worksheet
Dim i As Long
Set wk = ThisWorkbook.Sheets(Me.cboTM.Value)


i = Application.WorksheetFunction.Match(Me.cboDM.Value, wk.Range(b:b), 0)
Me.textmeasure = wk.Range(c  i)
Me.textQuant = wk.Range(d  i)
Me.textprice = wk.Range(e  i)
Me.texttprice = wk.Range(fe  i)


End Sub




On Fri, Mar 28, 2014 at 1:13 AM, Tommy nunofilipene...@gmail.com wrote:

 ok, i have this sample from my project

 Quinta-feira, 27 de Março de 2014 14:58:39 UTC, Tommy escreveu:

 Hi,

 i am stuck on my project, an i am still a noob on VBA :P

 i have a userform with  4 textboxes and a combobox with 5 options that
 link each one to 5 sheets.
 Sheets  (A,B,C,D and E)
 Combobox with options ( 1,2,3,4 and 5)
 textboxes (textnorth, textsouth,textwest and texteast)

 when i choose option 1 from combobox, it should only display the result
 of the cell C3 from sheet A  on textbox (textnorth) and nothing on the
 other textboxes

 when i choose option 2 from combobox, it should only display the result
 of the cell C3 from sheet B  on textbox (texteast) and nothing on the
 other textboxes


 when i choose option 3 from combobox, it should only display the results
 of the cell C3 from sheet C and D  on the textboxes (textnorth and
 txtwest) and nothing on the other textboxes


 i tried using the match function, but its not working.

 Can anyone help me please ?

 Thks in advance.

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ How to match a combobox result with an textbox

[ashish koul]

Private Sub cboDM_Click()

Dim wk As Worksheet
Dim i As Long
Set wk = ThisWorkbook.Sheets(Me.cboTM.Value)


i = Application.WorksheetFunction.Match(Me.cboDM.Value, wk.Range(b:b), 0)
Me.textmeasure = wk.Range(c  i)
Me.textQuant = wk.Range(d  i)
Me.textprice = wk.Range(e  i)
Me.texttprice = wk.Range(fe  i)


End Sub


On Fri, Mar 28, 2014 at 12:03 AM, Abhishek Jain abhishek@gmail.comwrote:

 A sample file would help understand better.

 Thanks.


 On Thu, Mar 27, 2014 at 8:28 PM, Tommy nunofilipene...@gmail.com wrote:

 Hi,

 i am stuck on my project, an i am still a noob on VBA :P

 i have a userform with  4 textboxes and a combobox with 5 options that
 link each one to 5 sheets.
 Sheets  (A,B,C,D and E)
 Combobox with options ( 1,2,3,4 and 5)
 textboxes (textnorth, textsouth,textwest and texteast)

 when i choose option 1 from combobox, it should only display the result
 of the cell C3 from sheet A  on textbox (textnorth) and nothing on the
 other textboxes

 when i choose option 2 from combobox, it should only display the result
 of the cell C3 from sheet B  on textbox (texteast) and nothing on the
 other textboxes


 when i choose option 3 from combobox, it should only display the results
 of the cell C3 from sheet C and D  on the textboxes (textnorth and
 txtwest) and nothing on the other textboxes


 i tried using the match function, but its not working.

 Can anyone help me please ?

 Thks in advance.

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

 FORUM RULES

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

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


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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members

Re: $$Excel-Macros$$ Re: VBA Macro for data split as per the specified format

[ashish koul]

 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,

 *Deepak Kumar** (Analyst  Automation Expert) Contact:
 +91-399977*
 
 ……...

 *It's Never Too Late To Follow Your Dreams*

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

 *Deepak Kumar** (Analyst  Automation Expert) Contact: +91-399977*
 
 ……...

 *It's Never Too Late To Follow Your Dreams*

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

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http

Re: $$Excel-Macros$$ Macro to Import Word Tables to Excel from a folder

[ashish koul]

Sub test()
Dim filenm As String, folderpath As String
folderpath = C:\Documents and Settings\Ashish Koul\Desktop\sample
files\
filenm = Dir(folderpath)
While (filenm  )
If InStr(filenm, .doc)  0 Then
Call copytables(folderpath  filenm)
End If
filenm = Dir
Wend
End Sub

Sub copytables(filname As String)
Dim objWord As Object
Dim objdoc As Object
Dim i As Integer
Dim wkb As Workbook
Set objWord = CreateObject(Word.Application)
objWord.Visible = True
Set objdoc = objWord.Documents.Open(filname)
For i = 1 To objdoc.Tables.Count
objdoc.Tables(i).Range.Copy
Set wkb = Workbooks.Add
wkb.Sheets(1).Select
ActiveSheet.Paste
Next


objdoc.Close
Set objdoc = Nothing
Set objWord = Nothing
End Sub



On Thu, Mar 27, 2014 at 11:19 PM, Michael Stokes 
michaelstokes@gmail.com wrote:

 Ashish,

 The code works great!!! How could it be modified to create a new Excel
 document for each Word table discovered?  Kindly advise.  Thank you,
 Michael

 On Wednesday, October 2, 2013 1:09:44 AM UTC-4, ashish wrote:

 try this

 Sub import_word_table_to_excel()
 Application.DisplayAlerts = False
 Application.ScreenUpdating = False
 Dim fldpath
 Dim fld, fil As Object
 Dim appWord As Word.Application
 Dim docWord As Word.Document
 Dim tableWord As Word.Table
 Dim sdoc As String


 ' use to choose the folder having word documents

 Application.FileDialog(msoFileDialogFolderPicker).Title = Choose Folder
 Application.FileDialog(msoFileDialogFolderPicker).Show
 fldpath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
  \
 Set fso = CreateObject(scripting.filesystemobject)
 Set fld = fso.getfolder(fldpath)

 Set appWord = New Word.Application
 appWord.Visible = True
 For Each fil In fld.Files

 ' browse word documents in a folder


 If UCase(Right(fil.Path, 4)) = UCase(.doc) Or UCase(Right(fil.Path, 5))
 = UCase(.docx) Then
 Set docWord = appWord.Documents.Open(fil.Path)
 For Each tableWord In docWord.Tables
 ' copy word tables
 tableWord.Range.Copy
 ' paste it on sheet 1 of excel file
 Sheets(1).Paste Destination:=Sheets(1).Range(A65356).End(xlUp).Offset(1,
 0)
 Next
 docWord.Close
 End If
 Next fil


 appWord.Quit
 Sheets(1).Select
 Set tableWord = Nothing
 Set docWord = Nothing
 Set appWord = Nothing

 Application.DisplayAlerts = True
 Application.ScreenUpdating = True

 End Sub


 On Mon, Sep 30, 2013 at 12:47 PM, Nasir Khan nasirkh...@gmail.comwrote:


 Hello All,
 I have got lot of MS Word files in a folder eg. C:\Test\many folders
 here
 I wish to copy and paste the Tables from all the word documents in the
 above mentioned folder to excel.

 I found Macro1 (see below) which copy and paste the Table in Excel.
 My requirement is to get the tables from all the documents from each
 folder in the path C:\Test\
 Can Macro 1 be amended *to copy and paste all tables from each folder
 in C:\Test\*

 *MACRO 1 TO IMPORT WORD TABLE*
 Sub ImportWordTable()
 On Error GoTo errHandler
 Dim wordDoc As Object
 Dim wdFileName As Variant
 Dim noTble As Integer
 Dim rowNb As Long
 Dim colNb As Integer
 Dim x As Long, y As Long
 x = 1: y = 1
 wdFileName = Application.GetOpenFilename(Word files
 (*.docx),*.docx, , _
 Browse for file containing table to be imported) 'adjust this to
 the document type you are after
 If wdFileName = False Then Exit Sub
 Set wordDoc = GetObject(wdFileName)
 With wordDoc
 noTble = wordDoc.tables.Count
 If noTble = 0 Then
 MsgBox No Tables in this document, vbExclamation, No
 Tables to Import
 Exit Sub
 End If


 For k = 1 To noTble
 With .tables(k)
 For rowNb = 1 To .Rows.Count
 For colNb = 1 To .Columns.Count
 Cells(x, y) = WorksheetFunction.Clean(.cell(rowNb,
 colNb).Range.Text)
 y = y + 1
 Next colNb
 y = 1
 x = x + 1
 Next rowNb
 End With
 x = x + 2
 Next
 End With
 Set wordDoc = Nothing
 Exit Sub
 errHandler:
 MsgBox Error in generating tables -   Err.Number   -  
 Err.Description
 End Sub

 *MACRO 2 TO RUN ON ALL THE FOLDERS - this gives me runtime error as
 shown below*

 Sub RunOnAllFolders()
 Dim file
 Dim path As String
 Dim MyArray()
 Dim N As Long
  path = C:\Test\
 file = Dir(path  *.docx)
 ReDim MyArray(0)
 Do While file  
 If MyArray(0) =  Then
 MyArray(0) = file
 Else
 ReDim Preserve MyArray(UBound(MyArray) + 1)
 MyArray(UBound(MyArray)) = file
 End If
 file = Dir()
 Loop
 For N = 0 To UBound(MyArray)
Documents.Open filename:=path  MyArray(N) *'runtime error 429
 ActiveX Component can't create Object *

  *Call ImportWordTable*

 ActiveDocument.Save
 ActiveDocument.Close
 file = Dir()
 Next N
 End Sub
 Can the runtime error 429 be rectified

Re: $$Excel-Macros$$ Re: VBA Macro for data split as per the specified format

[ashish koul]

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

 *Deepak Kumar** (Analyst  Automation Expert) Contact: +91-399977*
 
 ……...

 *It's Never Too Late To Follow Your Dreams*

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ VBA Macro for data split as per the specified format

[ashish koul]

Sub create()


Dim wk As Worksheet, wk2 As Worksheet
Dim i As Long, k As Long, z As Long, s As Long

On Error Resume Next
Sheets(T1).Delete
Sheets(T2).Delete
On Error GoTo 0

Sheets.Add(after:=Sheets(Sheets.Count)).Name = T1
Sheets.Add(after:=Sheets(Sheets.Count)).Name = T2

Set wk = Sheets(T1)
Set wk2 = Sheets(T2)



For i = 2 To Sheets(Inputs data).Range(a1048576).End(xlUp).Row
With Sheets(Inputs data)
' t1
k = i
z = .Range(a  i).End(xlDown).Row
s = wk.Range(a65356).End(xlUp).Row + 2
.Range(a  k  :c  z - 1).Copy Destination:=wk.Range(a  s)
wk.Range(d  s  :d  s + (z - i - 1)).Value = .Range(a 
z).Value
wk.Range(e  s  :e  s + (z - i - 1)).Value = .Range(b 
z).Value
wk.Range(f  s  :f  s + (z - i - 1)).Value = .Range(c 
z).Value
't2
s = wk2.Range(d65356).End(xlUp).Row + 2
.Range(a  k  :c  z - 1).Copy Destination:=wk2.Range(d  s)
wk2.Range(a  s).Value = .Range(a  z).Value
wk2.Range(b  s).Value = .Range(b  z).Value
wk2.Range(c  s).Value = .Range(c  z).Value
i = z + 2
End With
Next


End Sub



On Sat, Mar 22, 2014 at 12:09 AM, Renukachari Kasee jva.ch...@gmail.comwrote:

 Dear experts,

 please provide the vba macro for attached excel sheet format split
 into separate sheets those formats are mentioned in the excel

 kindly do the needful

 thanks alot.

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ how to retrieve already applied conditional formatting on a cell

[ashish koul]

/group/excel-macros.
 For more options, visit https://groups.google.com/d/optout.


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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Very urgent . i need to submit my project today.. please help

[ashish koul]

which version of excel r u using


On Mon, Mar 17, 2014 at 12:22 PM, Prabhu Pinky prabhupin...@gmail.comwrote:

 Guys...pls help with my query
 On 17-Mar-2014 9:22 AM, Prabhu Pinky prabhupin...@gmail.com wrote:

 Hi Experts,

 Please find the attached file. there i used many SUMPRODUCT formula. it
 slow down my excel.

 please help with macro or any simplified formula.


 *am doing this on a daily basis, if u give me the solution using VBA
 Macro it would be so great.*


 pl help... very ugeeenntt.



 Thanks  Regards,
 Prabhu R

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

 FORUM RULES

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

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

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ query2

[ashish koul]

Sub test()
Dim cl As Range
Dim j As Long
For Each cl In Sheets(Sheet1).Range(b3:b7)
j = Sheets(Sheet2).Range(C65356).End(xlUp).Row
Sheets(Sheet2).Range(C  j  :c  j + 3).Value = cl.Value


Next


End Sub



On Sun, Mar 16, 2014 at 12:21 PM, Prabhu Pinky prabhupin...@gmail.comwrote:

 hi experts,

 PFA, i have few names in sheet 1, my requirements in sheet 2.

 please help me with macro coding.

 Thanks  Regards,
 Prabhu R

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ How to convert 1 (numeric value) to One (alpha value)

[ashish koul]

use this function
http://support.microsoft.com/KB/213360
http://www.yogeshguptaonline.com/2009/07/excel-functions-convert-numbers-into.html

Regards
Ashish


On Sat, Mar 15, 2014 at 7:42 PM, irshad khan ikhan.irsha...@gmail.comwrote:

 Hi Team,

 Is it possible to convert numeric value to alpha value.

 example :
 1 convert One
 2 convert Two
 3 convert Three


 Thanks,
 Irshad Khan

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ query need help

[ashish koul]

Sub TES()
Dim i As Long
Dim cl As Range

For Each cl In Sheets(Sheet1).Range(c1:c31)
If Weekday(cl.Value, vbMonday)  6 Then

With Sheets(Sheet2).Range(XFD2).End(xlToLeft).Offset(0, 1)
.Value = cl
.NumberFormat = DD-MMM-
End With

End If


Next




End Sub



On Sun, Mar 16, 2014 at 8:03 AM, Prabhu Pinky prabhupin...@gmail.comwrote:

 sorry,

 in sheet 1 dates will be in vertical, but in sheet 2 i want to fill in
 horizontal.


 Thanks  Regards,
 Prabhu R


 On 16 March 2014 08:02, Prabhu Pinky prabhupin...@gmail.com wrote:

 Hi experts,

 please find the attached file. my query is.

 i want to fill dates in sheet2  from sheer1. only weekdays, except sat
 and sun..

 in sheet1 dates will be in vertical, but in sheet2 i want to fill in
 vertical(except sat and sunday) no alteration should be done in sheet1.

 please help.



 Thanks  Regards,
 Prabhu R

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

 FORUM RULES

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

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


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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Dynamic Attachment with Email Send

[ashish koul]

 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/kY0OikQHSMo/unsubscribe.
 To unsubscribe from this group and all its topics, send an email to
 excel-macros+unsubscr...@googlegroups.com.

 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/d/optout.


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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Help!!(Dashboard)

[ashish koul]

check

chandoo.org
http://office.microsoft.com/en-in/templates/dashboard-TC101915534.aspx
http://www.skilledup.com/learn/business-entrepreneurship/best-free-excel-templates-dashboards/


On Thu, Mar 13, 2014 at 11:50 AM, Soum soumyendu...@gmail.com wrote:

 Dear Ashish,



Could you help me out  about some sample dashboards on
 Financial Reporting?



 Regards,

 Soumyendu





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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Need an address split up formula.....

[ashish koul]

is ACT common in all


On Wed, Mar 12, 2014 at 4:45 PM, Indrajit $nai talk2indra...@gmail.comwrote:

 Hi Experts,

 Is there any way out to split up an address as per the attached file
 format!

 If so then please provide me the formula or vba code (anything).

 Thanks in advance.

 --
 Indrajit

 Disclaimer:
 This electronic message and any files transmitted with it are confidential
 and intended solely for the use of the individual or entity to whom they
 are addressed. If you are not the intended recipient you are hereby
 notified that any disclosure, copying, distribution or taking any action in
 reliance on the contents of this information is strictly prohibited and may
 be unlawful.

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Save an Excel file as XML

[ashish koul]

http://office.microsoft.com/en-in/excel-help/create-an-xml-data-file-and-xml-schema-file-from-worksheet-data-HA010263509.aspx


On Sat, Mar 15, 2014 at 10:28 AM, Eugene Bernard
eugene.bern...@gmail.comwrote:

 How to save an excel table data in XML format.

 TIA.
 Eugene

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ How to link a cell between two worksheets keeping the Hyperlink?

[ashish koul]

are you saving both the files in a same folder. You can try this with vba


On Mon, Mar 10, 2014 at 11:59 PM, Caroline Campos caroline@gmail.comwrote:

 Olá Ricardo.

 Na verdade eu preciso manter dois arquivos atualizados ao mesmo tempo, vou
 atualizar somente a pasta 1, e a pasta 2 deve conter sempre as mesmas
 celulas e dados da pasta 1, ela deve ser atualizada toda vez que salvo o
 meu arquivo original.
 Só isso, as celulas devem conter vinculo, porém mesmo colando com vínculo,
 quando adiciono qualquer tipo de hyperlink no arquivo pasta 1, o meu
 arquivo pasta 2 não cria este mesmo hyperlink, quero que os dois arquivos
 sejam sempre identicos e irei atualizar somente a pasta 1.
 Porém preciso adicionar hyperlink nas células conforme for trabalhando na
 pasta original.
 Ele até cola o vínculo, cola o hyperlink, mas se eu precisar altera-lo, já
 não mantém mais vínculo de hyperlink, só de texto!

 Aguardo sua ajuda!!
 Muito Obrigada!





 *Att. Caroline Campos (21) 8102-4893*

 *Preserve o Meio Ambiente*
 *Por favor, pense em sua responsabilidade *
 *e compromisso com o Meio Ambiente, *
 *antes de imprimir qualquer documento.*








 2014-03-10 14:29 GMT-03:00 Ricardo(R) ricardo...@gmail.com:

 Olá carolina boa tarde,

 Pelo que eu entendi, voce criou um link de uma imagem na pasta1 e colou o
 link na pasta2 e voce quer que ao clicar no link da pasta2 abra a pasta1?

 Caso seja isso, ao colar na pasta2, com o botão direito do mouse, siga a
 opção COLAR ESPECIAL,  e Depois, mais embaixo: COLAR ESPECIAL, vai abrir
 uma janela com varias opões, ai procure na parte de baixo do lado esquerdo
 o botão colar vinculo.

 Espero ter ajudado.


 Basole.



 2014-03-10 8:43 GMT-03:00 Caroline Campos caroline@gmail.com:

 Ok, the samples are attached, but you can see that the files are linked,
 but when i insert a hyperlink in the principal worksheet (pasta1), the
 other doesn't updates.
 Thanks for your help!



 *Att. Caroline Campos (21) 8102-4893 %2821%29%208102-4893*

 *Preserve o Meio Ambiente*
 *Por favor, pense em sua responsabilidade *
 *e compromisso com o Meio Ambiente, *
 *antes de imprimir qualquer documento.*








 2014-03-08 10:25 GMT-03:00 ashish koul koul.ash...@gmail.com:

  you can use =HYPERLINK formula. Can you please share a sample file


 On Thu, Mar 6, 2014 at 5:20 PM, Caroline Campos caroline@gmail.com
  wrote:

 I have two worksheets and I linked the cells to change automatically,
 but when I insert a hyperlink in the cell of the original worksheet, it
 does not change the other worksheet that should be updated.
 Copying and pasting the cells, it works, but when i update the
 hiperlink, it doesn't
 So, I need too link the cells, and when updating, change the hiperlink
 too.
 Somebody help me? Thank you.

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

 FORUM RULES

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

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

 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.




 --
 *Regards*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

Re: $$Excel-Macros$$ Excel Forum available @ discussexcel.com

[ashish koul]

Sub copy_data()
Dim rowno As Long

rowno = InputBox(Enter Row No)

With Sheets(Sheet2)
.Range(F21).Value = Sheets(Sheet1).Range(k  rowno).Value
.Range(D21).Value = Sheets(Sheet1).Range(E  rowno).Value
.Range(C21).Value = Sheets(Sheet1).Range(C  rowno).Value
End With

End Sub



On Mon, Mar 10, 2014 at 2:22 PM, Leo Ruphen logaroo...@gmail.com wrote:

 Hi ashish,

 I dont have any outputs to provide. but i have explained it all in the
 workbook.
 Please do contact me if you need any informations.

 Thanks


 On Mon, Mar 10, 2014 at 1:14 AM, koul.ash...@gmail.com wrote:

 Can u share how output will look like
 Sent on my BlackBerry(R) from Vodafone
 --
 *From: * ashish koul koul.ash...@gmail.com
 *Date: *Sun, 9 Mar 2014 22:42:50 +0530
 *To: *excel-macrosexcel-macros@googlegroups.com
 *Subject: *Re: $$Excel-Macros$$ Excel Forum available @ discussexcel.com

 which row you want to pick how r u going to decide that


 On Sun, Mar 9, 2014 at 1:26 PM, Leo Ruphen logaroo...@gmail.com wrote:

 Hi Ashish,

 Thanks for the prompt reply, But i have few columns to be copied to the
 invoice.
 Please refer attachment for more details

 Thanks and Regards
 Leo
 On Sunday, 9 March 2014 13:51:43 UTC+8, ashish wrote:

 try this see if it helps

 Sub test()


 Sheets(Sheet1).Rows(20:20).Copy 
 Destination:=Sheets(Sheet2).Range(a15)
 ' to copy whole row

 Sheets(Sheet1).Range(R20).Copy 
 Destination:=Sheets(Sheet2).Range(t10)
 ' to copy cell content




 End Sub




 On Sun, Mar 9, 2014 at 11:16 AM, Leo Ruphen logar...@gmail.com wrote:

 Hi Sir,

 Could you help me with vba codes. I need help on vba code to copy data
 from sheet 1 and paste in sheet 2.
 But the range to copy the data is different from the range to copy the
 data, for example : copy from (R20) and paste in (T10).
 The sheet 2 is a invoice, There is around 15 rows in sheet 1. so, it
 would be great if i can choose the row number to copy the data.

 Thanks in advance.

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

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

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




 --
 *Regards*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198

Re: $$Excel-Macros$$ Excel Forum available @ discussexcel.com

[ashish koul]

which row you want to pick how r u going to decide that


On Sun, Mar 9, 2014 at 1:26 PM, Leo Ruphen logaroo...@gmail.com wrote:

 Hi Ashish,

 Thanks for the prompt reply, But i have few columns to be copied to the
 invoice.
 Please refer attachment for more details

 Thanks and Regards
 Leo
 On Sunday, 9 March 2014 13:51:43 UTC+8, ashish wrote:

 try this see if it helps

 Sub test()


 Sheets(Sheet1).Rows(20:20).Copy 
 Destination:=Sheets(Sheet2).Range(a15)
 ' to copy whole row

 Sheets(Sheet1).Range(R20).Copy Destination:=Sheets(Sheet2).Range(t10)
 ' to copy cell content




 End Sub




 On Sun, Mar 9, 2014 at 11:16 AM, Leo Ruphen logar...@gmail.com wrote:

 Hi Sir,

 Could you help me with vba codes. I need help on vba code to copy data
 from sheet 1 and paste in sheet 2.
 But the range to copy the data is different from the range to copy the
 data, for example : copy from (R20) and paste in (T10).
 The sheet 2 is a invoice, There is around 15 rows in sheet 1. so, it
 would be great if i can choose the row number to copy the data.

 Thanks in advance.

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

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
 Join Us on Facebook http://www.facebook.com/groups/163491717053198/


 P Before printing, think about the environment.



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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed

Re: $$Excel-Macros$$ IF statements in VBA

[ashish koul]

If sh.Range(G11).Value = 1...@x.xxx Or sh.Range(G11).Value =
2...@x.xxx Or sh.Range(G11).Value = 3...@x.xxx Then
MsgBox a
End If
 try like ths




On Mon, Mar 10, 2014 at 9:55 AM, mrExcel4u mr.exce...@gmail.com wrote:

 Plz share your workbook

 Thanks  regards,

 www.MrExcel4U.com http://mrexcel4u.blogspot.com/


 On Mon, Mar 10, 2014 at 2:46 AM, Rahman Khan rahmandk...@gmail.comwrote:

 If sh.Range(G11).Value like x...@x.xxx or x...@x.xxx,
 x...@x.xxx or x...@x.xxx, x...@x.xxx, x...@x.xxx Then

 TempFileName = TempFilePath  sh.Name   February 2014
 Invoice  _
 .pdf


 The red colored text means there can be 1 or more email addresses. But
 VBA doesn't understand the statement what you see now - actually I don't
 know how to tell VBA what I want :(

 I'm a layman in VBA

 Thanks for your help!

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

 FORUM RULES

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

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


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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ cell tooltip

[ashish koul]

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




 --
 Thanks and Regards, Rp.

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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

Re: $$Excel-Macros$$ How to link a cell between two worksheets keeping the Hyperlink?

[ashish koul]

you can use =HYPERLINK formula. Can you please share a sample file


On Thu, Mar 6, 2014 at 5:20 PM, Caroline Campos caroline@gmail.comwrote:

 I have two worksheets and I linked the cells to change automatically, but
 when I insert a hyperlink in the cell of the original worksheet, it does
 not change the other worksheet that should be updated.
 Copying and pasting the cells, it works, but when i update the hiperlink,
 it doesn't
 So, I need too link the cells, and when updating, change the hiperlink too.
 Somebody help me? Thank you.

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

 FORUM RULES

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

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




-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


P Before printing, think about the environment.

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

FORUM RULES

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

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