Re: $$Excel-Macros$$ Min With Index

[De Premor]

Hi Chandra,

You need to put Match Type on that MATCH formula
=INDEX(A2:B6;MATCH(MIN(B2:B6);B2:B6*;0*);1)

Rgds,
[dp]

On 15/09/2015 14:24, Chandra Shekar wrote:

Hello,
Am trying to find out student name who scored min marks using index & 
min function but its giving error. Could you please find attached 
workbook and let me know where its wrong.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups "MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send 
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$$ Need help on keeping copy-paste simpler

[De Premor]

Hi Isabel,

I'am glad that its work, ok here is the problem in out 2nd case
1st, we need to step back to learn about how the function work, 
cpearson.com have a bunch article about this complete with explanation & 
sample, you can follow this link 
*http://www.cpearson.com/excel/optionalargumentstoprocedures.aspx*


After reading on that link, i'am sure you will know the different between :
* SomeFunction (**/Param1/**, **/Param2/**) **
** OtherFunction ( **/Param3/**,**/[Param4] /**) **
** AnotherFunc ( **/[Param5]/**,**/[Param6]/**) *

Parameter with the bracket "[ ... ]"  is an optional parameter, we can 
ignoring that.

Ex:
SomeFunction(5) <== This function will error, because the 2nd param is 
not an optional, we must provide a value in that like SomeFunction(5,4)
OtherFunction(100) <== this will fine, because the next parameter is 
optional
OtherFunction(100,) <==This will error, because vba will think you 
forgot to write the 2nd param, so it will warn you. In another word, 
"you must write something after that comma" :D

AnotherFunc(30) <== Ok
AnotherFunc(,30) <== Ok, why ? 1st param is optional, we can ignoring them.

Now, Please look at your formula, here is the right code
'No need that coma after "v"

If v > 1 Then
Range("RowLong").Resize(v).Insert
Range("RowFormula").Copy
Range("RowLong").Offset(-v).Resize(v).PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
End If

:D
Hope it help, Rgds
[dp]

On 14/09/2015 23:12, Isabel Cristina Ortiz wrote:

Thank you DP!
Thank you very much for your help. It worked perfectly.

However, I tried to do the same in Calculation2 sheet, but inserting 
rows instead of columns and it did not work the same logic. It gives 
me a syntax error.

Could you help me fix this?

I used:
Dim v As Integer
v = Range("Months").Value - 1

If v > 1 Then
Range("RowLong").Resize(v,).Insert
Range("RowFormula").Copy
Range("RowLong").Offset(-v,).Resize(v,).PasteSpecial Paste:=xlFormulas
    Application.CutCopyMode = False
End If

Regards,
Isabel



On Sunday, September 13, 2015 at 8:56:11 PM UTC-5, De Premor wrote:

We can avoid using loop in this case, try to replace your looping
code with offset and resize, try this another solution

Dim u As Integer
u = Range("Months").Value - 1

If u > 1 Then
Range("ColumnLong").Resize(, u).Insert
Range("ColumnFormula").Copy
Range("ColumnLong").Offset(, -u).Resize(, u).PasteSpecial
Paste:=xlFormulas
Application.CutCopyMode = False
End If

Rgds,
[dp]

On 14/09/2015 6:31, Isabel Cristina Ortiz wrote:

Hello Ashish,
Thank you for your response.
This is a simplified copy of my macro. The lines you can find
there arerepeated multiple times in my final workbook, in
different spreadsheets because it has a broader mathematical
formulation.
Hope this helps,
Regards



On Saturday, September 12, 2015 at 2:19:22 PM UTC-5, ashish wrote:

Can u pls share a sample file

On Sep 12, 2015 9:38 PM, "Isabel Cristina Ortiz"
<ior...@gmail.com> 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  uAs  Integer, vAs  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 calculation
If  u > 1Then
 For  v = 1To  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
Application.ScreenUpdating =T

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

[De Premor]

We can avoid using loop in this case, try to replace your looping code 
with offset and resize, try this another solution


Dim u As Integer
u = Range("Months").Value - 1

If u > 1 Then
Range("ColumnLong").Resize(, u).Insert
Range("ColumnFormula").Copy
Range("ColumnLong").Offset(, -u).Resize(, u).PasteSpecial 
Paste:=xlFormulas

Application.CutCopyMode = False
End If

Rgds,
[dp]

On 14/09/2015 6:31, Isabel Cristina Ortiz wrote:

Hello Ashish,
Thank you for your response.
This is a simplified copy of my macro. The lines you can find there 
arerepeated multiple times in my final workbook, in different 
spreadsheets because it has a broader mathematical formulation.

Hope this helps,
Regards



On Saturday, September 12, 2015 at 2:19:22 PM UTC-5, ashish wrote:

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  uAs  Integer, vAs  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 calculation
If  u > 1Then
 For  v = 1To  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
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 

Re: $$Excel-Macros$$ Macro to Insert Pictures according to the Cell Value in Column A

[De Premor]

Hi,
Still curious with your problem, there is few more thing we need to check.
1. Make sure picture that you want to load is exist in the referenced 
folder on the code
2. Make sure it image with JPG format, not PNG, GIF, BMP  or other image 
format, just JPG (the extention is .jpg)


Thanks, waiting for your respond.

On 01/08/2015 23:40, Rashid Khan wrote:

Thanks for your explanation.
But unfortunately it is not working.
I am just enclosing herewith the pics which I am using for testing on 
your side.


Regards

On Sat, Aug 1, 2015 at 4:22 AM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


Are you sure ?
i've been test and try the code, and it work for any other picture.

Did you know how that code work ?
let me explain a little
/*) //the code is in blue, and green is my comment /

*'This code will only executed before you double clicking on any
cells / ranges on sheet*
*Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
**'If some error happen, just ignore it, ex: **picture file not
found**
**On Error Resume Next

**'The code will only working if target column is 1 or in
otherwords = Column A**
**If Target.Column = 1 Then

'it will move the cursor to select the cell on column B to place
the picture
**Target.Offset(0, 1).Select

  'And load the picture from the respective folder with name as
name on Cell Column A that you've clicked
**ActiveSheet.Pictures.Insert(C:\Product\Pictures\ 
Target.Value2  .jpg).Select

'Then Resize, and make a border
**With Selection.ShapeRange**
**.Height = Target.Offset(0, 1).Height**
**.LockAspectRatio = msoFalse**
**.Width = Target.Offset(0, 1).Width**
**.Line.Visible = msoTrue**
**.Line.Weight = 0.25**
**End With

'Reselect the cell that you clicked before
**Target.Select**
**End If**
**End Sub*



On 01/08/2015 3:33, Rashid Khan wrote:

Thanks for the quick response.
It works only for 1.jpg and not for any other pictures.

Kindly look into the code

thanks once again.



On Sat, Aug 1, 2015 at 12:00 AM, De Premor d...@premor.net
mailto:d...@premor.net wrote:

Here is the code, you can make changes or experiment with it

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As Boolean)
On Error Resume Next
If Target.Column = 1 Then
Target.Offset(0, 1).Select
ActiveSheet.Pictures.Insert(C:\Product\Pictures\ 
Target.Value2  .jpg).Select
With Selection.ShapeRange
.Height = Target.Offset(0, 1).Height
.LockAspectRatio = msoFalse
.Width = Target.Offset(0, 1).Width
.Line.Visible = msoTrue
.Line.Weight = 0.25
End With
Target.Select
End If
End Sub

Rgds,
[dp]

On 01/08/2015 2:25, prkhan56 wrote:

I am using Excel 2010
I have a problem as shown in the attached sample data

In the directory C:\Product\Pictures I have many files with
the names
shown in Column A under the Code group eg: 1.jpg, 2.jpg
….and so on

The size of inserted picture should be of the same height
and width of the cell in Column B.

I want a macro which when run should look up the Code number
in Col A.
viz: if code is 1 then it should put the pic in Column B of
1.jpg and so on an so forth

If there is no value in Col A then it should do nothing
otherwise put the respective pictures from C:\Product\Pictures.

Any help would be really appreciated.

A sample file is attached herewith

TIA
Rashid
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever 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$$ Macro to Insert Pictures according to the Cell Value in Column A

[De Premor]

Are you sure ?
i've been test and try the code, and it work for any other picture.

Did you know how that code work ?
let me explain a little
/*) //the code is in blue, and green is my comment /

*'This code will only executed before you double clicking on any cells / 
ranges on sheet*
*Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel 
As Boolean)

**'If some error happen, just ignore it, ex: **picture file not found**
**On Error Resume Next

**'The code will only working if target column is 1 or in otherwords = 
Column A**

If Target.Column = 1 Then

'it will move the cursor to select the cell on column B to place the 
picture

Target.Offset(0, 1).Select

  'And load the picture from the respective folder with name as name on 
Cell Column A that you've clicked
ActiveSheet.Pictures.Insert(C:\Product\Pictures\  Target.Value2  
.jpg).Select


'Then Resize, and make a border
With Selection.ShapeRange**
**.Height = Target.Offset(0, 1).Height**
**.LockAspectRatio = msoFalse**
**.Width = Target.Offset(0, 1).Width**
**.Line.Visible = msoTrue**
**.Line.Weight = 0.25**
**End With

'Reselect the cell that you clicked before
Target.Select**
**End If**
**End Sub*


On 01/08/2015 3:33, Rashid Khan wrote:

Thanks for the quick response.
It works only for 1.jpg and not for any other pictures.

Kindly look into the code

thanks once again.



On Sat, Aug 1, 2015 at 12:00 AM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


Here is the code, you can make changes or experiment with it

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
On Error Resume Next
If Target.Column = 1 Then
Target.Offset(0, 1).Select
ActiveSheet.Pictures.Insert(C:\Product\Pictures\ 
Target.Value2  .jpg).Select
With Selection.ShapeRange
.Height = Target.Offset(0, 1).Height
.LockAspectRatio = msoFalse
.Width = Target.Offset(0, 1).Width
.Line.Visible = msoTrue
.Line.Weight = 0.25
End With
Target.Select
End If
End Sub

Rgds,
[dp]

On 01/08/2015 2:25, prkhan56 wrote:

I am using Excel 2010
I have a problem as shown in the attached sample data

In the directory C:\Product\Pictures I have many files with the names
shown in Column A under the Code group eg: 1.jpg, 2.jpg ….and so on

The size of inserted picture should be of the same height and
width of the cell in Column B.

I want a macro which when run should look up the Code number in
Col A.
viz: if code is 1 then it should put the pic in Column B of 1.jpg
and so on an so forth

If there is no value in Col A then it should do nothing otherwise
put the respective pictures from C:\Product\Pictures.

Any help would be really appreciated.

A sample file is attached herewith

TIA
Rashid
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of
this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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

Re: $$Excel-Macros$$ Macro to Insert Pictures according to the Cell Value in Column A

[De Premor]

Here is the code, you can make changes or experiment with it

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As 
Boolean)

On Error Resume Next
If Target.Column = 1 Then
Target.Offset(0, 1).Select
ActiveSheet.Pictures.Insert(C:\Product\Pictures\  
Target.Value2  .jpg).Select

With Selection.ShapeRange
.Height = Target.Offset(0, 1).Height
.LockAspectRatio = msoFalse
.Width = Target.Offset(0, 1).Width
.Line.Visible = msoTrue
.Line.Weight = 0.25
End With
Target.Select
End If
End Sub

Rgds,
[dp]

On 01/08/2015 2:25, prkhan56 wrote:

I am using Excel 2010
I have a problem as shown in the attached sample data

In the directory C:\Product\Pictures I have many files with the names
shown in Column A under the Code group eg: 1.jpg, 2.jpg ….and so on

The size of inserted picture should be of the same height and width of 
the cell in Column B.


I want a macro which when run should look up the Code number in Col A.
viz: if code is 1 then it should put the pic in Column B of 1.jpg and 
so on an so forth


If there is no value in Col A then it should do nothing otherwise put 
the respective pictures from C:\Product\Pictures.


Any help would be really appreciated.

A sample file is attached herewith

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto: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: Fwd: $$Excel-Macros$$ Send Bulk Mail Macro

[De Premor]

Hi Nilkanth,

PFA, hope it solve your requirement

Rgds,
[dp]

On 29/07/2015 17:01, Nilkanth Raval wrote:


Hi All,

Can anyone help me in below mail???

Thanks,
Nilkanth Raval

-- Forwarded message --
From: Nilkanth Raval nilkanth.ra...@gmail.com 
mailto:nilkanth.ra...@gmail.com

Date: Jul 28, 2015 3:59 PM
Subject: $$Excel-Macros$$ Send Bulk Mail Macro
To: excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com
Cc:

Hi,

I have created Macro to send bulk emails from Excel file.

This macro is *working fine* if there is only *1 attachment* of file.

Now I want to *modify the macro* so that I can *attach multiple file*.

Please help me to modify the macro.


Thanks,

Nilkanth Raval

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto: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 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto: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.


Copy of Send Bulk EMail Macro.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Excel workbook Issues

[De Premor]

Hi Vijayendra,

I've look at your workbook, there is to many shapes textbox on your 
sheets, on sheet a there is 27.456 shapes, and on sheet b 37.419 shapes.

You can use this code to know how many shape on it.

Dim i As Long
For i = 1 To Sheets.Count
MsgBox Sheet   Sheets(i).Name  vbCrLf  Sheets(i).Shapes.Count 
  shapes

Next

I've trying to delete all of them using macro, but it freeze my 
computer, here is the code if in case you wanna give it try

Sub DeleteShapesOneByOne()
Dim i As Integer, x As Long
For i = 1 To Sheets.Count
For x = 1 To Sheets(i).Shapes.Count
Sheets(i).Shapes(x).Select
Selection.Delete
Next
Next
End Sub

or

Sub DeleteAllShapesAtOnce()
Dim i As Integer,
For i = 1 To Sheets.Count
Sheets(i).Shapes.SelectAll
Selection.Delete
Next
End Sub

Both Of them, freeze my Excel

Rgds,
[dp]

On 28/07/2015 13:56, Vijayendra Rao wrote:

Dear Expert,

My one of excel file always hang, i will not be able to copy, paste. I 
have deleted all the data, still facing the same issue. Request you to 
help me to find out the problem, as I am having many files similar 
issues. Attached is the same.


Regards,
Vijayendra

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto: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$$ Conditional Formatting

[De Premor]

PFA

On 27/12/2014 1:06, Alison Toczko wrote:
Hi. I have a spreadsheet with cells containing month and year (ie. Mar 
2014) without using a day. I would like the cell to be yellow if we 
are in the current month and year, and appear red if the month and 
year has passed. Using Excel 2013, what cell date formatting should I 
use, and how should the formula be structured? 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 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto: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.


month colour.xlsx
Description: MS-Excel 2007 spreadsheet

Re: $$Excel-Macros$$ Re: Item search in Userform

[De Premor]

Hi All,

I've writen a code for this case, i use a junk sheet for removing 
duplicate and sorting, it seem more easy to use, much faster, flexyble, 
and cut off unneeded code


what i've done is on form initialize is : copy date to junk sheet, 
remove the duplicate, sort it, and place it on combo
next, i do the same thing for showing the result data by using filter 
feature from excel before it.


PFA to have fun :D

Rgds,
[dp]

On 16/10/2014 23:37, Paul Schreiner wrote:

Here's my original version.
the technique I used made use of the Initialize event for the userform
and the change events for the beginning/end date comboboxes.
The other significant thing is the use of a Dictionary object.
I was introduced to this one several years ago.
It's like having a two-dimensional array with a built-in unique key.
I've loaded over 100,000 records into the Dictionary Object,
using a document number as the key.
Then, using the Dict_Oject.exists method, you can check the entire 
record set and IMMEDIATELY determine if the record is in the dictionary!

(without the need to loop from lbound to ubound of an array)
So, once I load all the unique keys, I use:
dArray = Dict_Oject.keys
to convert the keys to an array.
I sort this array and use it to load the first combobox.
I used the change event of the first combobox to load the second.
since the records are in order,
I started with the selected item of combobox1 and copied it and each 
subsequent value to combobox2.
Also, since you only have these two criteria to determine which 
records get put into the listbox, and you can only select combobox2 
after you've made a selection in combobox1, then I decided to use the 
change event of combobox2 to run the search (instead of requiring the 
use of a button).
Something else I used that is especially nice while debugging a 
userform is that I used vbModeless when using the .Show method.

by default, a userform is displayed as modal.
What that means is that it is tied closely to the workbook/worksheet 
and macros.
Which means that, while the userform is displayed, you cannot make 
changes to the worksheet or for the most part, the VBA code.

(there are some exceptions)
but, by using: Userform1.Show vbModeLess
The userform is free floating.
you can change the values on the worksheet and update the VBA macros 
while the userform is displayed, then continue to test the userform.
Now, you might not want to use this feature when you go live, but 
it's really great to use while testing and debugging.
something else you might see periodically in my code is the use of 
Debug.print and Debug.Assert
sometimes, I need to see what the value of certain variables are while 
debugging.
Debug.Print will allow you to print the value of variables to the 
Immediate window in the VBA Editor.
Debug.Assert lets you set a breakpoint in the editor for when 
something specific happens.
Say you're looping through 10,000 rows of data and you want to stop 
when a specific row number or cell value is reached.

You can use something like:
If (nRow = 6250) then debug.assert false
When it reaches here, you can then step through the code.
I also have been known to use a Flag_Debug variable.
Then, in various places, I put:
If (Flag_Debug) then Debug.Assert False
Then, somewhere I can set the flag to true and my program will stop 
at the Debug.Assert
(I've been known to put a debug checkbox on a userform that only 
displays if I am the one running the userform)

Lots of tricks, but most won't be useful until you have a need for them.
I've written and currently maintain over 120,000 lines of vba code in 
12-14 applications (workbooks).

But if you were to look at my early work, I know they would look juvenile.
We're always growing.  Even the ones that don't think they have 
anything else to learn!

take a look and let me know how I can help.
/Paul/
-
/*“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
*/-



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

FORUM RULES

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

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

Re: $$Excel-Macros$$ Serial Number macro problem

[De Premor]

Another Version:

Sub GenSN()
Dim Data, lRow As Long, lNum As Long, SrcData As Range

Set SrcData = ActiveSheet.Range(A:Z).Find(SNo).CurrentRegion

Data = SrcData.Value
For lRow = 1 To UBound(Data, 1)
lNum = lNum + 1
If Not IsNumeric(Data(lRow, 1)) Then lNum = 0
If IsNumeric(Data(lRow, 1)) Then Data(lRow, 1) = lNum
Next
SrcData = Data
End Sub

Line 1: variable declaration
Line 3: tell vba to remember that var SrcData is pointing to current 
activesheet on a region that contain a word SNo in a range from 
column A to Z
Line 5: Store the value from range SrcData to array named Data then 
used it in data operation in VBA, this will save a lot of time than if 
we check each range in excel from VBA

Line 6: make a repetition from line 1 to the end of array (Column mode)
Line 7: Start Counting a serial number to place in a row
Line 8: If on a cell that we check is not a number, this can be 
something like a Header-xxx or SNo and etc, then reset the number 
to zero
Line 9: If the cell is blank, the numeric value is zero, and that is a 
number, than we store the serial number on it.

Line 10: Push back the array Data to SrcData range, and we done !


Rgds,
[dp]


On 15/10/2014 10:29, Pramod Singh wrote:

Hi Renukachari,


Please find the attachment as per your requirement..

On Wed, Oct 15, 2014 at 12:10 AM, Paul Schreiner schreiner_p...@att.net wrote:

I'm sorry, but there's nothing in the attachment that describes any type of
serial number.

In fact, I'm not even sure WHAT it is describing.
It seems to be a checklist of some sort.

Does it mean that the serial number is supposed to be a 21-characters and
each character can be of the values suggested?
It could not be a 21 DIGIT number because character #8 can be 2-digits.
although, one could check the length of the string and interpret a 22
character string as using two characters for the 8th value.

Is the macro supposed to CREATE a serial number, or INTERPRET it?

without more information as to what you want to accomplish, it would be
almost impossible to guess enough to provide any meaningful assistance.

Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-

From: Renukachari Kasee jva.ch...@gmail.com
To: excel-macros@googlegroups.com excel-macros@googlegroups.com
Sent: Tuesday, October 14, 2014 2:06 PM
Subject: $$Excel-Macros$$ Serial Number macro problem

Dear Group,

Please provide the macro for serial Number as per attached sheet

Thankss

♥♥♥...♪♪♪RenukaChari. Kasee...♥♥♥...♪♪♪

P Let us do our best to save nature, save water, plant trees, protect
greenery, keep our surroundings clean, reduce usage of plastics, and use
renewable energy sources.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

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

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

Re: $$Excel-Macros$$ split text by pipe sign

[De Premor]

Try this

=TRIM(MID(SUBSTITUTE($A15;|;REPT( ;99));(COLUMN(A1)*99)-98;99))

the idea is replacing a pipe char with 99 times white space using 
SUBSTITUTE so we can trim it later to get the exact word
then we break it a part every 99 char using MID function, and then 
remove the white space using TRIM


Rgds,
[dp]

On 11/10/2014 11:49, Waseem Saifi wrote:

Hi Experts,

 I have attached a file which contain text in cell A15. I want to 
split this text by pipe sign [|] in cells next to cell A15.


Thanks in Advance.


Regards,
Waseem Saifi

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto: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.


Copy of split by pipe sign.xlsx
Description: MS-Excel 2007 spreadsheet

Re: $$Excel-Macros$$ Query for Macro

[De Premor]

Hi Prafull,

Try this if you want to use In Cell formulas, paste bellow code in module
Function IsOK(CRef As Range) As String
Dim Str As String
Str = UCase(CRef.Value)
If InStr(1, Str, YES) Or InStr(1, Str, NO) Or InStr(1, Str, 
CORRECT) Then IsOK = OK

End Function

Then just type in C2 or somewhere else =IsOK(A1)

Or

Paste this on module if you want use a single button
Sub MassOK()
Dim Rng As Range, Str As String
For Each Rng In ActiveSheet.UsedRange
Str = UCase(Rng.Value)
If InStr(1, Str, YES) Or InStr(1, Str, NO) Or InStr(1, Str, 
CORRECT) Then Rng.Offset(0, 1) = OK

Next
End Sub


Rgds,
[dp]

On 19-02-2014 17:53, Prafull Jadhav wrote:

Dear All,
I have made one macro for search word in column
like
NO
YES
Correct
if this words are in cell then write the OK in  next cell .
I have query that I have used elseif many time. Is there any other way 
in which i can write macro in one line

for example
if A1 contain words like NO,YES,Correct then next column(B1) should 
be contain OK



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ How to copy a series of ranges from one worksheet to another

[De Premor]

Hi Rob,

Try this 2 code, first sub code just need a few line code, but it slower 
than next sub code, i suggest second sub code if you have large data 
list to process


Sub Simple()
Dim Rng As Range
For Each Rng In Sheet1.UsedRange.Offset(1)
If Not Trim(Rng) =  Then
Sheet2.Range(Rng).Copy Sheet3.Range(A  2 ^ 
20).End(xlUp).Offset(1)

End If
Next
End Sub

Sub LittleBetter()
Dim Rng, Data, Result(), Arr
Dim i As Long, j As Long, k As Long

Rng = Sheet1.UsedRange.Offset(1)
Data = Sheet2.UsedRange.Offset(1)

ReDim Result(UBound(Data, 1), 2)
For i = 1 To UBound(Rng, 1)
If Not Trim(Rng(i, 1)) =  Then
Arr = Split(Replace(Rng(i, 1), $, ), :)
For j = Mid(Arr(0), 2) To Mid(Arr(1), 2)
Result(k, 0) = Data(j - 1, 1)
Result(k, 1) = Data(j - 1, 2)
k = k + 1
Next
End If
Next
Sheet3.Range(A5).Resize(k, 2) = Result
End Sub


Rgds,
[dp]

On 21-02-2014 5:10, Rob Flott wrote:
The attached workbook has 3 sheets; Data, List and Report. The 'Data' 
tab consists of two columns (A  B) of numbers from Row 2 to Row 
3652.  The 'List' tab has about 20 cells (from A2:A25) each with a 
unique Range of cells pertaining to the Data tab.  So for instance on 
the List tab in cell A2 there is a range (A52:B159).  The next range 
is found in cell A5 and it covers A378:B485, and so forth.
i am struggling to write the correct code that would Copy the range in 
Sheets(List).Range(A2) and Paste onto 
Sheets(Report).Range(A5). This would result in a series of 107 
(Rows 159 - Row 52) numbers pasted onto sheets(Report). Range(A5) 
and another 107 numbers pasted onto sheets(Report). Range(B5) .  
Then using a Do Loop or Do Until loop to repeat this copy  paste 
procedure for over one hundred ranges found on List tab.
Can anyone point me in the right direction on how to write this in VBA 
code?

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ writing into a single depending column value...

[De Premor]

Try to paste this code on VBA module, then run sub tes

Sub Tes()
Dim Src, Res, LRow As Long, Id, ColCust As New Collection, ColID

Src = Range(A2).CurrentRegion.Offset(1)
ReDim Res(1 To UBound(Src, 1), 1 To Columns.Count)
ReDim ColID(0 To Columns.Count)

For LRow = 1 To UBound(Src, 1)
Id = CustID(ColCust, Src(LRow, 1)) '+ 1
ColID(Id) = ColID(Id) + 1
Res(Id, 1) = Src(LRow, 1)
Res(Id, (ColID(Id) + 1)) = Src(LRow, 2)
Next

'Write The Result
Range(E3).Resize(ColCust.Count, WorksheetFunction.Max(ColID) + 1) 
= Res

End Sub


Function CustID(ByRef ColCust As Collection, ByVal CustNo As String) As Long
Dim Tmp As Long

On Error Resume Next
ColCust.Add CustNo, CustNo

For Tmp = 1 To ColCust.Count
If CStr(ColCust.Item(Tmp)) = CustNo Then
CustID = Tmp
Exit For
End If
Next
End Function

On 23-10-2013 21:49, Koti wrote:

Hi all,

I have an excel file in which  I have a uniq numbers column and 
contact number column.


Each unique number has few different contact numbers and for each 
unique number separate row is created.


I have to make it a single row with all contact numbers in the same row.

Here is the file and required result:

*
*   



*cust no.*  contact num 


*S458*  12345   


*S458*
54321   


*S379*  6789


*S379*
7896


*S379*
98745   


*S379*
7852


*S259*  2548


*S259*
3654


*S259*
1548


*5060*  3658












*Required*  *
*   *
*   *
*   *
*
*
*   *
*   *
*   *
*   *
*
*S458*
*12345* *54321* *
*   *
*
*S379*
*6789*  *7896*  *98745* *7852*
*S259*
*2548*  *3654*  *1548*  *3658*







Help is appreciated.
Thank you 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/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Formula Required

[De Premor]

another way :)

