Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










Run Macro In Closed File At Same Time Each Day


i know there is information on this ontime method, i haev read through it, but since i am working with reuters running live in the background they just dont work.
Anyway, on a normal excel sheet, I have made the automated macros run on a timer, which is great. BUT If someone switches off my pc, its not going to be so great because i dont think the macro would run without excel being open.

QUESTION:
How can i make my macro run every morning at 8am? Assuming the worksheet is closed, even excel is closed. i am sure the answer is starring me in the face, i am just getting boerd of looking at it! in the Thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime dTime, "thismodule", , False
End Sub
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("20:00:00"), "thismodule"
End Sub

and in the Module:

Sub thismodule()
dTime = Now + TimeValue("08:00:00")
Application.OnTime dTime, "thismodule"


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Copy Range From Closed File & Paste To Closed Workbook
Is there code that will take certain data from one Excel sheet to another named file in a different place on the network? Example Copy cell aa47 from "Recent Faxes.xls" that sits in "correspondence" folder. Then paste into cell B25 "Current Documentation.xls" in the "Sales Contacts" folder

View Replies!   View Related
Open A Closed File To Archive Some Data From A Current File.
I have the need to be able to open a closed file to archive some data from a
current file.

what coding i need to be able to kick the "open file" bit off?

View Replies!   View Related
Saving A File With A Different Name Each Time Using A Macro
What i want is for my user to click the save button linked to a macro that saves my file as Order0000. If there is a file already called this i want it to change the name to Order00001 and so on for Order00002.

Is this possible and if so what VBA code

View Replies!   View Related
Macro Needs To Run Each Time I Open The File
I need a Macro to run when a file is opened through a macro on another workbook. The code I have for the workbook that open's the file is:

PHP
Subopensaveclose()
Application.Workbooks.Open("C:...testfile_revised.xls")
Sheets("CallReport").Select
EndSub

PrivateSubrunmacro()
Application.Run("RefreshStats")
EndSub

View Replies!   View Related
Macro, Export To Text File, One Row At A Time
I have a spreadsheet that currently looks like ........

My problem is that I want the macro to create either (a) a seperate text file for each line (1 for line 2, one for line 3 etc etc) or even better (b) create a file for the specific line i am on. For example if i happended to click on D5 and then pressed the macro key it would onyl create a txt file for line 5, same if i clicked on E6, it would only create a file for line 6.

I would be grateful if you could highlight the code you insert into my macro as it may be useful for other reports i run.

View Replies!   View Related
Sumif For Values From Closed File
I am trying to summarise data from 50 different files (updated by 50 different users) into one file in one place. To do this I created a simple sumif function that links to those files. This sumif works correctly when those files are open. But when I open my output file after changes have been made to one or more of 50 input files, sumif function doesn't work when I hit update at the file opening pop up question and get #value error. If I start opening those files this error goes away and it works great again.

View Replies!   View Related
Pull In Range From Closed File
I'm trying to find a way to import data from an external excel file that the end-user will ultimately end up choosing using the application. getopenfilename dialogue. I'm able to sucessfully open the file, but what I'm really trying to do is import data from one specific column within the file, preferably without the source spreadsheet popping up.

So, is this possible to do with VBA? Also, will I run into any issues if I try to import from an Excel 2.1 file to an Excel 2003 file using VBA? Finally, I need to be able to import one file, and then be able to add to that an import from another file. I'm thinking that this could be accomplished using a variant variable, but is there already a function within Excel so that I won't have to create my own add-to function.

View Replies!   View Related
Reading Custom Properties From A Closed File
I would like to read a few custom properties of excel workbook, even if they are close.

My intention is to build a list of compatible workbooks.

The compatibility woul be determined fom a custom property.

How can I read a custom property from a file wothout opening it?

View Replies!   View Related
Linked File Is Closed Before It Finishes Recalculation
I have a workbook with a button to get updated data. The button simply opens the other workbook and then closes it. THe problem is it opens the book and then closes it before the opened book has a chance to finish it calculation resulting in lots of #value errors. The book that is being opened works fine but because it is shared it can't be left open and needs to be closed asap, though it should be allowed to finsih calcs before it gets closed again. If anyone know a way to make the following temporarily halt until the opened book finishes calculating before it closes it.

