give email id A1 box in sheet and run macro
---
Sub Mail_Every_Worksheet()
'Working in 2000-2010
Dim sh As Worksheet
Dim wb As Workbook
Hi,
PFA.
=MID(A2,FIND( ,A2,1)+1,LEN(A2)-MATCH(
,LEFT(RIGHT(A2,{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}),1),0)-FIND(
,A2,1))
Regards,
MARIES.
On 3/22/12, L.K. Modi ca.mod...@gmail.com wrote:
Dear All,
Its good to see this resolution but can anyone explain this in simple
way
Regards
Asa,
I tried what you said but am doing something wrong. First when I used the
exact same string as both the Set variable and the Match variable it said
it needed an object.
It did not like identical names I guess?
Then I created different object names and that would compile but I have
tried
Asa,
I tried what you said but am doing something wrong. First when I used the
exact same string as both the Set variable and the Match variable it said
it needed an object.
It did not like identical names I guess?
Then I created different object names and that would compile but I have
tried
Hi Howard,
It's late here, but you have at least one problem. In the following line:
mycolor = cBWTStop.Cells(ActiveCell.Row, ActiveCell.Column).Font.Color
you reference the activecell.row and .column; but that gives you the row
and column for the active cell relative to the sheet as a whole.
Dear Seraj,
Please try it.. and see attached sheet.
Sub count_name()
Dim i, j, c, x As Integer
Dim rng As Range
c = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Sheet1.Range(d2 : d (c + 1)).ClearContents
i = 1
j = 2
x = 1
For j = 2 To c
For i = 2 To c
If Sheet1.Range(a i).Value =
Dear Damimkader,
while I am running this code I am getting the follwing error code
run time error 13
type mismatch
please help.
My problem has been reproduced
My current Data is like thisSr. No. S_DISNO S_DISC S_UNIT S_SELP Purchse
quantity 495061 358 SILK DUPPATTA 0.90m 260.00
This works just as well as the other code but still has the problem, If
range (L6:L27) has the letters AA in it then it shows A as a match and says
report A is already done
On Wed, Mar 21, 2012 at 4:34 PM, Kris krishnak...@gmail.com wrote:
Hi
Replace
Flg =
Hi again Howard - a few more comments:
First when I used the exact same string as both the Set variable and the
Match variable it said it needed an object.
It did not like identical names I guess?
By Match variable, I assume you mean the string used in the
WorksheetFunction.Match expression.
You can put anything you want on the first row, but in tables of data (I use
the term tables loosely here), it is usually desireable to have column
headers that describe what data is in each column. Excel has features that
use column headers if they exist. For example, sorting and filtering.
C is still an important language.. I started out on BASIC, then Clipper and
Pascal in the 80s. Learned VB in the 90s as an obvious leap from my most
comfortable BASIC background, and besides, I had a need to do Office
programming. Played a little with C but never took my programming seriously
Good evening Sir,
Tons for thanks for solving my query by sparing your valuable time. I
tried your code and it is removing the options in the datasheet. Whereas,
what I want is, at the opening of the datasheet it should have hidden data
options and as per the tick marked checkbox data they have
Dear Noorain
The query solved by Mr KRIS krishnak...@gmail.com is catering my need.
Thank you for your cooperation my dear friend.
On Tue, Mar 20, 2012 at 6:02 PM, NOORAIN ANSARI noorain.ans...@gmail.comwrote:
Dear Shankar,
Please see attached sheet.
--
Thanks regards,
Noorain Ansari
Dear Experts
If a pdf file name is placed on a Label form and assume its location is in
D:/. How it would be hyperlinked from the USerform.
regards
shankar sb
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Hi Sandeep,
Before I proceed to modify the code, could you let me know the following
1. Which version of excel are you using
2. Do you want the code to insert the rows equivalent to the missing serial
numbers for e.g. if after number 3 you have 7, do you want the code to
insert 4 rows in the
Dear Damimkader S. Meeran,
Thanks for your reply.
With ref to your question:
I use office 2010 version.
And I want to insert 3 column in between (I.e 4,5,6).
Sandeep Chhajer.
Sent on my BlackBerry® from Vodafone
-Original Message-
From: Damimkader S. Meeran damim.ka...@gmail.com
Hi,
I've modified the code to suit the needs. It has been worked upon in Excel
2007 i unfortunately do not have excel 2010.
The code has the following assumptions
1. All serial numbers are in number format. The error message you were
getting earlier is possibly because a serial number was a
Hi Oxford Excel Gurus
In the fill attached sheet PL i have been able to write a formula that
can show how many number of years i want to view the report ie if i want to
see 5 years report i will select from the drop down, and so forth. and the
number o years specified will show
In the 2nd sheet
Thanks Damimkader. I will try and let you know.
Sandeep Chhajer.
Sent on my BlackBerry® from Vodafone
-Original Message-
From: Damimkader S. Meeran damim.ka...@gmail.com
Date: Thu, 22 Mar 2012 05:20:05
To: excel-macros@googlegroups.com
Cc: chhajersand...@gmail.com
Subject: Re:
That's not true.
MATCH(A,L6:L27,0) is not equal to MATCH(AA,L6:L27,0).
Can you attach the workbook ?
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code
In the absence of a better explanation you might try sitting on them
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: Veeru TOC
Sent: Thursday, March 22, 2012 12:15 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Compress of images
Dear Group
I already posted a reply
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
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 _
Or Target.Row 2 Then Exit Sub
If Target.Column = 1 Or Target.Column = 3 Then
If Len(Application.Trim(Target)) 0 Then _
Target.Offset(, 1) = Now
End If
End Sub
Don Guillett
Microsoft MVP Excel
SalesAid Software
Macro looks for 1st space and last space and gets what is between.
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: L.K. Modi
Sent: Wednesday, March 21, 2012 11:23 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Split text in cell
Dear All,
Its
Hi Anand,
Thank you for your response.Please refer to the calculation below. For
repetitive items,rank formula removes subsequent rank for example 11 % rank 3
is not assigned due to multiple entry for the same standing.
I want to ignore repetitive occurrences of rates and decide first, Second
HI,
PFA.
Regards,
MARIES.
On Thu, Mar 22, 2012 at 4:40 PM, hilary lomotey resp...@gmail.com wrote:
Hi Oxford Excel Gurus
In the fill attached sheet PL i have been able to write a formula that
can show how many number of years i want to view the report ie if i want to
see 5 years report i
My apology! I am overseas. Just email reply will be ok How ever if you want to
dicuss on this I can call you too Pl provide your contact.
Sent from my iPhone
On 2012-03-22, at 9:27, Anand Kumar anand...@gmail.com wrote:
with an improper contact number you expect me to reach you???
On Thu,
Hello Experts,
I need a conditional cell color showing where Region 1 showing the value
over 10 should colour red and Region 2 value showing over 12 should show
green. Attached file for the same.
Region Value in $ 1 20 2 22 1 11 2 11 2 5 2 15 2 3 1 29
Regards,
Vin
--
FORUM RULES (986+
And what if both?
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: vinod rao
Sent: Thursday, March 22, 2012 9:35 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Excel conditional formatting-Urgent plz
Hello Experts,
I need a conditional cell color
Dear vinod,
See attached sheet, hope it help you.
--
Thanks regards,
Noorain Ansari
*http://noorainansari.com/*
*http://excelmacroworld.blogspot.com/*http://excelmacroworld.blogspot.com/
On Thu, Mar 22, 2012 at 8:05 PM, vinod rao vinod.ma...@gmail.com wrote:
Hello Experts,
I need a
Hi,
Please review the below link it is very helpful with simple examples.
http://www.free-training-tutorial.com/animations/conditional-formatting-examples.html
Regards,
Damimkader S. Meeran
On Thursday, March 22, 2012 8:05:32 PM UTC+5:30, vnrao wrote:
Hello Experts,
I need a
Hey Ansari, Don
Ah!! very quick reply.
Thank you very much , this helps.
have a nice day.
On Thu, Mar 22, 2012 at 8:32 PM, NOORAIN ANSARI noorain.ans...@gmail.comwrote:
Dear vinod,
See attached sheet, hope it help you.
--
Thanks regards,
Noorain Ansari
*http://noorainansari.com/*
Thank you Meeran :)
On Thu, Mar 22, 2012 at 8:39 PM, Damimkader S. Meeran damim.ka...@gmail.com
wrote:
Hi,
Please review the below link it is very helpful with simple examples.
http://www.free-training-tutorial.com/animations/conditional-formatting-examples.html
Regards,
Damimkader S.
Assuming that you have placed full path of your file in the caption of your
label (label1 in this case) itself...
*Private Sub Label1_Click()*
*Application.ThisWorkbook.FollowHyperlink Label1.Caption*
*End Sub*
...should work.
HTH
On Thu, Mar 22, 2012 at 4:17 PM, Shankar Bheema
thanks noorain and jitendra.
On Thu, Mar 22, 2012 at 12:03 PM, Jitendra singh jeete2...@gmail.comwrote:
give email id A1 box in sheet and run macro
Hi,
I checked the VBAVlookup custom function, it is looking up using usernumber
and the layout on the Txtlist sheet. If this is slowing down the
performance of the application, I would recommend creating a column which
concatenates the usernumber and layout column on the txt list sheet and
on
Another Approach
Copy and paste the below formula in 2nd Row of any cell other than A2 cell
and drag it below.
=IF((LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2), ,)))1,
TRIM(MID(TRIM(A2),
FIND( ,TRIM(A2))+1,
(FIND(^,SUBSTITUTE(TRIM(A2),
,^,(LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2),
Hello Atul, try this
Assume B2:B11 is %, in C2 then copy down.
=SUMPRODUCT((ISNUMBER(MATCH(ROW(INDEX(A:A,1):INDEX(A:A,RANK(B2,B$2:B$11))),INDEX(RANK(B$2:B$11,B$2:B$11),0),0))+0))
___
HTH, Haseeb
On Wednesday, March 21, 2012 12:24:21 AM UTC+3, Atul wrote:
Hi,
I need help to
First before I forget, thanks again for the help.
Maybe I need to go find a more comprehensive book. The one I have does not
mention the Set command, does not list Range as a data type, does not
mention tables (which may be useful but that is too ambitious at this
point).
From the other
Congratulation Dear Ayush and all group members
On Thu, Mar 22, 2012 at 4:25 AM, Ayush Jain jainayus...@gmail.com wrote:
Dear members,**
I am proud to announce that the forum has completed 5 years today. This is
really great milestone of the forum.
My sincere thanks to
Hello, try also,
=TRIM(SUBSTITUTE(MID(A2,FIND( ,TRIM(A2)
),LEN(A2)),TRIM(RIGHT(SUBSTITUTE(TRIM(A2), ,REPT( ,99)),99)),))
On Wednesday, March 21, 2012 12:00:09 PM UTC+3, nike wrote:
Hi Team,
How to remove a words left text and right text of reference
Please refer attachment.
Thanks in
I have data like so:
Country Year AgeGroup Time Count
A 05 10-6mo 10
A 05 16-12mo5
-
B 05 10-6mo 12
B 05 112-18mo 4
B 05 118-24mo 75
(I added the -
This is a duplicate thread. There are couple of replies to your last
thread. Check out that please.
___
HTH, Haseeb
On Thursday, March 22, 2012 8:22:08 AM UTC+3, nike wrote:
Please find the attachment of my criteria.
Please refer column A and i want result in Column 'B what I
=MID(A2,FIND( ,A2,1)+1,MAX(--(MID(A2,ROW(INDIRECT(1:LEN(A2))),1)=
)*ROW(INDIRECT(1:LEN(A2-FIND( ,A2,1)) with CSE
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Ms-Exl-Learner .
Sent: Mar/Thu/2012 11:13
To: excel-macros@googlegroups.com
genius Maries
Great solution. works to perfection. thanks boss
On Thu, Mar 22, 2012 at 3:56 PM, Maries talk2mar...@gmail.com wrote:
HI,
Please find the attached file of Revised one. Ignore Previous one.
Regards,
MARIES.
On Thu, Mar 22, 2012 at 7:07 PM, Maries talk2mar...@gmail.com
Beautiful :) I hardly understand it, but I hear the poetry in it when read by
Google Translate's screen reader, and in the rough translation.
Thank YOU Noorain for all you do here, and for being our Poet in Residence; our
poet laureate.
From: excel-macros@googlegroups.com
Thanks @ dguillett1.
On Thu, Mar 22, 2012 at 6:36 PM, dguillett1 dguille...@gmail.com wrote:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 _
Or Target.Row 2 Then Exit Sub
If Target.Column = 1 Or Target.Column = 3 Then
If Len(Application.Trim(Target)) 0 Then
Hello Simha/NRao,
All but the first and last words:
=MID(TRIM($A2),FIND( ,TRIM($A2))+1,FIND(CHAR(1),SUBSTITUTE(TRIM($A2),
,CHAR(1),LEN(TRIM($A2))-LEN(SUBSTITUTE($A2, ,-FIND(
,TRIM($A2))-1)
The formula ignores leading and trailing spaces, and also won't return
leading and trailing
Hi again; I saw you asked for a non-VBA solution in your subject and assumed
none had been posted yet,
but I see that three such solutions were already posted.
Here they are reiterated for your reference:
Complements of Maries:
=MID(A2,FIND( ,A2,1)+1,LEN(A2)-MATCH(
Hi Atul,
Not as tidy as Haseeb's response,
But here is one solution:
In C2:
=IF(ROW(C$2)=ROW(),LARGE($B$2:$B$11,1),LARGE($B$2:$B$11,ROWS($B$2:$B$11)-COU
NTIF($B$2:$B$11,INDEX(C$2:C$11,ROW()-2))+1))
In D2:
=MATCH($B2,$C$2:$C$11,-1)
Highlight and copy down.
Your ranking is in column D.
Hi,
I'm nearly brain dead (tired) and can't think straight. I have a simple
issue. A macro to fill in blank values if found with the value from the
cell above.
For example
101
1015
Would fill the blank rows with 101 until the next number 1015 is found,
then it would use 1015 until
Hi Avinash,
The problem is that you are use massive ranges -- entire columns, which is
many millions of cells.
I see you already have a definied name (rptList) that is a dynamic range for
the data on your txt List sheet. You could just using that named range in
your formulas would pretty
Dear Jim,
Please try it..
Sub Fill_Blanks()
Cells.SpecialCells(xlBlanks).Delete
End Sub
--
Thanks regards,
Noorain Ansari
*http://noorainansari.com/*
*http://excelmacroworld.blogspot.com/*http://excelmacroworld.blogspot.com/
On Fri, Mar 23, 2012 at 7:04 AM, Jim Schug sch...@gmail.com
superb noorain bhai.
2012/3/22 NOORAIN ANSARI noorain.ans...@gmail.com
जहाँ Excel के दीवानों की, है बहूत घनी आबादी.
जहाँ Question,Answer करने की,है खूब आज़ादी.
जहाँ के पोस्ट को follow कर-कर के,कितनो का Career खुशहाल हो गया.
दोस्तों उस अपने Excel-Macro ग्रुप का उम्र, अब
Dear Noorain,
Superb
*Best Regards,*
*Venkat *
*Chennai*
2012/3/23 NOORAIN ANSARI noorain.ans...@gmail.com
जहाँ Excel के दीवानों की, है बहूत घनी आबादी.
जहाँ Question,Answer करने की,है खूब आज़ादी.
जहाँ के पोस्ट को follow कर-कर के,कितनो का Career खुशहाल हो गया.
दोस्तों
Hi ,
See below link..
http://www.pcreview.co.uk/forums/re-search-html-access-vba-t3992723.html
*Best Regards,*
*Venkat *
*Chennai*
*
*
On Thu, Mar 22, 2012 at 12:13 AM, Raj Mahapatra rajafs...@gmail.com wrote:
hi all
i am looking for some vba codes which will search html files (bases file
56 matches
Mail list logo