=UPPER(LEFT(A2,1)LEFT(TRIM(RIGHT(SUBSTITUTE(A2, ,REPT( 
,99)),99)))TEXT(B2,DDMM)LEFT(C2,1)RIGHT(C2,1))


On 22-10-2013 17:51, Anoop K Sharma wrote:

PFA updated with little change as described above.


On Tue, Oct 22, 2013 at 4:18 PM, Anoop K Sharma 
aks.sharm...@gmail.com mailto:aks.sharm...@gmail.com wrote:


As Requested, PFB the solved one.

Regards,
Anoop
Sr. Developer


On Tue, Oct 22, 2013 at 3:36 PM, xlstime xlst...@gmail.com
mailto:xlst...@gmail.com wrote:

please share the example

.

Enjoy
Team XLS



On Tue, Oct 22, 2013 at 10:28 AM, Prabhakar Thakur
prabhakarthak...@gmail.com
mailto:prabhakarthak...@gmail.com wrote:

Dear Team,

I need a formula for create unique ID.

Unique ID=first character of first Name + last name first
character + dob + first  character of Home Town.

Name



Dob



Town

Ram Kumar



15-Oct



Kota

Ram kumar Mishra



18-Sep



Patna

Ram rajat kumar Mishra



20-Jul



Delhi

Thanks,

Prabhakar


Thanks,
Prabhakar Thakur
New Delhi
+919953736776
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

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

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


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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

Anoop
Sr. Developer
Facebook ID - https://www.facebook.com/anooop.k.sharma




--
Regards,
Anoop
Sr. Developer
Facebook ID - https://www.facebook.com/anooop.k.sharma
--
Are you 

Re: $$Excel-Macros$$ Help required in a small formula.....

[De Premor]

This formula have 6 part
*=1-(**(B3/D2)^2**+**(B4/D2)^2**+**(B5/D2)^2**+**(B5/D2)^2**+**(B6/D2)^2**+**(B7/D2)^2**)*

And this Only 5 Part, Purple part was missing
*=1-(**(1/5)^2**+**(1/5)^2**+**(1/5)^2**+**(1/5)^2**+**(1/5)^2**)*

On 12-10-2013 3:52, Indrajit $nai wrote:

Hello Experts,

Kindly find attached the file, and can anyone please explain me why 
the results are comming different by using the same kind of formula in 
the column no. E2 and E4?


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


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Re: Read a Text file with delimiter as comma and import the infor into excel sheet

[De Premor]

Another way, little longer in code :D and just a little faster
I'am using manual method, fist, openit as textfile and split by 
delimiter, then copy each column to specified destination


in attached sample with 500k row data, can processed in 2,6 seconds @ my 
old comp




On 09-10-2013 13:13, Anoop K Sharma wrote:

Hi Sonika,

PFA, You can browse the text file you want to store in Excel.. This 
program runs for 3 separated value..


Just open the Excel file, click on button, browse the text file.

Regards,
Anoop
Sr. Developer


On Wed, Oct 9, 2013 at 11:08 AM, rani gupta.sonik...@gmail.com 
mailto:gupta.sonik...@gmail.com wrote:


hi

On Monday, November 5, 2007 11:52:56 PM UTC+5:30, SK wrote:

Hello Everybody,

I am new to Excel VBA. I am trying to read a text file in which
columns are separated by commas, for eg:

1,2,3
2,3,4
3,4,5
4,5,6

I canwrite this to an Excel worksheet. So, final Excel sheet has 3
columns and 4 rows(number of rows depends on on how many
entries we
have in a text file). So the worksheet will look like:

1 | 2 | 3
2 | 3 | 4
3 | 4 | 5
4 | 5 | 6

If I specify the range of the cells for example B9, my first
column
starts from B9, second from C9 and thrid from D9. I want to do
something different. I want to have different range set for
diffferent
column.
Can I specify that the first column should populate in range
B9:Bx((where x is the number of rows in the text file) and second
coulmn populate in range G9:Gx(where x is the number of rows
in the
text file) and third column populates in range I9:Ix((where x
is the
number of rows in the text file).

Thanks for your help in advance.
~SK

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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


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

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 

Re: $$Excel-Macros$$ Email Trigger ?

[De Premor]

I think he want to check after data refreshed

*/I have a dynamic spreadsheet that monitors different stock prices that 
is refreshed ever x amount of minutes./*


On 07-10-2013 16:23, Ravinder wrote:


U want this in which event like when u change value of sheet or do 
some calculation or open file or activate sheet or any specific time ?


*From:*excel-macros@googlegroups.com 
[mailto:excel-macros@googlegroups.com] *On Behalf Of *Bill Q

*Sent:* Monday, October 07, 2013 2:05 AM
*To:* excel-macros@googlegroups.com
*Subject:* $$Excel-Macros$$ Email Trigger ?

Hi,

I am using Excel 2007 and have Gmail as my primary email account.

I have a dynamic spreadsheet that monitors different stock prices that 
is refreshed ever x amount of minutes.


I would like to have a small macro created so that when a certain cell 
is either = to a certain price, will automatically send me an email 
to my Gmail account with the message to be defined later.


Anyone ?

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 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto:excel-macros@googlegroups.com.

Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Re: Multi sheets Grouping Problem

[De Premor]

Hi renuka, try to put this code on button1 on click event

Private Sub CommandButton1_Click()
Dim i As Integer, Str As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Str = Str  IIf(Len(Str)  0, |, 
)  ListBox1.List(i)

Next
Sheets(Split(Str, |)).Select
End Sub


Pada 07/10/2013 21:29, renuka chari menulis:

Dear group any update. please help me out

thanks


On Sunday, 6 October 2013 18:11:35 UTC+5:30, renuka chari wrote:

Dear Group

Please help me this problem for multi sheets select with in the
single click
As per the requirement

Thank

*(¨`•.•´¨) Always
`•.¸(¨`•.•´¨) Keep
(¨`•.•´¨)¸.•´ Smiling!!
`•.¸.•´
Thanks  Regards´¨)
  ¸ •´ ¸.•*´¨)   ¸.•*¨)
 (¸.•´  (¸.•*  ♥♥♥...♪♪♪RenukaChari. Kasee...♥♥♥...♪♪♪*
**
**PLet us do our best to save nature, save water, plant trees,
protect greenery, keep our surroundings clean, reduce usage of
plastics, and use renewable energy sources.**

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Identifying Excel number format

[De Premor]

try this

Sub xcv()
Dim Data As Range, Rng As Range

Set Data = Range(A6)

Set Data = Range(Data, Data.End(xlDown)).Offset(, 4)
For Each Rng In Data
Rng.Offset(, 2) = Rng * IIf(InStr(1, Rng.NumberFormat, Cr)  
0, -1, 1)

Next
End Sub


Pada 05/10/2013 14:23, Sandeep Chhajer menulis:

Dear Excel Gurus,

I have facing a peculiar problem related to number format.
When I export any ledger from tally I got result as bellow



Aditya Birla Memorial Hospital  
3049.00 3049.00 
Aditya Enterprises  
99521.00101086.00   *1565.00 Cr*
Airways Corporation 39363.80 Dr 

*39363.80 Dr*
Airways Surgical Pvt Ltd 	361446.45 Dr 	959168.00 	1133676.00 
*186938.45 Dr*

AL-SAMIYAH GROUP FOR MARKETING  INT. TRADE 
791326.00   883606.25   *92280.25 Cr*
Al-Wafigroup for Marketing  Int'l Trade Co.
743036.00   754572.48   *11536.48 Cr*






   Now, the custom number format for negative number is *0.00 
Cr* and for positive number is *0.00 Dr. (I have also attached 
herewith the file for your reference.)*

*
*
Again, I have tried to build a macro with my limited VBA knowledge but 
it is not working as variable b is not changing according to the 
current cursor location.

I am pasting what i have tried.


Sub format()
a = Range(e15).NumberFormat
' *i want this b shall change value according to the new destination 
i.e.*

*'   _want to make it as variable according to the new cell format.*
b = ActiveCell.NumberFormat
Do
ActiveCell.Offset(1, 0).Select
If a = b Then
ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1
ActiveCell.Offset(0, -1).Select
End If
Loop Until ActiveCell.Offset(0, -4).Value = 
End Sub
*
*
Please Help me out.

Thanks in advance.


--
Regards,
Sandeep Kumar Chhajer.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Bls: Re: $$Excel-Macros$$ Inserting BMP (Bitmap) Images Into A Predefined Cell Size

[De Premor]

You're welcome,

With that code you can customize the image to fit with cell width or cell height

-Original Message-
From: Bill Q ronsmith...@gmail.com
Sender: excel-macros@googlegroups.com
Date: Thu, 3 Oct 2013 19:52:50 
To: excel-macros@googlegroups.com
Reply-To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Inserting BMP (Bitmap) Images Into A Predefined
 Cell Size

Hi De Premor, 
 
Yes this pretty much close to what I am looking for.
 
Many thanks.  
 

On Thursday, October 3, 2013 10:44:12 PM UTC-4, De Premor wrote:

  try this attached file, i hope you can find something there

 On 03-10-2013 7:22, Bill Q wrote:
  
 Hi Ashish,  

  I put the macro into the workbook, but it is not working when executed. 
 I assume that I must be doing something wrong. I have attached the 
 spreadsheet in question with a sample photo. Essentially, I want to be able 
 to configure the size to say 2.5 x 2.5 in size consistently 
 regardless of the resolution of the source. Further, I would ideally like 
 the macro to automatically re-size it to this dimension once it is dropped 
 in (if possible).

  Thanks.

 On Wednesday, October 2, 2013 9:47:08 AM UTC-4, ashish wrote: 

 try this see if it helps 
 Sub test()
 ActiveSheet.Pictures.Insert (C:\Users\admin\Desktop\Excel Tips  
 Tricks\01.jpg)

  With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
 .Left = Range(a1).Left
 .Top = Range(a1).Top
 .Width = Range(a1).Width
 .Height = Range(a1).Height
 End With
  
  End Sub
  
  

 On Wed, Oct 2, 2013 at 6:54 PM, Bill Q ronsm...@gmail.com wrote:

  Hi, 
  
 I know how to insert the image. The thing is I want the cell to always 
 be always the same size.
  
 Any advice ? 
  
 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/groups/opt_out.

  


  -- 
 *Regards*
 * *
 *Ashish Koul*

  
  *Visit*
 *My Excel Blog http://www.excelvbamacros.com/*
 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...@googlegroups.com javascript:.
 To post to this group, send email to excel-...@googlegroups.comjavascript:
 .
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.


 

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

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may

Re: $$Excel-Macros$$ Date formatting prob! help!

[De Premor]

Try To Press Button CTRL + ` (a button before button 1, in the top of 
TAB button bellow the ESC ) :D


Or

Goto Menu Formula then deactivate Sub Menu Show Formulas

On 20-09-2013 22:01, Dawn wrote:

Hi!
Im updating my skills in excel and have created a spreadsheet with 
heaps of dates in a column.  They have 'somehow' all changed to a five 
digit number!  The original date can still be seen in the text bar at 
the top but doesn't appear in the cell.  Ive tried to format the 
column back to a short date but it doesn't work. Obviously Ive done 
something wrong.  Can one of your experts help me here please.
PS  Im an older Mum and this is a 'relearning' curve for me.  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 http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Worksheet to Master - Row consolidation

[De Premor]

U're welcome
i' stay in Borneo Island (Indonesia)
(^_^)

Pada 16/09/2013 13:13, Vishwanath menulis:

Dear De Premor,
I have no words to say thanks..
You are really great.
Which place you from? Wish i could meet you some time.
rgds
vishwanath



On 13 September 2013 08:39, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


PFA and try to run macro named SAVE on module1


On 29-08-2013 18:57, Vishwanath wrote:

Dear Experts.
Need your help.  the solution can be by using the macros.
I have a workbook containing sheet called Indent and master sheet.
Indent sheet is form.  The contents of the indent sheet to be
updated to master sheet in a particular fashion by capturing
information of the indent sheet in a particular manner given in
sample sheet attached to this posting - solution required in
master sheet.

1.  Indent sheet is the sheet where data are updated on regular
basis and needs to be updated in Master sheet
2. There should be button in Indent sheet to click to update. On
clicking the button, It should update the rows that are there
from row number 18 to the row till The row with Total amount to
the master sheet
3. On each change the users update the master by clicking the
click to update button. The data should be updated below the
present data in master sheet
4. The user can insert rows in between row number 18 and Total
amount row while updating the master. It should take the range
dynamically.

rgds
Vishwa
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of
this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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

To post to this group, send email to
excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook. Forum
owners and members are not responsible for any loss.
---
You received this message because you are subscribed to 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/uh8nMZ4bAQ4/unsubscribe.
To unsubscribe from this group and all its topics, send an email
to excel-macros+unsubscr...@googlegroups.com
mailto:excel-macros%2bunsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com
mailto:excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding

Re: $$Excel-Macros$$ macro for required data please find the attachment once

[De Premor]

Here i'am using Multidimension array to get faster result
This will little longer in code, but will much faster then Direct 
Manipulation Data using For Each ... in Range... Next (Loop)

And then... Here we go...

Sub Convert()
Dim Data, Hasil, LCount As Long, LRow As Long, iCol As Integer
Dim Timex As Double

'Start Timer
Timex = Timer

'Define the result location
Set ResLoc = Sheet2.Range(F1)

'Collect Data and store to array
Data = Sheet1.UsedRange.Value

'Resize Result Variable to Store Processed Data
ReDim Hasil(1 To ((UBound(Data, 1) * UBound(Data, 2)) - 2), 1 To 4)

LCount = 1

'Create Header
Hasil(LCount, 1) = SONG NAME
Hasil(LCount, 2) = ALBUM
Hasil(LCount, 3) = Downloads
Hasil(LCount, 4) = Date

'Loop Entire Data Column
For iCol = 3 To UBound(Data, 2) - 1
'Loop Entire Data Row
For LRow = 2 To UBound(Data, 1)
LCount = LCount + 1
'Assign the result with respected data
Hasil(LCount, 1) = Data(LRow, 1)
Hasil(LCount, 2) = Data(LRow, 2)
Hasil(LCount, 3) = Data(LRow, iCol)
Hasil(LCount, 4) = Data(1, iCol)
Next
Next

'Paste the data to Sheet, we need to resize it first to get same 
dimension with Hasil dimension

ResLoc.Resize(UBound(Hasil, 1), UBound(Hasil, 2)) = Hasil

'Create Border
ResLoc.CurrentRegion.Borders.LineStyle = xlContinuous

'Resize the column width to fit with cell data
ResLoc.CurrentRegion.EntireColumn.AutoFit

'Format Column Date as Date
Range(ResLoc, ResLoc.End(xlDown)).Offset(, 3).NumberFormat = 
[$-409]dd/mmm/yy;@


'Show the Processing Time
MsgBox Done in   Timer - Timex   seconds

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

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

[De Premor]

Try this formula

*=VLOOKUP(H3,A3:G13,MATCH(TOTAL,$A$2:$G$2,0),0)*

On 14-09-2013 11:28, Shrinivas Shevde wrote:

Dear All
Query on vlookup
Please look at the attached sheet.
Thanks in advance

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


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Populate Values over a range

[De Premor]

Try to use Selectionistead of ActiveCell

Selection.Value = Please assist with code


Pada 12/09/2013 18:36, Hilary Lomotey menulis:

Hello Experts


in the attached i have a marco that puts in values over an active 
cell. However if i select a range of either non-contiguous range or 
contiguous range i cant get it to populate over the selected range. 
pls can anyone assist with code. thanks


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Worksheet to Master - Row consolidation

[De Premor]

PFA and try to run macro named SAVE on module1

On 29-08-2013 18:57, Vishwanath wrote:

Dear Experts.
Need your help.  the solution can be by using the macros.
I have a workbook containing sheet called Indent and master sheet.
Indent sheet is form.  The contents of the indent sheet to be updated 
to master sheet in a particular fashion by capturing information of 
the indent sheet in a particular manner given in sample sheet attached 
to this posting - solution required in master sheet.


1.  Indent sheet is the sheet where data are updated on regular basis 
and needs to be updated in Master sheet
2. There should be button in Indent sheet to click to update. On 
clicking the button, It should update the rows that are there from row 
number 18 to the row till The row with Total amount to the master sheet
3. On each change the users update the master by clicking the click to 
update button. The data should be updated below the present data in 
master sheet
4. The user can insert rows in between row number 18 and Total amount 
row while updating the master. It should take the range dynamically.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


Copy of form update rows.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ am getting compile error

[De Premor]

Give more attention here !

/Sheets(//*sheet2*//).Range(A10).Value = 1000//
/
Because you've specified a sheet name, Please make sure you have Sheet 
named *sheet2 *in current workbook



Pada 11/09/2013 12:22, Prabhu Pinky menulis:

Hi experts,

Please find below simple codes, while i run the macro am getting 
compile error. Please help to know what is the mistake i have done 
with this code.



Sub sample()
Sheets(sheet2).Range(A10).Value = 1000
Sheets(sheet2).Activate
Sheets(sheet2).Range(A10).Select
MsgBox Task Completed
if msgbox(Do you want to Clear the data ?,vbYesNo,Confirm)= vbYes
then
Range(A:A).ClearContents
MsgBox Data has been cleared
Else
MsgBox Data has not been cleared
End If
End Sub



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


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Copy values to other worksheet column even if other cells in row contains data

[De Premor]

Can you explain it with a sample workbook ?

or maybe you can try to change
*LRow = WorksheetFunction.CountA(Sheet2.Range(A:A)) + 1**
*
to
*LRow = WorksheetFunction.CountA(Sheet2.Range(C:C)) + 1**
*

Pada 11/09/2013 19:28, georgebeegl...@gmail.com menulis:

Hi All,
Got some great help yesterday from De Premor using VBA to copy data to 
other worksheets and then using next available row to copy again etc.

It works like a charm. But I need some tweaking that I hope is possible.
Scenario of worksheet TOTALS
A   BC
Denver #123
Boston #254
Want I want to achieve:
I have a value on worksheet 1 that I want placed the Totals worksheet 
(example above) for Denver...however, when I run it, it places the 
value in C3 since that is the next available blank row. Is there a way 
to have it start in C1 regardless of any data in row 1 and then when 
ran again place it in C2 etc etc regardless of any other type of data 
in the corresponding row.

I've been trying but to no avail. Would appreciate any direction or advice
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Copy values to other worksheet column even if other cells in row contains data

[De Premor]

Please send me a sample file with a little explanation there

Pada 11/09/2013 20:10, georgebeegl...@gmail.com menulis:


Hi De Premor,

Thanks so much for the accurate information yesterday. We are 
currently using that for one of our workbooks.
Yesterday, you nailed putting the value into the TOTALS worksheet in 
A1 and then each time the values were cleared and the macro was run 
again it replaced that valuewhich is exactly what we needed 
and using.
Kind of the same situation with the workbook you provided yesterday 
but instead of being placed in A1, we would like it placed in B1 and 
then not over-ride the value but use the next cell in that column.
The problem is that Column A (in the Totals worksheet) has labels 
already :

COLUMN A
DENVER
BOSTON
HOUSTON
SEATTLE
When we run the macro to transfer the totals from worksheet1 to the 
TOTALS worksheet we would like it placed in B1 which would be the 
corresponding value for Denver. But it places the value in B5 which is 
a blank row.
Then the next time we tally up the values on worksheet1 we would like 
the value to be places in B2 which would be the corresponding value 
for Boston.

If you still need an example I can provide one.please let me know.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Re: Help Required : How i import Data in Excel from DBF File Get Max voucher Number

[De Premor]

No it's not, that file protected by simple method to prevent user 
opening it they change the file header structure


Try attached DBF, i've repair the header by changing 1st byte on file 
with correct value.


Pada 11/09/2013 21:19, Basole menulis:

Hi, the dbf attachment is corrupted.



Em quarta-feira, 11 de setembro de 2013 05h48min30s UTC-3, rashid 
memon escreveu:


Dear All,


I have a DBF Table containing Vouchers Month wise like

70001 (Dated : 05-July-13)
70002 (Dated : 08-July-13)
80001 (Dated : 02-August-13)


Now i want to get New voucher # by month wise

like :

New # 70003 dated 15-July-13
or New # 80002 dated 18-Aug-13


Kindly Help me in this regards

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


0.DBF
Description: Binary data

Re: $$Excel-Macros$$ Copy values to other worksheet column even if other cells in row contains data

[De Premor]

U're welcome ;-)

Pada 11/09/2013 21:24, georgebeegl...@gmail.com menulis:


PERFECT!!!Thanks so much for your assistance the last 2 days.
I appreciate it very much.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Copy values to other worksheet column even if other cells in row contains data

[De Premor]

Try this code, please give more attention on RED Color :D

Sub RoundedRectangle1_Click()
Dim LRow As Long
Sheet1.[A10].Formula = =SUM(A1:A9)
LRow = WorksheetFunction.CountA(Sheet2.Range(*B:B*)) + 1
Sheet2.Cells(LRow, *2*) = Sheet1.[A10]
Sheet1.Range(A1:A9).ClearContents
End Sub



Pada 11/09/2013 21:08, georgebeegl...@gmail.com menulis:


Explanation written on attached worksheet. Thanks for your time
and assistance.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ While Not EOF too Slow

[De Premor]

Can you share sample text file and workbook ?

Pada 11/09/2013 22:42, CesarSan menulis:
I have been researching for a quicker way to do the following task, 
but I couldn´t...


Can you please help me with that? It is basically a parser that 
convert text files into sheets, but the problem is that the text file 
has about 10 lines and this code is taking more then half hour to run!


For each new line of the text file, first I check if the sheet already 
exists and then check if the column title already exists... if so, it 
fills the data in the corresponding field, if not it creates the sheet 
and the column.


I know that this code is not optimized at all, but I am not a 
programmer so that is the way I could make this job.






Open sFileName For Input As #1
While Not EOF(1)
Line Input #1, sLin
If Left(sLin, 3) = ADD Or Left(sLin, 3) = SET 
Or Left(sLin, 3) = MOD Then

sLinSplitted = Split(sLin, ,)
NumberOfParameters = UBound(sLinSplitted)
For p = 0 To NumberOfParameters
Select Case p
Case 0
Aux1 = Split(sLinSplitted(p), :)
AuxTabl = Split(Aux1(0),  )
Tabl = AuxTabl(1)
Aux2 = Split(Aux1(1), =)
Parm = Aux2(0)
Parmval = Aux2(1)
If Tabl  Tablpre Then
DoNotCreate = 0
For Each sh In ThisWorkbook.Worksheets
If sh.Name = Tabl Then
DoNotCreate = 1
GoTo Continue:
End If
Next
If DoNotCreate  1 Then
ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)).Name 
= Tabl