Workbooks.Open Filename:= _
"X:gas daily pricingGD pricing weather call active summer.xls", ReadOnly:=True
ThisWorkbook. Saved = True
ActiveWindow.Close False

View Replies!   View Related
Lookup Referencing Closed File Returns Value Error
I have a file created in Excel 2003 that uses a vlookup to reference another file, also created in Excel 2003. The function returns VALUE when the referenced file is closed. I get the VALUE error whether or not I update links upon opening the file. If I open the source file, the function calculates properly.

Here is the formula when the referenced file is open:

=VLOOKUP(A38,'[June Scorecard confirmation.xls]VPSC Summary'!$C$10:$F$22,4,FALSE)

The full & correct path appears in the formula when the referenced file is closed.

Columns C, D & E in the referenced range contain text, column F contains a Sum. This file is linked to another file, also using lookups. The linked area in this file works without problem, but it is a precedent to the calculation in column F.

Both these files reside on a network in subdirectories of the same logical drive. I am using a laptop that briefly had Excel 2007 installed on it, but was wiped clean before it was issued to me.

View Replies!   View Related
Pull Data Out Of A Closed File Based On A Date Range
I am trying to make Excel pull data out of a closed file based on a date range. The closed file is a log where people input data and enter the day they are doing it. I need to pull this data in my file and make it print into my worksheets so I can pass a report on to others with only the data they request from the log.

The range would be for 7 days and would have to be able to choose a few columns off this report.

View Replies!   View Related
Cell Value Of Closed Workbook With Concatenated File Path In Cells
I have a report that is collated from several other workbooks. The source workbooks follow the same naming convention throughout the year and so I have managed to concatenate the file path to bring through the text of the filepath and cell reference however cannot work out how to get the value of the cell. For example, I have the file path in A1, file name in B1 and sheet and cell referernce in C1.

I am using {=(A1&B1&C1)} which gives me R:CONFIDENTIALREPORT FOLDER[REPORT 24.09.07.xls]Sheet1!$D$1. To make matters slightly more difficult, the source reports would be closed. Is there an easy way or am I going to have to do this in VBA.

View Replies!   View Related
List The File Name In One Excel Sheet, If Condition Is Met In 1000 Closed Workbooks
I have 1000 workbooks in a folder, each workbooks format is same.
as of now I open each workbook, and check if values in A10 is equal to B10, that is if the value in A10 is "100" I will check if B10 is also "100" if not I will make a note the file name.

I have more than 1000 workbooks in a folder, It is really difficult to open and check if the values are same. is there a macro, which will check the condition A10 = B10, if not get the file name in one sheet.


View Replies!   View Related
Saving Multiple Workbooks At One Time/file As A Text File
found the following code which works for 1 workbook at a time. I am trying to save 7 workbooks at 1 time. Is it possible?

Sub SaveAsCell()
Dim strName As String

On Error Goto InvalidName
strName = Sheet1. Range("V77")
ActiveWorkbook.SaveAs strName

It will work on the first sheet but none after that. I need to have each workbook saved with the value in cell V77. Also if that is possible, is it possible to change where the file is saved as well?

Right now I have a master workbook that will open the 7 other workbooks, paste data onto several pages in each workbook. I would like the macro to save the workbooks. The workbooks are named: 02 Tuesday, 03 Wednesday, 04 Thursday, 05 Friday, 06 Saturday, 07 Sunday, 08 Monday.

View Replies!   View Related
Macro To Stop If It Has Already Been Closed
I have got he below code in "thisworkbook" it works fine but I have a problem with it if it has been closed before the time expires. If it is closed it tries to reopen it and then close it again. So for my users who have got their security set to prompts the file will be closed and a message box appears saying "enable or disable Macros". If it is already closed than i dont really want this to happen. My security is set to low but i still see it flash up and the bottom then dissappear again. How can i get the Macro to stop if it has already beed closed??

Private Sub Workbook_Open()
Sheets("database").Select
Range("au16").Select
Application.OnTime Now + TimeValue("00:15:00"), "TimeOut"
If ThisWorkbook.ReadOnly Then
MsgBox ("The file is currently being used by another user, please contact them to ensure they have not left the file open.")
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

