Hi!
Just as the subject tells you. How do I use another delimiter than comma, I want to use the pipe "|".
Input #1, date1, loggen, date2
'address2,
lngItemIndex = lngItemIndex + 1
Set lvItems = UserForm1.Controls(dynamicbox).ListItems.Add
lvItems.Text = date1...
Hi!
I have had this problem a couple of times and managed to solve it by some tedious work. Now it's gotten really complicated...
Our IT -department, controls all installations and updates and we are currently running excel 2003.
We are supposed to have the same installations and everything...
Hmm!
When I run it give me "" for the nytext vairable
here how i Call it
nytext = regexsolution(nytext)
and the function NOW looks like this
Public Function regexsolution(mystring As String) As String
'Dim mystring As String
Dim m As Variant
Dim nytest As String
tempString = mystring...
...return the modified value?
This code is located in MODULE 4
Sub forhandsgranska(pages)
Dim nytext As String
Select Case pages
Case Is = 1
'**** RÄTT TEXTBOX****
nytext = UserForm1.TextBox100.Text
'******Here's the call to the function
call regexsolution(nytext)
'***also tried this...
Hi!
I have a textbox consisting of a lot of text both numbers and chars.
Now in order to make the text dynamic i use replace on the text with certain variables, for example:
If the user needs the date 14 from now. I let him/her write #date14# and the program then searches the textbox for this...
Hey!
It does not work with
If ListView2.SelectedItem.Index < 0 Then
Cause the objectvariable or with variable has not been set(freely translated from swedish)
If ListView21.SelectedItem Is Nothing Then
does not work since it returns "" and that is not the same as nothing i presume.. ...
Hi!
I have a lsitbox which in turn stores logs. These logs can be added, amended and deleted. Works like a charm. But sometimes my users want to delete the logs and they click one time to many... Which in turn results in that there is no selecteditem, and hence no index which give me an error...
There is something(probably) a count function in the file that is supposed to count the rows that has a value. When using My macro to add those recirds does not show up when it counts the rows which has a value. Sorry for being so vague I'm not the creator of the file... Only thing i know is...
..."B").End(xlUp).Row 'Search Column B, change as required.
For Each cell In Range("B2:B" & lngLastRow) 'Starting cell is B2, change as required.
'*****GET THE ROW where the value should be changed***
If cell.Value = intMyString Then
If strRowNoList = "" Then
strRowNoList =...
Hi! The code that puts the value in the combobox is as follows
Sheets("Ärenden").Range("K" & strRowNoList).Value = logtext
The logtext variable consists Of the following:
Logtext = combobox1.value
I have a combobox with four values on my userform.
I WANT IT TO DO THE FOLLOWING
When a user clicks on a commandbutton. It should take the value from the userform combobox, enter this into the datavalidation combobox inside the workbook.
I have alreday accomplished all this. But with my...
Hi, this is the code I'm using! It's the logtext that fails the validation. is there a way you can tell it to set the combobox.index(4), so that the validation does not break?
Sub avslutaarende(pages, thedate)
Select Case pages
Case Is = 1
identifier = UserForm1.TextBox10.Text
logtext =...
Hmm! Sorry for my crapass description.. :(
The file im about to work with has comboboxes inside cells in one column. It's also a data list so you always have the availablity to sort it. I really dont think the comboxes are
Are these comboboxes...
1) Data/Validation
2) ActiveX
3) MS Forms
I...
Hi!
I have a an excel 2003 woorkbook with some sheets. In one of the sheets one of the columns consists of comboboxes with 4 different values. I have a userform where i look up the correct row, and then add the same text as in the comboxbox. But somehow it does not count as if i had choosen the...
Ahh thanks guys :)
Cool I ended up doing the: Stext = Stext & strTextLine & vbCrLf
solution...
Really good to get to know the readall thing to!
BIG ups! To PHV, combo, Andrzejek!!
...sokvag
If FileOrDirExists(fpath) Then
Dim oFSO As New FileSystemObject
Dim oFS
Set oFS = oFSO.OpenTextFile(fpath)
Do Until oFS.AtEndOfStream
*******First i did this*** Works but i dont get any empty lines
Stext = Stext & oFS.ReadLine
Loop
****then i tried this**** This method does not...
Hello!
Im trying to use Xpath to do collect some data from a page i save, RESULTS ON THE PAGE DIFFER.
I save everything(the html source) into my "C" Variable.
Thing is that, I can parse that like a LOOONGGG string(I do it with the mid() function and some ohter), but now I want to use the more...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.