You're welcome. Glad to help.
Dave.
> Date: Tue, 6 Apr 2010 03:47:24 -0700
> Subject: Re: $$Excel-Macros$$ VBA VLookup dates
> From: andyr...@hotmail.co.uk
> To: excel-macros@googlegroups.com
>
> Dave,
>
> Apologies for the late response.
>
> Very much
Dave,
Apologies for the late response.
Very much appreciate the effort you have put into this - it works
perfectly!
Thanks again!
Andy.
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips
Dave,
Appreciate the effort - thanks a lot.
I started to think of another way around the problem but that's
stumping me as well...
Sub Test()
Dim lookFor As Range
Dim rng As Range
Dim col As Integer
Dim found As Variant
If Range("A2") = "" Then
Range("H2") = ""
Else:
Set lookFor = Sheets("Acce
Hi Andy,
I don't think my last mail will work either.
I've downloaded your sheet from the link you provided, and I'll give it some
thought, but too busy to do much before the weekend.
Regards - Dave.
> Date: Wed, 24 Mar 2010 03:33:09 -0700
> Subject: Re: $$Excel-Macro
Hi Andy,
I think I made 'found' a range, when it wasn't. Sorry.
Try:
If Not IsError(found) Then
Range("H2:H5").Value = found
Else: Range("H2:H5").ClearContents
End If
Regards - Dave.
> Date: Wed, 24 Mar 2010 03:33:09 -0700
> Subject: Re:
Dave,
Thanks again for the reply. Excel 2002 doesn't recognise IsErr and
changing it to IsError generates the error "Method 'Range' of
object'_Worksheet' failed"
It seems that it won't work because "found" is not a range? Changing
the line to "If Not IsError(found) Then" or any variation doesn't
Hi,
Something like:
If Not IsErr(Range("found")) Then
Range("H2:H5").Value = found
Else: Range("H2:H5").ClearContents
End If
Regards - Dave.
> Date: Tue, 23 Mar 2010 07:21:21 -0700
> Subject: Re: $$Excel-Macros$$ VBA VLookup dates
> F
Sorry for the extra messages but I decided to delete most of the data
in a workbook copy so that I could upload it...
http://excel-macros.googlegroups.com/web/2010%2003%2023%20TEST.xls?hl=en&gsc=c-8xyhYAAAB4suMG83bGpxYXyXRb7VtTTCBlxQqdFNTZwwfBwm5u_Q
Basically I want the code to stop calculating o
Managed to get a bit further. The Lookup part is working perfectly but
I can't figure out how to turn the #N/A entries into blanks...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lookFor As Range
Dim rng As Range
Dim col As Integer
Dim found As Variant
Set lookFor = Sheets("Access Data
Heya,
Thanks for the reply!
At the moment the file is a bit too large to attach.
The dates I'm trying to match are in column C of the Access Data
sheet, which are checked with dates on the Front Page sheet (fortnight
range) and a number is looked up from these and placed into column H
of the Acc
Hi Andy,
Not quite sure what date fields you want to match to what.
Is it possible to attach the worbook?
Regards - Dave.
Hey all,
I'm trying to cut down on loading times by converting a load of
formulae to code.
I'm stuck on this particular formula -
=IF(ISERROR(VLOOKUP((C3),fortnight,3,FALS
Hey all,
I'm trying to cut down on loading times by converting a load of
formulae to code.
I'm stuck on this particular formula -
=IF(ISERROR(VLOOKUP((C3),fortnight,3,FALSE)),"",VLOOKUP((C3),fortnight,
3,FALSE))
The main problem I seem to be having is how to amend the code to
properly detect whe
12 matches
Mail list logo