Sub TimeOut()
ThisWorkbook.Close SaveChanges:=True
End Sub


View Replies!   View Related
VLOOKUP Closed Workbook Macro
I'm trying to Access data from an XL file without actually opening the file. In an XL spreadsheet I type in a cell: =VLOOKUP("A", 'C:[Book2.xls]Sheet1'!$A$1:$B$10,1) and get an answer without a problem. In VBA, I try the line of

Current = Application.VLookup("A", Range("'C:[Book2.xls]Sheet1'!$A$1:$B$10"), 1)

and get an error that says Method 'Range' of object '_Global' failed

View Replies!   View Related
Macro With VLookup Pointing To A Closed Workbook
The following code shows the result/formula that is generated in a particular cell when I run Macro2:

View Replies!   View Related
Macro: Extract Data From Closed Workbook
I'm trying to create a macro that will allow me to extract data from another workbook (whose name and location is listed in a defined cell) and populate a range in my new sheet with this data.

Ideally, I want to be able to do this without actualy opening the source file, but any means to this end would be great!

I know this was possible in Lotus 123, but have not yet found a way to do it in Excel.

View Replies!   View Related
Run A Macro Automaticly On A Closed Work Book Every Friday
Is there a way to run a macro automaticly on a closed work book every Friday ? I've found ways of doing this using on-open event but It made me wonder if this was possible.


View Replies!   View Related
Reference Data From Closed Workbook Macro Code
Following syntax is incorrect, what is wrong? This should happen: Select op a specific worksheet (named DATA) in the workbook Report.xls and I empty the contents

Then I try with a 'With' statement to read the contents of a file named "sourcedata.xls' with helds a worksheet named "source". The values in this sheet should be tranfered to the sheet DATA in the workbook "Report.xls"

Sub FetchDataFromClosedWorkbook()
Dim FileName As String
Dim SheetName As String
Dim cellRange As String
Const ReportPath = "C:ExcelReports"
Windows("Report.xls").Activate
Sheets("DATA").Select
Cells.Select....................

View Replies!   View Related
Macro To Copy Over And Paste Data In To A Work Sheet From A Closed Workbook
I have a macro code which gets the file list from a folder i specify and puts it in to an excel sheet as a column. I have then made a drop down list from this so the user can select the file they want.

From this file i wish to copy the data on a sheet that i specify. For example the sheet "dump" from file FR7_19.11.2009.xls (which will be a closed workbook) and paste its content in to the sheet "dump" in Summary.xls

I have a macro which opens up the closed workbook FR7_19.11.2009.xls and copies the sheet "dump" and then creates a new sheet of the same name and content in my current workbook (Summary.xls). However when i wish to select a different file to load in to Summary.xls "dump" the formulas i have been calculating information from this sheet all come up with #!Ref errors. I know this is because the macro i use deletes the old dump sheet before re adding a new one containing new data.

I am therefore looking for a macro which will simply just copy and paste the data from any file i select in to a sheet named "dump" as the data is always set out the same in every file but the values are different. I assume this will then mean that any formulas i use relating to this "dump" sheet in Summary.xls will work because the sheet is no longer being deleted and re-added the data within it has just simply been copied over.

View Replies!   View Related
Time Stamp Macro Tell Total Elapsed Time From When I Started To When I Finished
I am not sure that I can do this, but here is what I would like to do. I have a worksheet that I initial when I start a job in on cell and then when I finish in another cell. What I's like is to have a macro running in the back ground that will tell me the total elapsed time from when I started to when I finished.

View Replies!   View Related
Run Macro Time: Start A Sub Running At A Selected Time
how to include a line of code, to start a sub running at a selected time? Given that the workbook is already opened before that time?

