These reports are always located in a subfolder defined as "D:DropboxWorkVerification Reportslocation name" where location name is the name that I want to use to save the workbook.
So as an example an excel workbook report generated in the folder:
"D:DropboxWorkVerification Reports!Test"
Would be saved as "!AirCheck AutoTest Report - !Test.xls"
or a report in the folder:
"D:DropboxWorkVerification ReportsHoliday Inn Surfside"
would be saved as: "!AirCheck AutoTest Report -Holiday Inn Surfside.xls"
Right now the code I guessed on isn't working and its generating an error on compile "Can't assign to read-only property".
In cell A1 I have the text 20. Black Angel Blues (Sweet Black Angel) - Nighthawk, Robert
In cell B2 I would like all of the text from the period/full stop after '20' until the - hyphen character
In cell C2 I would like the text after the hypen, but if as in this case there is a surname followed by a first name I would like them rearranged so that the full name is shown first name followed surname without a comma.
where the right alpha characters always count two.
I need the left number as a Double and the right two characters as String (or ?) to compare with Array("mn","da","yr") etc to determine the index I don't know how to write the code.
I have a comment that I'm putting into a variable for the purpose of obtaining the persons name.
Cell C3 (in this example) just contains their employee number, but it's comment contains...
Tech ID: 123456 Name: John Doe
The Tech ID is variable from 3 chars to 6 chars and obviously the name is size is also variable. The end result will be a variable with just the persons first and last name extracted from the comment.
Code: Dim mycmt As String Dim techname As String mycmt = Sheets("tech").Cells(3, "C").Comment.Text techname = Right(mycmt, BIG-OLE-BALL-OF-CONFUSION) MsgBox techname
My 2nd question. This is the 3rd time in recent days that I've needed a partial string and Mid, Left, Right, Len, Find just boggles my mind.
I have a list of 3000 strings, all in seperate cells, in a column.
Within each string, are ( say 13 ) letters ( for convience) "A" through to "M" which are of interest to me
The 'letters' of interest occur either once or twice , or none within the individual strings. When a 'letter' of interest occurs within a string , putting a marker in a column on the same row is sufficient.
Using vba, I have extracted the cases where 2 'letters' exist within the strings, by using 3 nested FOR NEXT loops, with an IF test in the middle of
If (InStr(Cells(i, 2).Value, IndexLetter#1) > 0) and (InStr(Cells(i, 2).Value, IndexLetter#2) > 0)Then and then put my marker in cells(i,3)
where : IndexLetter#1 is set in the outermost of the FOR NEXT loops as one of the 'letters' of interest, and similarly IndexLetter#2 is set on the next inner of the FOR NEXT loop . The inner most FOR NEXT loop ( i ) is the list of 3000 strings
I want to put a marker next to the string , when only ONE of the 'letters' is present in the string AND NONE OF THE OTHERS
I recorder a macro while extracting a text file into a workbook. I had chosen delimited format and OtherChar as "|". Along with these i have also chosen the first field format as text
But where is the text format chossing portion in the below recorder code? i am able to figure out only the delimited and OtherChar part
By Code I am trying to SaveAs the present Workbook : Only in the same directory as the present Workbook- but with a different file name. The new file name would be :"the Filename of the Active Workbook" + " ("D9") of the Sheet("ADMIN")". This macro will only be run from the Sheet("Admin").
I'm using a VBscript that will copy a worksheet and it works perfectly except that it saves the copy to the same directory as the original workbook. I need it to save to a different directory.
What I believe is the pertinent part of the code that needs adjusting is:
"Input box to name new file NewName = InputBox("Please Specify the name of your new workbook", "New Copy")
' Save it with the NewName and in the same directory as original ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "" & NewName & ".xls" ActiveWorkbook.Close SaveChanges:=False "
How would this be changed to specify that "NewName.xls" be saved to: D:/newdirectory/copies
I think my code is close but I keep getting an error "Run-time error '1004': Application-defined or object-defined error"
I am trying to rename the active workbook by appending yesterday's date onto the filename, using the Save As.
I might be going about this all wrong anyway. My user needs the macro to save, rename, and close the renamed copy of the workbook but to leave the original workbook open. I'm trying to do it in steps so I might be doing this the hard way. However, my code to Save As is below:
Sub SaveAsRename()
Dim CurrentPath As String Dim CurrentFileName As String Dim NewFileName As String Dim Today As Date
I already have a macro that on opening the workbook checks to see if the workbook has been renamed outside excel in windows and if so closes the workbook. I need a macro to intercept the save as command and prevent the user from saving the workbook as another name. I would however still like the user to be able to save. I would also like them to be able to save the workbook in another directory but only with the same workbook name.
I have the following Macro that I run assigned to a Button.
Sub AskAndDo() If MsgBox("Have you Finished collecting data ?", vbYesNo + vbQuestion) = vbNo Then Exit Sub Else If MsgBox("Have you Printed the Reports ?", vbYesNo + vbQuestion) = vbNo Then Exit Sub Else ActiveWorkbook.SaveAs Filename:="\gamingntcompanyFLOAT MASTERFloat_Sheet_" & Format(Date, "_YY_MM_DD") End If End If Application.Quit End Sub.......
I have an Excel Worksheet (let's call it "AA.xlsm") which uses VBA code to loop through column A, update column B with some results/values, and then (for each value in column A) SaveAs the worksheet into a different filename/path as a ".csv" type file.
My line of code for the SaveAs is as follows: Workbooks("AA.xlsm").SaveAs LEpath & CurrFldr, FileFormat:=xlCSV
My problem is that my original worksheet, AA.xlsm, gets closed whereas I need it to stay open/active after each SaveAs iteration.
I want to add hyperlinks to certain cells using drag and drop. I've got a userform with a toolbar that I use as a drop zone for files (called tbDrop). In the userform, below the dropzone is a label called "label2"
The dragging and dropping works as a charm, label2 shows me the file location and adds it as a hyperlink to the cell.
However, when I click the hyperlink the file can't be opened.
I've used the result string, added it manually as a hyperlink and recorded it. That worked, but i saw no difference in the recorded macro.
VB: Private Sub tbDrop_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Label2.Caption = "" Dim a As String
I'm trying to check to see if a file exists using VBA but the routines I see use a string that has the path and then the file name. I have a fixed path C:VBtesting and the a variable file name. I'm using a file name that consists of a username & date such as cwilliams201212. I'm having problems getting the variable file name into the string.
I wrote some code which has compiled a LOT of text files telling me what computers have licence for certain software.
The name of the txt file is the computer name and data within is simple: -------------------- Audit of GQL license Audit of Visio license Audit of Frontpage license Audit of Project license Audit of Visual .NET license Audit of Word (Office) licenses Found Office -------------------- as we can see here this computer has 1 licence for OFFICE. If the string "FOUND" is found then i want to be able to paste the licence name in a spreadsheet and in the next cell underneath paste the filename it was found in the e.g.
VISIO comp1,comp2,comp3,comp4
WORD Comp2, comp3, comp4, comp5....and so on......
I've got a host of files within a host of directories, e.g:
c:ContractsJim BobJim Bob Site.xls c:ContractsJane JonesJane Jones Place.xls c:ContractsJeremy HillsHills House Lvl 1.xls
I'm working in VBA to try to extract the site name from the file string. Unfortunately there is no other reliable location where I can find an accurate name of the site, so it needs to be taken from the second subdirectory. So I'm using the following code to get the file location:
Sub FilePicker(fileToOpen As String) ChDrive "C:" ChDir "C:Contracts" fileToOpen = Application. GetOpenFilename(FileFilter:="PPM Files (*.xls),_ *.xls", Title:="Select a PPM Scope File", MultiSelect:=False) End Sub
This returns a string along the lines of "c:ContractsJeremy HillsHills House Lvl 1.xls". From this string, I need to isolate the string "Jeremy Hills".
I have an excel file with a large list of data in the following format, all the data is in the A column –
Mar 11: category one – process number one (1) Mar 11: category two – process number two (2) Mar 11: category three – process number three (3) Mar 11: category four – process number four (4) Mar 11: category five – process number five (5)
I would like to extract from the list, ONLY the data highlighted in red i.e. the process number data –
Mar 11: category one – process number one (1) Mar 11: category two – process number two (2) Mar 11: category three – process number three (3) Mar 11: category four – process number four (4) Mar 11: category five – process number five (5)
i'm struggling with a formula to extract the folder names from a file path string i have in col A. I want to take the path value and for each "node" in the path place that string value in cols
Example string: "pathfolder01subfolder2folder level 3level 4 folderanother folder for 5sublevel 06 folder" In my example there are 6 folder levels in the path. I want a formula to "strip out" each level of the path string and put it in a seperate column.
Using the same file you posted we just need column list; when we press ctrl+z the box should come up and have only columns list showing up and buttons like "select all", reset, and cancel should be present.
In this column list all the column headers should be shown under the column list and the interface box(ctrl+z) should be movable like you have already done in the last post
The other condition is that if any new columns gets added anywhere in the first row of the sheet the user interface(ctrl+z box) should show it in column list so when selected it can be extracted to the output file.
In short every thing is similar to the previous file samplecopy v6.1.xlsm you posted but this time only column list is required and all the column headers under it and remove the note which is applicable to previous query.
Extracting a list from a webpage. I am using the following VBA code below. I've attached the worksheet to which it corresponds. This is the webpage I'm trying to pull from: [URL]
My problem is the website divides up all of the records in sets of 50 on different pages but uses the same URL. Therefore, my VBA code will only bring back the first 50 records for each group I am trying to extract. Do you know how to pull all of the records for each URL?
I just wanted to ask whether the same code will work for many more sheets or will modification be needed? I have a very basic understanding of vba loops, so plz tell me did you check the entire row for being blank or specific cells? Im attaching a file which more closely resembles the data i work with, just tell me whether the previous macro called "ravi" will work fine or will it require modification.
There are websites available for data, but what is viable and crucial to me is finding a way to
1) Run a repeated process via a macro / vba script to allow for data input into the site 2) Once input into site, data is to be brought back into excel so that I can benchmark my product pricing vs my competition
There are 2 sites I am most interested in getting this information from specifically and although they do the same thing they have a couple of unique pros to them. they are the following
1) Findchips.com 2) eciaauthorized.com
The biggest pro to findchips.com is that they have a beta tool on their site that allows for "mass searches" to be performed as opposed to 1 part number at a time. Up to 100 results can be returned at a time, so although there would be multiple iterations doing it this way would save processing power as each step is not done line by line (p/n by p/n) as i could group them and send them and perform the operations that way.
This table has one column with people's names, other columns with different things, and one with hours.
The figures will change every month, and my dad doesn't know crap about excel, so anything that he has to go put in equations or sort again every month or whatever, is not going to work. it needs to be so that all he has to do is plug in numbers.
It can be either one or two ways: either I need to pull out all the rows that have hours above a certain amount, and have them sitting to the side/under/above the main table in the same worksheet.
I realize that that may involve a long complicated formula, however.
Alternatively, we can have it so that all the rows with hours above a certain number are color coded at located at the top of the main table. I figured that one out with ease, HOWEVER I don't how to make that automatic, so that it does it by itself when the numbers are plugged in each month. My dad would not be able to handle sorting.
I need the hours that =0 color coded and put at the bottom if possible, it's not absolutely necessary, however. I could not figure out how to put the highest hours on top and the hours equaling 0 at the bottom, considering that all rowsthat fall in between need to be kept in alphabetical order.
Is there a way too get the SaveAs box come up with a marco? When you go too file and save, a box comes up and lets you choose where and what you save. I would like too have it come up with a command button if its possible.