I am with Paul. This use to be quite useful, but now seems exclusively for
advertising about jobs.
Thanks, David
On Thursday, August 9, 2018 at 8:21:53 AM UTC-7, Paul Schreiner wrote:
> Dear fellow programmers,
> I have been a member of this group for a number of years, but the extreme
> abund
Hello Ponch,
I think you need to be very specific in your requirements. We need to
understand, actually we need to make Excel and the computer understand the
process(s) that you go through to accomplish your tasks. You need to lay
out the "process" that you go through each day to get the tasks
Hello Again,
I am not sure what "current" means and how to identify "current", part of
#3? Can this be accomplished by sorting? Maybe this is a date?
Thanks, David
On Friday, April 27, 2018 at 12:46:20 AM UTC-7, KAUSHIK SAVLA wrote:
>
> Hi Team,
>
> Need your help in creating macro which would
On Friday, April 27, 2018 at 12:46:20 AM UTC-7, KAUSHIK SAVLA wrote:
>
> Hi Team,
>
> Need your help in creating macro which would do following:-
>
> 1. To delete whole data in Sheet C
> 2. Copy whole data of Sheet B and paste it in Sheet C
> 3. Go to the Sheet A. Filter for "Current" in Column B
Almost all of this is hiring. I thought this was for Excel VBA?
Thanks, David
--
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, accur
This is complete? I think it can be marked and so and that will stop it
from sending out additional help requests. Thanks, David
On Wednesday, April 18, 2018 at 9:03:27 AM UTC-7, kamal ganeshan wrote:
>
> Hi everyone,
>
> Hope all is well, Can you please help on the below requirement.
>
> *Requir
I think use the Arrow Key to go back to the "Open" screen. Under the Arrow
is a list of actions that can be done, ie. Info, New, Open, etc down at the
very bottom of the choices is "Options". This leads to 11 other options. I
am not sure, but if this is available, I think this is where you will
I think you need a tool to do this. Thanks, David
On Wednesday, March 28, 2018 at 2:22:42 PM UTC-7, Joseph wrote:
>
> hi,
>
> Can you help me to calculate angle of each pie from pie chart image using
> vba.
>
> Example image given below:
>
> Regards,
> Joseph Camill
>
>
>
>
--
Are you =EXP(E:RT
What ever value you have ie. 296/9.5, then RoundDown
On Sunday, March 18, 2018 at 4:54:22 PM UTC-7, Shane wrote:
>
> So what I hae seems simple but am stumped and on short timeframe.
>
> I need formula for the following:
>
> 1 to 9.5 = 1
> 9.75 to 19 = 2
> ..
>
> every increment of 9.5 = 1, tr
Sorry, copy and paste missed the "S" in first line of Sub and simply says
"ub".
Thanks, David
On Sunday, March 11, 2018 at 9:20:14 AM UTC-7, Johnny wrote:
> Hi all,
>
> As an example, I have the name "John" in cell C4. Further down in C8 I
> have the name "Jeff". Using a VBA script, I'd like to
See if this might not work for you. Thanks, David
ub NamesCopy()
With ActiveSheet
LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
End With
Range("C1").Select
LoopTop:
Do Until ActiveCell.Row = LastRow
If ActiveCell.Offset(1, 0).Value = "" Then
Selection.Copy
ActiveCel
Maybe not clear? after ")" in top line I think quote mark after ), so )"
then and & then the _
then the low line start with a quote before the +, so "+.
It has been a while, but I think this will work.
Thanks, David
On Friday, March 2, 2018 at 8:37:27 AM UTC-8, Johnny wrote:
>
> I'm having tro
I am not sure, but I think you need to end the top line with a quote mark
then the & and similar to that with the bottom line qand start with a quote
" mark", may have to experiment with the Quotes to get it right. Hope it
helps. Thanks, David
On Friday, March 2, 2018 at 8:37:27 AM UTC-8, Johnn
I typed your numbers into a sheet and it automatically formatted as you
have displayed. I checked the format, right clicked into cell and picked
"Format Cells", then "Number" and checked the format and it was formatted
simply as "Decimal Places:" = to 2.
Thanks, David
On Saturday, February 24,
Hello,
I do not see another way, unless you can find a different web site to get
the data you are looking for. It also appears you need to know the
"scripcode" for the company you want, yes?
The code imports the data from the web site? For US stocks, there are many
places you can get data, inc
Maybe this will work for you?
=IF(A1>B1,"Buy1",IF(A1 I have a table where data changes continously (stock market data). I want
> to apply IF formula. please understand with given example.
>
> A1 = 10
> B1 = 20
> C1 = 5
> D1 = where i want to put formula.
>
> Now the value of A1 keeps changing. I
Sorry for the previous post. It works, but also contains some experimental
code which is no necessary, but I think you will see this when you try it
out and will be able to fix this. If you do not see how to fix it, post and
I will edit and repost. It is just pretty late here, after midnight and
On Thursday, February 8, 2018 at 9:49:25 AM UTC-8, Robert King wrote:
>
> Hi Everyone
>
> I have a very wide sheet and sometimes it gets difficult to follow which
> row contains the data I need.
>
> I would love it if excel could overlay shading or a colour to highlight
> the row and column of
Sorry - Start from the DATA Entry sheet. It will go to range B2 then down
to the last entry, then it will copy the last entry and on sheet All Data
it will find the last entry and go one below it and paste.
Thanks, David
On Sunday, February 11, 2018 at 4:03:43 AM UTC-8, who wrote:
>
>
This was fast and dirty, but I hope it helps. Thanks, David
Sub PostEntry()
If ActiveSheet.Name <> "DATA Entry" Then End
Range("B2").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("All Data").Select
Range("B2").Select
Sel
I like how it uses filter, but I do not see anything wrong with it. Is your
question resolved?
Thanks, David
On Saturday, January 13, 2018 at 10:26:45 PM UTC-8, sleek wrote:
>
> Was it resolved ?? it looks a great feature !!!
>
> On Thursday, 11 May 2017 14:26:57 UTC+3, GENIUS wrote:
>>
>> pleas
I think this is because you are repeating rows at the top. I remember
something like this happening long time ago. Repeating at the top forces it
and there maybe nothing you can do about it.
Thanks, David
On Tuesday, January 9, 2018 at 2:26:04 PM UTC-8,
kspe...@kearnycountyhospital.com wrote:
On Saturday, January 6, 2018 at 7:55:55 AM UTC-8, Deepu Raj wrote:
>
> how to remove 1025 to 25 or 140 to 40 ie hundred and thousand removing
> using excel
>
It has already been suggested to use the RIGHT function, but also use the
VALUE function. Assuming the number is in A1 the
formula =V
But this will work, but you need select each cell manually. Thanks, David
=TRIM(CONCATENATE(A2,B2,C2))
On Saturday, December 23, 2017 at 1:39:57 AM UTC-8, Aamir Shahzad wrote:
>
> Friends,
>
> I want to concatenate all below data in one cell without any space.
> Formula please.
>
> data
> 148351
I can not think of another way. Good luck, David
On Saturday, December 23, 2017 at 1:39:57 AM UTC-8, Aamir Shahzad wrote:
>
> Friends,
>
> I want to concatenate all below data in one cell without any space.
> Formula please.
>
> data
> 148351, 183776, 032290,
>
> result
> 148351,183776,032290
>
=trim(C4)&trim(D4)&trim(E4)&trim(F4)&trim(G4)
Try the above, assuming the data is in the addresses used.
Thanks, David
On Saturday, December 23, 2017 at 1:39:57 AM UTC-8, Aamir Shahzad wrote:
>
> Friends,
>
> I want to concatenate all below data in one cell without any space.
> Formula please.
Use the Trim function. Thanks, David
On Saturday, December 23, 2017 at 1:39:57 AM UTC-8, Aamir Shahzad wrote:
>
> Friends,
>
> I want to concatenate all below data in one cell without any space.
> Formula please.
>
> data
> 148351, 183776, 032290,
>
> result
> 148351,183776,032290
>
> Regards,
the macro.
>
> Cheers
> Ravi
>
> On 17 Dec 2017 7:20 am, "who" > wrote:
>
>> Might try this too. Thanks, David
>>
>> Sub CopyPasteAll()
>> Cells.Select
>> Selection.Copy
>> Selection.PasteSpecial Paste:=xlPasteValues
>>
Might try this too. Thanks, David
Sub CopyPasteAll()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
End Sub
On Friday, December 15, 2017 at 10:14:17 PM UTC-8, Ravi K wrote:
>
> Hi
Hello,
Use the formula =trim("D2") to get rid of the spaces in the front, then
copy the formula cells and paste special values and you will have the
numbers as numbers.
Thanks, David
On Wednesday, October 11, 2017 at 10:36:37 PM UTC-7, Pravin Gunjal wrote:
>
> Dear Friends,
>
> Greetings!
>
>
Unless the IF() statement has changed, it only allows 7 nested ifs, which
is not sufficient to do this with out the use of VBA. Thanks, David
On Monday, July 10, 2017 at 4:59:17 AM UTC-7, Vijayendra wrote:
>
> Hi Experts,
>
>
> Request you to help to resolve this below query.
>
> Need to change t
On Sunday, December 25, 2016 at 6:29:02 AM UTC-8, GENIUS wrote:
>
> I would request from all my brothers, if there is no formula, would you
> please write a macro for this.
> Thanks in advance
>
Try this. Do it on a copy of your sheet to be safe. Thanks, David
Sub Macro1()
Range("A1").Sele
Hello,
Good day to all. I have created by mistake personal.xlsb in Excel 7. I did
this when I was trying to save a file and picked xlsb by mistake. The file
name was not even PERSONAL, but was "Ch2". It was intended to be macro
enabled.
All files are unhidden and I know the path where the file
=SUMIF($G$7:$G$135,$G$142,I7:I135) - can copy this across. Will have to
change to copy down =SUMIF($G$7:$G$135,G142,$I$7:$I$135)
On Friday, April 27, 2012 7:43:04 AM UTC-7, Vijayendra wrote:
> Dear All,
>
> I need one formula which will using for accounting entries, I tried
> sumproduct
Hi,
You can try this:
Sub Consolidate()
'10/5/2010 by David
Dim ws As Worksheet
For Each ws In Worksheets
Sheets(ws.Name).Select
If ActiveSheet.Name = "Table 1" Then
Sheets.Add
Sheets(ActiveSheet.Name).Name = "Consolidate"
Sheets(ws.Name).Select
End If
Range("
Hi,
Try this out. The formula on the right autopopulated for me, but it
may not for you.
Sub Macro1()
' David
Range("D3").Select
Do Until ActiveCell.Value = ""
NewAccount = ActiveCell.Value
OldAccount = ActiveCell.Offset(0, -3).Value
If NewAccount = OldAccount Then
Hi,
You may have to mess with this a little to get the names to write
where you want, but it works. It writes to Column N at this point.
Hope it helps.
Thanks,
David
Sub UniqueValues()
'Created 1/13/2010 by David Lanman
'loop to find unique values only, random values start in A1
Range("E4"
I guess these are in ColA and ColB. In ColC =CONCATENATE(A1,B1), then
sort, then filter unique values.
Or the counties are all different? If so sort the counties only,
combined and find unique values.
If the above not work, then code. let me know.
David
On Aug 9, 1:06 pm, daruM wrote:
> Hello,
Hi,
This is close, but not quite there. The lookup is in cell A1, and
there are two tables, B2 thru C15 and D2 thru E15. The Formula is in
cell A2. It still needs some work, but I think the concept is there.
15
T1 1 1 15 15
2 2 16 16
3 3
Hi,
Try this out.
Sub Macro1()
'Assumes data starts in cell A1
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
Selection.Cut
ActiveCell.Offset(2, -1).Range("A1").Select
ActiveSheet.Paste
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1")
Hi,
I have never heard of PROCV, so I am interested in this too.
David
On Jul 28, 4:18 am, x-plicit wrote:
> Hello All,
>
> I do not understand this sintax:
>
> =PROCV(sumproduct(max(($B$3:$B$13152=B3)*($C$3:$C$13152=C3)*($D$3:$D
> $13152)));$K$1:$L$6;2;true)
>
> Could someone help me out?
--
Hi,
=SUM(IF(A47:A64=A64,IF(B47:B64=B64,IF(D47:D64=D64,E47:E64,0),0)))
This is entered as an array formula.
Hope it helps.
Thanks,
David
On Jul 19, 4:43 pm, Nadine S wrote:
> I need to sum a column if three other columns in one sheet match the three in
> another. Can this be done? Thanks.
>
Hi,
Want to post a work book? This should be not too difficult.
Thanks,
David
On Jul 17, 12:31 am, Scott wrote:
> Hi,
> I'm trying to create a list of unique names from a list of names (some
> duplicates) that exist on 15 different sheets within a spreadsheet.
> So I want the unique list to co
I don't know what the range is that you are referring to but:
Sub Macro2()
Range("A1:A3").Select
ActiveWorkbook.Names.Add Name:="MyRange", RefersToR1C1:= _
"=Sheet1!R1C1:R3C1"
Application.Goto Reference:="MyRange"
End Sub
It is the Goto that I think you want
Thanks,
David
On
Even a little shorter.
Public Sub SheetList()
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
On Jul 3, 3:53 am, Swapnil Palande wrote:
> Hi,
>
> Following is the correct code:
>
> Public Sub SheetList()
>
> Range("A1").Select
> For i = 1 To ActiveWorkb
Hi SACHIN,
I think this will work, although it is not able to figure out
"breaks". It simply finds the smallest time and the largest time and
finds the differance.
Sub FigureTime()
' FigureTime Macro
' 6/25/2010 by David Lanman
Range("G2").Select
Do Until ActiveCell.Offset(1, -1).Value =
Hi Bob,
I think it will be difficult to stop Solver, once it starts its
iterations. The people that may best be able to help you would be one
of the old time MVPs, although the Microsoft site is now shut down and
I do not know how you would go about getting in touch with one of them
now.
Good luc
Hello,
I have a file that aligns a trial balance by branch, which I think
will come very close to what you want. I think it can be adapted so
the missing account could be inserted into the right place, so you
don't need to create a list or find what is missing, just complete the
list. I do not kno
Hi,
I do not even see a way to get all of the data into a single work
sheet. V7 is 1m rows, yes? Given that you are not going to be able to
bring it all in, how many groups of data will you have? Can you bring
your data in as you want to do sub-totals, groups? If you have a lot
of groups and sub-t
orking in
> second shift from 15:00 PM to 00:00 AM ).
>
> Thanks & Regards,
>
>
>
> On Thu, Jun 17, 2010 at 7:33 AM, who wrote:
> > Hi,
> > Below starts in Cell A1, formulas are below. Hope it helps.
>
> > 20500:00 20500 00
> >
Hi,
Below starts in Cell A1, formulas are below. Hope it helps.
20500:0020500 00
=LEFT(A1,FIND(":",A1)-1)=RIGHT(A1,2)
18456:5618456 56
=LEFT(A3,FIND(":",A3)-1)=RIGHT(A3,2)
20434 2043:4
=IF(C1 wrote:
> I am trying to subt
51 matches
Mail list logo
