VBA, Insert File Name Into Input Box
Mar 25, 2004Iam using the following code kindly supplied by "Tactps" to display an "input box" in which the the file name is entered....
View 9 RepliesIam using the following code kindly supplied by "Tactps" to display an "input box" in which the the file name is entered....
View 9 RepliesI have a macro that takes a text file as input and produces an excel file as output. I want a macro to store the name of the text file in a variable (without its file extension).
View 1 Replies View RelatedBelow is the current code I have for File Copy before the workbook closes. This file will be distributed all over and obviously will not have the same old path and new path locations as I have in my code also will not have the same file name. Is there anyway to still perform the file copy without knowing the old path and file name and possibly have message box pop up to ask the copy to location and use that in the new path string?
Sub Macro1()
Dim fs As Object
Dim oldPath As String, newPath As String
oldPath = "I:EXLDATAMC Daily" '<---Where the file is currently located
newPath = "H:South RegionOrlando Mail Services2008DI" 'Since the super shared drive is super slow we will just copy and replace this file each time before we close and of course after we save
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile oldPath & "" & "OrlandoMail.xls", newPath & "" & "OrlandoMail.xls"
Set fs = Nothing
End Sub
getting full file path from selected input file?
I have a macro with text box and browse button.
User can click on browse button and it will allow them to select only text files.
Now for further processing I need to get the file path and file name in 2 different variables.
Like if user selected C:/Temp/Test.txt
Variable 1 should have C:/Temp
Varialble 2 should have Test.txt
I have managed to write a macro that almost does what I require, but it inserts the copied row at the end and I want it to insert before the row it's just copied. Any ideas how I can modify the code to do this?
when I link cells from one file to another and insert a new line on the file I am linking to. the file that is linking goes down as follows:
=Safety.xls!$A$5
=Safety.xls!$A$6
How do I get Cell A5, to link to Cell A5 even if I add a new line in the Safety.xls spreadsheet. Taking the $ away does not work I have tried that.
I have an excel sheet that I've automated for my shop ... Basically it copies a set of rows from one sheet, asks for which cell you want to start the paste at, then pastes it... Here's what I have so far:
[Code] .....
So I tried to use a variation of strReturn to indicate number of rows wanted but that didn't work ... Basically I'm going to create the "data" to include 50 rows, but have it selectable for the user to say they only want 5, 7 or 29 rows ...
when a cell in column "K" is clicked, an input box gives the user the choice of entering a number between 1 and 12. That value then inserts row(s) based on input value ..
View 6 Replies View RelatedI have a spreadsheet that I use throughout the day and have to send an email to another person when a customer makes a payment. The number of products they pay for will be different each time and I have the code to copy the right cells into an email and the code to insert the right number of rows for how many things the customer is paying for however as I use it multiple times through the day, I need the code to insert the right number of rows, copy it over to the email then automatically delete the rows it has just inserted so it is back to basics so I can use it again.
The code I have for the inserting the rows (from searching through forums) is:
Sub PRows()
Dim NextRow As Long
Dim NrOfCopies As Long
Dim i As Long
Const NrOfCopiesDefault = 1
Const NrOfCopiesMaximum = 9
[code]....
I am designing a from with a variable number of titles. The user should be able to insert a title into a column by typing in the title that he wants into a text box, and pressing a command button that I have created ( named add). The problem arises when I try to get the text to lie vertically as opposed to horizontally (in the cell, not as a text box. If this can only be done as a textbox, let me know). Is there any way to do this?
View 5 Replies View RelatedI have been able to make a excel sheet which takes inputs from userform for First Name, Last Name, Address etc. I have included a duplicate check for column "B" for "First Name". This checks if any existing data is already which matches the new data input for "First Name" through userform.
The userform only checks for the "First Name" check as required and gives a message that duplicate has been found. Then I have to close the userform and do a Control Key+F ( to find the new name for example, James) in excel sheet and validate that new name is same or different from existing name "James". This I want to do since this new name "James" may be another "James" as his "Last Name" is different. So even though First Name is same, since Last Name is different I know they are two different persons. In that case I will add the entry manually in sheet, instead of userform, since I would not be able to input the new data for "James" since the duplicate check with the current code will not allow me to do so.
What I am current trying is -
1. If the new name say "James" is entered through userform, then excel should point me to the existing row where the record for existing name "James" is there, say row 4.
2. Now without closing userform I should be able to see in the background excel sheet the search results for "James", as excel is pointing to that now. There may be multiple "James" in the existing which should be pointed out.
3. Based on the results that I see in the background excel sheet I can now decide that, this new name "James" is different from old "James" (of row 4) since his Last Name is different. Accordingly excel code should then ask me to add this record or discard this new record.
4. Duplicate check for First Name is enough for me. I would not require "Last Name" duplicate check.
I hope I have been able to explain my problem. I have also attached my current code as I am not able to attach any sample test file.
Code:
Private Sub cmdCancel_Click()
Unload Me
End Sub
[Code]....
I am trying to prompt excel to ask for a date if a cell C3 is empty. And then I am trying to place the value entered into cell C3. my code is as follows:
View 4 Replies View RelatedI am using this code for 2nd coping my file and rename it automatically......
[Code] .....
I want when i want another copy always my path should be "C: estabc.xlsm"
and
For new file in same path "C: estdef.xlsm" an input box ask for the name("def.xlsm") "what new name u want for this new file".
And I input the new name for my file and done.
If the three letter code (in the second field) matches one in the range,
I'd like to input the company name into the cell beside it. I'm trying to import a list such as this:
3D OIL LIMIT,TDO,Energy
3D RESOURCES,DDD,Materi
3Q HOLDINGS ,TQH,Softwa
4C SECURITY ,FCS,Techno
A-CAP RESOUR,ACB,Materi
A.B.C. LEARN,ABS,Consum
A1 MINERALS ,AAM,Materi
AAQ HOLDINGS,AAQ,Food B
etc...........
Does VBA support any type of "browse for file" interface? I'm thinking something similar to an inputbox, but instead it gives you the standard looking windows explorer window to find a file (think adding an attachment in outlook).
The function would return a string.
I am looking for some macro code to create an Input box which will prompt the user to enter a specific date (not todays date so NOW function is not appropriate). This will in turn cause the file to be saved in a specific folder with the date becoming the name of the saved file.
I am getting an Input Past End Of File Error with the following macro.
Sub print_file_content()
'select cells to be process in col A
Dim I%, strTxt$, OpenTxt As Object, FSO As Object, myFile, myFolder, LR&, Arr, fPath$
[Code].......
I want to do is prompt the user for an Excel file and then insert it as a new worksheet as sheet 2. Also, if possible I would like the imported file to insert to the right of sheet 1. Anyone know how to do this or at least know some parts of this problem.
View 9 Replies View RelatedGot a slight problem; I am making a "worker-plan", where you should be able to write a name on one file and have it updated (removed) from the equivalent columns on another file automatically. Here's an example with two separate projects:
Project 1 before and after changes:
Attachment 257366
Attachment 257367
Project 2 before and after changes:
Attachment 257368
Attachment 257369
You can see here how I intended it to work. When one worker is moved from Project 1 to Project 2, that worker should also be removed from those weeks in Project 1. The previous worker from Project 2 should also be removed from those weeks (in Project 2).
Are there any formulas that can make this work automatically? All week numbers will belong to the same columns in all files.
Edit: There are 30 files that should be syncronized, not just two.. I could also gather all files into one file with sheets, instead of having seperate files.
I am putting together a price list in excel and using images and hyperlinks to jazz it up a bit - what I am finding is that if I insert a 25KB GIF image, the excel file grows in size by over 100KB
why is this disproportionate growth happening and is there a way around it - I dont want my Price List growing too large but need the images....?
I read in a txt file with the code below. There's some kind of special character in the last 3 lines of the input file that makes the macro crash. I don't need anything in those 3 rows. How can I delete them before my Do Until loop?
-----
Sub Mytxt()
Dim Mytxt As String
Mytxt = Application.GetOpenFilename(FileFilter:="EXCEL files (*.txt),*.txt", Title:="Open the Report file you need")
If Mytxt = "" Then Exit Sub
Workbooks.Open Filename:=Mytxt
Open Mytxt For Input As #1
i = 1
Do Until (EOF(1) = True)
Line Input #1, tempstr
Cells(i, 1) = Mid(tempstr, 23, 5)
Cells(i, 2) = Mid(tempstr, 25, 1)
Cells(i, 3) = Mid(tempstr, 33, 3)
i = i + 1
Loop
Close 1
End Sub
My table is the equation of time (EoT) (sundialist's jargon). It shows each day of the year if the sun is running fast or slow according to the clock. I need to make (on another page of that file) where I input the month and date. It will then till me the time it is fast or slow
View 5 Replies View RelatedI want a macro. when i run this macro pop up a input box and ask for copy of master copy and asked for rename the file...
E.g. I have a master file in "z:42766decmasterfile.xlsm
When I click macro then macro do a copy of masterfile and rename it according to choice...
I'm trying to insert a hyperlink to another excel file such that when you click on the link it opens that file up... When i go to insert a hyperlink and i select the file.. when i click on the file it says "the adress of this site is not valid. Check the address and try again" The file is on another drive on the server and i was wondering what the restrictions are in terms of where the files have to be in relativity to each other
View 4 Replies View RelatedI want to insert image on my userform, but I have problems with It. Image is originally .png and has no background, which is what I need.
Excel doesn't allow me to use .png, so I had to convert It to .jpg, but then background is included. Even that would be o.k., If I could somehow change picture background to "&H8000000F&" system colour, but failed to do that also.
So I tried with converting file to .ico, and again Excel recognizes It as invalid picture.
I just want to insert image, and leave background same colour as Userform.
I had copied a macro from this forum [it was posted by either shg or NBVC], and I modified it to fit my needs. The macro creates a new word document and sends a series of cells from an excel worksheet column to this word file. Everything works fine, but now I need to insert a picture after row 14. I have inserted the code [colored red], but I am sure the syntax or something isn't right. That part doesn't work.
View 2 Replies View RelatedCan it be done? Example posted. How was the SWF file inserted into Excel?
Link to the file is at: http://www.onlinebookforsale.com/swfinexcel.xls
I want to insert linked AutoCAD files into a worksheet.
When I select "Insert, Object, Create From File, Browse..." & select AutoCAD file I get error message "Cannot insert object"
I can follow same process, but with a Solidworks drawing & it works fine.
I need to install the relevant graphics filter "Dxfimp32.flt", but I can't find it anywhere.
Strangley, if I copy images directly from AutoCAD screen, I'm able to paste them into a worksheet, but as an embedded object. Whilst this suggests I have some AutoCAD graphics ability, I still can't insert a linked file.
I have the following macro that imports data from several input files and rearranges it in a master file.I want to change it so that I can use it in each of the input files. Therefore, it should look in the input file for Spreadsheet "XYZ" and rearrange it in Spreadsheet "Data".
[Code].....
I am making one project in excel where I want to add time zone converter Or time zone search in engine in excel for that purpose I have create one portable software for time conversion but I am unable to add or insert or embed it in excel as it is an exe file.
I have attached one winzip file that is carrying Age Calculator in it so that you can have a brief understanding about how does the portable software looks like, age calculator is a portable software as it does not need installation & it works as we run it. I am also attaching excel demo file with it by the name ""time zone", its rough simulacrum of my original project file.
Attached Files
Age_Calculator_v2.zip
time zone.xlsx