Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stuck with script - Help Please
Hi All, i have the script below that works fine with one exception and
that is that it puts an "#N/A" in the cell and i would like it to be blank. Sub LookupBat() Dim myLookUpRng As Range Dim i As Long Dim NumRows As Long Dim LastRow As Long Dim sFormula As Integer Range("A4").Select ' UpdateProgressH = 0 With Workbooks(myfileNameBat).Worksheets(SheetNameBat) Set myLookUpRng = .Range("C:U") End With LastRow = Cells(Rows.Count, "A").End(xlUp).Row NumRows = LastRow - 3 For i = 4 To LastRow If Cells(i, "I") = "" Then Cells(i, "I").Value = Application.VLookUp(Cells(i, "A").Value, _ myLookUpRng, 19, 0) Cells(i, "I").Value = Cells(i, "I").Value End If UpdateProgressH (i - 3) / NumRows Next i Unload UserForm2 Range("A4").Select ' InsPriceDiff End Sub Thanks in advance, Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I am stuck | Excel Worksheet Functions | |||
Im stuck in VB! | Excel Programming | |||
Ok now im stuck | Excel Programming | |||
Still stuck | Excel Programming | |||
Excel 2000/XP script to Excel97 script | Excel Programming |