View Replies!   View Related
Automate Macro Start On Time & Stop At Later Time
Can I adapt this code so that users receive the alert if they try and go to the next field without filling in the required ones, or - better - to combine it with a code that does not run a macro, but instead gives the alert, if the required fields have been missed. (I don't require anything to do with printing, this was the closest code I could find)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheet1. Range("A1").Value = "" Then
MsgBox "Cannot print until required cells have been completed!"
Cancel = True
End If
End Sub

View Replies!   View Related
Macro/function To Take Data From Source File Into Base File
I have a base excel file for summarizing some data, the problem is that the data comes from a different excel spreadsheet. What I want to do is make a function that pulls the data from another spreadsheet into my base file. It would be easy if it were just one excel sheet, but this job would require where the data is pulled from a data file which has many modified versions.

Can anyone tell me how to do this? The files with the data will be structured the exact same but with different data entered in. I just want a button so I can click the file I want the data from and have it show up on my summarizing base file.

View Replies!   View Related
Run-time Error Every Other Time The Macro Runs
I'm not sure why this is happening, but every other time I run this one specific macro, I get a "Run-time error '1004': Paste method of Worksheet class failed". I even tried running this macro, then running a different one, then running this again, but I still got the error every other time.

Every time I get the error, it highlights this line of
Sheets("Regenerate Request").Paste


This is all of the code up to where I get the error:

Sub YesRegen()
' after user has hit Yes on the RegenerateRequest macro, this posts the new request to
' the log, generates the new file and attaches it to an email

Application.Run "LogUnprotect"
Range(Range("A" & ActiveCell.Row), Range("K" & ActiveCell.Row)).Copy
'Selection.Copy
Sheets("Regenerate Request").Activate
Application.Run "RegenFormUnprotect"
Range("A40:K40").Select
Range("A40").Activate
Sheets("Regenerate Request").Paste



View Replies!   View Related
Open File Macro, Error - Incrementing File Name
When it opens the desired file, it increments the file name by 1 each time it is opened (via the macro).

Example;
The first time it is opened you see the file name in the header read "P'Binder L&T Pages" for a moment, then it changes to "P'Binder L&T Pages1"...
I close the file and open it again (via the macro), and see the file name in the header read "P'Binder L&T Pages" for a moment, then it changes to "P'Binder L&T Pages2"...
The file name continues to increment on every opening until the PC is rebooted, then it starts at 1 again.

Sub OpnLTpages()

Dim wb As Workbook
Dim AlreadyOpen As Boolean

AlreadyOpen = False

For Each wb In Workbooks 'Scan open workbooks
If wb.Name = "P'Binder L&T Pages.xls" Then ........................


View Replies!   View Related
Macro: Save File & Automatically Overwrite Old File
I presently have a macro that, when run, takes to conents of C4 and C6 and saves a new version of the file being worked on into a folder on my desktop. I love the macro with the exception of one part: I don't want to be prompted to overwrite the file if it already exists. How can I change this macro so that, when pressed, it overwrites the file without prompting the user and waiting for their answer?

Here is the current

Sub SaveIt() ...

View Replies!   View Related
Macro To Copy Sheet From Closed Work Book And Overwrite If Sheet Already Exists
I am currently using a macro to copy a sheet from a closed workbook in to my current workbook. However this copying is based on the sheet name. At present when I run the following code

View Replies!   View Related
Add The System Time To A File Name
How do I add the system time to a file name

My
ChDir "S:ProductionProduction Request Forms"

ActiveWorkbook.SaveAs Filename:= _
"S:ProductionProduction Request Forms" & SaveWorkbook & "_Request" & Time & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

View Replies!   View Related
Time Limitations In File
We have an Excel file that is located on the network and is accessed by numerous individuals. Should someone need access when another user has the file open, we get a message that the file is currently in use and it also lists the user id of that person. The issue is that a particular user will open the file and keep it on their desktop for hours at a time. Is there a way to limit the amount of time that user can have the file open? Is there something within Excel that I can turn on that should the file not be modified for a particular amount of time that Excel saves the file and closes it down?

View Replies!   View Related
Macro To Pull Same Cell Range Cell From Many Closed Books
I have many workbooks which all have a summary sheet called summary, and which are all kept in the same folder (although this folder name/filepath may change from year to year).

I want to be able to set up the column headings and then copy the same set of summary information from each book so that it can then be used for analysis. The cells to be copies derive their value from formulae, it is the value that needs to be copied.

I attach a workbook with the format needed and the source cells. The source sheet will be password protected.

I know this is a question that has been raised before and I have searched the forum but not come across a question that is close enough to work from - my VB skills are appalling.

View Replies!   View Related
Saving A File With Specific File Name Using Macro
I am trying to save my workbook in a specific directory with a specific filename and to incorporate a date field from within the spreadsheet. I have changed the format of the cell so it does not include / as i know this would not work. Saving it is the easy part but adding in the field from the spreadsheet is where im falling over.

View Replies!   View Related
How Do I Save A File With Date And Time
Is it possible that each time I save a file it saves the filename along with date and time as the version of the file in a specific path

View Replies!   View Related
Play Sound File At Set Time Each Day
I'm trying to automate/keep records of my day by setting up a spreadsheet which : 1) Plays a wav music file at a schedule time as a reminder and 2) at the same time calls up a form where I can enter the results of the activity then 3) saves the results to a sheet where consecutive daily records can be recorded and graphed.

Example

At 5am each day I want a "Motivation.wav" music file to open and play and a form appear where I enter in the number of sit ups, push-ups I get done, which I enter in the form and it gets saved to a sheet where I can graph my progress based on the results recorded.

View Replies!   View Related
Drop To The Next Row Each Time I Scan In Each File
i've created a spreadsheet that will take in scanned files (from a barcode), log into our system, update the files based on certain criteria, then take information from the file and place it in another worksheet for inventory purposes.

what i'm asking is... is there a way i can have excel drop to the next row each time i scan in each file?

i've noticed the output of the scanner is formatted like this: +000000

i've tried using the sendkeys method with the plus sign, but it always moves down THEN enters in the numbers. i'm not sure if there is a way with the Len function... or some variation of that.

i'm also thinking if i could maybe find the .dll for the scanner, maybe i could set up a reference to it, and have it do something like "afterbarcodescan.activecell.offset(1,0).activate".

View Replies!   View Related
Processing Folder One File At A Time
I want to open each file in a folder, one at a time, and save each file with a new name (based on cells in the worksheet) to a different folder. This is what I have so far:

Sub aaa()
Dim i As Long, files As String, data As String
Dim fName As String

ChDir _
"C:Files1"

Cells.Select
Range("A1").Activate
Selection.ClearContents
Application. ScreenUpdating = False
i = 0
files = Dir("*.txt")
Do While files <> ""
Open files For Input As 1

This code doesn't open any files unless there is a value already in the cells that fName uses.

View Replies!   View Related
Time Limit To Keep File Open
A coworker of mine will keep a shared file open for hours at a time, not doing anything to it, just keeping open, meaning no one else can edit it as required. Is there a way to set a time limit for that file to remain open before it saves and closes the file? The file shouldn't need to be open more than 30 minutes at a time for any individual. If it's required to stay open longer for certain instances, is there a way to extend the time as well? I can't find anything even remotely relating to time limits on Excel files. Is there coding or an app I need to apply to accomplish this? Is there an option I haven't seen in the program already?

View Replies!   View Related
Time Limited To Open Exel File
I have one excel file which I plan to send to other person. But I need this file to be openable/valid by this person just 20 days after first opening of the file.

After 20 days this person will not be able to open the file any more.

View Replies!   View Related
Track Date And Time A File Is Opened
I found some vba codes in this forum which record the date and time in column A when a file is opened.

Can the codes be modified such that when someone opens the file the second time on the same day, the date and time are recorded in column B?

Attached file for your reference.


View Replies!   View Related
Reading Entire File, Not One Line At A Time
I want to read in a space delimited file and to put each line in one cell starting with cell B2 (I will take care of splitting it into columns later). However, rather than reading one line at a time, it reads in the entire txt file at the first pass......

View Replies!   View Related
Measure Time Taken To Find File & Open
I am trying to measure how long it takes to locate a file the user wants to open. Eg., from when they click File|Open to when they click the "Open" button in the Open dialog box (after they have navigated through the directories to find their file).

I have approached this by using a class module and withEvents. This uses the Click event to trap when they have hit the File|Open button from the File menu and timestamp it.

class module: EventFileOpen

Public WithEvents cbOpen As CommandBarButton

Private Sub cbOpen_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox "File open started at: " & Now()
End Sub

Private Sub Class_Initialize()
Set cbOpen = Application. CommandBars.FindControl(ID:=23)
End Sub

Private Sub Class_Terminate()
Set cbOpen = Nothing
End Sub..........

View Replies!   View Related
Save File Name With Date/time Stamp
I've got a simple save macro below and was looking for a way that when this macro saves the file can it add the system date and time to the name.

'ChDir "C:
ashfinch"
' ActiveWorkbook.SaveAs Filename:="C:
ashfinchNFC-ORDER.XLS", FileFormat:= _
' xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
' , CreateBackup:=False

View Replies!   View Related
Macro: Section And Closed/fixed Section
I'm trying to create a macro to help me with a running issues list. I what to be able to have an issues column and a fix coulumn. Then I'll have an open issues section and closed/fixed issues section. all issues that do not have any Information and date in the fix colum will stay in the open section unitl the fix is entered and then when I run my macro it will move any open issues that have data in the fixed column to the closed section)

