I have to refer the content of a text box in a formula.
The Text box and the cell containing the formula will be in
the same worksheet.
Is this possible first of all? I searched the excel help in and out
and I could not find a way for this.
I would like to reference information from another workbook. Instead of writing the Name of the other workbook I would like to reference through a Concatenate formula (e.g. CONCATENATE("Test"&G2&".xls")). I always get an error message. Is there any way I can reference from another workbook by using the Concatenate or any other formula?
View 5 Replies View RelatedCurrently I have a code that names a worksheet automatically with the date the first entry was keyed in. The problem is that I'd like to create a formula that would not be affected whatever the names of these sheets might be. There are 21 sheets, the last sheet would be the one containing the formula adding cell values from the preceeding 20 sheets. I've been scratching my head with this for a while now trying to come up with a workaround solution.
HTML Private Sub Worksheet_Change(ByVal Target As Range)
Dim dateTemp As Date
ActiveSheet.Names.Add Name:="timestamp", RefersTo:=Now()
dateTemp = Val(Mid(ActiveSheet.Names("timestamp"), 2))
'Sheet is given a default name until the first entry.
'The name is changed to the date the entry was made.
If ActiveSheet.Name = "DAY01" Then
ActiveSheet.Name = Format(dateTemp, "MMM dd.hh.ss")
End If
End Sub
I have a problem with bringing up the data I need to cells in one row.
In row 1 I have dates:
23-Nov 24-Nov 25-Nov 26-Nov etc.
In row 2 Quantities:
2000 1500 250 750 etc.
In row 3 I have dates again (I need to start working towards these qty's): 20-Nov 22-Nov 25-Nov 25/Nov. I would like in column A of 4 row to sum all the qty's (row 2) if the date in row 3 is the same or smaller than in row 1 column A. But in column B and forward I want cells to sum qty's if the date in row 3 is the same as the one in row 1. I have tried : =sumproduct((A3:D3<=A1),(A2:D2)) for cell A4
and: =sumproduct((A3:D3=B1),(A2:D2)) for cell B4 and consequently for others. It comes back as zero value even if I see matching dates/qty's. Does anyone know what shall I change in my formula to make it right?
- I have excel file with data I need
- I have fixed txt(html) template that i need to integrate Excel information into
- Final result that I want to achieve is saved .txt(html) file with combination of fixed information (text) and data from excel cells.
I need to writing a VBA code for each of above (integrating text & cells, saving results as text)
Is there a preferred way of referring to the Workbook or worksheet which is hosting the macro.
For example say I have the following Macro:
Sub test()
Dim MyHostMacroWorksheet As Workbook
'''''''''''''''''''''''''''''''''''''''''''''''''
Set MyHostMacroWorksheet = Workbooks(1)
MsgBox (MyHostMacroWorksheet.Name)
'Works only if macro was inside first workbook opened
'''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
Set MyHostMacroWorksheet = Workbooks("foobar.xls")
MsgBox (MyHostMacroWorksheet.Name)
'Works but have to modify every time I copy code from workbook to workbook
'''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
I am looking for explicitly saying "The Workbook/Worksheet that is specified by VBAProject"
I have a string variable that I want to make available to all modules. The string variable is a listbox.value. In a Userform I have users select a file from a list of files. This particular selection should then be used in a module of the project. Unfortunately, a Public statement can't be used in a class module to declare a fixed-length string variable. Is there any other way to make this variable available to the module?
View 9 Replies View RelatedI'm trying to check if a workbook can be used in some processes later and whithout opening the other workbook. is it possible. i have done this
str_prod_PT = Application. GetOpenFilename
If str_prod_PT <> "FALSE" Then
If Workbooks(str_prod_PT). Sheets(1). Range("A1").Value <> "Ordem" Then
MsgBox "Ficheiro incompativel", vbCritical
Else
TextBox1.Value = str_prod_PT
End If
End If
Can some correct my code. I want to convert my cell content to text. for example if i have column B with neumeric values (199234) i want to convert this to text and put only the text value (no formula after conversion) in the same cell.
Below is my code, much appriciated if you can
Sub format()
Dim rows As Integer
Dim temp1, gtxt As String
Set sh = ActiveSheet
Set xrow = Range("a1:b1", Range("F1").End(xlDown))
rows = xrow.rows.Count
For a = 2 To rows
temp1 = Cells(a, "B")
ActiveCell.Formula = "=Text(temp1, 0)"
ActiveCell.Copy
Cells(a, "B").PasteSpecial.Value
Next
End Sub
need to do a search based on the contents of a cell, but this cell wil change from minute to minute, so the result of that search will obviously differ each time. So far, the relevant line of macro/VBA code is only searching for what was in the cell at the initial time of recording the macro, for example:
Cells.Find(What:="Allen", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Application.CutCopyMode = False
...searches for "Allen" each time, no matter what the contents of the cell which contained "Allen" initially, is now.
I have a text file being used as a log file. Sometime I need to clear this file when I start-up the UserForm. I load this text file with this code. First is this in Module1:
Public Const FILENAME As String = "Log.txt"
Public Const LOGFILE As Integer = 1
This defines the text file to be added to. The code that actully apends the text to the first open row of the text file is: ....
example, if cell A1 contains: 13 Salisbury Street Balwyn, I would want Salisbury Street Balwyn to be put in cell B1.
View 10 Replies View RelatedIn spreadsheet attached, column F is populated with file names. I need VB script to import content of each respective file into corresponding cell in column E. I've got over 25k of records and the same amount of txt files that I need to insert into cells. I have found this script somewhere on the forums:
[Code] .....
But need to modify it to do something like this: read cell from column F > find file with corresponding name > Insert content of that text file into corresponding cell in column E > go to next row and do the same.
Attached File : sample_data.xlsx
I want to edit phone numbers in format 1112224444 to 111-222-4444.
My best shot has been...
Excel 2010 (Mac)
Sub EditPhone1()
ActiveCell.Offset(0, 0).Select
With ActiveCell
.Value = .Characters(1, 3) & "-" & .Characters(4, 3) & "-" & .Characters(7, 4)
End With
End Sub
I've tried many variations, no luck.
I am using VBA to create a word document (.docx). This word document contains plain text content controls as well as picture content controls. I then use VBA to automatically select a picture based on the code below
Code:
Set oCC = Word.ActiveDocument.SelectContentControlsByTitle("TabPic").Item(1)
On Error GoTo TabErrorHandler
oCC.Range.InlineShapes.AddPicture Filename:="X:XFERANDREW-TDCD " & LblVL &
[Code].....
After the document has been closed down I try to open it again and I am told "The file cannot be opened because there are problems with the contents."
When I click details it says "Unspecified error" and "Location: Part: /word/document.xml, Line: 2, Column: 0"
If I click ok it says "Word found unreadable content in "". Do you want to recover the contents of this document? If you turst the source of this document, click Yes.
Clicking Yes opens the document with all the contents and it is now renamed to Document 1. If I click no it does not open.
I use this to read cell content, add some text/characters (ie. [ and ]) and change the properties of the complete cell
Sub COMMENT()
Worksheets("DVD Lijssie").Activate
If ActiveCell.Value 0 Then ' Change all in to ... ... ...
ActiveCell.FormulaR1C1 = ActiveCell.Value & " " & "]" & " " & "["
With ActiveCell.Font
.Name = "Arial Narrow"
.Size = 8
.ColorIndex = 16
End With
End If
End Sub
HOW can I change this vba-code so it leave's the content of the cell like it is and add some content with the use of let's say TexBox1 and ONLY use different font properties for the newely added content?
I have created formulas in cells BB2 through BM2 (1-12). I would like to copy the formula to B3 based on the content of A1 (A1 can only be a number from 1-12, representing months).
Example, if A1=3, return the formula in BE2
Formula in BE2 =
=INDEX('1'!$B$2:$AR$2999,MATCH(INDIRECT("$A"&ROW()),'1'!$A$2:$A$2999,0),MATCH(INDIRECT(CHAR(COLUMN()+64)&"1"),'1'!$B$1:$AZ$1,0))
Column A has (say) 5 cells.
A1 = R, A2 = R, A3 = O, A4 = R, A5 = O
I need to count the Rs and Os separately
So column B ends up with B1 = 1R, B2 = 2R, B3 = 1O, B4 = 3R, B5 = 2O or at least B1 = 1, B2 = 2, B3 = 1, B4 = 3, B5 = 2 so i can later say =B1&A1 to merge them into what i need.
A
B
1
AAPL
MSFT
2
='C:Documents and SettingsSASTCMy DocumentsStock Data[AAPL.csv]AAPL'!E2
='C:Documents and SettingsSASTCMy DocumentsStock Data[MSFT.csv]MSFT'!E2
How should i COPY automatically "XYL" written as in formula (XYL.csv and XYL') comprehending with the top bar?
Tried "&C1&" but it`s not working.
how to combine the content of 2 cells into one cell and have the information separated by a comma.
For example:
CELL 1:
Software 1
CELL 2:
Spreadsheet Software
The desired results is:
CELL 3:
Software 1, Spreadsheet Software
Is there an option to have row heights set automatically based on the content of the text in the row, and given a specific column width?
I can right click, and set each row height individually.
I can select serveral rows stacked one on top of the other, each with limited text, and change all of those rows at the same time.
But when I select all rows, and try to change row height, the row height option is not there.
I wrote some code that toggles bewtweeen the word "Yes" and the function clearcontents.
What it does not do, is if you click on cell A1 and change it's contents and you click on the same cell again it does nothing. You need to click on another cell say A2 before you can go and change A1 again.
My code is as follows:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Documents")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
If IsEmpty(Target) Then
Target.Value = "Yes"
Else
Target.ClearContents
End If
Application.EnableEvents = True
On Error Goto 0
End If
End Sub
is it possible to have a formula that will look for keywords and display the cell content?
View 2 Replies View RelatedI am trying to reference a named cell in a VLOOKUP formula as the table_array parameter.
The Named Cell "Input1" contains a table array definition of '[Test.xls]Sheet1'!$H$10:$J$100
When I try VLOOKUP($D3,Input1,3,0) - This returns #N/A as a result.
When I try VLOOKUP($D3,INDIRECT(Input1),3,0) - This returns a #REF error.
When I copy and past the contents of the Input1 named cell directly into the VLOOKUP formula, it works so I know the array reference is valid.
I am not proficient in VBA so I would like to accomplish this using basic Excel formulas if possible. how I can reference the named cell and have the cell value returned in the VLOOKUP function?
I recorded a macro:
Code:
Sub Makro4()
Range("A4:C15").Select
Selection.ClearContents
[Code] ......
This code is working home on my MacBook, but I wonder if you have any suggestions for improvement? I will assign this macro to a button.
Using excel 2007. I am interested in writing a VBA code to delete rows based on the text starting content. I would like to delete rows with cells that do NOT start with an "S" or "SA"
EX:
05S0128
06S0112
05S2298
S25852
S36963
SA36185
I would only like to keep the last 3 lines.
Formula/macro/etc that would enable me to have content of a cell changed based on the content of another cell in the same row.
Example: cell in column D says "PSA" - so I would need the cell in column H for that same row to read "Radio"
I would need an entire sheet scanned to review for these occurrences and make the appropriate changes. I also would need the formula to be inclusive enough to scan for variations in column D cell content (PSA 1, PSA 2, etc).
Attached file 140515 Matchsheet.xlsx has formula that finds costs matching two criteria.
But the formula depends on me typing in the specific Worksheet Name: So to find the cost for 'Type 1' products, I enter:
=IFERROR(INDEX('Type 1'!$E$5:$F$11,MATCH($C$4,'Type 1'!$C$5:$C$11,0),MATCH($D$4,'Type 1'!$E$4:$F$4,0)),"")
I want the formula to "see" the sheet name as whatever is in a specific cell.
E.g. Cell B4 says "Type 2". The formula will be:
=IFERROR(INDEX('[WHATEVER NAME IS IN B4]'!$E$5:$F$11,MATCH($C$4,'[WHATEVER NAME IS IN B4]'!$C$5:$C$11,0),MATCH($D$4,'[WHATEVER NAME IS IN B4]'!$E$4:$F$4,0)),"")
how to pass a cell content into a formula as a named range? For instance, I have 3 named range (Budget, Actual, Forecast) and I use the named range in vlookup formulas. But instead of using the named range in the formula directly, I want to refer to a cell where I can type in which named range I want to use. Can this be done? I am attaching a sample spreadsheet to clarify what I mean.
View 6 Replies View RelatedFor a table like the one below produced for the sake of example (actual is much much bigger) I want to make it list rows that are true for a certain column for a certain variable in the matrix. So for say water terrain, which types of activity can I do i.e. swimming. Or for Offroad the activites which I can't do i.e. Run and Swim.
ActivityWaterRoadOffroad
Jog nym
Run nyn
Walk nyy
Swim ynn
y=yes
n=no
m=maybe