Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Loop to find next empty cell to the right not working.


Jim,
I have tried everything I know to get your suggestion to work. I'
getting a 424 error on every iteration I've tried. Below is my curren
code with various iterations I've tried commented out. I could reall
use some help.

Here is the code.

Option Explicit
Private Sub cmdEnterSelection_Click()
Dim rng1 As Range
Dim rng2 As Range
Dim i As Long
Dim j As Long
Dim CopyCol As Long

Set rng1 = Sheets("Takeoff").Range("TakeOffHeaders")
'Set rng2 = Sheets("Takeoff").Range("StartCell")
'<<<<<<<<<<<<<<<<<<<<<<< Different ways I have tried
Set CopyCol
Sheets("Takeoff").Range("StartCell").End(xlToRight ).Offset(0
1).Column
'CopyCol = rng2.End(xlToRight).Offset(0, 1).Column 'without Se
statement
'CopyCol = rng2.End(xlToRight).Offset(0, 1).Columns(0, 0)'without Se
statement
'Set CopyCol = rng2.End(xlToRight).Offset(0, 1).Columns(0, 0)
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
With rng1
.Cells(1, CopyCol).Value = ListBox1.List(i, 0)
.Cells(4, CopyCol).Value = ListBox1.List(i, 1)
.Cells(5, CopyCol).Value = ListBox1.List(i, 2)
.Cells(6, CopyCol).Value = ListBox1.List(i, 3)
End With
CopyCol = CopyCol + 1
End If
Next i
OptionButton2.Value = True
End Su

--
Case

-----------------------------------------------------------------------
Casey's Profile: http://www.excelforum.com/member.php...nfo&userid=454
View this thread: http://www.excelforum.com/showthread.php?threadid=53868

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
having probelms getting my loop to terminate on an array value read from an empty cell mizcrab Excel Programming 3 November 30th 05 02:54 AM
Please help find the next empty cell pcarsquared Excel Programming 5 May 17th 04 10:23 PM
Find value loop not working Christiane[_6_] Excel Programming 3 April 6th 04 01:53 AM
Find 1st Empty Cell: How to? Chris Excel Programming 4 December 2nd 03 09:41 PM
Find Empty Cell Wally Steadman[_3_] Excel Programming 3 November 23rd 03 10:50 PM


All times are GMT +1. The time now is 12:15 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"