Type: Posts; User: westconn1
Search took 0.26 seconds.
1. you can set the width of columns at design time, in the property pages (custom > columnheaders), or at runtime when adding columns, as per your code snippet, or at any time, using...
you can try like
thisworkbook.savecopyas thisworkbook.path & "\somenewfilename.xls"
set newbk = workbook.open thisworkbook.path & "\somenewfilename.xls"
set newsht = newbk.sheets.add "Summary...
of course there is, but unlike excel or word where you can post a test workbook or document, in outlook you can not do that, so we can only help you to find the problem
have you put a breakpoint...
as your procedure have parameter, they can not be run from macros and would need to be started by their event, either from the rules dialog or by receiving appropriate new mail
in either case the...
put a break point at the first line of the procedure, the code will stop running at the break point, then you can step through the code to see what is happening
if you are not sure about putting a...
sounds like a problem from using the change event
the first matching result will fire the change event after each character is typed
try using the exit event of the combobox, which would fire when...
how do you know? does the procedure run but not save attachment or not run at all?
what rule have you created? check messages when they arrive or what, i doubt this will run with already arrived...
did you try sending the body as html rather than text?
i doubt that LIKE will compare the date /times well enough, LIKE is for comparing strings,
try just compare to > A1
also you are comparing a date to a string literal "A1", rather than a cell...
in that case should be c3, c1 would be A:A
as you can insert formulas by code in either style, .formula or .formular1c1, it does not really matter
is realtive to cell with formula
=sum(r1c3) is absolute "C1"
not quite sure if that is what you are asking though
try using the SET keyword on the first line, as it is, temp is probably a 2d array rather than a range object
just make another Sub in the same module, copy the code and edit as required, make sure to have different name for 2nd procedure
probably have to change the filetype constant too
you may have to research the available values for file types
you could use separate rules based on the subject, each rule can use different procedure
else you can use the new mail event to process emails, just when they arrive,
note also that datafile1...
is the attachment actually in the database? or does the database contain a path to the attachment? if multiple attachments a loop would be required
i am not sure how to add a database field to an...
do you have any idea how hard it is to read those images?
i tested your formula, seems to work ok for me (as best as i could read it)
post a sample workbook that demonstrates the problem,...
seems to indicate the job # is not found, so thesearch is nothing
as your criteria would never match for either sub, both will always do nothing
is that correct?
i suggest you post a list of before and after (what you want to add to listbox) strings, for us to...
i do not see why you get the trailing , unless you have empty last list item
to remove the initial , try like
For i = 0 To .List10.ListCount()
allstr = allstr & "," & .List10.ItemData(i)
if you use a multi column listbox, you could put the url in the 2nd column, the 2nd column could be hidden if desired, then easy to use the value of the 2nd column as the hyperlink
you can use ADO to access the worksheet data as a recordset, using SQL queries see http://support.microsoft.com/kb/257819
what error? when you select a customer of job number?
as expected by the code posted, only finds the first job #
can you post a test workbook, with the userform and some sample data, zip first
try moving the code to the click event of the combobox, rather than the change event, the code should then not fire when the combobox text is changed, only when a combobox item is clicked
to handle error if jobnumber is not found
after the search
if thesearch is nothing then msgbox thevalue & " was not found": exit sub
if the job # exists, but is not found, then there must be...
afaik you can only assign true or false (vbchecked) to a checkbox
the content of the combo43 would not match that criteria
that is not quite correct
the constants for those values are
the worksheet name is a string, not a worksheet
you can use like
set ws = activesheet
else use a string variable
for each ele in wb.document.getElementsByTagName("area")
if instr(ele.innerhtml, "rel=""A B""") > 0 then ele.click: exit for
you could try like
For i = 1 To 8
If Me.Controls("text" & i) = "" Then
MsgBox "Date is not complete, fill all boxes and try again"
maybe you need to check if any textboxes are empty first, prompt the user to make sure date is valid
i would presume it should still work without error if text5 or text7 is empty, or even if text6...
wrong data type, will give overflow error when the numbers are assembled
you should not use reserved words (in this case date) as variables, especially not global variables
to call a function in an object module from code, you would address the function by modulename (or any sheet object name) .functionname
i do not believe you can do this with worksheet functions as...
part 2, 1 is easy enough, just use shellexceute API, there will be many examples for this, in this forum and google, with the print verb, having first changed the windows default printer to xps...
no line continuation on line 2?
does the select part work, without the insert?
probably just a typo on posting, but you are missing a quote at the start of the 3rd line
i would believe this should be a string as it would be the name of the attachment, not the attachment object, which is later added to the mail item object
you can try like
change the function to
Function UrlMsg$(ByVal tUrl$, myhost) ' pretend to be a browser
'change this line to
'Msg$ = Msg$ + "Host: ichart.yahoo.com" & vbCrLf
Msg$ = Msg$ &...
Click Here to Expand Forum to Full Width
Survey posted by VBForums.