End If
Tablpre = Tabl
End If
Continue:
Linh = 
ThisWorkbook.Sheets(Tabl).UsedRange.Rows.Count + 1

ThisWorkbook.Sheets(Tabl).Cells(1, 1) = NE
Case Is  0
Aux2 = Split(sLinSplitted(p), =)
Parm = Aux2(0)
Parmval = Aux2(1)
End Select
Parm = Replace(Parm,  , )
Parmval = Replace(Parmval, ;, )
Set Strg = 
ThisWorkbook.Sheets(Tabl).Range(1:3).Find(Parm, LookAt:=xlWhole)

If Strg Is Nothing Then
With 
ThisWorkbook.Sheets(Tabl).Rows(1:1)

  Set CT = .Find(What:=)
End With
colun = CT.Column
Else
colun = Strg.Column
End If
ThisWorkbook.Sheets(Tabl).Cells(1, colun) = Parm
ThisWorkbook.Sheets(Tabl).Cells(Linh, colun) = Parmval
Next
ThisWorkbook.Sheets(Tabl).Cells(Linh, 1) = NEName
If ThisWorkbook.Sheets(Tabl).Cells(2, 1) =  Then
Linh = 2
Else
 Temp = 
ThisWorkbook.Sheets(Tabl).UsedRange.Rows.Count

 Linh = Temp + 1
End If
End If
 Wend
Close



An example from the input text file is:

SET ALMBLKPARA:AID=20031, BLKPRD=0, CNTRISTHRD=0, CNTSTLTHRD=0, 
TMRISTHRD=0, TMSTLTHRD=0;


Where ALMBLKPARA must be the name of the sheet, AID, BLKPRD, 
CNTRISTHRD, CNTSTLTHRD, TMRISTHRD and TMSTLTHRD the column titles with 
the corresponding value after each =.



I really appreciate your help.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the 

Re: $$Excel-Macros$$ Copy Formula Answer to new sheet (next available cell) and REMAIN

[De Premor]

Yess that possible by using VBA, just follow attached workbook

Pada 10/09/2013 20:23, georgebeegl...@gmail.com menulis:

Hi All,
I have say a worksheet that is calculating cells A1:A9 with the Total 
being displayed in cell A10


I want the answer of the Sum Function in cell A10 to be copied to 
cell A1 in a different worksheet named say TOTALS


Easy enough but here is what I want to be able to do:

When the data in the cells are used they will be DELETED at some 
point and then start all over again. When the data is deleted I WANT 
THE *COPIED TOTAL IN A1 ON THE TOTALS SHEET TO REMAIN

*
and then when new values are entered I want the A10 value to be 
copied to the same *TOTALS WORKSHEET IN cell A2 (I don't want it to 
overwrite what was in A1 from the previous data

*
and then just continue to do so with all new data being 
entered...next time put in cell A3 because of A1 and A2 are 
holding previous data totals.


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


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


Save Totals On Other Sheets.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ If cell is blank, it should give error msg

[De Premor]

If you want to select current sheet, Use*ActiveSheet *to select it, not 
ActiveWorkbook


*ActiveSheet*.Unprotect

bla...bla...bla...

*ActiveSheet*.Protect


Pada 10/09/2013 21:52, ITP Abdulgani Shaikh menulis:

Dear Sir,
This sheet is again giving problem, please see attachments.  When I am 
additing sheet and running CHECK macro, it gives error on new added sheet.

Regards



On Wed, Sep 4, 2013 at 10:24 AM, ITP Abdulgani Shaikh 
itpabdulg...@gmail.com mailto:itpabdulg...@gmail.com wrote:


Thnks its working fine.

Can you do something for 2 issue, I know it require lil bit time

Or do partly  guide me, i will try for it

Once again thnks

On Sep 2, 2013 7:16 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:

Ups Sorry, i've forgot a line code for unlocking you sheet
protection

See at Line 4 and last line that i've bold

Sub check()
Dim Birth As Range, PANo As Range, UserInput, Arr
Set Birth = [G2]
Set PANo = [j2]
*Sheet5.Unprotect
*If IsEmpty(Birth) Then
Birth.Interior.Color = 255
Birth.Interior.Pattern = xlSolid
If MsgBox(Birth Date is empty, Do you want to enter
data now ?, vbYesNo + vbQuestion) = vbYes Then
UserInput = Application.InputBox(Enter the Bith
Date using format DD/MM/, Birth Date, Type:=2)
If Not UserInput = False Then
Arr = Split(UserInput, /)
Birth.Formula = =DATE(  Arr(2)  , 
Arr(1)  ,  Arr(0)  )
Birth.Interior.Pattern = xlNone
End If
End If
End If
If IsEmpty(PANo) Then
PANo.Interior.Color = 255
PANo.Interior.Pattern = xlSolid
If MsgBox(PANo is empty, Do you want to enter data
now ?, vbYesNo + vbQuestion) = vbYes Then
UserInput = Application.InputBox(Input PANo !,
PANo, Type:=1)
If Not UserInput = False Then
PANo = UserInput
PANo.Interior.Pattern = xlNone
End If
End If
End If
*Sheet5.Protect**
*End Sub



Pada 02/09/2013 20:05, ITP Abdulgani Shaikh menulis:

Thank you for your response, but it gives error as, pl find
attached file.



-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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




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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from

Re: $$Excel-Macros$$ If cell is blank, it should give error msg

[De Premor]

If you sheet protected by a password, you can add a password on next 
statement


Before doing some change on sheet, add this line

ActiveSheet.Unprotect MySheetPassword

and after done with it, lock it again by using the same password

ActiveSheet.Protect MySheetPassword

Pada 10/09/2013 22:09, ITP Abdulgani Shaikh menulis:

Yes got it, but active sheet is password protected, any solution for that.


On Tue, Sep 10, 2013 at 8:29 PM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


If you want to select current sheet, Use*ActiveSheet *to select
it, not ActiveWorkbook

*ActiveSheet*.Unprotect

bla...bla...bla...

*ActiveSheet*.Protect


Pada 10/09/2013 21:52, ITP Abdulgani Shaikh menulis:

Dear Sir,
This sheet is again giving problem, please see attachments.  When
I am additing sheet and running CHECK macro, it gives error on
new added sheet.
Regards



On Wed, Sep 4, 2013 at 10:24 AM, ITP Abdulgani Shaikh
itpabdulg...@gmail.com mailto:itpabdulg...@gmail.com wrote:

Thnks its working fine.

Can you do something for 2 issue, I know it require lil bit time

Or do partly  guide me, i will try for it

Once again thnks

On Sep 2, 2013 7:16 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:

Ups Sorry, i've forgot a line code for unlocking you
sheet protection

See at Line 4 and last line that i've bold

Sub check()
Dim Birth As Range, PANo As Range, UserInput, Arr
Set Birth = [G2]
Set PANo = [j2]
*Sheet5.Unprotect
* If IsEmpty(Birth) Then
Birth.Interior.Color = 255
Birth.Interior.Pattern = xlSolid
If MsgBox(Birth Date is empty, Do you want to
enter data now ?, vbYesNo + vbQuestion) = vbYes Then
UserInput = Application.InputBox(Enter the
Bith Date using format DD/MM/, Birth Date, Type:=2)
If Not UserInput = False Then
Arr = Split(UserInput, /)
Birth.Formula = =DATE(  Arr(2)  ,  Arr(1)  , 
Arr(0)  )
Birth.Interior.Pattern = xlNone
End If
End If
End If
If IsEmpty(PANo) Then
PANo.Interior.Color = 255
PANo.Interior.Pattern = xlSolid
If MsgBox(PANo is empty, Do you want to enter
data now ?, vbYesNo + vbQuestion) = vbYes Then
UserInput = Application.InputBox(Input PANo
!, PANo, Type:=1)
If Not UserInput = False Then
PANo = UserInput
PANo.Interior.Pattern = xlNone
End If
End If
End If
*Sheet5.Protect**
*End Sub



Pada 02/09/2013 20:05, ITP Abdulgani Shaikh menulis:

Thank you for your response, but it gives error as, pl
find attached file.



-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do

you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

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

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




-- 
Shaikh AbdulGani A R

ITP, STP, TRP, STRP
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

Re: $$Excel-Macros$$ copy data paste into new worksheet or book save into folder

[De Premor]

Try This

Sub WbSpliter()
Dim Sh As Worksheet, Keys, LRow As Long

Const SavePath As String = C:\Workbook

Set Sh = ActiveSheet
Key = Sh.Range(R2:  Sh.Range(R2).End(xlDown).Address).Value2

Application.DisplayAlerts = False
MakeDir SavePath

For LRow = LBound(Key) To 10
Sh.UsedRange.AutoFilter field:=18, Criteria1:=Key(LRow, 1)
Sh.Cells.Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).Paste
ActiveWorkbook.Sheets(1).[a1].Select
ActiveWorkbook.SaveAs SavePath  \  Key(LRow, 1)  .xlsx
ActiveWorkbook.Close
Next
Sh.UsedRange.AutoFilter
Sh.[a1].Select

Application.DisplayAlerts = True
MsgBox Done!
End Sub


Pada 08/09/2013 19:20, black panther menulis:

Hi Anil,

Thanks for your help i Appreciate

On Tuesday, September 3, 2013 8:38:17 AM UTC+4, अनिल नारायण गवली wrote:

Dear Prajakt Pande,

Has it has lots of rows init. It will take nearly 5 min, so have
patients.

Warm Regards,
Gawli Anil.
Thanks  Regards,
Gawli Anil Narayan
Software Developer,
Abacus Software Services Pvt Ltd


On Tue, Sep 3, 2013 at 10:07 AM, अनिल नारायण गवली
gawlia...@gmail.com javascript: wrote:
  Dear Prajakt Pande,


 Run the Macro from view tab.

 Warm Regards,
 Gawli Anil
 Thanks  Regards,
 Gawli Anil Narayan
 Software Developer,
 Abacus Software Services Pvt Ltd


 On Mon, Sep 2, 2013 at 4:59 PM, black panther
prajak...@gmail.com javascript: wrote:
 Dear Team,



 I have one excel sheet (attached), what I am looking for:-



 01)Depend upon the “r” macro need to filter one by one. For better
 understanding mark column in green

 02)Copy entire data paste in to new worksheet.

 03)Now new worksheet need to save with folder location.



 Note :- sample data attached.


 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
https://www.facebook.com/discussexcel

 FORUM RULES

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

 NOTE : Don't ever post confidential data in a workbook. Forum
owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the
Google 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 javascript:.
 To post to this group, send email to excel-...@googlegroups.com
javascript:.
 Visit this group at http://groups.google.com/group/excel-macros
http://groups.google.com/group/excel-macros.
 For more options, visit
https://groups.google.com/groups/opt_out
https://groups.google.com/groups/opt_out.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

1) Use concise, accurate thread titles. 

Re: $$Excel-Macros$$ Urgent Help Required (Counta)

[De Premor]

The good thing is that your sheet name have a same name with what we are 
looking for also the name of month, so we can process it easily, try 
this on B2


=COUNTA(OFFSET(INDIRECT($A2!$A1 
),2,MATCH(B$1,INDIRECT($A2!$1:$1),0)-1,2^16))


On 07-09-2013 12:43, Ashish Kumar wrote:

Dear Seniors,


I want total count of Sold Items according to the state or months. 
I'hve tried this through Counta formula but this is huge volume of 
data, so please suggest me the easy way.



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ excel deta formate change vertical to horizontal?

