View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 6,953
Default Post File Size In Cell

assume the dropdown is in B9 and the results go to C9

right click on the sheet tab and select view code. Put in code like this

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sPath as String
On Error Resume next
spath = "C:\Myfolder\"
if Target.Address = "$B$9" then
if Target.Value < "" then
s = sPath & target.Value
if dir(s) < "" then
target.offset(0,1).Value = filelen(s)
end if
end if
end if
End Sub

--
Regards,
Tom Ogilvy


"WayneK" wrote:

Hello. I am fairly new to using VBA with Excel.

I have a Data Validation list of a filenames with a directory.
Once I make a filename selection from the list, I'd like the
file's size to be placed into a specific cell.

For example, if I chose from the Data Validaton List
"C:\Temp\Parts.xls", I'd like it's equivalent file size to be
placed into cell B1 on Sheet1.

What VBA code would accomplish this?

Thank you for your help.

Wayne