I appreciate your response. The problem is I don't know for sure where I would insert the code if I had it.
I what to fire the code when I hit new email or reply to an email.
Thanks,
I am not sure where to start. I need a piece of code to put in the "thisoutlooksession" that will set the font in the body of a new email or change the theme to "no theme".
Any help is greatly appreciated.
Thanks,
Here is a piece of code I found. I adapted it to my needs and it works great.
Thanks,
You have to add the Reference "Microsoft XML"
Private Sub Command85_Click()
Dim xmldoc As MSXML2.DOMDocument
Dim xmlNode As MSXML2.IXMLDOMNode
Dim xmlNodeList As MSXML2.IXMLDOMNodeList
Dim...
I have searched everywhere and cannot find if it is possible to Import Contents of XML file to a List box.
The XML file i am using only has 2 lines I want imported to the listbox.
Does anyone have any ideas?
Thanks,
I thought I knew where you were going with that question. It still did not work.
"F" is the column that I use to make sure that is the absolute last row with data. If data is there that I want the row after it.
Range("F11").EntireRow.Copy objWorksheet.Cells(objWorksheet.Rows.Count...
I tried the code and it copied it to the first row instead of the last empty row.
I did a copy/paste with your code so I know it isn't a typo.
Am I missing something else?
Thanks
I just cannot get this to work. I have tried so many different ways. Here is my latest attempt.
I want to copy - "Range("A11").EntireRow" to the last empty row on the same sheet. "objWorksheet.Range("F65536").End(xlUp).Row"
Range("A11").EntireRow.Copy r.Row
Code...
...Dim intFile As Integer 'File Number
Dim strPath As String ' Path to file folder
strPath = "C:\New OE Imports\"
strFile = Dir(strPath & "*.XML")
While strFile <> ""
'add files to the list
intFile = intFile + 1
ReDim Preserve strFileList(1 To intFile)...
Thanks for the response...
What I am trying to do is to take Column "datesm" that has 20 records and that has the text "1/1/2009, 1/1/2010" in each of the records and add ", 1/1/2011" to all 20 records which would have the final result of "1/1/2009, 1/1/2010, 1/1/2011"
Thanks again
How do you add additional data to existing data without wiping out the original data?
If I had 20 records and I had a field call datesm which was a list of date and wanted to add another date to all 20 records, what is the proper way to do it?
1/1/2009, 1/1/2010 so how would a create a query...
When some of our different computers open my database, it strips all the VBA code from it. Does anyone know what causes it?
I finally just write protected the Front-end to prevent this from happening.
Thanks,
Ron
...the bar being updated at the end of the search instead of during.
For Each foundfile As String In My.Computer.FileSystem.GetFiles _
(PathDrawings, FileIO.SearchOption.SearchAllSubDirectories, TextBox1.Text & "*.pdf")
ListBox1.Items.Add(foundfile)
Does anyone have any ideas...
Here is some more detail:
1. I run a query that creates a table based on a number.
2. Run a report that fires a different query that searches the database for the new table ex. "123456_something" that query brings up a databox asking for the number. All I have to enter is "123456" and it...
...Query:
========================
SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Name) Like [Enter Work Order] & "*") AND ((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=1))
ORDER BY MsysObjects.Name;
This searches for the desired table...
Thanks everyone. I was able to get something working last night. Using this format.
Select [Doc_ID], [Documentation], [Code]
FROM [Documentation Verification]
UNION ALL SELECT [Rec_ID], [Receiving], [Code]
FROM [Receiving Verification];
UNION ALL SELECT [dim_ID], [Dimensions], [Code]
FROM...
i have experimented with a lot of VBA code with no results that fit the need.
The latest tries are with a Union query. Trouble is I can't get it to work with more than 2 tables and then create a table fom the result.
SELECT * From [table1]
UNION SELECT * From [Table2];
Thanks
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.