Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with Loop
I have the following code so far:
row1 = 2 Do Until Sheets("OLE1").Range("L" & row1).Value = Empty If Trim(Sheets("OLE1").Range("M" & row1).Value) < "" Then Sheets("OLE1").Range("K" & row1).Copy Sheets("OLE1").Range("K" & row1 + 1).PasteSpecial Paste:=xlPasteValues '' Sheets("OLE1").Range("K" & row1 + 1).Select End If row1 = row1 + 1 Sheets("OLE1").Range("K" & row1 + 1).Select Loop End Sub Example of my data: K L M 1 1280.98 SB014 2 20522.19 SB014 3 11401.21 SB014 4 12365.00 SB014 1.10000 5 1594.00 SB014 1.10000 6 665.00 SB014 7.75375 7 154.00 SB014 7.75375 Is it possible to copy K4 to K5 and then the code move to K6 and copy K6 to K7? Cheers! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with Loop
It appears to me that the DO statement checks the cell you just copied into.
Are you seeing the value in K2 copied into K3, K4, ... and a LONG way down? If you are trying to copy even numbered rows (2, 4, 6) to the odd numbered row below them (3, 5, 7 respectively), you probably want to increment your row1 index by 2 instead of 1 (row1 = row1 + 2). Jerry K "Rachel" wrote in message ... I have the following code so far: row1 = 2 Do Until Sheets("OLE1").Range("L" & row1).Value = Empty If Trim(Sheets("OLE1").Range("M" & row1).Value) < "" Then Sheets("OLE1").Range("K" & row1).Copy Sheets("OLE1").Range("K" & row1 + 1).PasteSpecial Paste:=xlPasteValues '' Sheets("OLE1").Range("K" & row1 + 1).Select End If row1 = row1 + 1 Sheets("OLE1").Range("K" & row1 + 1).Select Loop End Sub Example of my data: K L M 1 1280.98 SB014 2 20522.19 SB014 3 11401.21 SB014 4 12365.00 SB014 1.10000 5 1594.00 SB014 1.10000 6 665.00 SB014 7.75375 7 154.00 SB014 7.75375 Is it possible to copy K4 to K5 and then the code move to K6 and copy K6 to K7? Cheers! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with Loop
It will not always be the case that I will be copying even to odd.
As soon as data is found in column M 'then' I want copy to the cell below (due it being a pair - same exchange rate) and only when it has carried out this action, I would then like it to move down two rows. So as long as there is nothing in column M I just need it to move down one row. In the example below nothing needs to happen in rows 1,2,3 K4 would then be copied to K5 and K6 copied to K7 "Jerry K" wrote: It appears to me that the DO statement checks the cell you just copied into. Are you seeing the value in K2 copied into K3, K4, ... and a LONG way down? If you are trying to copy even numbered rows (2, 4, 6) to the odd numbered row below them (3, 5, 7 respectively), you probably want to increment your row1 index by 2 instead of 1 (row1 = row1 + 2). Jerry K "Rachel" wrote in message ... I have the following code so far: row1 = 2 Do Until Sheets("OLE1").Range("L" & row1).Value = Empty If Trim(Sheets("OLE1").Range("M" & row1).Value) < "" Then Sheets("OLE1").Range("K" & row1).Copy Sheets("OLE1").Range("K" & row1 + 1).PasteSpecial Paste:=xlPasteValues '' Sheets("OLE1").Range("K" & row1 + 1).Select End If row1 = row1 + 1 Sheets("OLE1").Range("K" & row1 + 1).Select Loop End Sub Example of my data: K L M 1 1280.98 SB014 2 20522.19 SB014 3 11401.21 SB014 4 12365.00 SB014 1.10000 5 1594.00 SB014 1.10000 6 665.00 SB014 7.75375 7 154.00 SB014 7.75375 Is it possible to copy K4 to K5 and then the code move to K6 and copy K6 to K7? Cheers! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Loop Problem | Excel Programming | |||
Loop Problem | Excel Programming | |||
Problem adding charts using Do-Loop Until loop | Excel Programming | |||
For...Each Loop Problem | Excel Programming | |||
For..Next loop problem | Excel Programming |