Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() 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 |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
having probelms getting my loop to terminate on an array value read from an empty cell | Excel Programming | |||
Please help find the next empty cell | Excel Programming | |||
Find value loop not working | Excel Programming | |||
Find 1st Empty Cell: How to? | Excel Programming | |||
Find Empty Cell | Excel Programming |