[De Premor]

Using Macro

Sub createdata2()
Dim Dst As Worksheet, Rng As Range
Dim iCol As Integer, LRow(1 To 99) As Long

Worksheets.Add after:=Sheets(Worksheets.Count)
Set Dst = ActiveSheet

On Error Resume Next
For Each Rng In Sheet1.UsedRange
If InStr(1, Rng, :)  0 Then
Tmp = Split(Rng, :)
iCol = 0
iCol = WorksheetFunction.Match(Tmp(0), Dst.Range(1:1), 0)
If iCol = 0 Then
iCol = WorksheetFunction.CountA(Dst.Range(1:1)) + 1
Dst.Cells(1, iCol) = Tmp(0)
End If
LRow(iCol) = LRow(iCol) + 1
Dst.Cells(LRow(iCol) + 1, iCol) = Trim(Tmp(1))
End If
Next
Dst.Activate
End Sub

Pada 07/09/2013 18:54, priti verma menulis:

Hi Anil ,
PFA


On Sat, Sep 7, 2013 at 4:58 AM, ashish koul koul.ash...@gmail.com 
mailto:koul.ash...@gmail.com wrote:


try the attached file see if it helps



On Sat, Sep 7, 2013 at 1:48 AM, Ricardo® ricardo...@gmail.com
mailto:ricardo...@gmail.com wrote:

hi pls. share example of formatting

Bsl.


2013/9/6 Anil Kumar kumarmaury...@yahoo.com
mailto:kumarmaury...@yahoo.com

Hi

plz help me

I have a set of data (about 3000 records) that are in the
following format:
Name: name1
Address: address1
City: city1

Name: name2
Address: address2
City: city2

I want the records to look like the following:
Name Address City
Name1 Address1 City1
Name2 Address2 City2




FORUM RULES

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

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


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

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

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


-- 
Are you 

Re: $$Excel-Macros$$ Macro for Hide Column

[De Premor]

Try this !

Sub HideYes()
Dim Rng As Range
For Each Rng In Range(A2:E2)
If InStr(1, LCase(Rng), yes)  0 Then Rng.EntireColumn.Hidden 
= True

Next
End Sub


On 07-09-2013 10:46, Prafull Jadhav wrote:

Dear All,
Very Good Morning

I have one Query .
 i am looking in Range (A2:E2) . If cell contain  yes word then 
don't hide otherwise hide the column .


for example
if in A2 Cell word is Yes , i am Fine then A column must be hide
if D2 cell contain Prafull ,Yes is is fine then D column must be hide

if cell does not contain yes word then don't hide that column

Regards,
Prafull


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ If cell is blank, it should give error msg

[De Premor]

Try this

Sub check()
Dim Birth As Range, PANo As Range, UserInput, Arr
Set Birth = [G2]
Set PANo = [j2]

If IsEmpty(Birth) Then
Birth.Interior.Color = 255
Birth.Interior.Pattern = xlSolid
If MsgBox(Birth Date is empty, Do you want to enter data now 
?, vbYesNo + vbQuestion) = vbYes Then
UserInput = Application.InputBox(Enter the Bith Date using 
format DD/MM/, Birth Date, Type:=2)

If Not UserInput = False Then
Arr = Split(UserInput, /)
Birth.Formula = =DATE(  Arr(2)  ,  Arr(1)  , 
 Arr(0)  )

Birth.Interior.Pattern = xlNone
End If
End If
End If
If IsEmpty(PANo) Then
PANo.Interior.Color = 255
PANo.Interior.Pattern = xlSolid
If MsgBox(PANo is empty, Do you want to enter data now ?, 
vbYesNo + vbQuestion) = vbYes Then
UserInput = Application.InputBox(Input PANo !, PANo, 
Type:=1)

If Not UserInput = False Then
PANo = UserInput
PANo.Interior.Pattern = xlNone
End If
End If
End If
End Sub


On 02-09-2013 12:13, ITP Abdulgani Shaikh wrote:

Please guide me to sort out this issue.


On Sat, Aug 31, 2013 at 3:32 PM, ITP Abdulgani Shaikh 
itpabdulg...@gmail.com mailto:itpabdulg...@gmail.com wrote:


Dear Excel Masters,

I want macro for following :
01. There are two cells in attached sheet G2  J2.  When I will
run macro it should check that whether values are entered in these
both cells.  If any one or both cells are blank, cell should be
RED and give message that values are not entered.
and then it should ask Do you want to enter data now, if yes input
box for entering value.

02. This sheet is used by me for calculating monthly tax from
Salary of employees.  In each file there are number of sheets
having details of TDS to be deducted from salary of each employee
(Pl.see cell Q46 to U46).  Number of sheet may change based on new
joining or retiring employee.  Every month I have to update
manually *Challan Detail* sheet.
= Is it possible to update *Challan Detail* sheet using macro
for all months.
= Is it possible to update data of particular month *Challan
Detail* sheet using macro.

Please guide.
Regards

-- 
Shaikh AbdulGani A R

ITP, STP, TRP, STRP
-- 


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ If cell is blank, it should give error msg

[De Premor]

Ups Sorry, i've forgot a line code for unlocking you sheet protection

See at Line 4 and last line that i've bold

Sub check()
Dim Birth As Range, PANo As Range, UserInput, Arr
Set Birth = [G2]
Set PANo = [j2]
*Sheet5.Unprotect
*If IsEmpty(Birth) Then
Birth.Interior.Color = 255
Birth.Interior.Pattern = xlSolid
If MsgBox(Birth Date is empty, Do you want to enter data now 
?, vbYesNo + vbQuestion) = vbYes Then
UserInput = Application.InputBox(Enter the Bith Date using 
format DD/MM/, Birth Date, Type:=2)

If Not UserInput = False Then
Arr = Split(UserInput, /)
Birth.Formula = =DATE(  Arr(2)  ,  Arr(1)  , 
 Arr(0)  )

Birth.Interior.Pattern = xlNone
End If
End If
End If
If IsEmpty(PANo) Then
PANo.Interior.Color = 255
PANo.Interior.Pattern = xlSolid
If MsgBox(PANo is empty, Do you want to enter data now ?, 
vbYesNo + vbQuestion) = vbYes Then
UserInput = Application.InputBox(Input PANo !, PANo, 
Type:=1)

If Not UserInput = False Then
PANo = UserInput
PANo.Interior.Pattern = xlNone
End If
End If
End If
*Sheet5.Protect**
*End Sub



Pada 02/09/2013 20:05, ITP Abdulgani Shaikh menulis:

Thank you for your response, but it gives error as, pl find attached file.



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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Re: Query on Text to Columns function

[De Premor]

Try this code

Sub Macro1()
Dim Data As Range
Application.DisplayAlerts = False
Set Data = Range(C2, Range(C2).End(xlDown).Address)
Data.TextToColumns Data.Offset(, 1), OtherChar:=., 
FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2))

Application.DisplayAlerts = True
End Sub



On 01-09-2013 1:45, PoojaSharma wrote:
Thanks Lalit for the solution, though the solution to my query is 
quite simpler..while using text to column on the very next step 
choose text for each column within text to column window.

Regards  Pooja Sharma
Sent from my iPad

On Aug 29, 2013, at 2:09 PM, Lalit Mohan Pandey 
mohan.pande...@gmail.com mailto:mohan.pande...@gmail.com wrote:



Try this

Option Explicit

Sub SplitValues()

