I am trying to create a program that will allow the user to browse for an excel worksheet and execute a macro that will format the worksheet with a click of a button.
Here is an image of what I want the template to look like:
Picture 2.jpg
Now I need to know what language I should use and the codes to make it run.
The intent of the code below is to run the marco HideCol when a change is made in cell C10. If I actually change the value in C10 it works. However, I have C10 linked to another worksheet (=anotherpage!A13). When the value changes, my macro is not executing.
Here is the code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim changed As Range
Set changed = Range("C10")
If Not Intersect(Target, changed) Is Nothing Then
HideCol
End If
End Sub
I've got a worksheet_selectionchange macro on a sheet, and another macro that you can run after it. The issue is that when the second macro runs, it also runs the selectionchange macro, and wipes some of the info that the second macro should be copying.
Is there a piece of code that I can use in the second macro to block the selectionchance code from running until it's compelte?
I have looked in books and online and can't seem to locate how to create a macro that opens a browse function. From Excel I would like to click a button to start a macro and have that macro prompt me where to browse for the file. There is a lot of other code that will go after this step (which I already have), so once I click to "open" a file I want the macro to continue.
View 6 Replies View RelatedCan you run 2 modules at the same time on the same worksheet.
View 2 Replies View RelatedI have a PO Template, which I use it to issue Purchase Order and keep track on monthly purchases.
This PO template allow me generate a fresh PO with feature of auto "Name" which is the running number for the PO.
However, i have a problem to generate the reference number in the sequence which tirelessly seach a way to work this out.
Below is my current code, as i tried to set my statting code say "87500", the next incremental number just dont generate according to it sequence..
Code:
Sub AddSheet()
Dim strName As String
Dim intNum As Integer, intLastNum As Integer
Dim wsh As Worksheet
Dim lngRow
For Each wsh In Worksheets
[Code]....
Sub SplitOut()
Dim DataSH As Worksheet, OutSH As Worksheet
Set DataSH = Sheets("Input")
DataSH.Activate
lastrow = Cells(Rows.Count, "D").End(xlUp).Row
For Each ce In Range("D2:D" & lastrow)
Application.StatusBar = "Actioning " & ce.Row & " of " & lastrow.............
I am working on this spreadsheet that has a lot of information that will only get bigger as time goes on. I would like to organize the contents of one column into separate spreadsheets. So if I have "stacking" in one cell of that column, the whole row associated with that cell will go to a new spreadsheet labeled "stacking".
I have attached the sheet. I would like column D (Type_Code) to be organized by the words in that column. So I would have 5 or so worksheets labeled stacking, cartoner, wheel, inspection, etc. The data here is input by a machine.
Running Two Worksheet Change Scripts Gives Error
I need to run two VBA scripts on the sheet1 tab:
Here in our department we made a pretty elaborate macro that takes a report and sorts them out to 17 different sheets in a one workbook. This Macro pulls a file from a specific location on our server and then opens the CSV sorts it out color codes all the important information and saves it back onto the server under you specific initials.
They are four PC's along with our Managers laptop that run this Macro daily.
About 3 weeks ago my Managers laptop stops running the Macro completely and hangs in the middle of the whole thing. Eventually crashing Excel.
We try to remove the modules and re-import them back into the personal macro workbork but this does not work. The Macro's did not change and still fully function on the other four desktops to this day.
I uninstall Office on my Managers laptop and reinstall. Import the Modules again and still hangs up in very same spot it did 3 weeks ago.
I've tried to lower the macro security to the lowest level also and I've still had no luck with this laptop. I don't understand. The Macro's function perfectly on other PC's but will not function on this laptop.
I have a Sheet sheet1 and I want to run a macro when the cell D2 in Sheet1 is equal to 10,7,5,and 3. I only want this macro to run when those values are reached the macro then puts the data onto a sheet called wps. The macro is run as a module and is a sub macro.
I am encountering a problem with worksheets.copy that occurs after the copy method is called a certain amount of times. My issue is similar (exactly the same?) to what is described in these threads:
- Worksheet Copy: Method 'Copy' of Object 'Worksheet' Failed
- Copy Method of Worksheet Class Failed in Loop Code
In my case, after running this code 40 times, it fails.
If loc_after Is Nothing Then
.COPY after:=Worksheets(sht_name_orig) 'throws error here after being called 40 times
Else
.COPY after:=loc_after
End If
I would like this code to be able to run more than 40 times. I have read Dave's suggested solution regarding creating a worksheet template:
http://www.ozgrid.com/Excel/excel-wo...-templates.htm
However, in my situation the client has specifically asked that the report come as a single stand alone excel file with no add ins. In addition, I am copying several different worksheets, not just one single template that is being used over and over.
I have created a browse button in excel and assigned a macro which will ask the user for folder. I figured it out for windows using Windows API Functions as mentioned at http://www.cpearson.com/excel/BrowseFolder.htm. However cannot get it to work for a Mac.
View 2 Replies View RelatedI have created a software on a userform and have copied contents of this userform to worksheet cells. However when I run it for the first time everything works and all contents goes in C4 - C8. However when I run it for the second time the contents in C4 - C8 deletes itself and new data appear i.e. the cells are overwritten.
In cell C3 i have the date and I have managed to put this date in the next empty column everytime the software is run. I do not understand why the dates can go to the next empty column without it being over written but cells C4 - C8 cant!
Upon clicking a button in a userform, I would like a MsgBox to appear, allowing the user to browse their file directory.
Upon selecting a folder in the file directory, a new excel workbook is created with the filepath chosen and named based on a previous MsgBox (which ive already accomplished), and the filepath is recorded in a cell on Thisworkbook.
Is this possible and if so how?
send automaticaly, or it waits until user will push button send or brows to attach the file.
In all given samples it says: “If you use Microsoft Outlook”. I know that any office has Outlook. Is it impossible to make Outlook usable with macro and then send an e-mail?
Is there a way to incorporate a prompt that allows the user to browse a folder. The code I am using is below but 'myDir' will change each month.
Sub CombineWorkbooks()
Dim myDir As String, fn As String
Dim WSName As String
Dim WB As Excel.Workbook
WSName = "Summary"
On Error Goto Nxt
'turn off screen refresh for speed
Application.DisplayAlerts = False
Application. ScreenUpdating = False
myDir = "C:Users\DocumentsUsersWendyNew Folder"
fn = Dir(myDir & "*.xls")
I inherited a spreadsheet to manage that is linked to a SharePoint table.
It is trying to populate a date that a certain "Tier" is selected (1, 2, 3, or 4).
It works great if I manually type in the tiers, but does not run on existing data (about 400 records) or lines that are updated and new via the SharePoint list.
How can I have this run on all of the existing lines and anything added or changed in the future from the list?
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("AD2:AD10000")) Is Nothing Then
Application.EnableEvents = False
[Code] ....
I do not know if I have this written correctly, I would like to have the sub - Retro run whenever some one opens this worksheet - "FORM". The retro is also suppose to test cell H12 to see if it is blank before running the msgbox.
View 2 Replies View RelatedDoes 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'm in the process of building a user form that required the user to brows for a file, the path of the file that they select is then displayed in the textbox next to the "browse" button in my form. I also have another button next to this which when selected will open the file that is displayed in the textbox previously mentioned.
I’ve been trying the shell command but with no success, I can get the user form to open adobe reader but whenever I try to include that file path for which to open the file I keep getting runtime errors,
Below are a couple of examples that I’ve tried (you'll prob be able to guess from the code that I’m very new to VB in excel).
For additional info the value in the textbox would be something like, "H:My DocumentsPDF Filesmyfile.pdf"
Dim GetFile As String
Shell "C:Program FilesAdobeReader 8.0ReaderAcroRd32.exe", vbNormalFocus
'this opens adobe reader but I'm trying to open a specific file
Shell "C:Program FilesAdobeReader 8.0ReaderAcroRd32.exe" & textbox9.value, vbNormalFocus
This produces the runtime error again
Dim GetFile As String
GetFile = TextBox9.Value
Shell "C:Program FilesAdobeReader 8.0ReaderAcroRd32.exe" & GetFile, vbNormalFocus
'this produced a runtime error - to be honest this was an attempt born out of frustration.
I Have Inspection Reports To Do
And They Come In With One Big Text Srting
I Haveused Formuee To Seperate Them And A Macro To Put Them On Seperate Sheets.but...
I Want To Insert A Picture (for More Indepth Reports)
Rather Than Inserting A Picture Can I Do A Macro That When It Is Run It Opens Up A Browser, Similar To The One In Insert Picture And Then Insert A Picture After The Bottom Cell And Resize It So It Will Be The Same Every Time? But At The Bottom Of The Last Line Of Data.
I am trying to attach an Excel file to a post. I found the following in FAQ: "To attach a file to a new post, simply click the [Browse] button at the bottom of the post composition page, and locate the file that you want to attach from your local hard drive" But I cannot find the [Browse] button. I should have said "to attach a file" not "to attach a post" in the header.
View 2 Replies View RelatedI am trying to code where when someone hits the command button it will popup with the browse form and they find the location of the file and it puts there choice in a cell. don't know if it matters but the location would always be a picture. Here is what I have but it shows -1 in the cell
HTML Dim strFilePath As Variant
strFilePath = Application.FileDialog(msoFileDialogFolderPicker).Show
shUserInformation.Range("D12").Value = strFilePath
I am using Excel 2010.
I found code from the internet attributed to Bob Phillips for VBA to have a dialog box pop up and allow the user to select what worksheet to navigate to.
The code works well except it doesn't exclude hidden or very hidden worksheets.
Code:
Sub BrowseSheets()
Const nPerColumn As Long = 38 'number of items per column
Const nWidth As Long = 13 'width of each letter
Const nHeight As Long = 18 'height of each row
Const sID As String = "___SheetGoto" 'name of dialog sheet
Const kCaption As String = " Select worksheet to goto"
'dialog caption
[Code]....
I know there is the line of "If Sheets(i).Visible And i Mod nPerColumn = 1 Then..." but it still allows all sheets to show up in the dialog box.
How it can be modified to include visible sheets only?
Is it possible to use a Form control which choose a folder/file in a specific location (Ie: Browse button)?
Currently I put the location details in a textbox.
I found some code that works well to index a folder and all sub-folders for file names.
The issue is that the folder used is coded in an excel spreadsheet (cell C7) in the below code and whether to look in sub-folders (cell C8 - True or False).
Code:
Sub ListFiles()
iRow = 11
Call ListMyFiles(Range("C7"), Range("C8"))
[Code]....
I have tried to incorporate the browse for folder and select if sub-folders are used, but it isn't working.
I am using the following coding on my s/sheet at the moment...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False
For Each r In Target
If Trim(Len(r.Value)) = 1 Then r.Value = UCase(r.Value)
Next
Application.EnableEvents = True
If Selection.Count = 1 Then
If Target.Row > 3 And Target.Column > 14 And Target.Column < 19 And Target.Value = "Y" Then
MY_LINK = InputBox("As you have entered 'Y' into this cell, please provide a link to the document. If there are no documents available for linking, please click cancel and change the value of the cell to 'N'.", "Document Link Request")
ActiveSheet.Hyperlinks.Add Anchor:=Range(Target.Address), Address:=MY_LINK
End If
End If
End Sub
The top code is to change all singular small letters to caps... and the second is to bring up an "enter hyperlink" box when "Y" is typed into a particular cell...
Can anyone edit this 2nd code to include a "browse" button, so that when entering the hyperlink, it can be to a file on the computer?
I have done a search in the forum, and there are many results on browsing directory and opening files, but they are not what I have in mind.
What I have is different folders for different months (e.g. “January”, “February’, “March” and so on), and in each folder I have the same file names (e.g., in “January” folder, I have files called A, B, C. In “February”, I also have files A, B, C but these are different from the files in other folders)
Basically I need a macro which can open a specific list of files.
So first step, the user should be able to browse the directory, then select a folder (no need to open, not sure if it makes any difference though). I need the user to be able to select different folders because the macro should work for the different months in different years.
For this, I have found this
Function GetFolderPath() As String
Dim oShell As Object
Set oShell = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please select folder", 0, "c:\")
If Not oShell Is Nothing Then
GetFolderPath = oShell.Items.Item.Path
Else
GetFolderPath = vbNullString
End If
Set oShell = Nothing
End Function...........
Can i run a macro by just the pointer going over it.
View 9 Replies View RelatedI'm having some trouble showing a messagebox if the user presses OK but doesn't select a folder using msoFileDialogFolderPicker.
[Code] .....
The 2 MsgBox's I've added show the same string, yet the If Not InStr line returns true regardless if ":" is in the string or not.