Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old December 3rd 21, 11:52 PM
Member
 
First recorded activity by ExcelBanter: Aug 2007
Posts: 82
Default Find empty cell then insert range in active row

Need help please!

Below is my current code that I believe can be more efficiently executed. I have the times in Range ("F50:I50") that I would like inserted into the next blank row in the range (F9:I16). Thanks for your help.


Range("f9:f16").Find("").Activate

ActiveCell.Value = "8:00 AM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "12:00 PM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "1:00 PM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "5:00 PM"

  #2   Report Post  
Old December 20th 21, 05:39 PM
Member
 
First recorded activity by ExcelBanter: Aug 2007
Posts: 82
Default

Quote:
Originally Posted by Keyrookie View Post
Need help please!

Below is my current code that I believe can be more efficiently executed. I have the times in Range ("F50:I50") that I would like inserted into the next blank row in the range (F9:I16). Thanks for your help.


Range("f9:f16").Find("").Activate

ActiveCell.Value = "8:00 AM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "12:00 PM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "1:00 PM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "5:00 PM"


Found a faster approach but still wanting to speed up the macro. Here's my current code:

Range("F9:F16").Find("").Activate
Range("F50:I50").Copy: ActiveCell.PasteSpecial Paste:=xlPasteValues


Reply
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
Insert selected cell value into next cell in range that is empty Guy[_2_] Excel Worksheet Functions 6 January 3rd 09 10:08 PM
How do i find last not empty cell in a range excelent Excel Worksheet Functions 9 December 31st 08 01:59 PM
find row number of next empty cell in range Albert Browne Excel Programming 2 June 14th 08 02:57 PM
Find first empty cell in range and paste formula?? Naji Excel Programming 11 February 8th 08 10:40 PM
find range name for active cell Len Excel Programming 2 November 22nd 05 02:37 PM


All times are GMT +1. The time now is 05:19 PM.

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

About Us

"It's about Microsoft Excel"

 

Copyright © 2017