Hello,
Could anybody please upload materials for macros for Powerpoint.
Thanks in advance.
Regards,
Chandra Shekar B
On Mon, Oct 24, 2011 at 6:51 AM, Anish Shrivastava anish@gmail.comwrote:
Thank you Very much Ashish.. This would help, as I needed to work on Word
macro but I couldnt,
Dear Rajiv,
Please see attached sheet.
On Sun, Oct 23, 2011 at 7:17 PM, R@jiv Kum@r xlraja...@gmail.com wrote:
--
*Thanks Regards
*
*Rajiv Kumar
*
*Mawana Sugar Works, Mawana
*
*Mo.No: 09027414899*
--
Hello,
I use VBA to display the date in the footer, because Excel won't
display the month name if you don't do it in VBA. I use the following
line of code:
Sheets(Report).PageSetup.LeftFooter = Format(Date, dd, )
Does anyone know how to change the font size of the date to font size
http://www.cpearson.com/excel/headfoot.htm
On Mon, Oct 24, 2011 at 1:31 PM, Chris D ch...@direnzi.net wrote:
Hello,
I use VBA to display the date in the footer, because Excel won't
display the month name if you don't do it in VBA. I use the following
line of code:
try something like
With ActiveSheet.PageSetup
.LeftFooter = Arial,Regular10 Format(Date, dd, )
End With
On Mon, Oct 24, 2011 at 2:16 PM, ashish koul koul.ash...@gmail.com wrote:
http://www.cpearson.com/excel/headfoot.htm
On Mon, Oct 24, 2011 at 1:31 PM, Chris D
Just change the font number in the line below. For example, change 8 to 12,
for a font size of 12
Sheets(Report).PageSetup.LeftFooter = Format(Date, *8* dd,
)
Regards,
Sam Mathai Chacko (GL)
On Mon, Oct 24, 2011 at 2:20 PM, ashish koul koul.ash...@gmail.com wrote:
try something like
Thanks for your guidance, but when I press the alt+F11 nothing happens your
further guidance required please. I am using the Excel 2010.
Aamir Shahzad
On Mon, Oct 24, 2011 at 10:27 AM, hanumant shinde arsfan2...@yahoo.co.inwrote:
Press Alt+F11 coding window will open there you will find
Dear Shahzad,
Hanumant's Idea is right..
You can try through another Option.
Add Developer Tab from Excel Option,
Developer-click on Visual Basic
--
Thanks regards,
Noorain Ansari
*http://excelmacroworld.blogspot.com/*http://excelmacroworld.blogspot.com/
Just a thought, I hope you are not pressing the Plus sign along this ALT and
F11. You should only press ALT F11
Regards,
Sam Mathai Chacko (GL)
On Mon, Oct 24, 2011 at 5:15 PM, NOORAIN ANSARI noorain.ans...@gmail.comwrote:
Dear Shahzad,
Hanumant's Idea is right..
You can try
Dear Murali,
Please try below Code and See attached sheet.
Sub re_arrange()
Dim i, j, k, l As Integer
j = Range(A65536).End(xlUp).Row
l = 3
For i = 3 To j
For k = 1 To 3
Sheet1.Range(F l).Value = Sheet1.Cells(i, k).Value
l = l + 1
Next k
Next i
End Sub
--
Thanks regards,
Noorain Ansari
Dear noorain,
Excellent,is there any formula available?
On Mon, Oct 24, 2011 at 5:26 PM, NOORAIN ANSARI noorain.ans...@gmail.comwrote:
Dear Murali,
Please try below Code and See attached sheet.
Sub re_arrange()
Dim i, j, k, l As Integer
j = Range(A65536).End(xlUp).Row
l = 3
For i = 3
Yes you are right, now windows is opening well I tried to find from the web
pages got that I have to install VBA programming from setup of office.
Thanks for your quick reply. I am just begnner and trying this first macro.
Thanks again all of you.
Aamir Shahzad
On Mon, Oct 24, 2011 at 4:55 PM,
Hello guys,
I want to display the data from crystal report in microsoft excel. Can
we retrieve data from crystal report through vba excel?
Thank You
--
--
Some important links for excel users:
1. Follow us on
=INDEX($A$3:$C$10,ROUNDUP(ROW(INDIRECT(1:COUNTA($A$3:$C$10)))/COLUMNS($A$3:$C$10),0),IF(MOD(ROW(INDIRECT(1:COUNTA($A$3:$C$10))),COLUMNS($A$3:$C$10))=0,COLUMNS($A$3:$C$10),MOD(ROW(INDIRECT(1:COUNTA($A$3:$C$10))),COLUMNS($A$3:$C$10
Use this formula as an array.
Regards,
Sam Mathai Chacko (GL)
Option Explicit
Sub TransposeRowsToColumns_SAS()
Dim i As Long
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 1).Resize(, 3).Copy
Cells(Rows.Count, 6).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True
Next i
End Sub
Don Guillett
SalesAid Software
IF? you use a formula you may want to convert to values to keep from cluttering
the file with a lot of unnecessary calculation.
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Sam Mathai Chacko
Sent: Monday, October 24, 2011 7:42 AM
To: excel-macros@googlegroups.com
Subject: Re:
Same to u Ankit. Pls do something which we can also copy and send it to others.
Sandeep
Sent on my BlackBerry® from Vodafone
-Original Message-
From: Ankit Agrawal ankit.agrawal...@gmail.com
Sender: excel-macros@googlegroups.com
Date: Mon, 24 Oct 2011 18:54:47
To:
Dear All,
Kindly find the attached file, and provide formula for this
Thanks Regards,
Sriram.G
Chennai.
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
For book #s starting at 1001 and changing every 10 rows;
Put in cell A2:
=IFERROR(OFFSET(A2,-10,0)+1,1001)
In case of Excel version prior to 2003, which doesn't support IFERROR, use:
=IF(ROW(A2)11,OFFSET(A2,-10,0)+1,1001)
Change default book # in formula as desired. Copy down.
So what exactly do you want? Your attachment isn't clear as to what formula
you require.
From what I understood, have made a sheet with sequence of receipt leaflets,
depending on the number of leaves and starting number.
Regards,
Sam Mathai Chacko (GL)
On Mon, Oct 24, 2011 at 7:04 PM, sriram
Based on seeing your file(s) I offer this macro to be run from the master
file to add a line on each sheet in the master file
Sub getdailydata()
Workbooks.Open Filename:=InputBox(name of file)
For Each ws In Workbooks(Master.xls).Sheets
lr = ws.Cells(Rows.Count, 2).End(xlUp).Row
Set mf =
Dear Shahzad,
Please save this file in your Excel 2010, I hope it will be error Free.
Thanks regards,
Noorain Ansari
*http://excelmacroworld.blogspot.com/*http://excelmacroworld.blogspot.com/
*http://noorain-ansari.blogspot.com/* http://noorain-ansari.blogspot.com/
On Mon, Oct 24, 2011 at 5:26
Maybe???
=IF(COUNTIF(A:A,D4)=10,No,)
Don Guillett
SalesAid Software
dguille...@gmail.com
From: sriram ji
Sent: Monday, October 24, 2011 8:34 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Help needed..?
Dear All,
Kindly find the attached file, and provide
Your are right but can I not save file with coding? when I save file this
simply in excel format this do not save code.
Aamir Shahzad
On Mon, Oct 24, 2011 at 8:02 PM, NOORAIN ANSARI noorain.ans...@gmail.comwrote:
Dear Shahzad,
Please save this file in your Excel 2010, I hope it will be error
There were two posts with formula based solutions. Have you checked those?
Sam
On Mon, Oct 24, 2011 at 8:40 PM, Aamir Shahzad aamirshahza...@gmail.comwrote:
Your are right but can I not save file with coding? when I save file this
simply in excel format this do not save code.
Aamir Shahzad
ok sorry now saving the code file in xlsm format.
On Mon, Oct 24, 2011 at 8:11 PM, Sam Mathai Chacko samde...@gmail.comwrote:
There were two posts with formula based solutions. Have you checked those?
Sam
On Mon, Oct 24, 2011 at 8:40 PM, Aamir Shahzad
aamirshahza...@gmail.comwrote:
I agree with Sam that your requirement isn't 100% clear. He gave a solution
for one interpretation.
I'll flesh out mine.
=IFERROR(OFFSET(A2,-10,0)+1,1001)
=IF(ROW(A2)11,OFFSET(A2,-10,0)+1,1001)
As I said will give you a sequential number that changes every 10 rows,
starting with 1001
=INT((B2-150)/10)+1001
Simpler than the MOD version, and less CPU intensive for those times when it
needs to be calculated millions of times :)
Sorry for the emailing before thinking!
Asa
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Asa
Dear Pravesh,
Please try through below code..
Sub ImportPDFFileData()
'Author: Steve Lipsman
'Purpose: Import PDF File Data Into Excel Worksheet
'Other Requirement(s): 'Acrobat' Checked in VBA Tools-References
'Reference Renames Itself 'Adobe Acrobat 9.0 Object Library' After Reference
Is Saved
Thnaks yaar, but i am new in Macro world so dont know even ABC of it, can u
plz send the final file. I will be very thankful to you. its very urgent for
me plz
On Mon, Oct 24, 2011 at 8:59 PM, NOORAIN ANSARI noorain.ans...@gmail.comwrote:
Dear Pravesh,
Please try through below code..
Sub
Correct Shahzad,
after saving in .xlsm format, you will be able to view code in VBE.
On Mon, Oct 24, 2011 at 8:43 PM, Aamir Shahzad aamirshahza...@gmail.comwrote:
ok sorry now saving the code file in xlsm format.
On Mon, Oct 24, 2011 at 8:11 PM, Sam Mathai Chacko samde...@gmail.comwrote:
Hi Sriram,
Please find attached solved sheet.
Thanks
Mukesh
- Original Message -
From: sriram ji
To: excel-macros@googlegroups.com
Sent: Monday, October 24, 2011 7:04 PM
Subject: $$Excel-Macros$$ Help needed..?
Dear All,
Kindly find the attached file, and provide
Please reply...
Dear All,
Does any one have recent list of website in different catgories like Govt
official site, education site, travel site, fun site etc.. in an excel
document?
If yes, please forward that to me..
Best Regards,
Amit Desai
Disclaimer: This message and its attachments
Dear Experts,
I want to pick the multi values like vlookup formula. Is there any way?
Sheet attached. Can we prepare the any function e.g. (mylookup) which save
in excel when ever I use that function it picks the desired values like
attached sheet.
Regards,
Aamir Shahzad
--
Function MultiResultLookedUp(varLookupValue, rngRange As Range) As String
Dim lngLoop As Long
Dim varArray
varArray = rngRange
For lngLoop = LBound(varArray, 1) To UBound(varArray, 1)
If varArray(lngLoop, 1) = varLookupValue Then
MultiResultLookedUp =
You guys were such a help on the first part of this project, I thought
I would ask another question. The project I am working on is still a
review of firewall access-list lines. Quarterly, I have to review
their use and purge the ones that haven't been used. That said, the
output I get to
So does that mean that all your lines will always have the eq 80 in it? If
not, can you attach a sample workbook with a few more examples that clearly
depicts the possible list in your complete set of data.
Regards,
Sam Mathai Chacko (GL)
On Mon, Oct 24, 2011 at 11:33 PM, Zeunasc
My apologies, I don't see how to attach a workbook to this post.
Below is some sample code, as would be contained in column A. I tried
to pick lines that would contain examples of all the different ways
the data could be presented. No, there will not always be an eq 80.
Best, I can tell, these
so if the line has a remark in it, then leave it as it is, otherwise, remove
anything that starts with (hitcnt or Ox?
Sam
On Tue, Oct 25, 2011 at 12:06 AM, Zeunasc timothy.ry...@gmail.com wrote:
My apologies, I don't see how to attach a workbook to this post.
Below is some sample code, as
No response. Had to assume. Here's the assumption as well as the file.
=IF(LEN(A1)LEN(SUBSTITUTE(UPPER(A1),REMARK,)),A1,LEFT(A1,MIN(IF(ISERROR(SEARCH(
0x,A1)),255,SEARCH( 0x,A1)),IF(ISERROR(SEARCH( (h,A1)),255,SEARCH(
(h,A1)
Regards,
Sam Mathai Chacko (GL)
On Tue, Oct 25, 2011 at 12:13 AM,
You assumed correctly, and the resulting code works perfectly. Would
it be too much to ask for an explanation of how this formula works? I
understand parts of it, but I am trying to learn, instead of just
ripping the code off.
Again, thank you for this help!
Z
On Oct 24, 3:05 pm, Sam Mathai
Let us break it in to parts.
=IF(LEN(A1)LEN(SUBSTITUTE(UPPER(A1),REMARK,)),A1,LEFT(A1,MIN(IF(ISERROR(SEARCH(
0x,A1)),255,SEARCH( 0x,A1)),IF(ISERROR(SEARCH( (h,A1)),255,SEARCH(
(h,A1)
Assuming you know how an If function works
*LEN(A1)LEN(SUBSTITUTE(UPPER(A1),REMARK,))*, returns a TRUE if
A pure macro solution without formulas or UDF
Sub GetMultipleDataSAS()
Application.ScreenUpdating = False
Columns(e).Clear
On Error Resume Next
For i = 3 To Cells(Rows.Count, b).End(xlUp).Row
sLr = Cells(Rows.Count, i).End(xlUp).Row
With Columns(I)
Set c = .Find(What:=Cells(i, b),
thank you very much SAM for this wonderful solution. But I want to make this
to permanent function you can say by means of add in, I want to make add in
to use this MultiResultLookedup Macro because any time if I want to use
this function I have to convert the file format xlsx to xlsm. Please
Aamir, copy the entire code to your personal.xlsb file. You will now have it
available in all your workbooks, similar to an add-in.
If you do not have the personal file, just do any macro recording by
selecting the personal workbook. Stop recording, and the overwrite the macro
that was recorded.
SAM please further brief step by step procedure which are you saying as I am
very new in macro.
Aamir Shahzad
On Tue, Oct 25, 2011 at 1:05 AM, Sam Mathai Chacko samde...@gmail.comwrote:
Aamir, copy the entire code to your personal.xlsb file. You will now have
it available in all your
OK. Click on record macro from the developer tab. Short cut key ALT+T+M+R
Then in the option to select store macro in, select personal workbook. Then
click OK. Then do anything on the spreadsheet, like select a cell, or delete
a row or something. The stop the macro recording. You can use the same
Dear Sirs,
I have a macro which updates my monthly trial balance. But it's too
long. Takes time to process.
I want to shorten it particularly step 1, step 3 step 4, using loop
which i am not very good at.
Please help how to shorten my codes. Below is my macro.
Thank you.
DanJ
STEP 1
Sub
I have a report that is run daily. Every day the end user answers
among other things, what was yesterdays weather. They answer by
selecting the appropriate picture and clicking it. My excel workbook
then uses VBA to copy the appropriate reference picture and pastes it
in to the daily report.
On Oct 24, 4:33 am, ashish koul koul.ash...@gmail.com wrote:
check both method 1 and method 2
Great
Thanks
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
Dear Expert,
Plz solve out attached query.
Regards,
Ankit
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group
51 matches
Mail list logo