Convert Mid & Find Function To Vba
Oct 18, 2007
I am writing VBA code that dissects a cell which always contains some alphanumeric characters a colon ":", some more characters, another colon ":" and some more characters.
For Example this is what is in my cell "Deposit:93121:Southern California"
what I need is to cut and paste everything that is located after the 2nd colon ":"
Say that my cell is D433 and in non-vba world I can chop off the first part of the cell to the left of the first colon ":" by using the following formula:
=MID(D433, FIND(":",D433)+1,50)
assuming there are less than 50 characters in my cell, which is a safe number, then I cut and pastespecial this cell as values into the same cell and repeat that same formula and voila, what remains in cell D433 is what I am looking for "Southern California"
how can I replicate this surgical process in VBA, is there a way to combine this process in one command on any given target cell?
View 3 Replies
ADVERTISEMENT
Dec 7, 2007
I don't have a clue as to how to convert this to VBA code.
When installed as a macro, the function works fine in a cell on my PC, but when I send the file to another pc, it still gives the name of my pc. I need it to return the name of thier pc.
View 14 Replies
View Related
Dec 7, 2009
Sub xxxxxxx()
Keli = Cells(13, 8).Value
Valid1 = Application.WorksheetFunction.VLookup(Day(Keli), Range("ToTalList"), 2, False)
Valid2 = Application.WorksheetFunction.VLookup(Month(Keli), Range("ToTalList"), 3, False)
Valid3 = Application.WorksheetFunction.VLookup(Int(Year(Keli) / 100), Range("ToTalList"), 4, False)
Valid4 = Application.WorksheetFunction.VLookup(Year(Keli) - Int(Year(Keli) / 100) * 100, Range("ToTalList"), 5, False)
MsgBox Valid1 & " " & Valid2 & " " & Valid3 & " " & Valid4
End Sub
When I try to convert it to a usefull function I get a #Name? Error
What do i do wrong? The purpose is to create a date in to words function
Public Function DateInWords(Keli As Range)
Valid1 = Application.WorksheetFunction.VLookup(Day(Keli.Value), ThisWorkbook.Worksheets(1).Range("ToTalList"), 2, False)
Valid2 = Application.WorksheetFunction.VLookup(Month(Keli.Value), ThisWorkbook.Worksheets(1).Range("ToTalList"), 3, False)
Valid3 = Application.WorksheetFunction.VLookup(Int(Year(Keli.Value) / 100), ThisWorkbook.Worksheets(1).Range("ToTalList"), 4, False)
Valid4 = Application.WorksheetFunction.VLookup(Year(Keli.Value) - Int(Year(Keli.Value) / 100) * 100, ThisWorkbook.Worksheets(1).Range("ToTalList"), 5, False)
DateInWords = Valid1 & " " & Valid2 & " " & Valid3 & " " & Valid4
End Function
View 9 Replies
View Related
Sep 11, 2006
i am trying to get COS to perform correctly, Basically i have an equation, that gives me a figure i want to convert using COS. My scientific calculator allows me to press invert, then i press COS this gives me the correct mesurement.
I.E.
Cos .22553 = 77 degress
To get excel to work it out is deluding me
View 3 Replies
View Related
Feb 25, 2014
convert this equation into sumproduct function..??
=COUNTIFS($I3,">="&$AC$3,$I3,"<="&$AC$4)
View 6 Replies
View Related
Nov 15, 2013
I am looking for a function that would convert any mark into a grade. For example in cell B4 I want to enter the total score, cell c4 the score that a student gets and in cell d4 the grade. It is like a grade calculator. I do not want to limit cell b4 the total score cell with a specific total score number. It can be 100, 50, 30 or 10. The moment I enter any total score and the mark that a student actually scored, the grade is given. I attached an excel sheet.
Marks and Grades Calculator.xlsx‎
View 12 Replies
View Related
Oct 24, 2012
In cells A1:A45 i have all lower case names...how would i use a function to convert all to upper case
View 6 Replies
View Related
Jul 29, 2014
Any function to convert a long value into an IP address. I have an extract from a mySQL dbase that has the ip addresses in long format. I need to reverse them back to IP Addresses.
View 1 Replies
View Related
Apr 11, 2007
I do not know if this is possible in VBA, but I am hoping it is as it will make my life much easier.
Is it possible to say have a TextBox and a CommandButton, that does the following?
Public Sub Execute()
Dim ObjectName As String
Dim Object As Object
ObjectName = txtObject.Text
Set Object = ObjectName
Object.Execute
End Sub
Or to take it a step further:
Public Sub Execute()
Dim ObjectName As String
Dim FunctionName As String
Dim Object As Object
ObjectName = txtObject.Text
FunctionName = txtFunction.Text
Set Object = ObjectName
Object.FunctionName
End Sub
Are there any inbuilt functions that will create/reference an object based on a string containing the name of the object or function?
View 9 Replies
View Related
Feb 10, 2008
i have several days trying to convert a If nested function in a automate macro, the problem is that i have a lot of formulas, and the machine becomes slow, so i have to apply this formula to "column G"
=IF(LEFT(F2;1)="J";"C";IF(LEFT(F2;1)="g";"C";(IF(ISERROR(VLOOKUP(F2;rifs;1;FALSE));"NC";"C"))))
View 9 Replies
View Related
Nov 18, 2008
I currently have a Tab named "Rent by Month 3-08-5-29" containing the monthly rent amount for 700 locations for March 2008 - May of 2029 with the layout seen below.
A B C D E
Shop# 3/1/2008 4/1/2008 5/1/2008 6/1/2008 ETC..
2 $5000 $5000 $5000 $5000
3 $3000 $3000 $3000 $3000
4 $7000 $7000 $7000 $7000
18 $4000 $4000 $4000 $4000
ETC... continuing down 700 rows and over 251 columns
What I need to do is convert this worksheet so it contains the same information but resembles the following layout.
A B C
Shop# Month Rent Amount
2 3/1/2008 $5000
2 4/1/2008 $5000
2 5/1/2008 $5000
2 6/1/2008 $5000
3 3/1/2008 $3000
3 4/1/2008 $3000
3 5/1/2008 $3000
3 6/1/2008 $3000
Etc....
View 10 Replies
View Related
Mar 22, 2006
I have entered a lot of functions mainly VLOOKUPs. I want to write VBA codes for the functions without manually writing them. Is there a way in which I could get the manually written functions converted to codes automatically?
View 9 Replies
View Related
Mar 26, 2009
I have a range of cells, for this example I will use 2.
Cell E17 = 77/170
Cell E18 = 8/9
Using the following formula: =SUM(RIGHT(E17,FIND("/",E17)))+SUM(RIGHT(E18,FIND("/",E18)))
This bring back an #VALUE! Error as the second part of the formula keeps picking up "/9" however the first part works fine, displaying "170"
Now if I use:
=SUM(RIGHT(E17,FIND("/",E17)))+SUM(RIGHT(E18,FIND("/",E18)-1))
It all works. The problem is that I need this to be automatic using the above way means having to add a "-1" to every formula for a cell with only 1 char to be added.
Using the formula:
=SUM(RIGHT(E17,FIND("/",E17)-1))+SUM(RIGHT(E18,FIND("/",E18)-1)).....
View 2 Replies
View Related
Apr 11, 2012
I am making an IF function that calculates and converts units, for example kg to g and g to kg etc.
This is the formula I typed in
=IF(E6=kg, ((F6/D6)*G6/1000), ((F6/D6)*G6))
When I evaluate it I get the #NAME error. What do I need to change to make it work?
View 3 Replies
View Related
Jan 31, 2008
is there a way to turn the following formula into a function ?
=IF( COUNTA(A1:A7)=SUMPRODUCT((A1:A7<>" ")/COUNTIF(A1:A7,A1:A7&"")),"No Duplicates","Duplicates")
I just have no idea where to start ?
View 4 Replies
View Related
Nov 1, 2009
Before I got this Function from your Form to convert digit to words.
Function is as following..right now i m getting as following:-
If i type 123..i m getting one Hundred twenty Three with this script as below.
But i want US Dollar one Hundred Twenty Three..
Can any one add the word "US Dollar" in this script.
Script..
Function English(ByVal N As Currency) As String
Const Thousand = 1000@
Const Million = Thousand * Thousand
Const Billion = Thousand * Million
Const Trillion = Thousand * Billion
View 13 Replies
View Related
May 13, 2006
i am trying to convert a range of numbers to text using the Cstr function ,it doesnt work. excel VBA help states that CStr function converts a numeric value to a String. i am aware that i can convert a number by preceding it with an apostrophe
i just need to know why Cstr doesnt do the job
Sub covrt()
For Each rng In Selection.Cells
rng = CStr(rng.Value)
Next
End Sub
View 3 Replies
View Related
Jul 2, 2007
=IF(WEEKDAY(D3,2)=7,"WEEKEND",IF(WEEKDAY(D3,2)=6,"WEEKDEND",IF(TODAY()=D3,"TODAY",IF(TODAY()-3=D3,"FRIDAY","ERROR"))))
how can i use the data cell validation using the above function logic?
View 2 Replies
View Related
Apr 25, 2008
I have a Table with MB and GB numbers.
I copy and Paste these into Excel, What I need, is for Excel to Automatically convert the MB into GB by /1024
I tried something like this
=REPLACE(A1,FIND("MB",A1),9,"(But can I enter a Maths here)")
View 9 Replies
View Related
Mar 12, 2014
I have a really long function which counts the number of unique values in a selected range, and ignores blank cells. The function is like this (only works as an array function):
{=SUM(IF(FREQUENCY(IF(LEN(A1:A15)>0,MATCH(A1:A15,A1:A15,0),""),IF(LEN(A1:A15)>0,MATCH(A1:A15,A1:A15,0),""))>0,1))}
I want to convert this into a user-defined function COUNTUNIQUE, which only takes one argument: the range (A1:A15 in the above example)
View 6 Replies
View Related
Jan 24, 2007
I am pasting a large amount of data from a sql server query into excel. There is multiple tables output in each query. Some of the data is date/time and excel is formatting all of these cells to time. The date/time cells to not neatly line up in any row or column, so I cannot just format any give column or row. I need a macro that will find all of the cells that are formatted as time and change them to a date format.
View 7 Replies
View Related
Aug 1, 2008
I'm trying to create a spreadsheet to update daily, whenever our market intelligence arrives by email. I'm not trying to write a macro which can select a range of cells (G:L) relative to the date in Column B, which represents the value in cell P6. In other words:Read the value of cell P6 Find that value in column B (e.g. B646)highlight the cells in columns G through to L on that row (e.g. select G646:L646) I am then aiming to paste the values in that range of cells, so that those stay in the spreadsheet and are not lost when the next lot of figures comes in the following day.
Range("G646:L646").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Application.CutCopyMode = False
ActiveWorkbook.Save
but that's obviously a static range, rather than looking up the date first.
View 2 Replies
View Related
Dec 2, 2009
I keep track of values in a workbook. I accumulate them on a daily basis (business days) and keep track of the older values.
On the first sheet I have all current values automatically displayed.
All subsequent sheets contain the values for the different locations (>60) by one location per one sheet with multiple entries per location.
Most of the values do not change daily. So I copy the values from the previous day and paste them to the current day’s fields (the row below yesterday's values).
Today’s date (and prior dates as well as subsequent dates) are in column A, the values to be copied are in column B through AZ. With over 60 sheets this job becomes very tedious very quickly...
What I would like to be able to do, with a click of a button, is to go into each sheet (except the first one), go to the current date (in column A), select the field to the right of that date (in column B), go up one field, select both fields (today and last business day) and go from B to AZ (or A to AY in relative terms) copy all those entries, go down one field (to the same row as today’s date) and paste the content. Then repeat that for every following sheet…
As the date field that I am looking for goes down one field with each day I cannot use fixed points to copy and paste from, but have to use the date field as an anchor from whence to find the proper cells.
I do have some values in the following day's fields, that is why I need to copy two rows and not just the values from the previous day...
View 4 Replies
View Related
Dec 8, 2008
So I have 2 worksheets. One has a list of Player Names. The other has a list of Plays that any of these players could have been involved in (or they may not have been involved in).
I am trying to use the find function to find anyone of those player names from sheet 1 in each of the plays. My functions currently stands at
=FIND(('Dinas Roster'!$A$2:$A$21),I6,1)
Where Dinas Roster is the list of players and I6 is a particular play and would go to I7, I8....which are the plays,
This isn't working as I am getting all #Value. If I just do it for 1 Player (i.e. Dinas Roster'!$A$2) it works and returns a number on each line that player shows up in...
View 12 Replies
View Related
Mar 7, 2007
I need a find anywhere function.
Example
text to find is in ZZ1
area to find the text is A1:BB500
It could be anywhere in that area.
I don't want to do the find command 1000+ times for all the data i need to search for.
Vlookup is just column A, i need column A:BB
I have no idea what column or row it would be in.
basically, look for text from sheet2A1 anywhere in sheet1
View 9 Replies
View Related
Sep 28, 2006
I'm looking for something simple that will let me type in a 5 digit numeric value and then when it finds the associated value, will add +1 to the associated col/row.
Such as, type 11111 in the box, click the button...When it finds the data on say row 8, col A it will then add +1 to row 8, col G.
I'm not sure of the best way to do this...I'm not exactly new to excel, but it has been a VERY long time (10 years!) since I've used it in this aspect...Just trying to help a friend out.
View 9 Replies
View Related
Jun 12, 2007
I have this source data that has different types of currencies in it. It will be processed by a marco. But Before i do the processing, i would like excel to check if all currencies in the source data have had their rates determined by the user in another worksheet. This is the code i am using. However, when the marco trys to find rates that has not been determined (cannot be found in remarks sheets), it will just skip the msgbox code.
Find = Cells.Find(What:=local_currency, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
If Find = True And ActiveCell.Next.Next.Value <> "" Then
Find = Empty
Else
MsgBox "The currency " & local_currency & " does not exist in the currency list"
Sheets("Remarks").Select
End If
View 9 Replies
View Related
Jan 30, 2014
I want the create the following summation function (probably with the use of FIND).
You have 3 columns:
- Column A containing values; a, b, c, d, e
- Column B containing values: 1, 2, 3
- Column C containing ad randum values f.e. lengths
I want the achieve a summation of the lenghts with the following conditions 'a' in column A AND '1'in column B.
Apart of this a summation of the lengths with the conditions 'a' in A AND '2' in B.
[Code]....
View 2 Replies
View Related
Jan 8, 2009
In Sheet 2 i have a 1000 of data contains the birth date of following customers
The result i want in Sheet 1 is
particular on todays (Say on 27-11-2008) date how many customer are having birthday, supoose there 10, or 8 wahtever should show me the list.
I tried this formula
=INDEX(Sheet2!$B:B,MATCH($B$3,Sheet2!$H:$H,0))
but by this formula it only show one customers birthdate what i want if there 10 differenrt customer those same birthdate it should display all the 10 date and name in diff rows
View 12 Replies
View Related
May 11, 2009
Attached is a sample in which Column"B" contains Total IDs and Column"D" contains worked labour IDs. Now I want the IDs of labour who have not worked in Column"F".
View 11 Replies
View Related