View Replies!   View Related
External File Properties In Cells. Last Saved Time
I was looking for a way to get external file froperties into a cell!

for example:

Last modified date.

this is what I allready found/tried.

View Replies!   View Related
Macro In .xlt File Won't Work In .xls File
Using Office 2000, here is the code I am using which works on my laptop with Office 2007. This file is initially saved as a template (.xlt) file. This code works if I right-click and open the template and enter data, but when I just double click and open, causing it to open as an .xls file, it doesn't work. (The textboxes are inserted textboxes not from a userform).

VBA:
Option Explicit

Sub Text_Copy()

With Worksheets("Description")

Worksheets("Summary").Shapes("TextBox3").TextFrame.Characters.Text = .Shapes("TextBox1").TextFrame.Characters.Text & " " & .Shapes("TextBox2").TextFrame.Characters.Text

End With
End Sub

View Replies!   View Related
Worksheet Change Macro Takes Too Much Time When Run With Update List Macro
I have a worksheet in which I have a worksheet_change macro. This worksheet_change macro makes sure that a few cells will keep their colors, even if the user copies and pastes a new value to that cell. This worksheet_change macro runs each time there is a change on the worksheet. Now my problem is that on the same sheet I have an update list macro which updates around 20.000 rows and two columns (which is alltogether around 40.000 values) and it takes a while to run. So.. it takes a loooooooooot of time (too much) when these two macros both run.

