Copy A Char From A String Into Another Cell
Mar 17, 2009
Cell B4: 02/11/2008
Cell B7: Empty
Cell B8: Empty
Cell B9: Empty
Cell B10: Empty
Cell B11: Empty
Cell B12: Empty
Cell B13: Empty
Cell B14: Empty
B4 is a date format and I need to copy each single character from B4 so that it goes into the corresponding cells from B7 through to B14. So it looks like this:
Cell B4: 02/11/2008
Cell B7: 0
Cell B8: 2
Cell B9: 1
Cell B10: 1
Cell B11: 2
Cell B12: 0
Cell B13: 0
Cell B14: 8
I am not sure how to find the position of a character and put it into another cell, is anyone able to help me with this?
View 10 Replies
ADVERTISEMENT
Mar 6, 2009
I'm trying to validate a string that can have only dots and numbers, but there can't be two dots in a row. String has to begin with a number and end to a dot
So these are ok
1.1.1.1.1.1.
and
2.452443.1.5.21.5.42131.
but
1..1.
and
1.1.t.
and
.1.1.
and
1.1
are not ok.
View 9 Replies
View Related
Jan 8, 2008
I have a cell that is acutally a concatination of several other cells. The formula is something like this....
=A1 & B1 & A1 & C1 & A1 & D1 & A1
Cell A1 contains the formula =char(13). This forces a line break between each data element.
My problem is that on some peoples machines the cell displays with a square at the end. I'm not sure why it does this only on some machines. Is there a better way to do this or is there a way to suppress the square?
View 9 Replies
View Related
Jun 4, 2013
I need to store a known index, unknown value in a variable so I can increase the value and use it in a database. It is used as a version number for a part and the versions go like: "00" -> "AA" -> "AB" -> .... -> "AZ" -> "BA"... etc.
VB:
If tool.Worksheets("TRB Database").Cells(A, "R").Value <>
ThisWorkbook.Worksheets("Design Calculator, Q").Cells(7, "C").Value Or
tool.Worksheets("TRB Database").Cells(A, "AA").Value <>
ThisWorkbook.Worksheets("Design Calculator, Q").Cells(5, "K").Value Or tool.Worksheets("TRB Database")
[Code] ....
That is a part of the increase and when I try to increase "AA" by 1 it goes to "B" and not "AB".
VB: tool.Worksheets("TRB Database").Cells(row1, "D").Value = Chr(Asc(tool.Worksheets("TRB Database").Cells(A, "D").Value) + 1)
This is where I increase the value.
View 2 Replies
View Related
Mar 16, 2007
how I could split a cell's contents into two cells when it contains more than 1024 chars? The code would need to be clever enough to split the data after the nearest full stop before the 1024 char limit.
View 3 Replies
View Related
Jul 23, 2008
I have this forumala.
=RIGHT(A1,MIN(500,LEN(A1)))
I would like to apply this formula to VBA and call to existing macro so that this is applied to all the cells in Col. A. How can I do that? Or, is there a better way to do it?
Buttom line, I'd like to see only the last 500 characters per cells in Col. A after I run the macro.
View 9 Replies
View Related
May 13, 2009
find a string and copy certian string to next cell i have tried something which can copy but unforunately that is copying whole cell not certian string.
I have data of 500 rows and i have data till A,B,C,D and E.Please ignore all the other rows which are of no use except E in Column E i just need Reference : A0000000:1 to be copied to next column beside to it that means in Column F.
View 2 Replies
View Related
Mar 29, 2007
I am a VBA starter. I try my best to customize the previously posted code to solve my problems. But I am badly stuck this time. Help please!
I have a sheet by name “MAIN”, that has the following features:
1.Data that I require starts from row 12
2.Cells in Column D (starting from D12) contain: mix of numbers, alphabets and special characters
Assume:
MAIN!D12 = “123-AXE1”
MAIN!A12= “CopyMeA”
MAIN!B12= “CopyMeB”
What I would like to do is: .....
View 9 Replies
View Related
Aug 22, 2014
I have to sort list of thousands name (3000 names) and remove duplicates. My problem is majority of the names have their title (i.e) Prof. Dr. Ir. Sir. etc typed in, so I need to copy the title in different cell and have their name only. Here's what I expect:
Current List ----> Column A -->Column B
Drs. H. A. Andrew Boston, MRE. ----> Drs. H. --> Andrew Boston, MRE
Drs. H. Andrew Smith ----> Drs. H. --> Andrew Smith
H. Abd. Mohammed Junus ----> H. --> Abd. Mohammed Junus
Prof. DR. Jane Doe, MD ----> Prof. D --> Jane Doe, MD
Prof. DR. Ir. H. Randy Wong, MBA --->Prof. DR. Ir. H. -> Randy Wong, MBA
Dra. H. A. Karen Patel ----> Dra. H. --> Karen Patel
Drs. H. A. M. Kangkong ----> Drs. H. A. --> M. Kangkong
Prof. Drs. H. A. Kareem Saleh, Ph.D -> Prof. Drs. H. A. ->Kareem Saleh, Ph.D
Dra. Hj. Nina Schorder ----> Dra. Hj. --> Nina Schorder
Ir. Abdul Jabbar ----> Ir. --> Abdul Jabbar
View 1 Replies
View Related
May 6, 2009
I have two different functions, first is importing website to excel and the a second is testing string according to pattern. Each one of them is working ok. I'm trying to find a word " finance" in URL and put it into cell "A1".
Sub ParseWebsite()
Application.DisplayAlerts = False
On Error Resume Next
For i = 1 To 10
SiteURL = "URL;http://www.cnn.com"
With ActiveSheet.QueryTables.Add(Connection:=SiteURL, Destination:=Range("A" & i))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False................
View 5 Replies
View Related
Apr 5, 2012
I am a total newb to excel and vb, and only have minimal experience in embedded C.
I have a very large spreadsheet with 9 columns and the max number of rows that excel supports (office 2010).
What I want to do is copy the entire row of data IF a cell in that row contains a specific string I'm interested in.
If it's necessary, the column that contains the values that would trigger a row copy would be column C and the data would be pasted onto a new sheet.
View 1 Replies
View Related
Aug 9, 2012
I have attached a sample file where I want to concatenate data in colums A2:H2 into one column with line breaks. But CHAR(10) function alonwith CONCATENATE is not working. I have formatted the destination cell for wrap text.
View 9 Replies
View Related
Aug 27, 2009
I want to create the user defined function in excel in which i will assign the value to a char and after that i should b able to use it in formula.
Eg: for "FL" i will assign 1
for "LF" i will assign 2
for "VV1" i will assign 3
for "VV2" i will assign 4
and so on.......then i want to use this to compare both figures like
i will put the formula like if(VV1 < VV2,true,false) result should b true coz VV1 is having value of 3 and VV2 is having 4.
So basically how we create the custom lists i want to give the priority to my own list and want to use it in formula.
View 9 Replies
View Related
Nov 7, 2006
I just found out the the line
Range("a1") = tbox.Text
only grabs the first 255 characters and leaves the rest behind. I have around 200 workbooks with textboxes in them and I need to get them onto the worksheets themselves.
View 5 Replies
View Related
May 11, 2007
Is it possible to set a PasswordChar for an InputBox?
Basically, I have an input box asking for an admin password to make changes, and I'd like to make it so onlookers wouldnt be able to see the password. Any suggestions on how to do this?
I could make another userform and have the textbox have a PasswordChar, but I'd rather not.
View 4 Replies
View Related
Mar 2, 2009
I'm new to this, and trying to get a spreadsheet organised for my nba fantasy team. To save time, (and me having to enter the positions of 300ish people individually) I'm trying to pull out their positions into seperate colums.
The data I am trying to pull is from these:
Jarrett Jack, Ind PG
Gerald Wallace, Cha SF, PF
=IF(FIND("PG",$B2),"PG","")
That is the formula I am trying to use, it finds the PG for some, but when it doesn't it gives me this "#VALUE!" in the cells, instead of a blank as I have tried to input.
Now, there are 5 combinations that I am trying to pull out: PG, SG, SF, PF and C.
There are multiple combinations that need to be pulled out, and placed into my 3 cells allocated (EG - 1 for Pg, 1 for SG, 1 for SF).
I have also found a flaw that takes the C from Cha (being the team) instead of from the position. Can I search for a individual C? I've tried to google these things, but I can't find an answer.
View 11 Replies
View Related
Dec 1, 2009
is there a way to automate =left(b1,40) and remove commas from the text?
text in the cell would be something like a name for instance john doe, LLC but some names are to long so was using the =left to reduce it to 40 characters and using find/replace for the commas replacing it with a space.
View 7 Replies
View Related
Jul 31, 2014
Here's an interesting one:
A1 contains a text string which is both bold and unbold (
B1 is blank
I need a macro which scans the cells with text and copies the BOLD portions of the text string into the adjacent cell.
Example:
A1
The sky is blue
Macro is run
B1
sky blue
View 11 Replies
View Related
Nov 11, 2008
I need a slight mod to the below code which works perfectly otherwise. What it does is it divides whatever is in column K by 30 and puts in its relative cell in column M( There a bunch of mini tables below each other with blank rows in between).
The thing is sometimes there are characters in column K like "N/A" for instance and the macro crashes since its only designed to take into account numerical and blank cells in column K.
View 6 Replies
View Related
Nov 26, 2013
Is there any way to display one-third 1/3 in a Userform label control?
View 9 Replies
View Related
Aug 1, 2007
I am having mucho problems because of Excel's 255 character limit when copying an entire spreadsheet to a new workbook.
In a nutshell, I copy a "data entry" page onto a “report” page within a workbook. The entire “report” page is then copied and moved into a new workbook. That allows me to have a stand alone, exported file outside of my main data entry tool. When you copy an entire page to a new workbook, Excel imposes a 255 character limit. Thus, I see truncated responses on the exported spreadsheet only.
View 9 Replies
View Related
Apr 7, 2014
In sheet1 I have a simple database consisting of 5 columns of data
Column A : Name ie James Jones
Column B : payroll number ie 123456
Column C : shift times ie 1245-2124
Column D : job title ie floor
Column E : comments ie A/L or 0600-1500
what I would like is some code that will go down Column E and if a 'time string' ie 1300-2130 is found then copy this string and paste into corresponding value in column C. If a text string is found ie A/L or Sick or anything like this then ignore and move onto next cell, loop this until all cells in column E have been checked.
View 4 Replies
View Related
Feb 18, 2014
I'm using a userform to create a new sheet. The form already creates the sheet and names it what was typed into the userform. Now I want it to place that variable in a cell along with a string. the following code will place the variable from the form (tbname) into cell b5.
View 2 Replies
View Related
Jan 31, 2008
I would like to call up a find box, then be able to search several worksheets for a string, to copy and paste the related row to a new worksheet.
I've gotten as far as being able to search for a string and get the row pasted, as long as the string is defined in my macro. Is there a way though to be able to call up a find box first though, and search for the input variable? (alternatively, I can only imagine a separate piece of code for each variable, of which there are many, and I am actually trying to save time.
View 14 Replies
View Related
Mar 12, 2009
I have this spreadsheet, I have a title in cell A1, then the following column headers alternate betweens entries I want and those I don't (in this case A in Cell B1, an irrelevant value in C1, C in Cell D1, an irrelevant value in E1, D in Cell F1 etc...).
What I want to do is take the original value, so A from B1 and make it Aa, then make C1 contain the same A, but this time Ab.
It should be very obvious what I'm after from the spreadsheet.
View 3 Replies
View Related
Aug 23, 2012
How do I copy the numeric part(11 Digits) of a cell
EG. A1 = "GL CREDIT DDA07 60291627599 ZFT"
I Require "60291627599" in A2
Descr
ANSWER
GL CREDIT 62180577391@DDA ZFT
62180577391
GL CREDIT 62300192854 62300192854 DDA06 ZFT
62300192854
GL CREDIT ACC REC 62273991367 ZFT
62273991367
The numeric 11 digit number is not always in the same position in the cell.
View 2 Replies
View Related
Aug 23, 2012
How do I copy the numeric part (11 Digits) of a cell ,
E.G. A1 = "GL CREDIT DDA07 60291627599 ZFT" in only want "60291627599" in A2
Descr
ANSWER
GL CREDIT 62180577391@DDA ZFT
62180577391
GL CREDIT 62300192854 62300192854 DDA06 ZFT
62300192854
GL CREDIT ACC REC 62273991367 ZFT
62273991367
11 digit not always in same position in cell.
View 7 Replies
View Related
Apr 3, 2013
I'm trying to copy entire row from sheet "source" to sheet "output".
Condition: If cell or cells in range (E7: lastcoll, lastrow) value is "A" then copy entire row.
Find the excel template in attachment.
My problem is that my macro is copying particular row, as many times as many "A" finds.
I want to copy entire row just once doesn't matter how many cells with "A" are in particular row.
VB:
'function to find last column a change letter of column to number
Private Function ColLetter(LastCol)
ColLetter = Split(Cells(1, LastCol).Address, "$")(1)
End Function
[Code] .....
copyROW.xlsm
View 3 Replies
View Related
Apr 24, 2014
I'm working on a Excel template where 6 cells are filled with text. Now I want to put all the text in those cells into one 'result cell'. I already know how to put the cell values into strings and paste them beneath each other.
My problem is that I don't only want to copy the cell values but also the formatting, because all of the separate cells have a bold title. If I only copy the values the formatting isn't copied with it, so my question is:
How do I copy the cell formatting (bold titles) with it or how can I make a string bold?? Beneath is my code:
[Code] ....
View 12 Replies
View Related
Jul 22, 2014
There are two problems to solve :
My Excel workbook is composed of 2 sheets. The first one is a Dashboard (Sheet1) and the second one (Sheet13) is where the data is.
I would like to press a button on the first one, enter the text to be found into an Inputbox and then copy-paste cells from the second sheet (containing the data) into the first one.
The data is structured in rows, from A to V columns.
I would like, according the row where is located the found cell, copy given given cells from Sheet13 to Sheet1.
Right now, I have a macro performing the search like desired and selecting the found cell :
Code:
Private Sub CommandButton1_Click() Dim FindString As String
Dim Rng As Range
FindString = InputBox("Entrer le contrat de support - rechercher (DSI....) ")
If Trim(FindString) "" Then
With Sheet13.Range("V:V")
Set Rng = .Find(What:="*" & FindString & "*", _
[Code] .......
I would like to copy cells located in the columns A, B, D, E, F, K, S, (T:U) from the row where the searched string has been found in Sheet13. It has to be copied on Sheet1, on two rows : (N29:Q29) & (N30:Q30).
When a new research is done, the previously copied cells should be cleared out.
2. The second point is about duplicating a button with an associated macro. The macro is running like I want but I have to insert 299 more buttons, with the updated formula according to the row where it is located.
However, one part of the macro has to stay the same because all of these 300 buttons increment a single counter located on Sheet1.
Code:
Sub Button2600_Click() If MsgBox("Etes-vous sûr de vouloir ajouter 1 année de support pour" & vbNewLine & Range("E7") & " " & "(" & Range("F7") & ")" & " ?", vbYesNo + vbQuestion, "Modification du Contrat de Support") = vbYes Then
Sheet13.[A7] = DateAdd("yyyy", 1, [A7])
MsgBox "Contrat étendu d'une année."
Dim x As Integer
x = Sheet1.[R11].Value
Sheet1.[R11].Value = x + 1
End If
End Sub
You can get the excel workbook at the following link : [URL] ....
View 2 Replies
View Related
