Search:

If you only want to open a single file, you can use:
FileLocation = Application.GetOpenFilename("Excel Files,*.xls", 1, "Select a file", , False)
This simply returns a String of the path to the...

Dim FileLocationArray As Variant

FileLocationArray = Application.GetOpenFilename("Excel Files,*.xls", 1, "Select Multiple Files", , True)
For i = LBound(FileLocationArray) To...

MarMan asked the question,

Are they values from a TextBox?

See the last post I made in your other thread :)

Where your OP (Original Post) is at the top, there is a section called Thread Tools. From there you can "Mark Thread as Resolved"

Glad you found a fix! :D

The if statement looks fine, I think your problem is coming from the second DoCmd line... it shouldn't have a period between the two words.

DoCmd.Close
Do.Cmd.OpenForm ("Switchboard")


EDIT:...

In VBA you can't initialize a variable where you declare it like in other programming languages. Try the following:

Dim oExcel As Object
Dim oWorkbooks As Object

set oExcel =...

I tested your code and don't seem to be having any issues with it... Could you upload the Excel file?

Another solution might be to create a userform which looks like you are composing an outlook message and have the textbox which contains the subject field disabled. Then you can use the values...

I think the only way your code could disappear if something in the merge is saving the file without any of the VBA properties... Can you create a second Document file and put your code there?

Wow what a great idea... I will have to use this in my own macros :) Cheers!

I have never seen it in Excel, other than when I am typing with caps lock on and I type "sOMETHING" it turns off caps and changes it to "Something". Outlook does it for sure just like Word when you...

Pete is asking you if the folder tree exists... for example, is the original file only in the C drive? Not in subfolders? If you have C:\Documents\MyPresentation\Slides\FileToCopy.txt then you must...

Once I insert a RefEdit control into a userform and compile the project the "Ref Edit Control" reference appears in the References window. The path of the file for me is:
C:\Program Files...

This site roughly explains what is going on with RefEdit. It is basically a control that you can use in a UserForm. If you aren't using one in your userform, it shouldn't be needed.

It might, from what I read alot of people had to try alot of different things, try restarting your computer as well and opening and closing excel with it checked. Also, try to put the .DLL in the...

When you have a space character, does it really return 2 space characters or just 1?

Oh my mistake, I thought it was the part of the stream you were saving to the file.

When you said "I g e t s o m e t h i n g..." Does it give you that exactly or "I __(2 spaces) g e t s o m e t h...

.SaveToFile myPath, 2

Have you tried using 1 instead of 2 here?

ThisWorkbook.SaveCopyAs "D:\MyFile\" & Mid(ThisWorkbook.FullName, 2)

Try including the slash. The folder will have to already exist (I'm pretty sure) for this to work.

I think OP means for each column to copy it into a new workbook.

Using the Copy/Paste method you can accomplish this. This will get you started, you will have to modify it for your needs:

...

If you scroll down thru the References menu (Tools -> References) is the Ref Edit Control there? All you may have to do is simply check the box.

EDIT: Also, try browsing thru the folder to see if...

Please use the HIGHLIGHT=vb tags aroud your code to make it readable for others.



I don't think I understand correctly, everything works fine until you get past 350 rows? In that case, try...

I haven't been able to do anything like that in the past... Can you display the email after it has been sent?

Are you referring to a table in Word?

Ok. Try this solution:


Private Sub UserForm_Initialize()

For i = 1 To 7

If Columns(i).Hidden = True Then Me.Controls("Col" & i & "Chk").Value = True

Next i

Maybe I'm not fully understanding, but I think it may be this simple.

Inside the Visual Basic Editor you have a Properties window on lower left hand side of the screen (If its not visible, go to...

Thanks for the reply!

Unfortunately I can't use that solution. My friends project requires him to use this feature of Access 2007. However, I was working on it late last night and finally found...

Hey everyone!

One of my friends at school asked me to help him with a project where he is taking an email from Outlook and importing data into access. I've pretty much got it all figured out and...

Dim Chart1 As Chart
Set Chart1 = ActiveSheet.ChartObjects.Add(0, 0, 300, 200).Chart


Try using this to fix the problem of creating in another Worksheet. The numbers in the .Add method are the...

AHAH! I figured out the problem with your code! R1C1 works fine...


ActiveCell.Address(, , xlR1C1)
You were returning the address of the activecell as a Row/Column ($A$1) instead of a R1C1...

I have never had success when trying to use the R1C1 notation for defining names... Does your solution require the use of R1C1 notation?

This works for me:

Sheets(1).Activate...

Here is something that might work...

EDIT: sorry made a few mistakes...

Dim i, FirstRow, LastRow as Long

FirstRow = 8 'Change this to wherever your data starts from.
LastRow...

Sorry, I haven't used hyperlinks before, I just got this to work though. Since the anchor is a Range you don't need the value, and the other two you are retreiving the values from the cell so you...

Have you tried putting a .value at the end of your Range statements? Like Range("B2").value?

Sorry for the late reply, I was away from my desk all day yesterday.

Here is the sample workbook. I know I could do this rather easily using VBA, however my boss wants this workbook to be...

Ok, I found a formula which works for me:

=IF(ISERROR(INDEX($F$2:$F$10,MATCH(I3,$F$2:$F$10,0),1)),I3,"")

This will give me what I want, however in the DropDown Box I still have blank cells even...

Hello once again everyone! It has been awhile since I've posted here.

I have attached a picture below so that all of this makes some sense.

What I am trying to do is create a tracking sheet to...

I am not sure that I completely understand what you want to acheive, do you want to change the color of the entire data series? Is there a specified color you want to change it to?

Try this code;
Sub clear()

Dim sc As SeriesCollection

For Each sc In Worksheets("thesheet").ChartObjects("theChart")

sc.Item.Delete

Next