If
End With
Next wks
End Sub
Regards,
Sam Mathai Chacko
On Tue, Feb 21, 2012 at 8:03 PM, dguillett1 dguille...@gmail.com wrote:
This will look in all sheets in the file and select if found. Put it in your
DIR loop for all files in the folder.
Sub lookinallsheets()
For Each ws
@googlegroups.com [mailto:excel-macros@googlegroups.com] On
Behalf Of dguillett1
Sent: Tuesday, February 21, 2012 11:42 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Help with code please.
Sam, The code I provided does stop the macro with the selection. Yes, goto
could
I have to disagree. If the
workbook has the text you are looking for in more than one sheet, the code will
go forward and the last sheet that has the word being looked for will be
selected.
Regards,
Sam
On Wed, Feb 22, 2012 at 3:03 AM, dguillett1 dguille...@gmail.com wrote:
Asa, Agree about
,
Sam
On Wed, Feb 22, 2012 at 6:40 AM, dguillett1 dguille...@gmail.com wrote:
Computer is tired and going to be early but after I asked the same question
the OP said
“ There will never be more than 1 of the same number. I just need it to
select the sheet that it's on and then select
Why is YOUR request more HIGH PRIORITY than others. Some of us take this
differently than you might desire. DELETE.
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Amit Desai (MERU)
Sent: Tuesday, February 21, 2012 11:46 PM
To: excel-macros@googlegroups.com
Subject: FW:
, but it suited me for doing another thing
in another report, but i needed in a macro format in order to delete the data
whenever i pull a report, dguillett1 was exactly as i wanted :). thank you very
much both of you.
2012/2/20 dguillett1 dguille...@gmail.com
I didn’t do columns F G so use this
Sub
] On
Behalf Of dguillett1
Sent: Tuesday, February 21, 2012 1:34 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Help with code please.
Asa, Agree about the “undue attention”. My experience tells me that just
leaving it out ( as I did) serves the purpose. Maybe you can time
That’s because the defined name was not referenced in the chart sources.
series=smith.xls!definedname
Don Guillett
SalesAid Software
dguille...@gmail.com
From: John A. Smith
Sent: Thursday, February 23, 2012 9:25 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Chart
send a file with a complete explanation.
Don Guillett
SalesAid Software
dguille...@gmail.com
From: lokesh
Sent: Friday, February 24, 2012 7:20 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ instead of formula need macros
Hi All,
I am using this formula to extract the
No helper
=SUMPRODUCT((WEEKDAY($G$2:$G$17)1)*(WEEKDAY($G$2:$G$17)7)*($H$2:$H$17=B3))
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Lokesh Loki
Sent: Friday, February 24, 2012 9:15 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ instead of formula need macros
Hi
You mention “paste” sheet which indicates that this is something you copy and
paste from ?, it may be better to have an additional column with
the zone there and simply filter. More explanation___? What you want can
be done using FINDNEXT.
Don Guillett
SalesAid Software
Or, you could use a double click event macro to do a time stamp
target=time
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: krishnanm2...@gmail.com
Sent: Friday, February 24, 2012 12:15 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Time
Could it be because you do NOT have any macros with those names?
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Mohammed Muneer
Sent: Saturday, February 25, 2012 1:00 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ plz check and help on the attached sheet the Call
Perhaps a full explanation and examples would help.
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Amit Desai (MERU)
Sent: Thursday, February 23, 2012 10:42 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Avg. Revisit in number of days
Dear All,
With the help of
How about a macro solution. Change “I” to “H”
Sub gettitlesSAS()
Dim r As Long
Dim c As Long
Dim ms As String
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
ms =
For c = 3 To Cells(1, Columns.Count).End(xlToLeft).Column
If UCase(Cells(r, c)) = Y Then ms = ms , Cells(1, c)
Next c
Cells(r, I)
http://www.contextures.com/xlPivot05.html
http://www.ozgrid.com/VBA/pivot-table-fields.htm
or this idea
For Each pf In pt.DataFields
pf.Orientation = xlHidden
Next pf
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Kiran Kancharla
Sent: Sunday, February 26, 2012 12:15 PM
To:
You have been doing this awhile and should know better. Anyway.
Sub copycorrectsheets()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name Summary _
And ws.Name forms _
And ws.Name admin Then
ws.Range(G7).CurrentRegion.Copy _
Worksheets(summary).Cells(Rows.Count, G).End(xlUp)(2)
End If
Right click sheet tabview code insert this
Now whenever you input y or Y in col B, col A will get the date
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Or Target.Column 2 Then Exit Sub
If UCase(Target) = Y Then Target.Offset(, -1) = Date
End Sub
Don Guillett
SalesAid
, dguillett1 dguille...@gmail.com wrote:
You have been doing this awhile and should know better. Anyway.
Sub copycorrectsheets()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name Summary _
And ws.Name forms _
And ws.Name admin Then
ws.Range(G7).CurrentRegion.Copy _
Worksheets
Don, You made it simple... Thanks.
On Tue, Feb 28, 2012 at 6:37 PM, dguillett1 dguille...@gmail.com wrote:
That will change tomorrow with the next calculation
Don Guillett
SalesAid Software
dguille...@gmail.com
From: hilary lomotey
Sent: Tuesday, February 28, 2012 7:53 AM
To: excel
Ask yourself if you would want someone to change yours..
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Mari Krishnamoorthi K
Sent: Tuesday, February 28, 2012 2:10 PM
To: MS EXCEL AND VBA MACROS
Cc: mariseka...@hotmail.com
Subject: $$Excel-Macros$$
Or this which copies template to the end.
Private Sub Workbook_Open()
Dim mydate As String
mydate = Format(Date, dd-mm-)
With Sheets(Sheets.Count)
If .Name mydate Then
Sheets(Template).Copy after:=Sheets(.Index)
ActiveSheet.Name = mydate
End If
End With
End Sub
Don Guillett
SalesAid
but now the control is not A- Order but cell Z - Shop, how can i turn this
around, is it done in the code line:
If Cells(i + 1, 1) = Cells(i, 1) do i have to change the 1 to the correspondent
Column of Z? Thank you again :).
2012/2/22 dguillett1 dguille...@gmail.com
Glad to help
Don
Send file
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Avinash
Sent: Wednesday, February 29, 2012 9:26 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Re: sheet updation macro
Dear Don Guillett / Maries ,
i saw your previous reply for the subject If I input
Is this “homework” for an excel class?
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Mani
Sent: Wednesday, February 29, 2012 11:27 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Urgent: Need Help (Assignment)
Hi Guys,
I am new in excel and have to do this
This will copy just the values from the source to the dest. Ranges MUST be
the same size
range(destination).value=range(source).value
This is much better and the same as
range(source).copy
range(dest).paste.pastespecial
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original
@googlegroups.com
Subject: Re: $$Excel-Macros$$ Urgent: Need Help (Assignment)
Well I thought I'd give it to him for the honesty, but then, can't go against
the rules. Speaking of excel classes, I wish we had that back in those days.
Sam
On Thu, Mar 1, 2012 at 1:10 AM, dguillett1 dguille...@gmail.com
ideas?
Robb
On Feb 29, 3:00 pm, dguillett1 dguille...@gmail.com wrote:
This will copy just the values from the source to the dest. Ranges MUST be
the same size
range(destination).value=range(source).value
This is much better and the same as
range(source).copy
range(dest).paste.pastespecial
Don
Due to spaces in sheet name. I ALWAYS avoid.
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: LearnExcel
Sent: Wednesday, February 29, 2012 4:33 PM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ indirect function help
HI team, can you please help
...see column AQ (row 636, 766, 955 981). Need
result in number of days terms..
Thanks in advance.
Best Regards,
Amit
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On
Behalf Of dguillett1
Sent: 26 February 2012 19:47
To: excel-macros@googlegroups.com
Subject
this message: run-time error '1004': Method
'Range' of object'_Global' failed
I'm definitely a novice when it comes to thisanything obvious I'm
missing?
Thanks.
Robb
On Feb 29, 4:55 pm, dguillett1 dguille...@gmail.com wrote:
range(a2:z223).copy
range(a1).paste pastevalues
Don Guillett
How do you want to split it? Just use
=TEXT(NOW(),mmm)
for the month
Don Guillett
SalesAid Software
dguille...@gmail.com
From: danial mansoor
Sent: Thursday, March 01, 2012 11:24 AM
To: excel-macros@googlegroups.com ; noorain.ans...@gmail.com ;
grug...@gmail.com
Subject: $$Excel-Macros$$
I’m not sure what you want. If?? you want to get all data from sheet2 for the
data just use
datafilterautofilterfilter on the datecopy. Develop a macro to do it for
you.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Ashish Bhalara
Sent: Friday, March 02, 2012
send a file
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: trawets
Sent: Saturday, March 03, 2012 12:51 PM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ Macro to compare highlight and copy value to a new
sheet
Hi
I have a
I personally like the methods mentioned in David’s web site. Wonder why?
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: xlstime
Sent: Sunday, March 04, 2012 6:45 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ how to save file in 2 different
google
utube excel
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: rekha siri
Sent: Sunday, March 04, 2012 1:11 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Need advise
hi Experts,
I Am excel trainer, just wanted to know how can we place
Why not just use
datatext to columnsfixed width
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: ICWAI Help
Sent: Monday, March 05, 2012 7:58 AM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ Split Number into multiple cell
Hi
Google is your friend.
excel version differences
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Divaker Pandey
Sent: Monday, March 05, 2012 8:53 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Hi Expert- please spend your few minute only on this
Try this. BTW you have NO Bob in field 7
Sub filterandcopyusedrange()
Dim ds As Worksheet
Set ds = Sheets(Sheet10)
Cells.Find(*, Cells(Rows.Count, Columns.Count) _
, , , xlByRows, xlPrevious).Copy ds.Range(d1)
With ActiveSheet.UsedRange
.AutoFilter Field:=7, Criteria1:=bob
When all else fails, RTFI
3) Don't post questions regarding breaking or bypassing any security
measure.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Jai
Sent: Tuesday, March 06, 2012 9:21 AM
To: excel-macros
Subject:
try
Sub removetableSAS()
dim i as integer
for i = 1 to 3
activesheet. osh.listobjects(Table i ).unlist
next i
End sub
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: yogananda muthaiah
Sent: Tuesday, March 06, 2012 11:38 AM
To: excel-macros@googlegroups.com
How about application.quit or
Sub CLOSE_ALL()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Application.Workbooks
w.Close SaveChanges:=false
Next w
'Application.Quit
End Sub
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
no
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: danial mansoor
Sent: Tuesday, March 06, 2012 10:41 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ modification in paste special macro.
i used this macro and assigned it a shortcut key for my
You didn’t show us your situation but, depending on your need you could use
LOOKUP, vLookup
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Ashish Bhalara
Sent: Tuesday, March 06, 2012 10:14 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Need
Many reasons. What are you trying to do?
For Each ws In ThisWorkbook.Worksheets
If InStr(1, ws.Name, vbTextCompare) = 0 _
what ??
And InStr(1, ws.Name, Doc, vbTextCompare) = 0 Then
'you didn’t select the worksheet and you do NOT need to
with ws
.Columns(C).AutoFit
Paul, As you know I adhere closely to the KISS principle. I assumed ?? that OP
wanted to “put the formula back” .
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Paul Schreiner
Sent: Wednesday, March 07, 2012 8:31 AM
To: excel-macros@googlegroups.com
Subject:
-
From: dguillett1 dguille...@gmail.com
To: excel-macros@googlegroups.com
Sent: Wed, March 7, 2012 9:48:44 AM
Subject: Re: $$Excel-Macros$$ Re: modification in paste special macro.
Paul, As you know I adhere closely to the KISS principle. I
Macro solution for summary
Sub getuniqueandcount()
Range(A1:A Cells(Rows.Count, 1).End(xlUp).Row) _
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range(G1), Unique:=True
Range(h2:H Cells(Rows.Count, g).End(xlUp).Row).Formula = _
=VLOOKUP(G2,A:B,2,0)--COUNTIF(A:A,G2)
End Sub
Don Guillett
vlookup??
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Skanda
Sent: Wednesday, March 07, 2012 10:53 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Vlookup basics and help
I have two worksheets subset and Maindata.
Subset has the following
Modify to suit
=IF(ISNA(VLOOKUP(A26,Maindata!$A$2:$I$39,3,0)),,VLOOKUP(A26,Maindata!$A$2:$I$39,3,0))
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Skanda
Sent: Wednesday, March 07, 2012 11:31 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$
if formula
i just used this formula however how can i add iserror formula to this..
On Thu, Mar 8, 2012 at 12:29 AM, Rajasekhar Praharaju
rajasekhar.prahar...@gmail.com wrote:
thanks one and all for your help..
On Wed, Mar 7, 2012 at 7:14 PM, dguillett1 dguille...@gmail.com
Send direct to dguillett1 @gmail.com
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: LearnExcel
Sent: Wednesday, March 07, 2012 4:33 PM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ loop through cell
Don work Great thanks
running the code what needs to be changed?
ie:
Master file
book1
book2
book3
ect
close everything expect master file
On Mar 7, 8:32 am, dguillett1 dguille...@gmail.com wrote:
How about application.quit or
Sub CLOSE_ALL()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
send to dguillett1 @gmail.com
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: LearnExcel
Sent: Wednesday, March 07, 2012 4:37 PM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ copy range
hey Don sorry to trouble you
0 100
126 200
131 300
136 400
141 500
146 600
151 700
156 800
161 900
166 1000
171 1100
=VLOOKUP(A3,B8:C18,2)
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Rushiraj Patel
Sent:
: Wednesday, March 07, 2012 8:55 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Vlookup basics and help
Don,
It did not return any values
On Wed, Mar 7, 2012 at 4:56 PM, dguillett1 dguille...@gmail.com wrote:
Modify to suit
=IF(ISNA(VLOOKUP(A26,Maindata!$A$2:$I$39,3,0
This simple one liner leaves
sub closewholeexcelapplication()
application.quit
end sub
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: pavan chowdary
Sent: Thursday, March 08, 2012 3:48 AM
To: excel-macros
Subject: $$Excel-Macros$$ VBA Help
Hi,
This is pavan.
I sent a “solved macro for this”
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Selva Loganathan
Sent: Thursday, March 08, 2012 8:31 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ copy range
-- Forwarded message --
From: Selva
try
Rows(lastrowB : lastrowC).Delete
or
Rows(lastrowB).resize(lastrowC-lastrowb).Delete
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Johnny
Sent: Thursday, March 08, 2012 7:08 PM
To: MS EXCEL AND VBA MACROS
Subject:
.
I tried moving around the and such, but couldn't figure it out.
Thanks
Johnny
On Mar 9, 3:13 pm, dguillett1 dguille...@gmail.com wrote:
try
Rows(lastrowB : lastrowC).Delete
or
Rows(lastrowB).resize(lastrowC-lastrowb).Delete
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille
Look in the help index for FIND then incorporate into an if/end
set mf=find
if not mf is nothing then
do this
else
do that
end if
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Brian
Sent: Saturday, March 10, 2012 3:06 AM
To: excel-macros@googlegroups.com
In cell D18 I have some text.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Kris
Sent: Saturday, March 10, 2012 4:55 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Re: Match text to a list
Hi
Sub kTest()
Dim Flg As Boolean
I didn’t read it COMPLETELY. Still like pure vba better.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Kris
Sent: Saturday, March 10, 2012 8:31 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Re: Match text to a list
So what ?
On Saturday,
] On
Behalf Of dguillett1
Sent: 01 March 2012 19:15
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Avg. Revisit in number of days
I still do NOT understand your need?
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Amit Desai (MERU)
Sent: Sunday, February 26
isnumber is based on the SEARCH returning same
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Brian
Sent: Saturday, March 10, 2012 10:53 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Re: Match text to a list
Thank you Kris, your solution works
=IF(B2SUMPRODUCT(MAX($B$2:$B$31*(($A$2:$A$31=A2)*($C$2:$C$31=main,Greater
than Main,)
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Aamir Shahzad
Sent: Saturday, March 10, 2012 11:31 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Query
Dear
My preference would be to use macros to input the resulting value using vba
or application.sum or EVALUATE.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: ashjain2...@yahoo.co.in
Sent: Sunday, March 11, 2012 6:27 AM
To:
:43 AM, dguillett1 dguille...@gmail.com wrote:
http://www.cpearson.com/excel/colors.aspx
see att
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Janet Dickson
Sent: Saturday, March 10, 2012 6:43 AM
To: excel-macros@googlegroups.com
Subject
Have you tried using
datafilterautofilter
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Gulam Hameed
Sent: Sunday, March 11, 2012 1:13 AM
To: excel-macros@googlegroups.com
Subject: RE: $$Excel-Macros$$ need VBA Code plz help
Dear Noorain experts
I want
=IF(B2SUMPRODUCT(MAX($B$2:$B$31*(($A$2:$A$31=A2)*($C$2:$C$31=main,Greater
than Main,)
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Aamir Shahzad
Sent: Sunday, March 11, 2012 1:27 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Query
Sheet protection easy to defeat while vba protection is more difficult.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Seraj Alam
Sent: Sunday, March 11, 2012 10:01 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Help...
Hi,
Please find
Asa, My formula tested fine without the proposed change.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Asa Rossoff
Sent: Sunday, March 11, 2012 11:28 AM
To: excel-macros@googlegroups.com
Subject: RE: $$Excel-Macros$$ Query
Hi Aamir,
You're welcome.
The
try custom format of
h
or
[$-409]h;@
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Indrajit $nai
Sent: Sunday, March 11, 2012 3:52 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Need a small help
Hi All,
Need a small help, can anyone convert
A macro approach.
Sub lineemupSAS()
Dim i As Long
Dim j As Integer
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row Step 4
For j = 1 To 4
Cells(i, j + 2).Value = Cells(j + 1, 2).Value
Next j
Next i
‘clean up
You can help yourself learn. Record a macr while
select your rangedatafilterfilter by datecopy/paste to other sheetunfilter.
clean it up to use for next time.
Post back your results
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: pawel lupinski
Sent: Monday,
See if this simpler approach is helpful
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: hilary lomotey
Sent: Monday, March 12, 2012 10:22 AM
To: excel-macros
Subject: $$Excel-Macros$$ Logical Formula Problem
Hi Experts
i am trying to use the logical formula ie
Should do it
Sub CopyColumnsToTableSAS()
Dim i As Integer
Dim fr As Long
Dim lr As Long
'col A
Cells(2, 1).Resize(Cells(2, 1).End(xlDown).Row).Copy Cells(2, g)
'other columns
For i = 2 To 5
fr = Cells(2, i).End(xlDown).Row
lr = Cells(Rows.Count, i).End(xlUp).Row
Cells(fr, i).Resize(lr).Copy
I thought I already responded to this.
Sub CopyColumnsToTableSAS()
Dim i As Integer
Dim fr As Long
Dim lr As Long
'col A
Cells(2, 1).Resize(Cells(2, 1).End(xlDown).Row).Copy Cells(2, g)
'other columns
For i = 2 To 5
fr = Cells(2, i).End(xlDown).Row
lr = Cells(Rows.Count, i).End(xlUp).Row
Just save it as .xls and hope that your macros are BACKWARD compatible. Some
are NOT. Test!
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Avinash Daga
Sent: Tuesday, March 13, 2012 10:55 AM
To: excel-macros@googlegroups.com
Subject:
I don't understand your need and WHY
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Rajesh K R
Sent: Thursday, March 15, 2012 12:16 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Macro for format table
Hi
Thank u
See att.,
Option Explicit
Private Sub CommandButton1_Click()
Dim tr As Integer
Dim b As Range
tr = 2
For Each b In Columns(1).SpecialCells(xlCellTypeBlanks)
With Cells(b.Row - 1, e)
.Value = Application.Sum(Range(Cells(tr, 2), Cells(b.Row - 1, 2)))
.NumberFormat = [h]:mm
End With
tr = b.Row + 1
You may want to use this to total at the bottom of column E
Option Explicit
Private Sub CommandButton1_Click()
Dim tr As Integer
Dim b As Range
Dim lr As Long
tr = 2
For Each b In Columns(1).SpecialCells(xlCellTypeBlanks)
With Cells(b.Row - 1, e)
.Value = Application.Sum(Range(Cells(tr, 2),
Actually, the other suggestion is better
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: venkat1@gmail.com
Sent: Thursday, March 15, 2012 9:26 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Need Vba code to
Start by looking in the help index for VLOOKUP, make a table and apply the
formula.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: krabbus
Sent: Thursday, March 15, 2012 7:03 AM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$
Glad to help
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: ChilExcel
Sent: Thursday, March 15, 2012 5:28 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Sum hours weeks
Excellent !!! dguillett1 is what I need
Thank you very much for your
Are you saying that if
b7=annual
b8=quarterly
b5=5000
you want d13:d15 to be ___5000?
or ??
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: hilary lomotey
Sent: Friday, March 16, 2012 9:51 AM
To: excel-macros
Subject: $$Excel-Macros$$ FVOA -withdrawal
if you are saying you put a value in d13 then maybe b14 formula copied
down is??
=IF(A14=,,FV($E$2,A14,,-$B$2+SUM($D$13:D13),1))
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: hilary lomotey
Sent: Friday, March 16, 2012 9:51 AM
To: excel-macros
What we have here is “a failure to look in the help index”
excel 101
=LOOKUP(E6,G5:G12)
=MATCH(E6,G5:G12)
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Scruffy Huffy
Sent: Saturday, March 17, 2012 6:59 AM
To: excel-macros@googlegroups.com
Subject:
the simplest is
sub nameit
cells(7,4).name=whateveryouwanttonameit
end sub
=whaeveryounamedit
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: tangledweb
Sent: Sunday, March 18, 2012 5:22 AM
To: MS EXCEL AND VBA MACROS
Subject:
See attached
=SUM(1*(F2$F$2:$F$9))+1+IF(ROW(F2)-ROW($F$2)=0,0,SUM(1*(F2=OFFSET($F$2,0,0,INDEX(ROW(F2)-ROW($F$2)+1,1)-1,1
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Secret Shot
Sent: Sunday, March 18, 2012 4:02 PM
To:
Shorter. Also enter using CSE (ctrl+shift+enter)
=COUNTIF($F$2:$F$9,F2)+SUM(IF(F2=$F$2:F2,1,0))
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Secret Shot
Sent: Sunday, March 18, 2012 4:02 PM
To: excel-macros@googlegroups.com
If xl2003,
toolsoptionssecurity remove
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Chidurala, Shrinivas
Sent: Monday, March 19, 2012 9:21 AM
To: excel-macros@googlegroups.com
Subject: RE: $$Excel-Macros$$ Re: Error while running macro
Divaker,
I am facing
One possible formula to use vlookup if there is a match. See att
=IF(ISNA((MATCH($J4,'Week One'!$A:$A,0))),0,VLOOKUP($J4,'Week
One'!$A$2:$C$118,2,0))+IF(ISNA((MATCH($J4,'Week
Two'!$A:$A,0))),0,VLOOKUP($J4,'Week Two'!$A$2:$C$118,2,0))
Don Guillett
Microsoft MVP Excel
SalesAid Software
A small primer in the use of specialcells
Sub DeleteBlanksUsingSpecialCellsSAS()
Cells.SpecialCells(xlBlanks).Delete
End Sub
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Mohammed Muneer
Sent: Tuesday, March 20, 2012 2:13 AM
To: excel-macros@googlegroups.com
You may prefer using radio button instead.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Shankar Bheema
Sent: Tuesday, March 20, 2012 1:02 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ checkbox query
Dear experts
I have attached an excel file
From looking at your files it appears that you haven’t given us much info to
go on.
what data do you want from the data file and where do you want it?
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Shankar Bheema
Sent: Monday, March 19, 2012 11:51 PM
To:
Using the sub below,anytime you make an entry in col A you get now in col B.
It’s automatic.
Goes in the sheet module. See attached.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 _
Or Target.Row 2 _
Or Target.Column 1 Then Exit Sub
If Len(Application.Trim(Target)) 0
Sounds like homework
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Atul Patel
Sent: Tuesday, March 20, 2012 4:24 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Re:Help to find position of a particular number in a
given data set
Hi,
I need
and Time
macro.
Thanks @ Ranjan, but I don't track it in MS-Access File, can you incorporate
this codes for MS-Excel?
Thanks @ dguillett1, but I'm not able to use the same code for Logout time
tracking in a different column, can you please help me once again?
@ Abdulgani Shaikh, I have
Option Explicit
Sub getmiddleSAS()
Dim c As Range
Dim fs As Long
Dim ls As Long
For Each c In Range(a2:a10)
c = Application.Trim(c)
fs = InStr(c, )
ls = InStrRev(c, )
c.Offset(, 1) = Mid(c, fs, ls - fs)
Next c
Columns(b).AutoFit
End Sub
Don Guillett
Microsoft MVP Excel
SalesAid Software
1 - 100 of 1000 matches
Mail list logo