Hi Hemanth,
Code given by Noorian and Lalit will work to send email on that given date.
For that you need to open that excel file manually and trigger the code
manually then only the mail will be sent.
To make this process also automatic follow the below process:
1. Add a Module in your
Hi Hemanth,
Code given by Noorian and Lalit will work to send email on that given date.
For that you need to open that excel file manually and trigger the code
manually then only the mail will be sent.
To make this process also automatic follow the below process:
1. Add a Module in your
Hey Vish,
Could you please send code for me the details in attahed excel sheet
I am looking automated mail to be sent by excel to outlook by using the
excel defined time and date
1st - Subject -- Column A is Subject What user defined
2nd - Date Time - Column B is Date and time What is user
Hi Sriram,
Could you please explain excatly what you are looking for so that we can
provide you the solution related to the query.
Regards,
Lalit Mohan
On Friday, 29 June 2012 12:10:47 UTC+5:30, sriram ji wrote:
Dear Excel Guru,
Please find the attached file and help me
Thanks
Hi Neeraj,
Hope it helps you
Sub FindFormula()
Dim rngDtRange As Range
Const strDataRange As String = B1:B1000
Dim firstAddressAs String
Const strFindFormulaAs String = =RANDBETWEEN?
With
Dear Sriram,
Please try it..
=INDEX($H$1:$N$1,0,SMALL(IF($H2:$N2=$C2,COLUMN($H$1:$N$1),),COLUMN(A1))-7)
with ctrl+shift+Enter
Hope it helps to u.
See attached sheet.
--
Thanks regards,
Noorain Ansari
www.noorainansari.com
www.excelmacroworld.blogspot.com
PM, sriram ji
Hi Neeraj,
Revised with formula copy
Sub FindFormula()
Dim rngDtRange As Range
Const strDataRange As String = B1:B1000
Dim firstAddressAs String
Const strFindFormulaAs String = =RANDBETWEEN?
With
use this in D14 and Paste in All Cells :
=IFERROR(INDEX($H$13:$N$13,1,LARGE(--($H14:$N14=D$13)*COLUMN($H$13:$N$13),1)-7),)
Rajan.
On Friday, 29 June 2012 12:10:47 UTC+5:30, sriram ji wrote:
Dear Excel Guru,
Please find the attached file and help me
Thanks Regards,
Sriram G
Sorry for late.
Myself Shaikh AbdulGani A.R., working as Taxation Manager
also practicing as Tax Consultant in field of Income-tax, TDS and MH VAT.
This group helped me a lot for making lot of templates for smooth working.
Regard
On Wed, Jun 13, 2012 at 3:47 PM, Tinusz Tamás ta...@tinusz.hu
Sorry VBS file could not get attached.
Copy paste the below code in a notepad and save it with extension *.VBS*
**
Dim myExcel
Set myExcel = CreateObject(Excel.Application)
myExcel.DisplayAlerts = False
myExcel.AskToUpdateLinks = False
myExcel.AlertBeforeOverwriting = False
Hi H.,
True, Value2 is not necessary for the Format function version, but depending
on which alternative you are comparing it to, it is faster, more
predictable, or both.
with the options:
CELL
CELL.Value
CELL.Value2
CELL.Text
.
* CELL is a Range object, so if you use it in the context
Hi guys i have a sheet where I every month i calculate the costs for
logistics, there are 3 conditions (KM, Weight in KG, and Volumes), where i
have to calculate depending on the data put in the columns B,C,D
if it is zone 1,2,3 and has the volumes or weight under those limits it
puts those
Hi Jorge,
Looks like this can be handled using lookup formulas.
One good way to perform lookups is to have a number representing each of
your criteria each alone in their own cell, preferably all in the same table
for all transporters. You can use pivot tables to generate the cross
HI Manoj,
You can try this query in database may be it helps you
select id from Tab_Data GROUP BY id
(where id is the field name and Tab_Data is table name. you can add more
columns to it just by adding column name with , and the same column in
group by seperated by ,)
Regards,
Lalit
where is the option of Tab_Data...
On Fri, Jun 29, 2012 at 3:37 PM, Lalit_Mohan mohan.pande...@gmail.comwrote:
HI Manoj,
You can try this query in database may be it helps you
select id from Tab_Data GROUP BY id
(where id is the field name and Tab_Data is table name. you can add more
Hi Manoj,
My previous post is just an example to show how you can get unique id just
replace columna and table name accordingly.
Regards,
Lalit Mohan
On Friday, 29 June 2012 15:14:18 UTC+5:30, Manoj Kumar wrote:
Dear Experts,
I have data in month wise data in Access in different query..
Hi Lalit
Please,Please help me
Please make a little change in superb macro which you had mode.
The macro worked but since it doesn't fulfil one condition I have to check
the entire data again one by one which
defetas the very purpose of using macro
Please modify the macro AND HELP ME
Hi Vijay,
Try this
Sub SeperateData()
Dim varVal As Variant
Dim lngLoop As Long
Dim rngRangeAs Range
Dim strIni As String
Dim strFinalAs String
Dim strTemp As String
Dim lngVal As Long
Dim lngCell
Hello Dear Gurus
I want to add columns in an *excel sheet* between *R* and *AQ* to be total
in number as in cell *H5* and I also want this to be replicated in sheet2,
sheet3, and sheet4 and these columns should also carry the formula from
column *R*.
Gurus please help me.
Thanks
--
FORUM
Dear Azhar,
Please share sample workbook with Group.
On Fri, Jun 29, 2012 at 4:38 PM, Azhar Rai azhar@gmail.com wrote:
Hello Dear Gurus
I want to add columns in an *excel sheet* between *R* and *AQ* to be
total in number as in cell *H5* and I also want this to be replicated in
sheet2,
Hi Azhar,
Try this and change accordingly
Sub InsertColumnWithFormula()
Const lngNoOfColAs Long = 2
Dim varSheets() As Variant
Dim lngLoop As Long
Const strStartRange As String = R1
varSheets =
Hello Experts,
I have attached a spreadsheet. In Column F we have a name. By default it is
validated in the format First Name (and Middle Name if exists) Last Name.
So when someone types in a name in any of the cell in Column F, it should
convert the format to Last Name, (comma) First (and
Hi Lalit_Mohan
Great work ! wow ! excellent !This works perfect!
U are really a expert and a genius in this field
This will really save a lot of time and work for me
Regards
Vijay yadav
On Friday, 29 June 2012 14:30:31 UTC+5:30, vijay yadav wrote:
Hi Lalit_Mohan / VBA experts
Hi Lalit_Mohan
Great work ! wow ! excellent !This works perfect!
U are really a expert and a genius in this field
This will really save a lot of time and work for me
Regards
Vijay yadav
On Thursday, 28 June 2012 15:39:56 UTC+5:30, vijay yadav wrote:
Dear members,
Please help me
Hi Manoj,
Try this
select [store id] from [Acer All Data] group by [store id]
select [store id] from [Apr'12] group by [store id]
select [store id] from [Mar'12] group by [store id]
select [store id] from [May'12] group by [store id]
Regards,
Lalit Mohan
On Fri, Jun 29, 2012 at 3:14 PM, Manoj
Hi All,
Please find the attached excel file, and i need total macro timings based
on date changes.
Let me know for any clarification.
Regards
Lokesh.M
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
On Fri, Jun 29, 2012 at 7:20 PM, Ashish Bhalara
ashishbhalar...@gmail.comwrote:
Dear experts,
I need a function or macro to replace data from another sheets by addition
of raw, these addition of raw is depend on the record of another sheet. you
can find attached sheet for better
Dear Manoj,
Please use it..
SELECT Month, Store ID
FROM [Acer All Data]
WHERE ((Month)=apr'12));
--
Thanks regards,
Noorain Ansari
www.noorainansari.com
www.excelmacroworld.blogspot.com
On Fri, Jun 29, 2012 at 7:11 PM, ╰» ℓαℓιт мσαнη mohan.pande...@gmail.comwrote:
Hi Manoj,
Try this
Hi Lokesh,
Please find the attached. Change the formula accordingly.
Regards,
Lalit Mohan
www.excelfox.com/forum
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Lokesh Loki
Sent: Friday, June 29, 2012 7:18 PM
To:
I'm sorry, but here's the longer version of the story:
I have an Oracle database.
I use Excel as a front-end to the database.
The Excel application is used to store and retrieve over 60,000 documents
Each document consists of 2 to 130 sheets.
Reporting tools allow me to search the content of all
Hi,
I have a query..suppose i put some thing in column B and i have mail id in
column C i want to sent the mail on that ID.
In the example given below if i enter done in column B a mail should be
send on address entered in column C
ABC
ram
sham
can you attach the sample file
On Fri, Jun 29, 2012 at 9:18 PM, jmothilal gjmothi...@gmail.com wrote:
Dear any one
I want 3 cell values in 1 cell line by line
Thanks in advance
like
MOTHILAL
NAVEEN
RAJA MOTHILAL NAVEEN RAJA
--
*J.Mothilal : **Universal Computer Systems : # 16,
On Fri, Jun 29, 2012 at 9:19 PM, ashish koul koul.ash...@gmail.com wrote:
can you attach the sample file
On Fri, Jun 29, 2012 at 9:18 PM, jmothilal gjmothi...@gmail.com wrote:
Dear any one
I want 3 cell values in 1 cell line by line
Thanks in advance
like
MOTHILAL
NAVEEN
RAJA
Sub breaktext()
For i = 1 To Sheets(1).Range(a65356).End(xlUp).Row
splitdata = Split(Sheets(1).Range(a i).Value, Chr(10))
Sheets(1).Range(Cells(i, 2), Cells(i, 2 + UBound(splitdata))).Value =
splitdata
Next
End Sub
On Fri, Jun 29, 2012 at 9:21 PM, jmothilal gjmothi...@gmail.com wrote:
On
=B1CHAR(10)C1 CHAR(10)D1 try this
On Sat, Jun 30, 2012 at 5:00 AM, ashish koul koul.ash...@gmail.com wrote:
Sub breaktext()
For i = 1 To Sheets(1).Range(a65356).End(xlUp).Row
splitdata = Split(Sheets(1).Range(a i).Value, Chr(10))
Sheets(1).Range(Cells(i, 2), Cells(i, 2 +
i am using office 2003, are u send sample worksheet
Thanks
Mothilal
On Fri, Jun 29, 2012 at 9:46 PM, Aditya Tyagi ymca.adi...@gmail.com wrote:
=B1CHAR(10)C1 CHAR(10)D1 try this
On Sat, Jun 30, 2012 at 5:00 AM, ashish koul koul.ash...@gmail.comwrote:
Sub breaktext()
For i = 1 To
On Sat, Jun 30, 2012 at 5:21 AM, jmothilal gjmothi...@gmail.com wrote:
i am using office 2003, are u send sample worksheet
Thanks
Mothilal
On Fri, Jun 29, 2012 at 9:46 PM, Aditya Tyagi ymca.adi...@gmail.comwrote:
=B1CHAR(10)C1 CHAR(10)D1 try this
On Sat, Jun 30, 2012 at 5:00 AM,
Thanks so much its working .
Thanks with Mothilal.J
On Fri, Jun 29, 2012 at 9:55 PM, Aditya Tyagi ymca.adi...@gmail.com wrote:
On Sat, Jun 30, 2012 at 5:21 AM, jmothilal gjmothi...@gmail.com wrote:
i am using office 2003, are u send sample worksheet
Thanks
Mothilal
On Fri, Jun 29,
Dear Moti Lal,
You can use below UDF for dynamically
Function combine_cells(rng As Excel.Range) As String
Dim cell As Excel.Range
For Each cell In rng.Cells
combine_cells = combine_cells + CStr(cell.Value) Chr(10)
Next cell
End Function
see attached sheet
--
Thanks regards,
Noorain Ansari
Hi Mothi,
I Hope this helpful for you.
You need to Pass : Sheet Name , Cells to be Copied e.g C3:E3 and the
Cell in which data Needs to be pasted.
Sub test(strSheetName As String, strSourceRng As String, strTargetrangen As
String)
Dim Srng As Range
Dim rngcell As Range
With
Hi manoj,
Please Use this I hope this will work for you..
SELECT distinct [Store ID]
FROM [Acer All Data];
union
SELECT distinct [Store ID]
FROM [Mar'12];
union
SELECT distinct [Store ID]
FROM [Apr'12];
union
SELECT distinct [Store ID]
FROM [May'12];
Regards
Prince Dubey.
On Friday, 29
Hi Paul,
I have not automated Word much.. so these are just some thoughts:
Have you already tried these ideas?
1) export from Word as MHT (images will be emebedded with the html file
to reduce file clutter), then open the file in Excel.
2) Open the document in Word, Select All,
Hi Lalit,
Thanks for replying to my query.
Actually i needed when i am changing the dates the macro timings i.e.
4:00:00 should be multiplied like this 8:00:00, 12:00:00, 16:00:00 and this
timings will added to the total timings.
Examples:
* TimingsMacro timings Total timings*
Hi Lalit,
Thanks for replying to my query.
Actually i needed when i am changing the dates the macro timings i.e.
4:00:00 should be multiplied like this 8:00:00, 12:00:00, 16:00:00 and this
timings will added to the total timings.
Examples:
* TimingsMacro timings Total timings*
Hi,
Try this also
=A1 B1 C1
Regards,
Lalit Mohan
On Fri, Jun 29, 2012 at 11:29 PM, NOORAIN ANSARI
noorain.ans...@gmail.comwrote:
Dear Moti Lal,
You can use below UDF for dynamically
Function combine_cells(rng As Excel.Range) As String
Dim cell As Excel.Range
For Each cell In rng.Cells
Hi Azhar,
Try this revised version...
Sub InsertColumnWithFormula()
Const lngNoOfColAs Long = 2
Dim varSheets() As Variant
Dim lngLoop As Long
Const strStartRange As String = R1
varSheets = Array(Sheet1,
Dear NOORAIN ANSARI sir
Thanks for sending function coding.
Mothilal.J
On Sat, Jun 30, 2012 at 8:35 AM, ╰» ℓαℓιт мσαнη mohan.pande...@gmail.comwrote:
Hi,
Try this also
=A1 B1 C1
Regards,
Lalit Mohan
On Fri, Jun 29, 2012 at 11:29 PM, NOORAIN ANSARI noorain.ans...@gmail.com
wrote:
Hi Lokesh,
Please find the attached hope it meets your specification
Regards,
Lalit Mohan
On Sat, Jun 30, 2012 at 7:32 AM, Lokesh Loki lokeshsmg2...@gmail.com wrote:
Hi Lalit,
Thanks for replying to my query.
Actually i needed when i am changing the dates the macro timings i.e.
4:00:00
Dear experts,
Please suggest what should I do in that case, waiting for reply.
On Fri, Jun 29, 2012 at 7:23 PM, Ashish Bhalara
ashishbhalar...@gmail.comwrote:
On Fri, Jun 29, 2012 at 7:20 PM, Ashish Bhalara ashishbhalar...@gmail.com
wrote:
Dear experts,
I need a function or macro to
HI
Try this :
Sub MTest()
Dim Hyp As Hyperlink
Dim rngCell As Range
Dim wksSheet As Worksheet
Dim strURL As String
Set wksSheet = Worksheets(cleaner)
strURL =
http://www.pawleysvacationrentals.com/PawleysIsland/VacationRentals/Pawleys
Island/Details/
HI
HTH
Sub DisableCtrlD()
Dim blnflag As Boolean
Dim strPwd As String
strPwd = Application.InputBox(Enter the Password , Password)
blnflag = Application.InputBox(To Enable Key Press 1 and To disable press
0 , Password)
If strPwd = GiveYourPwd
Hi Mothilal,
Hope it helps you
Sub SetSheetOrientation()
Dim wbkAll As Workbook
Dim wksSheetAs Worksheet
Set wbkAll = ThisWorkbook
For Each wksSheet In wbkAll.Worksheets
wksSheet.PageSetup.Orientation = xlLandscape
Hi
Try this :
Sub MTest()
Dim rngRange As Range
Set rngRange = Range(A1).CurrentRegion.Offset(1)
Application.screenUpdating=False
rngRange.Sort key1:=rngRange.Cells(1, 3)
Set rngRange =
Hi,
Rajan,
thanks alot.
Warm Ragards,
Muralidhar E
On Sat, Jun 30, 2012 at 10:09 AM, Rajan_Verma rajanverma1...@gmail.comwrote:
HI
** **
HTH
** **
Sub DisableCtrlD()
Dim blnflag As Boolean
Dim strPwd As String
strPwd =
Hi!
I need userform controls created runtime to respond various data input
sessions
and use exclamation syntax to reference properties of these controls.
UserForm2!Label1.Caption = xxx works fine from within the form
module.
However, I also need to delete such controls before the form
Sorry for delay
Thanks Dear...
On Sat, Jun 30, 2012 at 12:51 AM, Prince Dubey prince141...@gmail.comwrote:
Hi manoj,
Please Use this I hope this will work for you..
SELECT distinct [Store ID]
FROM [Acer All Data];
union
SELECT distinct [Store ID]
FROM [Mar'12];
union
SELECT
Just Group your all worksheet by selecting them with Ctrl key and work with
any one ,
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Lalit_Mohan
Sent: 29 June 2012 5:03
To:
Use this One in G11:
=D11+(((A12-A11)+1)/24*4)
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Lokesh Loki
Sent: 30 June 2012 7:31
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$
Hi Azhar,
Try this revised with some changes hope it helps you:
Sub InsertColumnWithFormula()
Const lngNoOfColAs Long = 2
Dim varSheets() As Variant
Dim lngLoop As Long
Const strStartRange As String = D1
homework
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On
Behalf Of Ashish Bhalara
Sent: 30 June 2012 9:21
To: excel-macros@googlegroups.com
Subject: Re:
HI
Group your all worksheets and do page setup, will apply for all J
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of jmothilal
Sent: 30 June 2012 9:18
To: excel-macros@googlegroups.com
Subject:
Hi,
Can u guide the procedure how to run this code in my file.
I am fail to run the code.
Warm Regards,
Muralidhar E.
On Sat, Jun 30, 2012 at 10:25 AM, Muralidhar E emuralidha...@gmail.comwrote:
Hi,
Rajan,
thanks alot.
Warm Ragards,
Muralidhar E
On Sat, Jun 30, 2012 at 10:09 AM,
Dear Excel Guru,
Please find the attached file,
If ptp1 comes which date ptp generated that date should comes in D2 cell, I
want all colored cells for formula..
Thanks Regards,
Sriram G (Chennai)
On Fri, Jun 29, 2012 at 12:37 PM, Lalit_Mohan mohan.pande...@gmail.comwrote:
Hi Sriram,
HI
First you need to give your password in code (Replace “GiveYourPwd” with your
password”) , Press ALT +F 11 then Insert a Module , paste the code there, come
to the worksheet and
Just Press Alt+F8 and select DisableCtrlD ,
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From:
Try this :
=IFERROR(INDEX($H$13:$N$13,1,MATCH(D$13,$H14:$N14,0)),)
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of sriram ji
Sent: 30 June 2012 10:51
To: excel-macros@googlegroups.com
Subject:
hi,
If strPwd = GiveYourPwd Then i change here as 143
macros is running but for enabling ctrl+d it is not working.
On Sat, Jun 30, 2012 at 10:51 AM, Rajan_Verma rajanverma1...@gmail.comwrote:
HI
** **
First you need to give your password in code (Replace “GiveYourPwd” with
66 matches
Mail list logo
