LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 22
Default any function to replace loop

Below loop works ok. But sheet ("pickuptime2") gets near over 15000
rows and it gets
slower.Any suggestions would be helpful. Thank you very much in
advance.

Sub getpoint(tour As Range, tourdate As Range, hotel As Range)

With Worksheets("pickuptime2")

Set rng1 = .Range("A2", .Range("A" & Rows.count).End(xlUp))

For Each i In rng1
If tour.Value = i.Value And _
tourdate.Value = i.Offset(, 1).Value And _
hotel.Value = i.Offset(, 2) Then

tour.Offset(, 12).Value = i.Offset(, 3)
Exit Sub
End If
Next i

MsgBox " No Value found "

End With

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Msg Box on each Loop to Replace text Ricky Pang Excel Programming 10 May 10th 06 11:47 PM
Replace using Do loop Dave B[_9_] Excel Programming 1 November 29th 05 07:35 PM
Loop Function unable to loop Junior728 Excel Programming 1 July 28th 05 10:23 AM
Find & Replace / Loop & Vlookup thom hoyle Excel Programming 5 June 25th 05 12:56 AM
Replace Loop Darrell[_4_] Excel Programming 1 November 21st 03 04:49 PM


All times are GMT +1. The time now is 06:17 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"