I have a an excel workbook that is distributed on a flash drive. Currently a Save As Macro copies "A1" as the file name and then opens a screen to allows the user to save that filename to a location that the user selects. What I would like to have happen is for a command button to start a macro that would automatically save the file back to the flash drive that the master workbook is located.
View 3 RepliesI want to create and add-in that will allow a user to select a file (using the in built dialog boxes), the file will then be copied across the network to another server to which the user doesn't have access - I do have access so would hard code in the appropriate username and password in to the script.
The way I had done this before was to look through the users mapped drive to find a free one, map the network drive connecting as myself, save the file and then disconnect the drive.
I am able to map and disconnect the drive, but can't work out how to find an empty drive to use (thus preventing me from overwriting any mappings they may already have).
Excel 2002 SP3
When a file is currently open, and the user selects "Save as", it takes them to the files native directory. (Where it was last saved).
If the user has that same file open, opens another file from a different directory, goes back to the first file and selects "Save as", it takes them to the location where the last file was opened from.
Assume a workbook with some nice pictures.
How do I save all of those to D:TEMP on my Hard Disk ?
How to download the zip file from internet explorer and save it into c: using VBA codes.
I have tried many codes from the internet but none of them are working. i am facing problem for the popup box. the macro which i have found was not supporting to it.
Please find the source data from my web page.
[Code] ....
I am trying to have a number if >10 "Flash" and "Beep".
I can not get it to both.
The first code is in a "Module" and the second code is in the "Sheet Code".
Option Explicit
Sub Wait(tSecs As Single)
' Timer to create a pause
Dim sngSec As Single
sngSec = Timer + tSecs
Do While Timer < sngSec
DoEvents
Loop
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Target.Address "$A$1" Then Exit Sub
If Target.Value > 10 Then
For x = 1 To 5
when I am trying to open them. they are not opening. When opening excel with flash game, there is big black square box. When opening power point with flash game, it is giving error "Some controls on this presentation can't be activated. They might mot be registered on this computer"
Flash objects on by browser when surfing site are working perfectly fine. i have also re-installed fresh flash from adobe site, but no success.
I created a macro, assigned to a menu button, that selects and prints a range on the active sheet. I created the macro with the recorder, then edited it to eliminate the excess. When I run the macro, though, it takes up to ten seconds to print the page and the screen flashes repeatedly while it's running. I also noticed that the length of the delay and the number of flashes seems to be related to the number of lines of code, because the delay was much longer and the flashing more excessive before editing.
Sub PrintContrReview_Click()
ActiveSheet.PageSetup.PrintArea = "$Y$5:$Z$20"
With ActiveSheet.PageSetup
.LeftHeader = "&F"
.RightHeader = "&A &D"
.LeftMargin = Application.InchesToPoints(1.25)
.Zoom = 95
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
So what is the cause of the flash and the delay, and how do I eliminate them?
I have a command button that I want to appear to be flashing (by continually changing the button's font colour text) which a user can click at any time. I can (almost) do this now by using 'Application.Wait Now + TimeValue', but this doesn't allow the user to click the button until the code has finished running.
View 3 Replies View RelatedI would like the VBA code and use instruction, which will make any cell flash in a predetermined range of cells when certain conditions are met i.e. if cell value greater than 10 or less than 100 - usual condition formatting rules.
View 8 Replies View RelatedI'm working for monitoring report with macro , i have collected the details from database and displayed it second sheet of excel. i have put on conditions in macro like if particular cell value > 90 the cell will be display "Red" text and conditional formating will make background color as red. now i want to flash or blink the particular red colored cell continuously... if amber/green color it should not blink.
View 5 Replies View RelatedIs it possible to access data from flash content using excel?
The data I am looking for can be found by navigating to this link: [URL] ..., selecting one of the live games by clicking on the names of the teams, then clicking on the statistics tab on the next page.
The data I'm looking to extract is the shots data, i.e. shots on target, shots off target and shots on woodwork, plus the current score.
Is there a Vba method that will make a cell flash
View 9 Replies View RelatedWhat I want to achieve is for say if the value in cell A1 equals the value in cell B1, then cell A1 to flash a background colour (eg. red), and also play a sound. I assume this can only be achieved using VBA, of which I am not conversant with. I am searching the forum for answers, but not yet found one that addresses my problem exactly (being a complete VBA newbie). In the meantime if some could assist please or point me to a thread that addresses this query.
View 9 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
Private Sub CommandButton1_Click()
Call ShockwaveFlash1.SetVariable("testVar", "Message B")
'This sets the _ value of the variable in the Flash Project.
End Sub
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
Text1.Text = args
'this catches the action sent by Flash, and uses it in the TextBox.
End Sub
Private Sub UserForm_Activate()
Call ShockwaveFlash1.LoadMovie(0, CurDir + "/vbSample.swf")
'This loads the movie that was made into level 0 of the project.
End Sub
(I got from this link http://www.kirupa.com/developer/mx/flashvb.htm) As you can see I have adapted it to work in Excel 2007. Now - when i first run it - the flash file loads and shows in the userform. The only nag being that the .swf file doesnt pass the text into the textbox on the userform. But once i exit the Excel workbook and reload it - the .swf file doesnt show up at all no matter what i do.
How do you embed a flash file into excel 2003?
And is it userfriendly? For users to use the excel file, they must have flash software installed right?
How would I make a msgbox text flash/ blinks in VBA? Is there a way to make the msgbox flash/blinks as well?
View 1 Replies View RelatedI need vba code to flash the destination cells when hyperlink is clicked.......
View 3 Replies View RelatedCan I have text moving in a cell similar to a news flash.
View 3 Replies View RelatedI am busy writing projects and the macros that I write reference external files (no surprise there). Normally, all referenced files are on the company's main G: drive but recently the company have started the process of re-appraising all access authorities for the folders in the G: drive. This has necessitated that they create a new drive (called J:) and folders and users are being migrated over there as they have been cleaned and approved.
All of this means that some of my users reference J: and some G: and my macros are intermittently falling over because of it. For each user, all the files that they will need will be on either the J: or the G: drive, but not both.
All of the above leads me to ask the following question... How can I build into the macros a "Check what drive you're on and use that letter" line of code
Currently I am using this ......
View 9 Replies View RelatedI use the Hyperlink to open PDF files that are on the CD drive from my spreadsheet. I am on Windows XP and the CD drive is the D drive. In Vista the CD drive is the E drive.
When I take the spreadsheet to a Vista machine the link fails as there is no D drive.
Is there any to code the path of the Hyperlink so it will go to th default CD drive for that computer.
We have a form that is completed by our employees and emailed to a central group email address that up to 8 employees within our team can access. When one of our 8 team members open the file sent they need to add comments to it and then save it in a central directory on one of our network drives.
Now the problem I have is that we all have the network drive mapped to a different letter.
Is there a way that I can have a macro (see below for current macro that does not work) save to a network path and not a drive letter.
I have a program that relies on a remote drive being open and ready. My current tactic (which works perfectly well) is to have a file in the destination drive and ask the date that file was created. If an error occurs I know the destination drive is not ready.
Code:
On Error Resume Next
temp = FileDateTime(destDrive & "xDeletedStuff" & "testFile.txt")
If Err Then
MsgBox "Destination Drive / Folder Not Ready"
Exit Sub
End If
On Error GoTo 0
Idealy I would rather not use the "testFile" I would prefer to just test to see if the folder existed, "destDrive & "xDeletedStuff"
I have part of the code below and need to modify it so that others who only have C: instead of D: to use it
Filename = "D:TempBudgetMonthly.xls"
FileExists = (Dir(Filename) "")
If FileExists = False Then
msg = "The data file Monthly.xls does not exist !! Load the required file and run the report again !"
If MsgBox(msg, vbExclamation + vbOKCancel) = vbOK Then
End If
Exit Sub
End If
I need code to replace all D: to C: for the entire PROJECT not MODULE.
I am trying to get a excel to list all the file names in a drive along with date last modified, author and file size. I have got the following bit of code to pull back the file names, but i am struggling to find anything that will pull back the other data, I think its something to do with the DIR function, but im not sure........
Range("B1").Select
D = ActiveCell
Cells(2, 1) = "Filenames"
r = 3
f = Dir(D, 7)
Do While f ""
Cells(r, 1) = f
r = r + 1
f = Dir
Loop
End Sub
where "B1" is the file path of the drive
I was just viewing the VBA to "get a hard drive serial" and would like to know how I can make the serial appear in a cell?
Sub SerialNumber()
Dim oFSO As Object
Dim drive As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set drive = oFSO.GetDrive("C:")
MsgBox drive.SerialNumber
Set oFSO = Nothing
Set drive = Nothing
'release memory
End Sub
I am trying to get the user to choose which disc the file structure should be stored in. Is it posible to get a dialog box which contains all the disc drives? I tried using the GetOpenFileDialog, but it seems I must choose a file. I must only choose Disc Drive.
View 5 Replies View RelatedI need to know how to read a filename from my local drive c: ? for example in my local drive i have some 100 files, i need to pick there filename, date and time stamp .. etc.
View 7 Replies View Related