Dim lngLoop   As Long
Dim vararrRawData() As Variant
Dim vararrSplitData As Variant
'Const variable change accordingly as per your requirement
Const strDataRangeToSplit   As String = C1:C65536
Const strDataShtNameAs String = Sheet1
Const strDataOutputShtName  As String = Sheet1
Const strDataOutputCell As String = J1
With ThisWorkbook
With .Worksheets(strDataShtName)
vararrRawData = .Range(strDataRangeToSplit).Value
End With
With .Worksheets(strDataOutputShtName)
For lngLoop = LBound(vararrRawData) To UBound(vararrRawData)
.Range(strDataOutputCell).Offset(lngLoop - 1, 0).Value = 
vararrRawData(lngLoop, 1)
vararrSplitData = Split(Replace(vararrRawData(lngLoop, 1), ., 
.'), .)

If UBound(vararrSplitData) = 0 Then
vararrSplitData(0) = vbNullString
End If
.Range(strDataOutputCell).Offset(lngLoop - 1, 1).Resize(, 
UBound(vararrSplitData) + 1).Value = vararrSplitData

Next lngLoop
End With
End With
lngLoop = Empty
Erase vararrRawData
vararrSplitData = Empty

End Sub


On Thursday, 29 August 2013 13:32:17 UTC+5:30, Pooja wrote:

Hi All,

Please advice on the below query.

Regards
Pooja Sharma
Sent from BlackBerry® on Airtel

*From: * Pooja Sharma pooja@dc.ibm.com javascript:
*Date: *Thu, 29 Aug 2013 13:19:08 +0530
*To: *vatspo...@gmail.com javascript:
*Subject: *Query on Text to Columns function

Hi All,

I am seeking for your support on one of my file (attached),
wherein I have to separate the values in different columns, the
separator (Delimitor) value is the . sign.

I was trying to do this with the function text to columns, but it
removes the zero value and I need these 0 values too.

Please advice.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, 

Re: $$Excel-Macros$$ Re: Copy data to next empty row

[De Premor]

Have you try something like bellow ?

Sub NextEmpty()
Range(A37).End(xlDown).Offset(1).Select
End Sub

Rgds,
[dp]

Pada 30/08/2013 14:35, Ravi Kumar menulis:


Yes, that’s perfect

//

*/Warm Regards,/*

*/Ravi Kumar./*

*From:*excel-macros@googlegroups.com 
[mailto:excel-macros@googlegroups.com] *On Behalf Of *Dante Julian

*Sent:* Friday, August 30, 2013 1:03 PM
*To:* excel-macros@googlegroups.com
*Subject:* Re: $$Excel-Macros$$ Re: Copy data to next empty row

Dear Ravi,

Did figure it out. In your code, I replaced the line Msgbox storeval 
with c.Select.


Thank you and best regards,

DanJ



*From:*Ravi Kumar excellearn2...@gmail.com 
mailto:excellearn2...@gmail.com
*To:* excel-macros@googlegroups.com 
mailto:excel-macros@googlegroups.com

*Sent:* Friday, August 30, 2013 2:57 PM
*Subject:* RE: $$Excel-Macros$$ Re: Copy data to next empty row

Hi,

Ok, please see the below code, if still it’s not fine then let me know

Sub findlastrow()

Dim rng As Range

Set rng = Range(A37:A115 )

For Each c In rng

If c.Value =  Then

storeval = c.Row

MsgBox storeval

Exit Sub

End If

Next

End Sub

//

*/Warm Regards,/*

*/Ravi Kumar./*

*From:*excel-macros@googlegroups.com 
mailto:excel-macros@googlegroups.com 
[mailto:excel-macros@googlegroups.com] *On Behalf Of *DanJ

*Sent:* Friday, August 30, 2013 12:21 PM
*To:* excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com
*Subject:* $$Excel-Macros$$ Re: Copy data to next empty row

Dear Experts,

Thank you for your quick replies.

Sorry, if my question was not clear.

What I wanted to find  is the last row within the range A37:A115 of 
the first workbook.


Again, thank you.

DanJ

On Friday, August 30, 2013 12:39:15 PM UTC+8, DanJ wrote:

Dear Experts,

I have a range, * A37:A115,*  in my first (1st)  workbook where I
copy and paste data from my second and third workbook, respectively.

Since the number of rows to be copied from the *second workbook*
vary daily, the next empty row in range *A37:A115* of  the first
workbook changes too.  How do i determine or code the next empty
row where the data from the*third workbook*  have to be copied and
pasted?

Thank you in advance for your help.

DanJ

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto:excel-macros@googlegroups.com.

Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to 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/3iL-MbtQduo/unsubscribe.
To unsubscribe from this group and all its topics, send an email to 
excel-macros+unsubscr...@googlegroups.com 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto:excel-macros@googlegroups.com.

Visit this group at 

Re: $$Excel-Macros$$ Counting the number of times in a range

[De Premor]

Try this attached sample, and let us know if it solve your problem

On 30-08-2013 1:15, Diannaha Thompson wrote:
Ok so I have this list of times 7am, 8am, 7:30, 9, 9:20am and etc. for 
example. I need to count how many times occur in a range. So 7:00-7:59 
occurs twice 8am-8:59 occurs once. I have tried a count if function 
but it didin't work. I must be entering something wrong.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

Re: $$Excel-Macros$$ I need help with making a macro relative to a selection field within the macro

[De Premor]

sorry, On Red Bold i mean ActiveCell.Offset(1,1)

On 31-08-2013 0:56, De Premor wrote:

Try to using Offset
Ex: Before you run your code, active / selected cell was on C3, then 
try to run this code


Sub Tes()
ActiveCell.Offset(1,0).Select'Move 1 Cell Down
Stop'See Your Current Selected Cell Now, then back here and 
press F8

ActiveCell.Offset(0,1).Select'Move 1 Cell To Right
Stop'See Your Current Selected Cell Now, then back here and 
press F8

ActiveCell.Offset(-1,0).Select'Move 1 Cell Up
Stop'See Your Current Selected Cell Now, then back here and 
press F8

ActiveCell.Offset(0,-10).Select'Move 1 Cell To Left
Stop'See Your Current Selected Cell Now, then back here and 
press F8

end sub

From that point, while you select on Cell A1, then run Your Code and 
you want the reseult on B2, then we need to change to 
Destination:=*ActiveSheet.Offset(1,1)*



On 30-08-2013 22:39, Andrew L wrote:
Hello, I am new to macros, and to recording them. I created a 
webquery with a parameter that it edits a part of the query based on 
a cell I select. I now have to run this web query 800+ times. So I 
recorded myself doing it with the Use relative references checked. 
But it always puts the webquery in the same cell I recorded the macro 
on, not the in the cell next to the cell I select for the web query.


Ex: I have a query run in A2 based on a reference in A1. So, I want 
the macro to run the query by using the information from B1 and put 
it into B2, but it always puts it into A2.


The code!

With ActiveSheet.QueryTables.Add(Connection:= _
FINDER;C:\Users\alillien.ASSOCIATED_NT\AppData\Roaming\Microsoft 
\Queries\990 Finder.iqy _

, Destination:=Range($C$576))
.Name = 990 Finder_284
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = MainContent_GridView1
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveCell.Offset(2, 0).Range(A1).Select
End Sub

I know it is because of the Destination:=Range($C$576) line, but 
I don't know how to edit it to be relative to my starting point/where 
I click for my adjustable query.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, 
send an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http

Re: $$Excel-Macros$$ I need help with making a macro relative to a selection field within the macro

[De Premor]

Try to using Offset
Ex: Before you run your code, active / selected cell was on C3, then try 
to run this code


Sub Tes()
ActiveCell.Offset(1,0).Select'Move 1 Cell Down
Stop'See Your Current Selected Cell Now, then back here and 
press F8

ActiveCell.Offset(0,1).Select'Move 1 Cell To Right
Stop'See Your Current Selected Cell Now, then back here and 
press F8

ActiveCell.Offset(-1,0).Select'Move 1 Cell Up
Stop'See Your Current Selected Cell Now, then back here and 
press F8

ActiveCell.Offset(0,-10).Select'Move 1 Cell To Left
Stop'See Your Current Selected Cell Now, then back here and 
press F8

end sub

From that point, while you select on Cell A1, then run Your Code and 
you want the reseult on B2, then we need to change to 
Destination:=ActiveSheet.Offset(1,1)



On 30-08-2013 22:39, Andrew L wrote:
Hello, I am new to macros, and to recording them. I created a webquery 
with a parameter that it edits a part of the query based on a cell I 
select. I now have to run this web query 800+ times. So I recorded 
myself doing it with the Use relative references checked. But it 
always puts the webquery in the same cell I recorded the macro on, not 
the in the cell next to the cell I select for the web query.


Ex: I have a query run in A2 based on a reference in A1. So, I want 
the macro to run the query by using the information from B1 and put it 
into B2, but it always puts it into A2.


The code!

With ActiveSheet.QueryTables.Add(Connection:= _
FINDER;C:\Users\alillien.ASSOCIATED_NT\AppData\Roaming\Microsoft 
\Queries\990 Finder.iqy _

, Destination:=Range($C$576))
.Name = 990 Finder_284
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = MainContent_GridView1
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveCell.Offset(2, 0).Range(A1).Select
End Sub

I know it is because of the Destination:=Range($C$576) line, but I 
don't know how to edit it to be relative to my starting point/where I 
click for my adjustable query.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Extra Space Enter to be removed from a cell

[De Premor]

try this formula

=TRIM(SUBSTITUTE(C2,CHAR(10), ))


Pada 26/08/2013 17:33, Pravin Gunjal menulis:

Hello,

Can I get help from you to remove extra space / enter from column C 
in the attached sheet.  Pl do the needful.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: Fwd: $$Excel-Macros$$ Extra Space Enter to be removed from a cell

[De Premor]

=TRIM(SUBSTITUTE(C2,*CHAR(10)*, ))

SUBSTITUTE is to replace somestring, in our case we need to replace 
ENTER Char(enter Char in ASCII Code is 10) to meet your requirement with 
a single space to make it a single line, Then because there is soo many 
space there, and you want to remove it,  we can use TRIM Function to do 
that job.


Thats All



Pada 26/08/2013 17:49, Pravin Gunjal menulis:

Thanks DP for your immediate response.
Could you please inform the meaning of this formula for my understanding.

Regards
Pravin Gunjal.

-- Forwarded message --
From: *De Premor* d...@premor.net mailto:d...@premor.net
Date: Mon, Aug 26, 2013 at 4:08 PM
Subject: Re: $$Excel-Macros$$ Extra Space  Enter to be removed from a 
cell

To: excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com


try this formula

=TRIM(SUBSTITUTE(C2,CHAR(10), ))


Pada 26/08/2013 17:33, Pravin Gunjal menulis:

Hello,

Can I get help from you to remove extra space / enter from column C 
in the attached sheet.  Pl do the needful.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, 
send an email to excel-macros+unsubscr...@googlegroups.com 
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto:excel-macros@googlegroups.com.

Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com 
mailto:excel-macros%2bunsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com 
mailto:excel-macros@googlegroups.com.

Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


--
Are you =EXP(E:RT

Re: $$Excel-Macros$$ Extracting data from a string of text to another cell

[De Premor]

Try this macro

Sub Pierre()
Dim Rng As Range, Data As Range, iLeft As Integer
Set Data = Selection
For Each Rng In Data
iLeft = InStr(1, Rng, () + 1
If iLeft  1 Then
Rng.Offset(0, 1) = Mid(Rng, iLeft, InStr(1, Rng, )) - iLeft)
Rng.Offset(0, 0) = Left(Rng, InStr(1, Rng, ,) - 1)
End If
Next
End Sub

Usage:
Select All Cell that you want to manipulate, then Run that macro



Pada 26/08/2013 21:30, Pierre Lanoue menulis:
I have some data that is imported into Excel.  It's a long string of 
text, in one cell, that I have to split in 2 cells and get rid of 
unwanted data.
I've attached a file, I need to manipulate the data in ROW 3 to look 
like the data in ROW 5.  Normally i do this on the same row.  I will 
copy what is found in the brackets to the cell in column B and then I 
remove everything after the comma, so I'm left with the username in 
Column A and the full name in Column B.
The format is always the same for the data that is imported.  I do 
have over 100 rows in certain cases and I almost get hypnotize to do 
the same steps over and over.

Can anyone help me to setup a mcro that would take care of my problem.
Any help would be appreciated.
Thanks!
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Formula or UDF to do Vlookup for values delimited with ]

[De Premor]

Try this code

Function LookForCode(Str As String, Data As Range, _
 Colx As Integer, Optional Delim As String = ], _
 Optional RemoveDelimiter As Boolean = False)
Dim Kode, Tmp As String
For Each Kode In Split(Str, Delim)
If Kode   Then
Tmp = Tmp  WorksheetFunction.VLookup(Kode, Data, Colx, 0) 
 IIf(RemoveDelimiter,  , Delim)

End If
Next
LookForCode = Trim(Tmp)
End Function




Pada 25/08/2013 14:43, prkhan56 menulis:

Dear De Premor,
One small request please
Is it possible to amend your code to retain the ] in the output.
Thanks for your time.
Regards
Rashid

On Wednesday, August 21, 2013 11:14:57 PM UTC+4, prkhan56 wrote:

Thanks De Premor,
Your code works on any sheet.
Regards
Rashid Khan

On Wednesday, August 21, 2013 3:22:48 AM UTC+4, De Premor wrote:

try to replace current code with this

Function LookForCode(Str As String, Data As Range, Colx As
Integer, Optional Delim As String = ])
Dim Kode, Tmp As String
For Each Kode In Split(Str, Delim)
If Kode   Then Tmp = Tmp
WorksheetFunction.VLookup(Kode, Data, Colx, 0)
Next
LookForCode = Trim(Tmp)
End Function

Pada 20/08/2013 22:56, prkhan56 menulis:

Thanks Ravinder,
Couple of things if you would kindly rectify it please.
1) For some reason, the UDF does not work for codes which is
not on the active sheet.  I had posted my problem for sake of
explanation on the same sheet but in reality it is on other
sheet.
2) If you could please convert it to a macro so that I can
*select the codes* on any sheet in the  active workbook and
run the macro then it would *_replace the codes with the
answer on the same cell._*
Really appreciate your help as it would save me lot of time.
Regards
Rashid Khan

On Monday, August 19, 2013 11:49:04 AM UTC+4, Ravinder Negi
wrote:


PFA.There are three argument in UDF first lookup
value , lookarea(range),colnum


*From:* Rashid Khan prkh...@gmail.com
*To:* excel-...@googlegroups.com
*Sent:* Sunday, August 18, 2013 9:32 PM
*Subject:* $$Excel-Macros$$ Formula or UDF to do Vlookup
for values delimited with ]

Hello All,
I am attaching a sample of my problem.
I need to do Vlookup from a Range which has Codes in Col
A and Text in Col B.
I want to have the output required (highlighted in
Yellow) on Col D based on the Answers Col C.
My problem is that the Codes are delimited with ].
I do not want to separate the Answers using Text to Column.
I tried the following and got the desired result if there
is only one code in the Answers Column.
=VLOOKUP(LEFT(C2,FIND(],C2)-1),RangeCodes,2,0)
As you can see in the attached sheet if there are many
Codes combined together then I cannot get the desired result.
Is there a formula or a UDF which can give me the desired
result.
Please note that there are several Columns with the Codes
combined.  I have just used a sample column to
demonstrate my problem.
TIA
Rashid 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
https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook.
Forum owners and members are not responsible for any loss.
---
You received this message because you are subscribed to
the Google 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

Re: $$Excel-Macros$$ Behind code of Sum function in VBA

[De Premor]

Hi Pavan, Try this rev code

Function xSum(ParamArray Numbers()) As Variant
Dim BlockRange, SingleRange, Buffer
For Each BlockRange In Numbers
If WorksheetFunction.IsNumber(Evaluate(BlockRange)) Then
Buffer = Buffer + BlockRange
Else
For Each SingleRange In BlockRange
Buffer = Buffer + SingleRange
Next
End If
Next
xSum = Buffer
End Function

On 23-08-2013 11:27, Pavan Chowdary wrote:

De Promor,

Could you please check that code by giving hadcoded values in the 
fomula? like xsum ( 1,2,3). it is not working. i want to have a 
function which works eighther for range and for range and for both. 
Thanks for your work on this.


-Pavan


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Tricky tricks - 1

[De Premor]

Just figure it out after someone asking it again in another groups

Using Indirect in Defined Name to make it dynamic Row, but just work for 
Column A :-D


=EVALUATE(INDIRECT(A  ROW()))


On 30-07-2013 14:01, xlstime wrote:

if we have more then thousands of records than?

.

Enjoy
Team XLS



On Mon, Jul 29, 2013 at 9:41 PM, Secret Shot secrets...@gmail.com 
mailto:secrets...@gmail.com wrote:


Put = sign in cell A2 itself at the bagining of the text... :P


On Sun, Jul 28, 2013 at 1:46 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:

create defined name inexample : *Eval**A2* that referring to
=EVALUATE(A2)

Then in some cell in that sheet, just type *=EvalA2**
*


Pada 28/07/2013 14:59, xlstime menulis:

and what about formula

.

Enjoy
Team XLS



On Sun, Jul 28, 2013 at 11:10 AM, De Premor d...@premor.net
mailto:d...@premor.net wrote:

using udf
On Cell A3, type*=Eval(A2)*

then, on VBE, add module and paste this code
*Function eval(str As String)**
**eval = Evaluate(str)**
**End Function**
*:-X

On 28/07/2013 12:09, xlstime wrote:

Hi All,

How to Evaluate cell value.

let assume that, in cell A2 -  '1+2+3+4'

now how to sum or calculate cell value

hint: evaluate

.

Enjoy
Team XLS

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do

you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

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

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




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do

you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

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

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

Re: $$Excel-Macros$$ Behind code of Sum function in VBA

[De Premor]

Try this and explore it

Function xSum(ParamArray Numbers()) As Variant
Dim BlockRange, SingleRange, Buffer
For Each BlockRange In Numbers
For Each SingleRange In BlockRange
Buffer = Buffer + SingleRange
Next
Next
xSum = Buffer
End Function


Pada 22/08/2013 19:08, Pavan Valluru menulis:

Hi Guys, Hope all are doing well.

Here comes the subject. I am trying to get the code behing sum 
function. I searched for the but all went vain.
I tried using Paramarray but it is not working when we are refering to 
a paraticular range. i want to write a function which really works 
like sum function. i.e which can take 1 or more ranges and summing up etc.


Please share your techniques.

Thanks in Advance.

Pavan


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ How to split Data based on last comm,

[De Premor]

Another simple and short
=TRIM(RIGHT(SUBSTITUTE(A2,,,REPT( ,99)),99))

Pada 21/08/2013 16:12, Andrew Mangozho menulis:

Another simpler but rather long method to get the same result


On Tue, Jul 30, 2013 at 4:31 AM, Waseem Saifi waseemsa...@gmail.com 
mailto:waseemsa...@gmail.com wrote:


Dear Rajkumar,

Please find attached file with solution.

Regards,
Waseem Saifi


On Tue, Jul 30, 2013 at 3:48 PM, Raj Kumar rajlu...@gmail.com
mailto:rajlu...@gmail.com wrote:

Dear Group,
We have lots of records and Segregate the data based on only
last comma and consider the same
Like,
*Data Result Shold be*
Raj, Kumar, Bharti   Bharti
Sadan, Kumar, SinhaSinha
Madan, Kumar, Sinha  Sinha
Regards
Raj Bharti
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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



-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at 

Re: $$Excel-Macros$$ Formula or UDF to do Vlookup for values delimited with ]

[De Premor]

try to replace current code with this

Function LookForCode(Str As String, Data As Range, Colx As Integer, 
Optional Delim As String = ])

Dim Kode, Tmp As String
For Each Kode In Split(Str, Delim)
If Kode   Then Tmp = Tmp 
WorksheetFunction.VLookup(Kode, Data, Colx, 0)

Next
LookForCode = Trim(Tmp)
End Function

Pada 20/08/2013 22:56, prkhan56 menulis:

Thanks Ravinder,
Couple of things if you would kindly rectify it please.
1) For some reason, the UDF does not work for codes which is not on 
the active sheet.  I had posted my problem for sake of explanation on 
the same sheet but in reality it is on other sheet.
2) If you could please convert it to a macro so that I can *select the 
codes* on any sheet in the  active workbook and run the macro then it 
would *_replace the codes with the answer on the same cell._*

Really appreciate your help as it would save me lot of time.
Regards
Rashid Khan

On Monday, August 19, 2013 11:49:04 AM UTC+4, Ravinder Negi wrote:


PFA.There are three argument in UDF first lookup value ,
lookarea(range),colnum

*From:* Rashid Khan prkh...@gmail.com javascript:
*To:* excel-...@googlegroups.com javascript:
*Sent:* Sunday, August 18, 2013 9:32 PM
*Subject:* $$Excel-Macros$$ Formula or UDF to do Vlookup for
values delimited with ]

Hello All,
I am attaching a sample of my problem.
I need to do Vlookup from a Range which has Codes in Col A and
Text in Col B.
I want to have the output required (highlighted in Yellow) on Col
D based on the Answers Col C.
My problem is that the Codes are delimited with ].
I do not want to separate the Answers using Text to Column.
I tried the following and got the desired result if there is only
one code in the Answers Column.
=VLOOKUP(LEFT(C2,FIND(],C2)-1),RangeCodes,2,0)
As you can see in the attached sheet if there are many Codes
combined together then I cannot get the desired result.
Is there a formula or a UDF which can give me the desired result.
Please note that there are several Columns with the Codes
combined.  I have just used a sample column to demonstrate my problem.
TIA
Rashid 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
https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook. Forum
owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the Google
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 javascript:.
To post to this group, send email to excel-...@googlegroups.com
javascript:.
Visit this group at http://groups.google.com/group/excel-macros
http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out
https://groups.google.com/groups/opt_out.


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit 

Re: $$Excel-Macros$$ Need help - How to enter the text in the cells of column by using textbox in userform

[De Premor]

paste this on userform1

'
Dim Target As Range

Private Sub CommandButton1_Click()
Target.Offset(1).Select
Unload Me
End Sub

Private Sub TextBox1_Change()
Target = TextBox1.Text
End Sub

Private Sub UserForm_Activate()
Set Target = Selection
TextBox1.Text = Target
End Sub

'--
Pada 19/08/2013 23:36, Mangesh Vimay menulis:

Hi Friends,

Please suggest me vba code to enter the text in A1, A2, A3..likewise
by using VBA Userform textbox. I have attached sample file for you
reference. Double click on cell A1, A2 will open the useform for which
I need the code.

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

Re: $$Excel-Macros$$ check date on open file

[De Premor]

Try This

Private Sub Workbook_Open()
If Now()  #8/18/2013# Then
AnotherCode
Else
CurrentCode
End If
End Sub

Sub AnotherCode()
MsgBox This Your Another Code
End Sub

Sub CurrentCode()
MsgBox This Your Current Code
End Sub



On 14-08-2013 16:45, pawel lupinski wrote:

Hi All,
is anyone can help me on this:
I'd like to run macro base on following criteria: when I open file, 
macro is checking today's date and if today is greater than e.g. 
18/08/2013 macro is execution another code.

if anyone give me some few lines of the code I'll be appreciated.
Regards,
Pawel
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Re: Convert number of days to month and day (ie, 035 = 2/4)

[De Premor]

Hi Don, try this

Sub x()
Dim Dtx As Range, dDtx As Integer, dYear As Integer
For Each Dtx In Range(D2:D  Range(D2).CurrentRegion.Rows.Count 
+ 1)

If Left(Dtx, 3) = 0 Then
dDtx = Mid(Dtx, 6, 3) * 1
dYear = 20  Mid(Dtx, 4, 2)
Dtx.Formula = =Date(  dYear  , 1,   dDtx  )
Dtx = Dtx
End If
Next
End Sub


Pada 09/08/2013 5:39, Don Barton menulis:

Thanks itware2008,
See my response to Sam above. I forgot to mention one little fact - 
this is for VBA!

Don

On Thursday, August 8, 2013 8:51:05 AM UTC-6, itware2008 wrote:

Hello Don,

If I understood you, this function should help you

=DATE(YEAR(TODAY());1;0)+A2

where A2 represents the number red by barcode scanner

OS

Quarta-feira, 7 de Agosto de 2013 23:41:24 UTC+1, Don Barton
escreveu:

Greetings,
I work at a hospital laboratory and we have an expiration date
barcode on blood transfusion units that formats the month and
day as a number; the number of days since the beginning of the
year.  We use a barcode scanner to read in the expiration
date, but need to convert the number of days to month and day.
 For example for this year (2013), 015 Would be 1/15, 275
would be 10/2.  The expiration date includes year and time as
well, but I can pull out the numbers of days using the MID
function.
I've looked through several websites as well as this Group,
but haven't found any solutions yet.

Thanks,

Don

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Text to Column Vai VBA code

[De Premor]

Try This !

Sub x()
Dim Rng As Range, Str() As Variant
For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
If InStr(1, Rng, Days)  0 Then
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs 
, ), Mins, ),  )

End If
Next
End Sub

Pada 09/08/2013 18:33, Prafull Jadhav menulis:

Dear Experts,

Can we have VBA code for the attached excel sheet.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Text to Column Vai VBA code

[De Premor]

firstly, Str() as variant is an array that we need to pass splited 
result from this function Split(Replace(Replace(Replace(Rng.Text, Days 
, ), Hrs , ), Mins, ),  ), but since i has change the code, 
we dont need that variable declared, just deleted it, i forgot to do that


If InStr(1, Rng, Days)  0 Then
is for checking if in current data is our needed data to transform by 
checking is that data contain Days word or not


Instr will result zero if that cell doesn't contain word Days, and 
will result the position number in str if it exist.




Pada 10/08/2013 7:41, Prafull Jadhav menulis:

Dear sir,
Thanks a lot for the same . It is working fine .

Can you Please,  explain the below code which is underline  line  in 
Red color  as i am not able to understand


*Sub x()
Dim Rng As Range, _Str() As Variant_*
*_
_For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
_If InStr(1, Rng, Days)  0 Then_
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs , ), 
Mins, ),  )

End If
Next
End Sub
*



On Fri, Aug 9, 2013 at 7:45 PM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


Try This !

Sub x()
Dim Rng As Range, Str() As Variant
For Each Rng In Range(A3:A 
Range(A3).CurrentRegion.Rows.Count)
If InStr(1, Rng, Days)  0 Then
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs , ),
Mins, ),  )
End If
Next
End Sub

Pada 09/08/2013 18:33, Prafull Jadhav menulis:

Dear Experts,

Can we have VBA code for the attached excel sheet.

Reg,
Prafull
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of
this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions

Re: $$Excel-Macros$$ Text to Column Vai VBA code

[De Premor]

That is, you've almost done with it, just need a little code to prevent 
error result


You have a header data In your attachment on cell A3that contain words 
RESOLUTIONS TIME, that will also splited by your code, that why i add 
data checking therelike as i know you only need to split data that 
contain Days, Hrs and Mins


This is just a minnor issue, since you can easily delete it manualy on 
result


Rgds,
[dp]

Pada 10/08/2013 8:23, Prafull Jadhav menulis:

Dear Sir,

Thanks a lot...understand the same.

Sir,
Below code is for data A1 to A10 . is it fine? will ans will get correct?
I have checked and ans getting correct ..Is there any further changes 
need?

This code is created by using your code . I have deleted the same code.

Sub prafull()
For Each x In Range(A2:A10)
Range(B  x.Row  :D  x.Row) = 
Split(Replace(Replace(Replace(x.Text, Days , ), Hrs , ), 
Mins, ),  )

Next
End Sub

Once again Thanks .
Regards,
Prafull Jadhav.



On Sat, Aug 10, 2013 at 6:29 AM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


firstly, Str() as variant is an array that we need to pass splited
result from this function Split(Replace(Replace(Replace(Rng.Text,
Days , ), Hrs , ), Mins, ),  ), but since i has
change the code, we dont need that variable declared, just deleted
it, i forgot to do that

If InStr(1, Rng, Days)  0 Then
is for checking if in current data is our needed data to transform
by checking is that data contain Days word or not

Instr will result zero if that cell doesn't contain word Days,
and will result the position number in str if it exist.



Pada 10/08/2013 7:41, Prafull Jadhav menulis:

Dear sir,
Thanks a lot for the same . It is working fine .

Can you Please,  explain the below code which is underline  line
 in Red color  as i am not able to understand

*Sub x()
Dim Rng As Range, _Str() As Variant_*
*_
_For Each Rng In Range(A3:A 
Range(A3).CurrentRegion.Rows.Count)
_If InStr(1, Rng, Days)  0 Then_
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs ,
), Mins, ),  )
End If
Next
End Sub
*



On Fri, Aug 9, 2013 at 7:45 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:

Try This !

Sub x()
Dim Rng As Range, Str() As Variant
For Each Rng In Range(A3:A 
Range(A3).CurrentRegion.Rows.Count)
If InStr(1, Rng, Days)  0 Then
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs ,
), Mins, ),  )
End If
Next
End Sub

Pada 09/08/2013 18:33, Prafull Jadhav menulis:

Dear Experts,

Can we have VBA code for the attached excel sheet.

Reg,
Prafull
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

Re: $$Excel-Macros$$ macro need

[De Premor]

paste this on macro Sheets2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer, Dst As Range
If Target.Address = $B$3 Then
[A6].CurrentRegion.Clear
Range(A6:E6) = Split(sno,Amount,int,monthly pay,int + 
monthly pay, ,)

For iRow = 1 To [E3]
Set Dst = Range(A  iRow + 6)
Dst = iRow
Dst.Offset(, 1).Formula = IIf(iRow = 1, =D3, =B  iRow 
+ 5  -D  iRow + 5)
Dst.Offset(, 2).Formula = =ROUND((B  iRow + 6  
*F3%)/12,0)

Dst.Offset(, 3).Formula = =G3
Dst.Offset(, 4).Formula = =D  iRow + 6  +C  iRow + 6
Next
Range(C  [E3] + 7).Formula = =SUM(C7:C  [E3] + 6  )
Range(D  [E3] + 7).Formula = =SUM(D7:D  [E3] + 6  )
Range(E  [E3] + 7).Formula = =SUM(E7:E  [E3] + 6  )
Range(C  [E3] + 7  :E  [E3] + 7).Font.Bold = True
Range(A7:E  [E3] + 7).Style = Comma [0]
End If
End Sub


Pada 09/08/2013 20:44, jmothilal menulis:

dear any one,

I need generate the no on installments based on paid amount m file 
attached


--

*J.Mothilal : **Universal Computer Systems : # 16, Brindavan
Complex :Otteri, Vellore-2*

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.


Copy of macro need.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Macro to delete row with specific phrase

[De Premor]

To accomodate that, the easiest way is to put your keyword to a sheet, 
Let say your array placed in sheet named MyArrayInSheet starting on 
range A1 to A1000, then use this function :


Sub Button1_Click()
Dim Rng As Range
ActiveSheet.Range(A1).Select
Do
For Each Rng In Sheets(MyArrayInSheet).Range(A1).CurrentRegion
If InStr(1, Selection, Rng)  0 Then
Selection.EntireRow.Delete
Selection.Offset(-1, 0).Select
Exit For
End If
Next
Selection.Offset(1, 0).Select
Loop Until Selection.Offset(0, 0) = 
End Sub

Pada 08/08/2013 1:10, Spencer Patterson menulis:

In my excel sheet, I have an array but the amount of entries is close to 1,000 
separate items. I am limited to 255 / too many line continuations.

Would calling a file or creating a dictionary/collection be best to implement 
into the array?

Sub longfunction()
 
Dim Rng As Range, Str

 Range(A1).Select
 
Do

 For Each Str In Array(too many, items to fit, in one array, need dictionary 
or, need to call file)
If InStr(1, Selection, Str)  0 Then Selection.EntireRow.Delete
Next

Selection.Offset(1, 0).Select
Loop Until Selection.Offset(0, 0) = 
End Sub

How would I implement 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/groups/opt_out.

Re: $$Excel-Macros$$ Macro to delete row with specific phrase

[De Premor]

Sub Button1_Click()
Dim Rng As Range, Str
Range(A1).Select
Do
For Each Str In Array(Friendly's, Ruth's Chris Steak House, 
Hooters, Ruby Tuesday, Chili's Grill  Bar)

If InStr(1, Selection, Str)  0 Then Selection.EntireRow.Delete
Next
Selection.Offset(1, 0).Select
Loop Until Selection.Offset(0, 0) = 
End Sub

Pada 06/08/2013 15:22, ravinder negi menulis:

Friendly's
Ruth's Chris Steak House
Hooters
Ruby Tuesday
Chili's Grill  Bar


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Macro to delete row with specific phrase

[De Premor]

Try to change to Uppercase or Lowercase the test string and the sentences

In Ex:
If InStr(1, UCase(Selection), Ucase(Str))  0 Then 
Selection.EntireRow.Delete



Pada 06/08/2013 23:41, Spencer Patterson menulis:

Aside from the crazy windings text, that did the trick!  Thank you so much!

Is there a way to make is so that case does not matter?

Curves
curves
CURVES

So they all get deleted?



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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Macro to delete row with specific phrase

[De Premor]

Please give us a sample attachment that close to your probem, soo we can 
find the best method for it


Pada 07/08/2013 12:04, Spencer Patterson menulis:

Thank you!

But I ran into one last problem with the code...

The amount of entries in the array string are too long, can I load a 
csv or text file to fill the array?  I have about 900 
lines/phrases/items.

It wont let me use that big of an array or too many line continuations.

Help?  =)

On Tuesday, August 6, 2013 10:35:01 PM UTC-4, De Premor wrote:

Try to change to Uppercase or Lowercase the test string and the
sentences

In Ex:
If InStr(1, UCase(Selection), Ucase(Str))  0 Then
Selection.EntireRow.Delete


Pada 06/08/2013 23:41, Spencer Patterson menulis:

Aside from the crazy windings text, that did the trick!  Thank you so much!

Is there a way to make is so that case does not matter?

Curves
curves
CURVES

So they all get deleted?



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ LEFT function Trouble !!! HELP PLZ !!!

[De Premor]

Try this

Private Sub CommandButton1_Click()
Dim Rng As Range
For Each Rng In Range(C1:C20)
If Rng   Then Rng.Offset(, 2) = IIf(Left(Rng, 1) = `, 
Tax, Retail)

Next
End Sub


Pada 05/08/2013 16:26, SAJID MEMON menulis:
Dear I am making a small error in my file, only one condition is 
working in VBA, Please give me tips to complete it


Awaiting your answer

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ vba script to convert excel to json format

[De Premor]

I dont know is that exist, but after reading a while about JSON Format, 
i think we can do some simple translation on Excel Data to something 
looklike bellow


{
Sheet1: {
title: Your Sheet Name Here,
Data: {
Row1: {
Name: De Premor,
Location: Indonesia
},
Row2: {
Name: SomeOne,
Location: Chile
}
}
}
}

That Simple JSON Format can easily gerenate by identifying EachSheet On 
Workbook, Read Data Table, And Write It on JSON Format to text file or 
something else




Pada 06/08/2013 1:43, Mog Godiva-Man menulis:


But is there a customize VBA  that can write it in to Json format

On Aug 5, 2013 12:20 PM, yogananda muthaiah 
yogananda.mutha...@gmail.com mailto:yogananda.mutha...@gmail.com 
wrote:


No you cannot convert vba lang to JSON format.
Microsoft Development team is already working on it. This is been
identified and will be ready with Microsoft Office 2015 version.


On Mon, Aug 5, 2013 at 9:31 PM, Mog Godiva-Man osaze...@gmail.com
mailto:osaze...@gmail.com wrote:

Hi experts,

Does anyone have a VBA script to convert excel files that can
define a structure to be exported into a json format


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook. Forum
owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the
Google Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from
it, send an email to excel-macros+unsubscr...@googlegroups.com
mailto:excel-macros%2bunsubscr...@googlegroups.com.
To post to this group, send email to
excel-macros@googlegroups.com
mailto: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
Yogananda Muthaiah
Ph : 973 123 7267
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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


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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted

Bls: Re: $$Excel-Macros$$ vba script to convert excel to json format

[De Premor]

That would be great we have a sample file and what you need to do with it (what 
data you need to be exist on json data)
-Original Message-
From: Mog Godiva-Man osaze...@gmail.com
Sender: excel-macros@googlegroups.com
Date: Mon, 5 Aug 2013 18:43:34 
To: excel-macros@googlegroups.com
Reply-To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ vba script to convert excel to json format

Pretty much that's exactly what I need to do. Would it be helpful if I
provided a sample file?
Regards,
Godiva.


On Mon, Aug 5, 2013 at 3:47 PM, De Premor d...@premor.net wrote:

  I dont know is that exist, but after reading a while about JSON Format,
 i think we can do some simple translation on Excel Data to something
 looklike bellow

 {
 Sheet1: {
 title: Your Sheet Name Here,
 Data: {
 Row1: {
 Name: De Premor,
 Location: Indonesia
 },
 Row2: {
 Name: SomeOne,
 Location: Chile
 }
 }
 }
 }

 That Simple JSON Format can easily gerenate by identifying EachSheet On
 Workbook, Read Data Table, And Write It on JSON Format to text file or
 something else



 Pada 06/08/2013 1:43, Mog Godiva-Man menulis:

 But is there a customize VBA  that can write it in to Json format
 On Aug 5, 2013 12:20 PM, yogananda muthaiah 
 yogananda.mutha...@gmail.com wrote:

 No you cannot convert vba lang to JSON format.
 Microsoft Development team is already working on it. This is been
 identified and will be ready with Microsoft Office 2015 version.


 On Mon, Aug 5, 2013 at 9:31 PM, Mog Godiva-Man osaze...@gmail.comwrote:

 Hi experts,

  Does anyone have a VBA script to convert excel files that can define a
 structure to be exported into a json format


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

 FORUM RULES

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

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 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
 Yogananda Muthaiah
 Ph : 973 123 7267
  --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

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

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



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

 FORUM RULES

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

Re: $$Excel-Macros$$ Query Regarding Sum

[De Premor]

You can also use this

=SUM(OFFSET(E6,1,MATCH(B2,F6:M6,0),MATCH(B3,E7:E10,0)))


Pada 01/08/2013 13:00, Waseem Saifi menulis:

thank you so much ravinder.
it's working absolutely fine.


On Thu, Aug 1, 2013 at 11:15 AM, ravinder negi ravi_colw...@yahoo.com 
mailto:ravi_colw...@yahoo.com wrote:


you can use

=SUM(INDIRECT(CELL(address,INDIRECT(r7cMATCH(B2,F6:M6,0)+5,FALSE)):CELL(address,INDIRECT(rMATCH(B3,E7:E10,0)+6cMATCH(B2,F6:M6,0)+5,FALSE


*From:* Waseem Saifi waseemsa...@gmail.com
mailto:waseemsa...@gmail.com
*To:* excel-macros excel-macros@googlegroups.com
mailto:excel-macros@googlegroups.com
*Sent:* Thursday, August 1, 2013 10:53 AM
*Subject:* $$Excel-Macros$$ Query Regarding Sum

Dear Experts,
I want to sum of values basis on two conditions.
it is explained in attachment.
I also tried offset function, but it didn't work properly.
please help.

Regards,
Waseem Saifi
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit 

Re: $$Excel-Macros$$ want open first sheet while open sheet

[De Premor]

Hi Hemal, in your first email you said:

*I want that, Menu sheet is to be open every time when I open excel file.*

Thaat why Priti give a code like this !
Worksheets(Menu).Activate
But in your real workbook, you dont have a sheet named *Menu*m but you 
have sheet named *INDEX*

Try to change Worksheets(Menu).Activate to Worksheets(INDEX).Activate

Pada 01/08/2013 17:23, hemal shah menulis:

Hi,,

It is not working,



On Thursday, 1 August 2013 15:05:55 UTC+5:30, Priti_Verma wrote:

you can use workbook open event to active worksheet
Private Sub Workbook_Open()
Worksheets(Menu).Activate
End Sub



On Thu, Aug 1, 2013 at 2:23 AM, hemal shah hema...@gmail.com
javascript: wrote:


I have 3 sheets in my excel book.

First sheet is Menu sheet.

I want that, Menu sheet is to be open every time when I open
excel file.
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel
https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook. Forum
owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the
Google 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
javascript:.
To post to this group, send email to
excel-...@googlegroups.com javascript:.
Visit this group at
http://groups.google.com/group/excel-macros
http://groups.google.com/group/excel-macros.
For more options, visit
https://groups.google.com/groups/opt_out
https://groups.google.com/groups/opt_out.



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ want open first sheet while open sheet

[De Premor]

Sorry ignore my last email, i just opening the macros code in your 
workbook, and find that you have do it right, but in wrong place

Try to place that code in ThisWorkbook not in Sheet1

Pada 01/08/2013 17:34, De Premor menulis:

Hi Hemal, in your first email you said:

*I want that, Menu sheet is to be open every time when I open excel 
file.*


Thaat why Priti give a code like this !
Worksheets(Menu).Activate
But in your real workbook, you dont have a sheet named *Menu*m but 
you have sheet named *INDEX*

Try to change Worksheets(Menu).Activate to Worksheets(INDEX).Activate

Pada 01/08/2013 17:23, hemal shah menulis:

Hi,,

It is not working,



On Thursday, 1 August 2013 15:05:55 UTC+5:30, Priti_Verma wrote:

you can use workbook open event to active worksheet
Private Sub Workbook_Open()
Worksheets(Menu).Activate
End Sub



On Thu, Aug 1, 2013 at 2:23 AM, hemal shah hema...@gmail.com
javascript: wrote:


I have 3 sheets in my excel book.

First sheet is Menu sheet.

I want that, Menu sheet is to be open every time when I open
excel file.
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel
https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook. Forum
owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the
Google 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
javascript:.
To post to this group, send email to
excel-...@googlegroups.com javascript:.
Visit this group at
http://groups.google.com/group/excel-macros
http://groups.google.com/group/excel-macros.
For more options, visit
https://groups.google.com/groups/opt_out
https://groups.google.com/groups/opt_out.



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, 
send an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros

Re: $$Excel-Macros$$ Help Opening in folder using general path

[De Premor]

Try this

Sub tes()
Dim oWSHShell As Object, OpenFile As String

Set oWSHShell = CreateObject(WScript.Shell)
OpenFile = oWSHShell.SpecialFolders(Desktop)  
\data_source\week_to_date-export.xls

Set oWSHShell = Nothing

Workbooks.Open Filename:=SaveDest
End Sub


Pada 01/08/2013 15:36, Jorge Marques menulis:

Hi guys,

I have developed a macro to open files and copy data from 1 workbook 
to another, this is a report, but now I need to send this to everyone 
in my department, the path i use for opening the file is


Workbooks.Open 
Filename:=C:\Users\marquesj\Desktop\data_source\week_to_date-export.xls


how can I change this to everyone, to open the excel in their computer 
without always have to change the user when I provide the excel? Like 
a sort of 
C:\...\Desktop\data_source\week_to_date-export.xls?


thank you very much

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ VBA for Data Validation Question

[De Premor]

Just trying to imagine with your problem since there is no file attached 
to explore the other scene.


PFA my first approach, is that close with your ?

Pada 01/08/2013 8:54, RJQMAN menulis:
I have a complex program I wrote in Excel 2003 about six years ago, 
and I am working to update it.  In the program, I am concerned about 
the sum of data entered into two columns and totaled in the third 
column.  There are about 60 groupings of cells, all independent, with 
about 25 sets of cells in each grouping.  There are six groupings in a 
single set of three columns, and 10 sets of columns.  A typical 
formula would be as follows;


Column A5  - 15
Column B5 - 20
Column C5 contains a simple excel formula that adds column A and 
Column B and displays the sum = 35


If the user enters other numbers into column A and column B such that 
they total the same as a previous entry anywhere in the first 25 
lines, I want to alert the user that the entry may be in error.


Originally I used Excel 2003's inherent data validation with the 
formula below.  The original program seemed to work fine with Excel 
2003. A typical cell data validation formula in the original program 
would have been;


=if(countif(A$1:A$25,A5+B5)=1,True,False

This formula would have been repeated over all 25 sets of cells in 
each of the 60 groups, with the cell references adjusted as necessary.


In using validation, I want to check that data against other entries 
in lines 1-25, columns a-b and c, but I do not want to check the data 
against entries in lines 26-50, and vice-versa.


When Excel 2007 came out, the data validation became less dependable - 
the users could enter data that totaled the same in, say, line 5 and 
line 6 of the first 25 lines, but for reasons I never understood, the 
entry did not trigger the alert in the Excel Data Validation.


I want to fix this in the revised program, so I have been testing a 
VBA solution someone provided for me by someone on an Excel group back 
in 2007.  It works pretty well, but the code that the person provided 
me (forgive me, I do not remember who it was) is dependent on the 
'countif' evaluating the _entire column_ of data to search for a 
duplicate, and I want the countif to evaluate the first 25 lines.  I 
want to use a second countif to evaluate the next 25 lines, and so 
forth through all 60 groupings on the sheet.  I have been trying to 
modify this code without success for several days, and although it 
looks like it should work, it never does!  Just when I get everything 
to plug in in a way that appears correct, the code does not work at 
all.  I am at a loss as to what to do.


Could someone please tell me how to make this work?  I like using VBA, 
because I can vary the output messages as the program is used in 
different venues, so I would prefer to have the validation in VBA.  I 
am using worksheet change to trigger the code.


Here is a portion of the code that I am working with (I took out some 
non-related items), which seems to work fine, except that it evaluates 
an entire column instead of a portion of the column. I have the 
columns as variables so that I do not have to rewrite the code for 
each of the sixty sections.


The real code has a counter that goes much higher, of course, but this 
hopefully is enough information for someone with more knowledge that I 
have to help me solve this issue.  I have tried to substitute for the 
Me.columns(TotalsColumn) and that is where I get into trouble.  Not 
sure if I need the error escape lines or not, but I would rather fail 
to catch a duplicate than have the entire program crash, so I have 
them in there.


I cannot figure out how to do make it work though.  Can someone please 
help me?



Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim TotalsColumn As Integer
Dim TestColumn1 As String
Dim TestColumn2 As String

Counter = 0
Dim range2 As String

Do Until Counter = 2

If Counter = 0 Then Const WS_RANGE As String = A1:B25: 
TestColumn1 = A: TestColumn2 = B: TotalsColumn = 3
If Counter = 1 Then Const WS_RANGE As String = A26:B50: 
TestColumn1 = A: TestColumn2 = B: TotalsColumn = 3
If Counter = 2 Then Const WS_RANGE As String = D1:D25: 
TestColumn1 = D: TestColumn2 = E: TotalsColumn = 6


   '( etc. for 59 more sections in various columns - six sections to a 
column)...


On Error GoTo ws_exit
If Target = 0 Then GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Application.CountIf(Me.Columns(TotalsColumn), 
Me.Cells(.Row, TestColumn1).Value + Me.Cells(.Row, TestColumn2).Value) 
= 1 Then

MsgBox Valid Entry
Else
On Error GoTo ws_exit
If MsgBox(Sum already used, accept anyway?, vbYesNo 
+ vbQuestion) = vbNo Then .Value = 

End If
End With
End If
Counter = Counter + 1
Loop

ws_exit:

Re: $$Excel-Macros$$ Copy Data from Reference file to Master file

[De Premor]

Hi Putu,

While you're waiting for a groups response, why dont you start writing 
your own code, you might want to read more about :


Select a file using Application.GetOpenFilename
Open a workbook using Workbooks.Open
Assign a value to variable using Set... = 
Looping each worksheet using For Each ... in 
Sheet Name validation using ...Name = ...Name
comparing each value using if ... = ... then
looping in a row
looping in a column
Assign value to a cell, ex: Range(A1).value = 

You may ask it here one by one for your reference, i'am sure another 
members will help you and you got your learning step.


Rgds,
[dp]

Pada 30/07/2013 16:43, Puttu * menulis:

please please advise, it's very important for me...


On Sat, Jul 27, 2013 at 4:55 PM, Puttu * puttu...@gmail.com 
mailto:puttu...@gmail.com wrote:


Hi Experts,

Need a help on copying the data from one workbook (Reference) to
another workbook (master). I know asking too much, appreciate
could you please help me on this coding.

The workbook name different each time, i need dynamic name
selection option to select both the work sheets and data range
also dynamic.

1. Need a option or input box to select the two workbooks

2. Each workbook sheets names are not aligned properly, each time
worksheet name to cross verify and past as per the match.

3. Copy the data from reference (report 1) and past to Master
(report 1) next to the existing range (Example showed in Master
sheet report 1 highlighted in yellow color)

4. After the paste Sales report header merged to complete header
(shown in master sheet report 1)

5. entire data need to auto fit

6. Need a report log after each sheet is pasted in new sheets in
the master work book.

Attached is the reports

-- 
Putta
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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





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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

Re: $$Excel-Macros$$ Copy Data from Reference file to Master file

[De Premor]

you may share your current code, maybe we can find whats wrong with it

Pada 30/07/2013 18:36, Puttu * menulis:
Really i tried my best, but didn't worked out. thus the reason seeking 
for help



On Tue, Jul 30, 2013 at 3:59 PM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


Hi Putu,

While you're waiting for a groups response, why dont you start
writing your own code, you might want to read more about :

Select a file using Application.GetOpenFilename
Open a workbook using Workbooks.Open
Assign a value to variable using Set... = 
Looping each worksheet using For Each ... in 
Sheet Name validation using ...Name = ...Name
comparing each value using if ... = ... then
looping in a row
looping in a column
Assign value to a cell, ex: Range(A1).value = 

You may ask it here one by one for your reference, i'am sure
another members will help you and you got your learning step.

Rgds,
[dp]

Pada 30/07/2013 16:43, Puttu * menulis:

please please advise, it's very important for me...


On Sat, Jul 27, 2013 at 4:55 PM, Puttu * puttu...@gmail.com
mailto:puttu...@gmail.com wrote:

Hi Experts,

Need a help on copying the data from one workbook (Reference)
to another workbook (master). I know asking too much,
appreciate could you please help me on this coding.

The workbook name different each time, i need dynamic name
selection option to select both the work sheets and data
range also dynamic.

1. Need a option or input box to select the two workbooks

2. Each workbook sheets names are not aligned properly, each
time worksheet name to cross verify and past as per the match.

3. Copy the data from reference (report 1) and past to Master
(report 1) next to the existing range (Example showed in
Master sheet report 1 highlighted in yellow color)

4. After the paste Sales report header merged to complete
header (shown in master sheet report 1)

5. entire data need to auto fit

6. Need a report log after each sheet is pasted in new sheets
in the master work book.

Attached is the reports

-- 
Putta
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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





-- 
Putta
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of
this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

[De Premor]

try this attached file

user, pass, and expiration date defined in a sheet

On 29/07/2013 13:05, Mangesh Vimay wrote:

Thanks for asking this query.

Appreciate your mind !!!

And also thanks De Pemor for the solution.

Have a great day all !!!

On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:

Hi,

I want to set particular date and* time* also for expire  is this
possible.???

Or i want to set date and time for password...

When i set date and time, password will appear automatically

pls do the needful ASAP...






On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:


  Using macro, but required user to run the macro

This is the basic, user still can skip this by changing date on his
computer

Private Sub Workbook_Open()
 Dim Expired As Date
 Expired = 20 Jul 2013

 If Now()  Expired Then
 MsgBox File   ThisWorkbook.FullName   expired
 ThisWorkbook.Close
 End If

End Sub

Next step, you may add a cell validation on current file to avoid skipped
by user with changin the date on his computer
Once the expiration msg appear, it will write in sheet1 cell A1 a word
EXPIRED, then everytime file open, it will check that cell and also the
date on current computer, if one of that criteria match then it will
still close the workbook.

 If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
 MsgBox File   ThisWorkbook.FullName   expired
*if Sheet1**.Range(**A1)  EXPIRED then
 **   Sheet1.Range(A1) = EXPIRED**
*   *ThisWorkbook.Save
End If
* ThisWorkbook.Close
 End If

Rgds,
[dp]

  Pada 27/07/2013 15:55, Kannan Excel menulis:

Hi,

  how to make a file expire after a period of time.


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

FORUM RULES

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

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




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

FORUM RULES

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

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




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

FORUM RULES

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

[De Premor]

Try to use this in cell B2

*=VLOOKUP($A2,INDIRECT(' B$1  '!$B$2:$R$302),16,FALSE)**
*
Copy it down


Pada 27/07/2013 20:44, Puttu * menulis:

Experts your assistance is much appreciated.


On Sat, Jul 27, 2013 at 4:55 PM, Puttu * puttu...@gmail.com 
mailto:puttu...@gmail.com wrote:


Hi Experts,

Need a help on copying the data from one workbook (Reference) to
another workbook (master). I know asking too much, appreciate
could you please help me on this coding.

The workbook name different each time, i need dynamic name
selection option to select both the work sheets and data range
also dynamic.

1. Need a option or input box to select the two workbooks

2. Each workbook sheets names are not aligned properly, each time
worksheet name to cross verify and past as per the match.

3. Copy the data from reference (report 1) and past to Master
(report 1) next to the existing range (Example showed in Master
sheet report 1 highlighted in yellow color)

4. After the paste Sales report header merged to complete header
(shown in master sheet report 1)

5. entire data need to auto fit

6. Need a report log after each sheet is pasted in new sheets in
the master work book.

Attached is the reports

-- 
Putta
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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





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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to 

Re: $$Excel-Macros$$ Copy Data from Reference file to Master file

[De Premor]

ups sorry, please ignore my last email, i've replied a wrong topic
My bad
:-\

Pada 29/07/2013 19:37, De Premor menulis:

Try to use this in cell B2

*=VLOOKUP($A2,INDIRECT(' B$1  '!$B$2:$R$302),16,FALSE)**
*
Copy it down


Pada 27/07/2013 20:44, Puttu * menulis:

Experts your assistance is much appreciated.


On Sat, Jul 27, 2013 at 4:55 PM, Puttu * puttu...@gmail.com 
mailto:puttu...@gmail.com wrote:


Hi Experts,

Need a help on copying the data from one workbook (Reference) to
another workbook (master). I know asking too much, appreciate
could you please help me on this coding.

The workbook name different each time, i need dynamic name
selection option to select both the work sheets and data range
also dynamic.

1. Need a option or input box to select the two workbooks

2. Each workbook sheets names are not aligned properly, each time
worksheet name to cross verify and past as per the match.

3. Copy the data from reference (report 1) and past to Master
(report 1) next to the existing range (Example showed in Master
sheet report 1 highlighted in yellow color)

4. After the paste Sales report header merged to complete header
(shown in master sheet report 1)

5. entire data need to auto fit

6. Need a report log after each sheet is pasted in new sheets in
the master work book.

Attached is the reports

-- 
Putta
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of
this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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





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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, 
send an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL

Re: $$Excel-Macros$$ need vlookup formula help

[De Premor]

Try to use this in cell B2

*=VLOOKUP($A2,INDIRECT(' B$1  '!$B$2:$R$302),16,FALSE)**
*
Copy it down

Pada 29/07/2013 18:22, Dhaval Shah menulis:

here with attach a file for reference


On Mon, Jul 29, 2013 at 4:49 PM, Dhaval Shah todhavals...@gmail.com 
mailto:todhavals...@gmail.com wrote:




Friends ,

In below pic there is a formula in B2
=VLOOKUP($A2,'12'!$B$2:$R$302,16,FALSE) in the formula capture the
data from Sheet *12 *actually every time I need it to do manually
is it way ??

Suppose I change  in B1 from 12 to 13 then in B2 out put side
automatic looking value from sheet *13 *



-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Re: Introduce Yourself !!

[De Premor]

just remember, that i also not yet introduce my self :(

then let me introduce my self
You can call me *De* *Premor* and i am working in Network and 
Infrastucture Division at intermediate Palm and Oil Mills in beautiful 
Borneo, Indonesia, i love to learn programming in my spare time since i 
still dont know much about it, thats why i'am here :)


I'am glad found this group that have lots of great people and helping 
each other, please help me to go to right way in excel and vba.


Rgds,
[dp]

Note:
English is not my main language, please forgive me if i'am wrong in that 
thing.


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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ VBA remove character at beginning and end of string (cell)

[De Premor]

try this code

Sub trunkit()
Dim Ctx As Range

'We use this method to get dynamic Record count in C Column
For Each Ctx In Range(C2:  Cells(Range(C:C).Rows.Count, 
3).End(xlUp).Address)

If Right(Ctx, 2) = 00 Then
'Replace = sign, from removed 00 string
Ctx.Value = Replace(Left(Ctx, Len(Ctx) - 2), =, )
Else
'Clear cell if last 2 char not 00
Ctx.Value = 
End If
Next
End Sub


Pada 30/07/2013 0:46, Sam Mathai Chacko menulis:

Are the entire code only numerics, or are they alpha numeric?


On Mon, Jul 29, 2013 at 10:44 PM, Don Barton donaldb...@gmail.com 
mailto:donaldb...@gmail.com wrote:


Greetings,
We have a scanner we use to scan a barcode for blood units for a
hospital into an Excel spreadsheet.  The scanner reads the entire
barcode, but we want to remove 00 at the end of the scanned
string. If there isn't 00 at the end, make it null cell.  We are
using the correct symbology for the barcode scanner.

Sub trunkit()

  For ctx = 2 To 100
   If Right(Cells(ctx, 3), 2) = ”00” Then
 Trim (Right(Cells(ctx, 3), 2))
   Else
IsNull (Cells(ctx, 3))
   End If
  Next ctx
  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
mailto:excel-macros%2bunsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com
mailto: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.





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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this 

Re: $$Excel-Macros$$ Tricky tricks - 1

[De Premor]

create defined name inexample : *Eval**A2* that referring to =EVALUATE(A2)

Then in some cell in that sheet, just type *=EvalA2**
*


Pada 28/07/2013 14:59, xlstime menulis:

and what about formula

.

Enjoy
Team XLS



On Sun, Jul 28, 2013 at 11:10 AM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


using udf
On Cell A3, type*=Eval(A2)*

then, on VBE, add module and paste this code
*Function eval(str As String)**
**eval = Evaluate(str)**
**End Function**
*:-X

On 28/07/2013 12:09, xlstime wrote:

Hi All,

How to Evaluate cell value.

let assume that, in cell A2 -  '1+2+3+4'

now how to sum or calculate cell value

hint: evaluate

.

Enjoy
Team XLS

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of
this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official

Re: $$Excel-Macros$$ For Each..Next . Help finding a number in data

[De Premor]

Hi Hammod, please try attached macro

Rgds,
[dp]

On 26/07/2013 10:32, ha...@mst.edu wrote:


Hi All

I'm trying to write an excel vba code that return a number with respct to
the value of the 2nd number.
There are 5 number copied into one column(it has to be one 
column,project requiremnt)
and if the value of 2nd number in cell1 is -995.25 and 2nd number in 
cell2 is  1

it returns the value of 1st number in cell2

So The code here is

Dim logstart as Range
Set log = oSht.Range(E110:E  lastRow)

For Each logstart In log
If CDec(Trim(Mid(Trim(logstart.Value), 9, 7))) = -990.25 And_
  CDec(Trim(Mid(Trim(logstart.Offset(-1, 0).Value), 9, 7))) = 1 Then
Range(D16)= LEFT(TRIM(logstart.Offset(-1, 0).Value)),8)
Else
   'Range(D16).Value = Failed to Load Number
Exit For
End If
Next

Here are the data(one column E)
  #-
 TVD TTEM ROP5   GR TVD VSEC
  8340.00  -999.2533.0030.62 
8339.62-7.45
  8340.50  -999.2532.7730.39 
8340.11-7.46
  8341.00   183.2032.4922.97 
8340.63-7.46
  8341.50   183.2632.1220.30 
8341.11-7.46
  8342.00   183.7131.0721.75 
8341.61-7.46
  8342.50   184.1630.0737.26 
8342.12-7.47
  8343.00   184.6130.2258.81 
8342.62-7.47
  8343.50   185.0031.2573.89 
8343.12-7.47
  8344.00   184.8733.1662.18 
8343.65-7.48
  8344.50   183.7935.7745.28 
8344.11-7.48


So it should return 8341.0 because 183.20 1 and -999.25 = -999.25
But it doesn't, it returns the first cell it in the range (which 
doesn't meet the criteria)


What is wrong with the code? Please help me, i'm stuck

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

[De Premor]

Using macro, but required user to run the macro

This is the basic, user still can skip this by changing date on his computer

Private Sub Workbook_Open()
Dim Expired As Date
Expired = 20 Jul 2013

If Now()  Expired Then
MsgBox File   ThisWorkbook.FullName   expired
ThisWorkbook.Close
End If

End Sub

Next step, you may add a cell validation on current file to avoid 
skipped by user with changin the date on his computer
Once the expiration msg appear, it will write in sheet1 cell A1 a word 
EXPIRED, then everytime file open, it will check that cell and also the 
date on current computer, if one of that criteria match then it will 
still close the workbook.


If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
MsgBox File   ThisWorkbook.FullName   expired
*if Sheet1**.Range(**A1)  EXPIRED then
***   Sheet1**.Range(**A1) = EXPIRED***
**ThisWorkbook.Save
   End If
* ThisWorkbook.Close
End If

Rgds,
[dp]

Pada 27/07/2013 15:55, Kannan Excel menulis:

Hi,


  how to make a file expire after a period of time.



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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




Expired at 20 Jul 2013.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Date doubt

[De Premor]

Let me ask before answering you with the code

If i change the date to 30 June 2013, what will appear in quarter, half 
and year ?


Pada 27/07/2013 15:00, Kenil Gala menulis:


hi,
Thank you very much De premor for your time and efforts.

but,one problem I am facing now is when I changed the date to 1june2013.
weekly and monthly dates are proper. But quarter has changed to 
june-july-august.

halfyear has changed to june2013 - november2013.
yearly has changed to june2013 - may 2014

I want quarter always as last Friday of december to last Thursday of 
march, last Friday of march to last Thursday of june, last Friday of 
june to last Thursday of september, last Friday of sep to last 
Thursday of december.

as there is always four quarters in a year.
halfyearly as last Friday of december to last Thursday of june, last 
Friday of june to last Thursday of december.
yearly always as last Friday of december to next year's last Thursday 
of december.


Thanks in adv.

*From:* De Premor d...@premor.net
*To:* excel-macros@googlegroups.com
*Sent:* Saturday, July 27, 2013 3:32 AM
*Subject:* Re: $$Excel-Macros$$ Date doubt

Good Morning Kenil Gala,
Try to change my current macro code like this

Function findFriday(FindDate As Date, Optional NextFriday As Integer = 
1, Optional Mode As String = W) As Date

*FindDate = FindDate + 1**
*Select Case UCase(Mode)
Case W, WEEKLY
FindDate = DateAdd(ww, NextFriday, FindDate)
Case M, MONTHLY
FindDate = DateAdd(m, NextFriday, FindDate)
Case Q, QUATERLY
FindDate = DateAdd(q, NextFriday, FindDate)
Case H, HALFYEARLY
FindDate = DateAdd(q, NextFriday, FindDate)
FindDate = DateAdd(q, NextFriday, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
Do
*FindDate = FindDate - 1**
*Loop Until Weekday(FindDate) = 6
findFriday = FindDate
End Function

Sample Code Attached

Pada 27/07/2013 1:43, Kenil Gala menulis:


hi, in this case month means last Friday of the month to last 
Thursday of the month. Eg: 28dec2012 to 31 january 2013.and 1 feb 
2013 to 28feb 2013, and 1 march 2013 to 28march 2013.


 quarter means from 28 dec 2012 - 28march 2013, and 29 march 2013 to 
27june 2013
half year means for eg : 28dec 2012 - 27june 2013, then 28 june 2013 
to 26dec2013

yearly means 28dec2012 - 26dec 2013
any month starts from last Friday of the month and ends on last 
Thursday of next month.

this is the pattern of contracts followed in indian stock markets.

Pls find the file attched.

Thanks in adv.


*From:* De Premor d...@premor.net mailto:d...@premor.net
*To:* excel-macros@googlegroups.com 
mailto:excel-macros@googlegroups.com

*Sent:* Friday, July 26, 2013 6:40 AM
*Subject:* Re: $$Excel-Macros$$ Date doubt

First Approach
This function is to find first Friday on every given range, is this 
match to your requirement ? if not, please reply with data and date 
as you want on each range.
Confuse on this statement month from last Friday to last Thursday of 
the month., sample data needed.


Function findFriday(FindDate As Date, Optional NextFriday As Integer 
= 1, Optional Mode As String = W) As Date

FindDate = FindDate - 1
Select Case UCase(Mode)
Case W, WEEKLY
FindDate = DateAdd(ww, NextFriday, FindDate)
Case M, MONTHLY
FindDate = DateAdd(m, NextFriday, FindDate)
Case Q, QUATERLY
FindDate = DateAdd(q, NextFriday, FindDate)
Case H, HALFYEARLY
FindDate = DateAdd(q, NextFriday, FindDate)
FindDate = DateAdd(q, NextFriday, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
Do
FindDate = FindDate + 1
Loop Until Weekday(FindDate) = 6
findFriday = FindDate
End Function


On 25/07/2013 21:58, Kenil Gala wrote:

Hi friends,

i have a query for arranging dates in a pattern.
Pls help me solve my query.

Thanks in adv.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received

Re: $$Excel-Macros$$ Tricky tricks - 1

[De Premor]

using udf
On Cell A3, type*=Eval(A2)*

then, on VBE, add module and paste this code
*Function eval(str As String)**
**eval = Evaluate(str)**
**End Function**
*:-X

On 28/07/2013 12:09, xlstime wrote:

Hi All,

How to Evaluate cell value.

let assume that, in cell A2 -  '1+2+3+4'

now how to sum or calculate cell value

hint: evaluate

.

Enjoy
Team XLS

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Date doubt

[De Premor]

Good Morning Kenil Gala,
Try to change my current macro code like this

Function findFriday(FindDate As Date, Optional NextFriday As Integer = 
1, Optional Mode As String = W) As Date

*FindDate = FindDate + 1**
*Select Case UCase(Mode)
Case W, WEEKLY
FindDate = DateAdd(ww, NextFriday, FindDate)
Case M, MONTHLY
FindDate = DateAdd(m, NextFriday, FindDate)
Case Q, QUATERLY
FindDate = DateAdd(q, NextFriday, FindDate)
Case H, HALFYEARLY
FindDate = DateAdd(q, NextFriday, FindDate)
FindDate = DateAdd(q, NextFriday, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
Do
*FindDate = FindDate - 1**
*Loop Until Weekday(FindDate) = 6
findFriday = FindDate
End Function

Sample Code Attached

Pada 27/07/2013 1:43, Kenil Gala menulis:


hi, in this case month means last Friday of the month to last Thursday 
of the month. Eg: 28dec2012 to 31 january 2013.and 1 feb 2013 to 28feb 
2013, and 1 march 2013 to 28march 2013.


 quarter means from 28 dec 2012 - 28march 2013, and 29 march 2013 to 
27june 2013
half year means for eg : 28dec 2012 - 27june 2013, then 28 june 2013 
to 26dec2013

yearly means 28dec2012 - 26dec 2013
any month starts from last Friday of the month and ends on last 
Thursday of next month.

this is the pattern of contracts followed in indian stock markets.

Pls find the file attched.

Thanks in adv.


*From:* De Premor d...@premor.net
*To:* excel-macros@googlegroups.com
*Sent:* Friday, July 26, 2013 6:40 AM
*Subject:* Re: $$Excel-Macros$$ Date doubt

First Approach
This function is to find first Friday on every given range, is this 
match to your requirement ? if not, please reply with data and date as 
you want on each range.
Confuse on this statement month from last Friday to last Thursday of 
the month., sample data needed.


Function findFriday(FindDate As Date, Optional NextFriday As Integer = 
1, Optional Mode As String = W) As Date

FindDate = FindDate - 1
Select Case UCase(Mode)
Case W, WEEKLY
FindDate = DateAdd(ww, NextFriday, FindDate)
Case M, MONTHLY
FindDate = DateAdd(m, NextFriday, FindDate)
Case Q, QUATERLY
FindDate = DateAdd(q, NextFriday, FindDate)
Case H, HALFYEARLY
FindDate = DateAdd(q, NextFriday, FindDate)
FindDate = DateAdd(q, NextFriday, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
Do
FindDate = FindDate + 1
Loop Until Weekday(FindDate) = 6
findFriday = FindDate
End Function


On 25/07/2013 21:58, Kenil Gala wrote:

Hi friends,

i have a query for arranging dates in a pattern.
Pls help me solve my query.

Thanks in adv.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, 
send an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message

Re: $$Excel-Macros$$ Date doubt

[De Premor]

Beside using Do Loop we also use While ... Wend Statement, try this code 
as rev


Function findFriday(FindDate As Date, Optional NextFriday As Integer = 
1, Optional Mode As String = W) As Date

Select Case UCase(Mode)
Case W, WEEKLY
FindDate = DateAdd(ww, NextFriday, FindDate)
Case M, MONTHLY
FindDate = DateAdd(m, NextFriday, FindDate)
Case Q, QUATERLY
FindDate = DateAdd(q, NextFriday, FindDate)
Case H, HALFYEARLY
FindDate = DateAdd(q, NextFriday, FindDate)
FindDate = DateAdd(q, NextFriday, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
*While Weekday(FindDate)  6**
**FindDate = FindDate - 1**
**Wend**
*findFriday = FindDate
End Function

Rgds,
[dp]

Pada 27/07/2013 6:02, De Premor menulis:

Good Morning Kenil Gala,
Try to change my current macro code like this

Function findFriday(FindDate As Date, Optional NextFriday As Integer = 
1, Optional Mode As String = W) As Date

*FindDate = FindDate + 1**
*Select Case UCase(Mode)
Case W, WEEKLY
FindDate = DateAdd(ww, NextFriday, FindDate)
Case M, MONTHLY
FindDate = DateAdd(m, NextFriday, FindDate)
Case Q, QUATERLY
FindDate = DateAdd(q, NextFriday, FindDate)
Case H, HALFYEARLY
FindDate = DateAdd(q, NextFriday, FindDate)
FindDate = DateAdd(q, NextFriday, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
Do
*FindDate = FindDate - 1**
*Loop Until Weekday(FindDate) = 6
findFriday = FindDate
End Function

Sample Code Attached

Pada 27/07/2013 1:43, Kenil Gala menulis:


hi, in this case month means last Friday of the month to last 
Thursday of the month. Eg: 28dec2012 to 31 january 2013.and 1 feb 
2013 to 28feb 2013, and 1 march 2013 to 28march 2013.


 quarter means from 28 dec 2012 - 28march 2013, and 29 march 2013 to 
27june 2013
half year means for eg : 28dec 2012 - 27june 2013, then 28 june 2013 
to 26dec2013

yearly means 28dec2012 - 26dec 2013
any month starts from last Friday of the month and ends on last 
Thursday of next month.

this is the pattern of contracts followed in indian stock markets.

Pls find the file attched.

Thanks in adv.


*From:* De Premor d...@premor.net
*To:* excel-macros@googlegroups.com
*Sent:* Friday, July 26, 2013 6:40 AM
*Subject:* Re: $$Excel-Macros$$ Date doubt

First Approach
This function is to find first Friday on every given range, is this 
match to your requirement ? if not, please reply with data and date 
as you want on each range.
Confuse on this statement month from last Friday to last Thursday of 
the month., sample data needed.


Function findFriday(FindDate As Date, Optional NextFriday As Integer 
= 1, Optional Mode As String = W) As Date

FindDate = FindDate - 1
Select Case UCase(Mode)
Case W, WEEKLY
FindDate = DateAdd(ww, NextFriday, FindDate)
Case M, MONTHLY
FindDate = DateAdd(m, NextFriday, FindDate)
Case Q, QUATERLY
FindDate = DateAdd(q, NextFriday, FindDate)
Case H, HALFYEARLY
FindDate = DateAdd(q, NextFriday, FindDate)
FindDate = DateAdd(q, NextFriday, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
Do
FindDate = FindDate + 1
Loop Until Weekday(FindDate) = 6
findFriday = FindDate
End Function


On 25/07/2013 21:58, Kenil Gala wrote:

Hi friends,

i have a query for arranging dates in a pattern.
Pls help me solve my query.

Thanks in adv.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, 
send 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$$ Macro for Concatenate

[De Premor]

*Offset ([row], [column])*

lets say i = Range B3 = same as i.offset(0,0)
thenif we want to select Range C4 that should be i.offset(1,1) = 1 Row 
and 1 column from B3


If we want to select A1 == i.offset(-2,-1) = 2 Row before and 1 column 
before B3



*i.Offset(, 2) = i  |  i.Offset(, 1)**
*
if i is A2, then that code will same as :
Range(C2) = Range(A1)  |  Range(A1)

Please remember, that i in our code is refer to a Range as defined in 
first line = Dim i as Range

And Range has default property = Value
i.value will same as i
Range(A1).value will same as just Range(A1) without using .value 
property


*i.Offset(, 2) = i  |  i.Offset(, 1)
**i.Offset(, 2).Value** = i.Value**  |  i.Offset(, 1)***.Value


**
Pada 25/07/2013 13:15, Prafull Jadhav menulis:

Dear Sir,

It working fine ...

i.Offset(, 2) = i  |  i.Offset(, 1)

Regards,
Prafull

Please can you explain me below line in details .


On Thu, Jul 25, 2013 at 11:34 AM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


Sub a()
Dim i As Range
For Each i In Range(A2:A  Sheet1.UsedRange.Rows.Count)
i.Offset(, 2) = i  |  i.Offset(, 1)
Next
End Sub

Pada 25/07/2013 12:33, Prafull Jadhav menulis:




Dear Experts,

below are code for concatenate of A B column until A column is
blank..But I want to run the macro continue till A column is Not
blank ..for above example row number 7 and 8 not concatenate .
macro is stuck till row number 5 .

Sub Concatenate_()
'combine two cell contain into one cell

Range(C2).Select

Do Until Selection.Offset(0, -2).Value = 

Selection.Value = Selection.Offset(0, -2)  | 
Selection.Offset(0, -1)

Selection.Offset(1, 0).Select

Loop

End Sub



Please do the needful.

Reg,
Prafull jadhav.
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of
this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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



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


FORUM RULES

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

Re: $$Excel-Macros$$ Macro for Concatenate

[De Premor]

You're welcome, i'am glad you've got it.

Pada 25/07/2013 14:21, Prafull Jadhav menulis:

Dear Sir,

Thanks a lot and lot ...for explain the below code in smooth manner.

I have started practice on Macro from last 3 Month.



Dim i As Range
For Each i In Range(A2:A  Sheet1.UsedRange.Rows.Count)
i.Offset(, 2) = i  |  i.Offset(, 1)
Next
End Sub



This new for me to understand ..

Sir..I have explain below whichever I understand till now

SirHere You  write the code as Each i in Range(A2 to used Range)

meansi is here can ,A2 ,A3,A4etc..till data in A column

It means we write the code for first i as A2 then next is i as A3...is 
it Right  na


We Require output in C column that' why we write
i.offset(0,2) Means C2 = i means A2  i.offset(0,1) means B2
then code is running till data in A column ..by using Next

Thanks again Sir... I .get more  this when I do practice on the same.

Reg,
Prafull








On Thu, Jul 25, 2013 at 12:19 PM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


*Offset ([row], [column])*

lets say i = Range B3 = same as i.offset(0,0)
thenif we want to select Range C4 that should be i.offset(1,1) =
1 Row and 1 column from B3

If we want to select A1 == i.offset(-2,-1) = 2 Row before and 1
column before B3


*i.Offset(, 2) = i  |  i.Offset(, 1)**
*
if i is A2, then that code will same as :
Range(C2) = Range(A1)  |  Range(A1)

Please remember, that i in our code is refer to a Range as defined
in first line = Dim i as Range
And Range has default property = Value
i.value will same as i
Range(A1).value will same as just Range(A1) without using
.value property

*i.Offset(, 2) = i  |  i.Offset(, 1)
*
*i.Offset(, 2).Value** = i.Value**  |  i.Offset(,
1)***.Value


**
Pada 25/07/2013 13:15, Prafull Jadhav menulis:

Dear Sir,

It working fine ...

i.Offset(, 2) = i  |  i.Offset(, 1)

Regards,
Prafull

Please can you explain me below line in details .


On Thu, Jul 25, 2013 at 11:34 AM, De Premor d...@premor.net
mailto:d...@premor.net wrote:

Sub a()
Dim i As Range
For Each i In Range(A2:A  Sheet1.UsedRange.Rows.Count)
i.Offset(, 2) = i  |  i.Offset(, 1)
Next
End Sub

Pada 25/07/2013 12:33, Prafull Jadhav menulis:




Dear Experts,

below are code for concatenate of A B column until A column
is blank..But I want to run the macro continue till A column
is Not blank ..for above example row number 7 and 8 not
concatenate . macro is stuck till row number 5 .

Sub Concatenate_()
'combine two cell contain into one cell

Range(C2).Select

Do Until Selection.Offset(0, -2).Value = 

Selection.Value = Selection.Offset(0, -2)  | 
Selection.Offset(0, -1)

Selection.Offset(1, 0).Select

Loop

End Sub



Please do the needful.

Reg,
Prafull jadhav.
-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

Re: $$Excel-Macros$$ Date doubt

[De Premor]

First Approach
This function is to find first Friday on every given range, is this 
match to your requirement ? if not, please reply with data and date as 
you want on each range.
Confuse on this statement month from last Friday to last Thursday of 
the month., sample data needed.


Function findFriday(FindDate As Date, Optional NextFriday As Integer = 
1, Optional Mode As String = W) As Date

FindDate = FindDate - 1
Select Case UCase(Mode)
Case W, WEEKLY
FindDate = DateAdd(ww, NextFriday, FindDate)
Case M, MONTHLY
FindDate = DateAdd(m, NextFriday, FindDate)
Case Q, QUATERLY
FindDate = DateAdd(q, NextFriday, FindDate)
Case H, HALFYEARLY
FindDate = DateAdd(q, NextFriday, FindDate)
FindDate = DateAdd(q, NextFriday, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
Do
FindDate = FindDate + 1
Loop Until Weekday(FindDate) = 6
findFriday = FindDate
End Function


On 25/07/2013 21:58, Kenil Gala wrote:

Hi friends,

i have a query for arranging dates in a pattern.
Pls help me solve my query.

Thanks in adv.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

FORUM RULES

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

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

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

Re: $$Excel-Macros$$

[De Premor]

PFA

Dim Rng As Range, iRow As Integer

Sub GetFolder()
Dim fldr As FileDialog
Set Rng = ActiveCell
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.AllowMultiSelect = False
If fldr.Show = -1 Then Call ListIt(fldr.SelectedItems(1))
End Sub

Private Function ListIt(SelectedPath As String, Optional tCol As Integer 
= 0)

Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath
On Error Resume Next
Set FSO = New Scripting.FileSystemObject
Set sFolder = FSO.GetFolder(SelectedPath)
lPath = Split(SelectedPath, \)
Rng.Offset(iRow, tCol).Value = lPath(UBound(lPath))
iRow = iRow + 1
For Each sSubFolder In sFolder.SubFolders
Call ListIt(sSubFolder.Path, (tCol + 1))
Next
End Function


Pada 24/07/2013 19:37, priti verma menulis:

Thank for quick response But this code is not working fine .
Its giving Only first folder 's file name  .
I mean I have lots of folder and and file  in main folder.and folder 
contain further folders and file and these folder also contains  some 
folder and files.


So i want all files name from  all nested folder


On Wed, Jul 24, 2013 at 6:17 AM, Excel Learn excellearn2...@gmail.com 
mailto:excellearn2...@gmail.com wrote:


Hi Priti,

Please see if it help

Public Sub selectfol()

On Error Resume Next

Set path1 = CreateObject(Shell.application).browseforfolder(0,
Please choose a folder, 0, openat)

pathm = path1.self.Path

UserForm1.TextBox1.Text = pathm  \

mysourcepath = pathm  \

Set myobject = CreateObject(scripting.filesystemobject)

Set mysource = myobject.getfolder(mysourcepath)

Range(A1).Select

m = 1

acount = 0

For Each myfile In mysource.Files

myfile.Open

acount = acount + 1

Next

ReDim arrFiles(acount) As Variant

i = 0

For Each myfile In mysource.Files

arrFiles(i) = myfile.Name

If m = 1 Then

ActiveCell.Value = myfile.Name

ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Value = myfile.Name

ActiveCell.Offset(1, 0).Select

End If

m = m + 1

i = i + 1

Next

End Sub

*From:*excel-macros@googlegroups.com
mailto:excel-macros@googlegroups.com
[mailto:excel-macros@googlegroups.com
mailto:excel-macros@googlegroups.com] *On Behalf Of *priti verma
*Sent:* Wednesday, July 24, 2013 5:21 PM
*To:* excel-macros@googlegroups.com
mailto:excel-macros@googlegroups.com
*Subject:* $$Excel-Macros$$

Hi everyone,

Help me on this ,

i want all files name from folders.

Folder1

 foldera

 folderb

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna

be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this
forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

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

Re: $$Excel-Macros$$

[De Premor]

I think you only need a foldername :D
Try to change ListIt Function with this rev

Private Function ListIt(SelectedPath As String, Optional tCol As Integer 
= 0)
Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath, 
sFile


On Error Resume Next
Set FSO = New Scripting.FileSystemObject
Set sFolder = FSO.GetFolder(SelectedPath)

lPath = Split(SelectedPath, \)
Rng.Offset(iRow, tCol).Value = [+]   lPath(UBound(lPath))

For Each sFile In sFolder.Files
iRow = iRow + 1
Rng.Offset(iRow, (tCol + 1)).Value = sFile.Name
Next
iRow = iRow + 1
For Each sSubFolder In sFolder.SubFolders
Call ListIt(sSubFolder.Path, (tCol + 1))
Next
End Function

Rgds,
[dp]

Pada 24/07/2013 20:33, priti verma menulis:

Thanks Dp,
But its giving only Nested foldersname.
I want files name.
Anyway i got idea from your Code


On Wed, Jul 24, 2013 at 7:22 AM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


PFA

Dim Rng As Range, iRow As Integer

Sub GetFolder()
Dim fldr As FileDialog
Set Rng = ActiveCell
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.AllowMultiSelect = False
If fldr.Show = -1 Then Call ListIt(fldr.SelectedItems(1))
End Sub

Private Function ListIt(SelectedPath As String, Optional tCol As
Integer = 0)
Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath
On Error Resume Next
Set FSO = New Scripting.FileSystemObject
Set sFolder = FSO.GetFolder(SelectedPath)
lPath = Split(SelectedPath, \)
Rng.Offset(iRow, tCol).Value = lPath(UBound(lPath))
iRow = iRow + 1
For Each sSubFolder In sFolder.SubFolders
Call ListIt(sSubFolder.Path, (tCol + 1))
Next
End Function


Pada 24/07/2013 19:37, priti verma menulis:

Thank for quick response But this code is not working fine .
Its giving Only first folder 's file name  .
I mean I have lots of folder and and file  in main folder.and
folder contain further folders and file and these folder also
contains  some folder and files.

So i want all files name from  all nested folder


On Wed, Jul 24, 2013 at 6:17 AM, Excel Learn
excellearn2...@gmail.com mailto:excellearn2...@gmail.com wrote:

Hi Priti,

Please see if it help

Public Sub selectfol()

On Error Resume Next

Set path1 =
CreateObject(Shell.application).browseforfolder(0, Please
choose a folder, 0, openat)

pathm = path1.self.Path

UserForm1.TextBox1.Text = pathm  \

mysourcepath = pathm  \

Set myobject = CreateObject(scripting.filesystemobject)

Set mysource = myobject.getfolder(mysourcepath)

Range(A1).Select

m = 1

acount = 0

For Each myfile In mysource.Files

myfile.Open

acount = acount + 1

Next

ReDim arrFiles(acount) As Variant

i = 0

For Each myfile In mysource.Files

arrFiles(i) = myfile.Name

If m = 1 Then

ActiveCell.Value = myfile.Name

ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Value = myfile.Name

ActiveCell.Offset(1, 0).Select

End If

m = m + 1

i = i + 1

Next

End Sub

*From:*excel-macros@googlegroups.com
mailto:excel-macros@googlegroups.com
[mailto:excel-macros@googlegroups.com
mailto:excel-macros@googlegroups.com] *On Behalf Of *priti
verma
*Sent:* Wednesday, July 24, 2013 5:21 PM
*To:* excel-macros@googlegroups.com
mailto:excel-macros@googlegroups.com
*Subject:* $$Excel-Macros$$

Hi everyone,

Help me on this ,

i want all files name from folders.

Folder1

 foldera

 folderb

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook. Forum
owners and members 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$$ Excel Gurus :- Please Help me out for the formula for amount distribution

[De Premor]

Paste this in Cell G5, then copy left and down

*=(EOMONTH(G$4,0)$D5)*(G$4$E5)*IF(EOMONTH(G$4,0)$E5,DAY($E5),DAY(EOMONTH(G$4,0))-IF(G$4$D5,DAY($D5),0))*($F5/($E5-$D5))**
*
Formula above will calculate on daily basis

Rgds,
[dp]

Pada 23/07/2013 21:33, Vishwanath menulis:

Dear Ashish,
Thanks. I was looking for similar solution.
But data structure remains the same.  But the amount should be 
distributed prorated for first month and last month.. For Example.  In 
the first month... the amount should be proportion to number of days 
rather than equal distribution.  in this example the first month 
distribution should be 27 days and in the month of December, it should 
be proportionate to 14 days. The balance should be distributed equally 
for other months for whole month.

Is it something possible?
best regards
vishwanath

On Thursday, July 18, 2013 10:11:28 PM UTC+5:30, ashish wrote:

Try this formula


=IF(AND(G$4=DATE(YEAR($D5),MONTH($D5),1),G$4=DATE(YEAR($E5),MONTH($E5),1)),$F5/(DATEDIF($D5,$E5,m)+1),)

see if it helps



On Thu, Jul 18, 2013 at 5:01 PM, Harish P Y py.h...@gmail.com
javascript: wrote:

Please find the attached file and help me for the formula .
When the start date and date are in different years


With Regards

*HARISH P Y*

*PTHINK BEFORE YOU PRINT:**_Before printing this e-mail
think whether it is really necessary. Thanks for your support
to protect our environment for the future generation_*

*1 ream of paper = 6% of a tree and 5.4 kg CO2 in the atmosphere
3 sheets of A4 paper pollutes 1 litre of water*

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you

wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook
page of this forum @ https://www.facebook.com/discussexcel
https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook. Forum
owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the
Google 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
javascript:.
To post to this group, send email to
excel-...@googlegroups.com javascript:.
Visit this group at
http://groups.google.com/group/excel-macros
http://groups.google.com/group/excel-macros.
For more options, visit
https://groups.google.com/groups/opt_out
https://groups.google.com/groups/opt_out.





-- 
*Regards*

**
*Ashish Koul*


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


PBefore printing, think about the environment.

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


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

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

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




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

Re: $$Excel-Macros$$ Excel Gurus :- Please Help me out for the formula for amount distribution

[De Premor]

Ups Sorry, i dont make an error checking before
here is the rev code

=(EOMONTH(D$4,0)$A5)*(D$4$B5)*IF(EOMONTH(D$4,0)$B5,DAY($B5),DAY(EOMONTH(D$4,0))-IF(D$4*=*$A5,DAY($A5),0))*($C5/($B5-$A5))

Rgds
[dp]

Pada 24/07/2013 1:15, Vishwanath menulis:

Dear Mr.DP.
Thanks a ton.  Yes it computes on daily basis. It certainly helps me.
I had small difficulty.  There is some problem.  The total of the 
allocated amount exceeds value when we take it from beginning. Example 
the first of if I put date of 1-Oct-13 to some end date, It allocates 
on number of days.. But sum of the allocation exceeds amount to be 
allocated.  Is it possible to rectify this issues?

Attached the work sheet.
rgds


On 23 July 2013 21:11, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


Paste this in Cell G5, then copy left and down


*=(EOMONTH(G$4,0)$D5)*(G$4$E5)*IF(EOMONTH(G$4,0)$E5,DAY($E5),DAY(EOMONTH(G$4,0))-IF(G$4$D5,DAY($D5),0))*($F5/($E5-$D5))**
*
Formula above will calculate on daily basis

Rgds,
[dp]

Pada 23/07/2013 21:33, Vishwanath menulis:

Dear Ashish,
Thanks. I was looking for similar solution.
But data structure remains the same.  But the amount should be
distributed prorated for first month and last month.. For
Example.  In the first month... the amount should be proportion
to number of days rather than equal distribution.  in this
example the first month distribution should be 27 days and in the
month of December, it should be proportionate to 14
days. The balance should be distributed equally for other months
for whole month.
Is it something possible?
best regards
vishwanath

On Thursday, July 18, 2013 10:11:28 PM UTC+5:30, ashish wrote:

Try this formula


=IF(AND(G$4=DATE(YEAR($D5),MONTH($D5),1),G$4=DATE(YEAR($E5),MONTH($E5),1)),$F5/(DATEDIF($D5,$E5,m)+1),)

see if it helps



On Thu, Jul 18, 2013 at 5:01 PM, Harish P Y
py.h...@gmail.com wrote:

Please find the attached file and help me for the formula .
When the start date and date are in different years


With Regards

*HARISH P Y*

*PTHINK BEFORE YOU PRINT:**_Before printing this
e-mail think whether it is really necessary. Thanks for
your support to protect our environment for the future
generation_*

*1 ream of paper = 6% of a tree and 5.4 kg CO2 in the
atmosphere
3 sheets of A4 paper pollutes 1 litre of water*

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do

you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official
Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a workbook.
Forum owners and members are not responsible for any loss.
---
You received this message because you are subscribed to
the Google 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/groups/opt_out.





-- 
*Regards*

**
*Ashish Koul*


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


PBefore 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

Re: $$Excel-Macros$$ Excel Gurus :- Please Help me out for the formula for amount distribution

[De Premor]

You're welcome, glad to know it solve the problem
Have a good days

Pada 24/07/2013 1:34, Vishwanath menulis:

Dear Mr.DP..
Awesome... I admire it.  You have reduced my whole day effort to 
few minutes.. My heart filled thanks to you.

Best regards
Vishwanath


On 23 July 2013 23:55, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


Ups Sorry, i dont make an error checking before
here is the rev code


=(EOMONTH(D$4,0)$A5)*(D$4$B5)*IF(EOMONTH(D$4,0)$B5,DAY($B5),DAY(EOMONTH(D$4,0))-IF(D$4*=*$A5,DAY($A5),0))*($C5/($B5-$A5))

Rgds
[dp]

Pada 24/07/2013 1:15, Vishwanath menulis:

Dear Mr.DP.
Thanks a ton.  Yes it computes on daily basis. It certainly helps me.
I had small difficulty.  There is some problem.  The total of the
allocated amount exceeds value when we take it from beginning.
Example the first of if I put date of 1-Oct-13 to some end date,
It allocates on number of days.. But sum of the allocation
exceeds amount to be allocated.  Is it possible to rectify this
issues?
Attached the work sheet.
rgds


On 23 July 2013 21:11, De Premor d...@premor.net
mailto:d...@premor.net wrote:

Paste this in Cell G5, then copy left and down


*=(EOMONTH(G$4,0)$D5)*(G$4$E5)*IF(EOMONTH(G$4,0)$E5,DAY($E5),DAY(EOMONTH(G$4,0))-IF(G$4$D5,DAY($D5),0))*($F5/($E5-$D5))**
*
Formula above will calculate on daily basis

Rgds,
[dp]

Pada 23/07/2013 21:33, Vishwanath menulis:

Dear Ashish,
Thanks. I was looking for similar solution.
But data structure remains the same.  But the amount should
be distributed prorated for first month and last month.. For
Example.  In the first month... the amount should be
proportion to number of days rather than equal
distribution.  in this example the first month distribution
should be 27 days and in the month of December, it should be
proportionate to 14 days. The balance should be distributed
equally for other months for whole month.
Is it something possible?
best regards
vishwanath

On Thursday, July 18, 2013 10:11:28 PM UTC+5:30, ashish wrote:

Try this formula


=IF(AND(G$4=DATE(YEAR($D5),MONTH($D5),1),G$4=DATE(YEAR($E5),MONTH($E5),1)),$F5/(DATEDIF($D5,$E5,m)+1),)

see if it helps



On Thu, Jul 18, 2013 at 5:01 PM, Harish P Y
py.h...@gmail.com wrote:

Please find the attached file and help me for the
formula .
When the start date and date are in different years


With Regards

*HARISH P Y*

*PTHINK BEFORE YOU PRINT:**_Before printing this
e-mail think whether it is really necessary. Thanks
for your support to protect our environment for the
future generation_*

*1 ream of paper = 6% of a tree and 5.4 kg CO2 in
the atmosphere
3 sheets of A4 paper pollutes 1 litre of water*

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And

do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join
official Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

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

NOTE : Don't ever post confidential data in a
workbook. Forum owners and members are not
responsible for any loss.
---
You received this message because you are subscribed
to the Google 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/groups/opt_out.





-- 
*Regards*

**
*Ashish Koul*


*/Visit