| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
find and paste
hi im needing some help. I want some VB code to copy range B2:F2 an searching from B6 down paste it in the first blank cell -- ceem ----------------------------------------------------------------------- ceemo's Profile: http://www.excelforum.com/member.php...fo&userid=1065 View this thread: http://www.excelforum.com/showthread.php?threadid=38993 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
find and paste
thank you for your reply. m getting debug error on the following line Do While Not Cells(iIndex, 2) = Empt -- ceem ----------------------------------------------------------------------- ceemo's Profile: http://www.excelforum.com/member.php...fo&userid=1065 View this thread: http://www.excelforum.com/showthread.php?threadid=38993 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
find and paste
Oops, if you copy-pasted my code change line Index = 6 to iIndex = 6 Sorry about that. You're getting the error because iIndex was neve set to anything in my errored code -- TommySzalapsk ----------------------------------------------------------------------- TommySzalapski's Profile: http://www.excelforum.com/member.php...fo&userid=2556 View this thread: http://www.excelforum.com/showthread.php?threadid=38993 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
find and paste
im having a little diff still ive tried to mod your code to this Range("B2:F2").Copy Dim iIndex As Integer iIndex = 6 Do While Not Cells(iIndex, 2) = Empty iIndex = iIndex + 1 Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _ :=False, Transpose:=False im not getting any joy though, do you know why its not workin -- ceem ----------------------------------------------------------------------- ceemo's Profile: http://www.excelforum.com/member.php...fo&userid=1065 View this thread: http://www.excelforum.com/showthread.php?threadid=38993 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
find and paste
after the loop exits add Cells(iIndex,2).select or change Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _ :=False, Transpose:=False to Cells(iIndex,2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _ :=False, Transpose:=Fals -- TommySzalapsk ----------------------------------------------------------------------- TommySzalapski's Profile: http://www.excelforum.com/member.php...fo&userid=2556 View this thread: http://www.excelforum.com/showthread.php?threadid=38993 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
find and paste
thnx it works perfectl -- ceem ----------------------------------------------------------------------- ceemo's Profile: http://www.excelforum.com/member.php...fo&userid=1065 View this thread: http://www.excelforum.com/showthread.php?threadid=38993 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro Help: Find Value, Cut and Paste Row | Excel Discussion (Misc queries) | |||
| Find Cut and paste | Excel Discussion (Misc queries) | |||
| find and paste | Excel Programming | |||
| I need to find a macro to find data cut and paste to another colu. | Excel Programming | |||
| Paste value of Find | Excel Programming | |||
![ceemo[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