My question is that can I somehow disable the worksheet_change macro while the update list macro runs. I mean something like when I start the update list macro to disable worksheet_change macro and when the update list macro finishes, then reenable worksheet_change macro?

View Replies!   View Related
Run-time Error '1004':File Not Found :: Folder On Network
The script below scans through a specified folder on a network and scans every xls file inside that folder for a value. When it finds the spreadsheet which contains that value (a policy number) it outputs some of the data from the matching file and also provides a link to the sheet in question.

It worked perfectly until I saved, exited and re-opened the file and now I am getting a 1004 run-time error every time I try and execute the script.

I cant for the life of me work out a cause.

More baffling, the wording of the error says that the file 'R:DirCancellations.xls' could not be found.

At no point is a file called 'Cancellations.xls' specified. Why has the script decided to search for a file called 'Cancellations'?

Sub Search()

ActiveSheet.unprotect
ActiveWorkbook.unprotect
Dim wb As Workbook
Dim TheFile As String
Dim MyPath As String
Dim DirLoc As String
Dim PolNum As String
ActiveSheet.Range("C13:G25").ClearContents................

View Replies!   View Related
Large File Takes Long Time To Open/Save
I have a large Excel 2007 file, around 60.000KB. 54.000KB are due to one of the worksheets where I have 8760rows x 160columns with data. The calculation time is not a problem, it is very fast, it only takes 2/3 seconds. The problem is when I open or save the file, it takes around 2 minutes... it is not too much, but it becomes too long when one has to open and save it several times. It there any trick to decrease the time when openning or saving an excel file??

View Replies!   View Related
Copyright 2005-08 www.BigResource.com, All rights reserved