Text Based Treeview Control
i found this quick online tutorial [url] on treeviews. i was trying to modify the code to make it a simple tree contaning just text like attached image, and to have a command buttton to add, and delete from the tree.
View Complete Thread with Replies
Sponsored Links:
Related Forum Messages:
Drag From Treeview Control To Spreadsheet Control
I have created a userform within VBA which has a TreeView Control and a Spreadsheet control on it. I have populated the TreeView control with data and what I want to be able to do is to drag the nodes off the TreeView control to the spreadsheet control. I can drag onto a normal worksheet but not onto the spreadsheet control (the no drop mouse pointer keeps showing).
View Replies!
View Related
Using A Treeview
In my program I connect too a OPC server the OPC server contains different channels, those channels contains devices and the devices contain items, those items could be a collection of items or individual items. I have already used a listbox and listview in my userform, but i'm not particulary happy with the results. So i want too add the treeview because i think it would look and work better. I'll add all of my code and i hope you can see what i mean. I have found some examples but they use data on a worksheet which is a bit different too how i want too do it. I have found out the .add that is used there doesn't work and i'm having trouble finding what i need. for some reason opening the help files is blocked on win xp.
View Replies!
View Related
Treeview With Textbox Controls
i am trying to adapt this code to show userform textbox's instead of cell information Sub treeview() Dim i As Integer Dim nodX As Node Dim strRel As String Dim strRship As String Dim strKey As String Dim strText As String Worksheets("sheet1").Activate Range("a3").Select For i = 1 To 3 'cell A3 strRel = ActiveCell 'cell B3.................. which i found here, fileTreeview control.
View Replies!
View Related
Loops Creation For Treeview
I write macros that creates a treeview according to data from column "A". In attached example I have series of numbers, that means following: 0 is a root (A1), 1 is its nod (A2), 2 are nods of 1 (A3,A4), three appearance of 3 are nods of 2 (A5,A6,A7) , e.t.c. It means that I must dinamically to create the loops. How to make it. All that I know is a static creation.
View Replies!
View Related
Drag Drop Treeview Node
I was trying to drag a node onto a worksheet and for that node to remain in the treeview control. I have found out that if I hold the CTRL key then the node remains on the treeview. Does anyone know how I can implement this action in my code so I don't have to keep pressing the control key?
View Replies!
View Related
Treeview Data From Multiple Sheets
I am trying to populate a TreeView control from multiple sheets. I have managed to populate it from one sheet but can't do it for multiple sheets. see my code below: Dim arrName As Variant Dim arrParent As Variant With Sheets("Sheet1"). Range(Sheets("Sheet1").[A2], Sheets("Sheet1").[A65536].End(xlUp)) arrName = .Value arrParent = .Offset(, 1).Value End With I want to be able to make it look up from Sheet2 aswell.
View Replies!
View Related
VBA - TreeView Properties In UserForm
I have a tree view control property in a userform working fine, however, when the form open, only the top level is list (ie, only 1 string is visible). In order to see more, then user needs to click on the + which is not an issue, but they would rather have the tree open up to certain level, say 5 hierarchical levels down, instead of just the one string.
View Replies!
View Related
Text Search :: Rather Using Control + F
Rather than use Control-F to find the text in a cell, is there some VBA programming that could do the same and then go to the cell or cells containing the text input to be found? I tried recording the macro to find, but it would show up in the VB Editor because I had to close the find function down to then stop recording.
View Replies!
View Related
Value For Variable Based Off Control Checkbox.
I have several checkboxs in an excel sheet, that if one is checked i would like it to make a change to a variable in a macro that will run when saving a file. for an example: if checked: Checkbox1 = NCE1 Checkbox2 = NCE2 Checkbox3 = NCE3 Checkbox4 = NCE4 Checkbox5 = NCE5 I have a bit of code that is like this.... ActiveWorkbook.SaveAs ("\marketing2PartageNonconforms" & sF1 & " - CO" & sF2 & " - FC" & sF3 & ".xls") I would like sF1 to change depending on which checkbox is checked. so if checkbox1 is checked, than sF1 = NCE1 .
View Replies!
View Related
TreeView: Trap Click On Image Or Label Of Node
I am using a TreeView control and need to determine if the user clicked on the Image or the Label of a node. The Hittest function can return either a TreeViewHitTestInfo object or a node. By default it returns the node. I'm not quite sure how to trigger the return of a TreeViewHittestInfo object, but at the moment I'm even struggling to make VBA aware of that class. A simple statement like Dim info As TreeViewHitTestInfo returns an error saying that TreeViewHitTestInfo is not defined.
View Replies!
View Related
Control Text File Import
I have a text file and need to convert into excel output using macro with a few selection item. Im attached a text file at least u know what how the text file look. In the text file, please ignore the 1st page(introduction page). In page 2 onward, what i want macro to run is to sort the items to excel into each column like 'BOOKINGNO',P.DELIV','CNTRNO','TYPE','INCOMING VSL','VOY','L. PORT'.
View Replies!
View Related
Control Source For Text Box
I have a workbork for employee time keeping. I have designed an Input Box that has 15 text boxes (7 diff hour types, 2 weeks, one total box). I have everything working properly except I want to make the control source relative. When the user clicks on a name of an employee (A column), then clicks the macro button, the Input Box appears. I need the text boxes to be linked to the cells E:S on the same row as the active cell. I've tried typing in ActiveCell.Offset(0,4) and variants of it, but all are rejected. How can I link the text boxes using active cell and offset?
View Replies!
View Related
TextBox Control Passes Number As Text
I am trying to store some information in a cell from a UserForm. The two sets of information I have are: InvoiceNumber(number with no decimals) InvoiceAmount(currency with two decimal points) The problem I get is when I use the following command to store the information, it stores the information as text rather then a number. Worksheets(CustomerName).Range("C" & Position + 1).Value = InvoiceNumber Worksheets(CustomerName).Range("E" & Position + 1).Value = InvoiceAmount I tried using the NumberFormat option as below, but it doesnt fix the problem. Worksheets(CustomerName).Range("E" & Position + 1).NumberFormat = "$#,##0.00" Worksheets(CustomerName).Range("C" & Position + 1).NumberFormat = "0"
View Replies!
View Related
Vba Cell Control Based On The Cells Contents
Is it possible to place formulas in vba to control cells based on the cells contents. A2 will be the the price of an item excluding vat and b2 will be the price of an item including vat What i want to achieve is if I put a figure into a2 b2 then multiplies a2 by 1.15 to reflect the price including vat. If this is achievable I then want to reverse the proceedure so if I put the price including VAT into b2 a2 divides b2 by 1.15 to reflect the price exc. VAT.# if all of the above is clear and possible I would like to know if it is easily possible to copy the workings for a3, 4 ,5 ,6 etc and b3, 4, 5, 6 etc.
View Replies!
View Related
Select Worksheet Based On ComboBox Control Choice
i have a user form with 4 combo boxes and one text box. what i've tried to do is make it so that if the month combo box reads january, then all of the info is placed in a worksheet called january. at the moment it is putting all the info inputted into one sheet. if some one could take a peek at the code below. If cbomonth.Value = January Then Sheets("January").Select Range("A1").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) Or IsEmpty(ActiveCell.Offset(0, 1)) Or IsEmpty.....................
View Replies!
View Related
Set Control Visibility Based On Tag Property
I have a userform which uses the tag property of the frame to determine whether a frame is visible (and hence the controls that reside within the frame). A frame contains three combo boxes, and six text boxes. The tag property of the frame matches the number of frames that are visible on the form, so that if the user selects five frames, frames 1 through five become visible and for all other frames visible = false. A frame contains all the data for a single entry. There can be up to fifty frames/ entries that are visible on the form depending on the user selection. I want to use the visibility property to do two things: first the combo boxes are filled from an array after the user selects the number of frames (or entries). I only want to fill the comboboxes where the frame is visible. The second thing is that I have a function which uses the data from the text boxes and combo boxes as required arguments. Since these are required arguments, I will get a data mismatch error if I try to call it and the controls are empty. Therefore, I only want to call the function if the frame which houses the controls is visible. Public Sub Visible1(Entry As String) Dim ctrl As Control For Each ctrl In UserForm2.Controls If TypeName(ctrl) = "Frame" And ctrl.Tag <= Entry Then With ctrl .Visible = True End With Else If TypeName(ctrl) = "Frame" And ctrl.Tag > Entry Then With ctrl .Visible = False.............
View Replies!
View Related
Using Data Validation To Control Text Length W/Vlookup
Can anyone provide a formula to be used in data validation that will control text length (6 digits) and restrict duplicate entries. The best formula will prevent anything other that 6 digits, but question the user regarding a duplicate entry. For example: if the user enters 123456 no problem, but if 12345 is entered, Excel validation would not allow. If the user enters 123456 again, Excel's validation window would allow but the window will pop-up and ask to confirm.
View Replies!
View Related
Set Label Control Captions To A Cell Text/Value
I have an excel application that I'm developing that is going to be used by two different departments. On one side everything will pretty much be userforms. The sheets they the data I need to pull in for them is on sheets that I have such that their visibilty is equal too xlveryhidden. I'm trying to change the captions on labels using the data on the veryhidden sheets. Something like this. 'frmCurrentProposal is a userform 'lbGroupName and lbGroupNum are both labels that should vary frmCurrentProposal.Show frmCurrentProposal.lbGroupName.Caption = Sheet2. Range("B2").Value frmCurrentProposal.lbGroupNum.Caption = "Group # " & Sheet2.Range("B3").Value The labels are not changing their values.
View Replies!
View Related
Set Text & Hide Control On UserForm Show/Load
I'm trying to do is set up a form load event to initlize some controls. Here is my Private Sub Form_Load() 'Initialize the form lblProcessing.Visible = False txtFileName.Text = "Enter a file name" End Sub At the moment, this event is not triggering. I have the code in the code behind my form - should it be in a module? PS: This site is great - it's answered a lot of my other questions so far without me having to make any posts.
View Replies!
View Related
Excel Text Search Through Different Types Of Text And Action Based On Text
1. Search an excel sheet "column" for a particular type of text and insert values based on that text (if found) in another column. e.g I have column A1 to A10 with different types of text. I would like to search for the keyword "Risk is high" OR "Risk=High" for each cell in the column and insert a "1" if found beside it's corresponding "B" column. If not found, I would like to insert a "0". So, if the text "Risk is high" OR "Risk=High" was only found in A6, I would like B6 to be "1". Rest of the values in the B column would be "0's", since the text was not found in any of the other cells.
View Replies!
View Related
Determine Active Control On Multipage Control
How do I determine which control the user is currently modifying on a multipage form (either changing, enterying or exiting the specific control). when I use "userform1.activecontrol" i get "multipage1" as the control name but I need the actual control on the specific active multipage. (also the .TABINDEX is for the multipage regardless of the on-page control) I use a generic data-field change SUBroutine so need the control name (and the TABINDEX) to provide my SELECT CASE. (so every fieldname_CHANGE calls the same SUB [with no parameters])
View Replies!
View Related
VBA Calendar Control Without Control
Has anyone out their ever seen an Calendar type of control totally built in an Excel vba UserForm? My problem that I’ve tried to resolve for some time is utilizing some type of pop-up calendar to eliminate format issues in my published Excel forms. I have tried a number of calendar controls but all have to be registered on the local machine and this cannot be guarantied for every machine. If someone could direct me to a vba UserForm that has this built in that might do the trick. Or is their another way to deal with this?
View Replies!
View Related
Return Text Based On Text Existing In Range
I am trying to Lookup a country to see if it is classified as a "Developed Country". My formula would be in cell AA4. I want to see if the country in cell B4 is on a list of developed country's on another worksheet. IF the country is found on that list cell AA4 displays Developed. If the country is not on the list, cell AA4 displays Emerging. I have tried an IF statement using the Match function and it does not work. =IF(MATCH(B4,'Developed Country List'!$A$2:$A$37,0), "Developed", "Emerging")
View Replies!
View Related
Add Text Based On Part Of Another Cell Text
I have been working on this worksheet part of which is attached herewith. I would like excel to automatically enter Updated/Inserted in column B against Individuals' names as per the instructions given in column A. For example: As per instruction in A9, B13:B16 should show Updated. I have tried to use the nested if function, but it does not work as I want it to. Also as I am not used to macros or VBA codes, could this problem be solved with formulas?
View Replies!
View Related
Pass Control Dates To Cells As Dates Not Text
I have a WAY to complicated excel form that I'm going to move to Access but I need to have this working in the interim. The form has a dynamic element, the user can choose the number of items they are ordering and it unhides the required number of text boxes. To keep the scripting down a did a little work-around to update the database using a loop through the form controls: 'Save the main row MainOrderRow = ActiveCell.Row LastRow = MainOrderRow + (ExtraOrders - 1) ' Calculate the last row ExtraOrderNo = 1 For DBRow = MainOrderRow To LastRow ' Save the text box name with the extra order number k = "txtDescriptionMul" & ExtraOrderNo & "" l = "txtQuantityMul" & ExtraOrderNo & "" m = "txtTotalValueMul" & ExtraOrderNo & "" n = "ComboBoxUnitMul" & ExtraOrderNo & ""...................
View Replies!
View Related
Control Code Causing Other Control Code To Run
I have 2 macros: 1 controlled by a checkbox activex (PA_03) and the other a combobox (PA_03_rows) in a worksheet. I display the results from PA_03, and the user than then increase or decrease the number by using the combobox. But when I change the value (PA_03_rows.value = x) it causes the macro to jump to the macro. I don't think it did initially, but it does now. According to another post, I saw it shouldn't do it! Is there something I'm just not seeing here? Private Sub PA_03_Click() Dim message, title, default, numberRows Dim PA_rows As Integer Application. ScreenUpdating = False TakeFocusOnClick = False Worksheets("sheet1").Select ActiveSheet. Range("a15").Select If PA_03.Value = True Then Goto Unhide: If PA_03.Value = False Then Goto Hide: Unhide: message = "Enter the number of input rows required (1 to 50)" title = "Non-Featured Standard Input" default = "1"
View Replies!
View Related
SUMIF Based On Text
How can I do SUMIFs based on columns that contain text? Im having some trouble with them. I just need to check column H for the text "Newham" and then total the corresponding cells in column F
View Replies!
View Related
IF Function Based Upon Text
The following is my existing formula (I admit it is probably very far from what it should be) but I'm looking a way to base the conditional part of a function based on the text within a cell. =IF(E4=OR("WordA","WordB"),(I4),(-1*I4)) There are four words that I use to classify the column "E" for sake of simplicity I will name them as "WordA" "WordB" "WordC" and "WordD". Those words serve as the identifier that I am trying to test. I.E. if "WordA" or "WordB" are present in column E, I want the end result (listed in column I) to be a positive number. If "WordC" or "WordD" are present in column E, I want the end result listed in column I to be a negative number. Currently I have a formula in column I, which is: =((H3-G3)/G3). Both Column H and G have numerical values. Essentially the whole goal of my process is that if WordA or WordB show up in E, then I want my formula in I to remain "as-is". If however, WordC or WordD are present, I want the end result or formula in column I to be negative. I am not tied down or restricted to using a particular formula, but just don't know how to set it up either way. Additionally, I plan to copy the formula down in terms of numbers... i.e. I5,I6,I7, etc. so when submitting any advice or if supplying a formula to paste.
View Replies!
View Related
Calculate Based On Text Value
I want to apply 4 conditions. Core ValueCurrent Pricenew Price a 400 b 600 c 300 d 300 If core value = a then new price should be current *2%, if core value=b, then new price should be current price times 2.2%, if core value = c than new price should be current price times 2.5% and if core value=d, than new price should be current price times 3%? also would i be able to do a formula if core value is either a or b, than new price should be current price times 2% and if core value is = to c or d, than new price should be current price *3%?
View Replies!
View Related
Sum Values Based On Text
I need a formula that will calculate the sum total of 6 and a longer formula to cope with 12 letters in a range. The third value in both ranges is worth double points. The letters and their corresponding values are: F=0, P=2, M=4, D=6 Some 6 letter examples to illustrate: in A3:D3 the letters D,D,D,D,D,D return the value of 42 in E3 (6+6+12 (third letter is worth double)+6+6+6 in A4:D4 the letters P, P, F, F, M, M return the value of 12 in E4 Some 12 letter examples to illustrate: in A3:L3 the letters D,D,D,D,D,D,D,D,D,D,D,D return the value of 78 (6+6+12+6+6+6+6+6+6+6+6+6) If the range is empty the formula should leave the cell blank.
View Replies!
View Related
Pulling Out Info Based On Text
I have a regular table of data and dependent on the info within a column of cells I would like the info to appear within one of 3 new sheets. BUT.... I can't figure it out because the info forms an irregular part of text within the cells in a specific column - Obviously if it was dependent on the whole of the text I could use Vlookup but it's not. If it needs further clarification, a column of cells may have, say, "blahblah234/PLblah" -> If this cell contains within the text "PL" then it should have the whole of the row in the new sheet, if not then blank.
View Replies!
View Related
IF Statements Based On Text In A String
I want to return Y or N for each row where a certain word (lets say "Apple") appears anywhere in the reference cell. Therefore in the below example the first 3 rows contain apple (somewhere in that cell) so Y is returned. I can get it to work when apple isd the only thing in the cell but not if it appears with text before and/or after it. ie: A B apple Y apple orange Y orange apple Y pear N grape N
View Replies!
View Related
Returning A Text Value Based On 2+ Conditions
I'm trying to lookup values that are a combination of text and numbers. The difficulty is I need to use two criteria to look it up. I've been trying to use a combination of Sumproduct and Index,Match but it doesn't seem to be working. I think I need to add some sort of text function in there. Below is some data for example purposes. A B C E F G M S Get value from G M S 5G M T M T 6M M U M U 7H M V M V 8K
View Replies!
View Related
Display Different Text Based On Data
We are working on having the spreadsheet display the correct options, depending on what criteria are chosen. There are three choices in the first criteria and two choices in the second criteria. These choices are presented using data validation so they will always be formatted correctly. Worked on conditional formatting to display results but did not make much progress. Started working on "if" statements to display results, looks like this may not be efficient. Spent a lot of time reading, trying to find a solution.
View Replies!
View Related
Return A Text Value Based On Criteria
I'm trying to create a formula that will allow me to pull test from a list (auto populate if possible). Essentially you will see on the second tab, a list of projects "Cali" for example. I'm trying to find a formula that will allow me to show the Customer and Life Cycle on the first Tab. If possible the Project Name too. Essentially I want to be able to have all the data inputed into Tab 2 and let Tab 1 condense it into the designated fields. So basically what will allow me to see all of the "Cali" projects, and from that generate the Customer and Life Cycle (and Project if possible) on Tab 1. Keep in mind this does need to be automatic updating, so that as we input more information on Tab 2, it will automatically kick into Tab 1.
View Replies!
View Related
Insert A Number Based On A Text Value
I have a cell (B4)that may contain several different text values, i.e. Bill, Tom, John, Mike, Larry, & Dan. The value in cell D4 needs to relate to what text is in B4, i.e Bill = 6; Tom = 12; John = 8; Mike = 20; Larry = 15; & Dan = 10. I was trying an IF statement, but having trouble.
View Replies!
View Related
Return Text Based On Criteria
Example: I have 2 sheets, a pivot and a data sheet. When selecting a different option on the pivot i want information returned from the data sheet (which is explanations of the information contained in the pivot) I need to add 2 criteria points.
View Replies!
View Related
Userform Text Based On ActiveCell
As usual, I think this might be a really simple one but I can’t seem to find the answer. I want to create a userform that has text at the top (not the title bar) that looks at the value in the ActiveCell. e.g. "Please enter information for " & ActiveCell I have tried to place this in a text box and the code for the text box but nothing seems to work I am pretty new to userforms so could well be going about this completely the wrong way.
View Replies!
View Related
Return Lowest Based On Text
I am looking for a formula that will return the lowest value in a range, expressed as a letter. The relative values of these letters are: F=0 P=1 M=2 D=3 For example, If in cells A1:A4 we entered the values F, P, M & D in A5 the result would be F (as it is the lowest value in the A1:A4 range). I have included an example worksheet with fictional data and the intended result in the Final Score column.
View Replies!
View Related
Calculation Based On Name In Cell Text
I'm trying to create an if statement to check to see if a cell has a value in it and return a math function. My problem is that some of the values contain more that just the name searched for. This is a basic example A B C 10 Williams DXT if(B1="Williams",A1*.8,if(B1="Johnson",A1*.85,1)) 20 Williams DPX if(B2="Williams",A2*.8,if(B1="Johnson",A2*.85,1)) 30 Johnson AMV if(B3="Williams",A3*.8,if(B1="Johnson",A3*.85,1)) 40 Johnson ACS if(B4="Williams",A4*.8,if(B1="Johnson",A4*.85,1)) 50 Smith TWN if(B5="Williams",A5*.8,if(B1="Johnson",A5*.85,1))
View Replies!
View Related
|
TRACKER
