Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
correction needed
I been sent macro by one of online friend . This macro copies entire
row from sheet1 to sheet2. what should i do that this macro only copy rows from cell A to cell F instead of coping entire row. please any body can give any suggestions or macro Sub movedata() OldShRowCount = 1 NewShRowCount = 2 With Sheets("Sheet1") Do While .Range("D" & OldShRowCount) < "" If (.Range("D" & OldShRowCount) = .Range("D" & (OldShRowCount + 1))) And (.Range("E" & OldShRowCount) < .Range("E" & (OldShRowCount + 1))) Then ..Rows(OldShRowCount).Copy Destination:=Sheets("Sheet2").Rows(NewShRowCount) NewShRowCount = NewShRowCount + 1 End If OldShRowCount = OldShRowCount + 1 Loop End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
correction needed
On Dec 16, 5:50 pm, "Don Guillett" wrote:
Start over and tell us exactly what you want to do with before/after examples. It probably can be that you copy all at once instead of one at a time. but to answer your question about copy range .Rows(OldShRowCount).Copy to .range(cells(OldShRowCount,"a"),cells(OldShRowCoun t,"f")).Copy _ Sheets("Sheet2").range(NewShRowCount,"a") -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... I been sent macro by one of online friend . This macro copies entire row from sheet1 to sheet2. what should i do that this macro only copy rows from cell A to cell F instead of coping entire row. please any body can give any suggestions or macro Sub movedata() OldShRowCount = 1 NewShRowCount = 2 With Sheets("Sheet1") Do While .Range("D" & OldShRowCount) < "" If (.Range("D" & OldShRowCount) = .Range("D" & (OldShRowCount + 1))) And (.Range("E" & OldShRowCount) < .Range("E" & (OldShRowCount + 1))) Then .Rows(OldShRowCount).Copy Destination:=Sheets("Sheet2").Rows(NewShRowCount) NewShRowCount = NewShRowCount + 1 End If OldShRowCount = OldShRowCount + 1 Loop End With End Sub- Hide quoted text - - Show quoted text - Thanks Don this really works |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
correction needed
Most of us TOP post here. I guess that your statement means that my
suggestion helped and that you don't want to know a better way? Thanks Don this really works -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... On Dec 16, 5:50 pm, "Don Guillett" wrote: Start over and tell us exactly what you want to do with before/after examples. It probably can be that you copy all at once instead of one at a time. but to answer your question about copy range .Rows(OldShRowCount).Copy to .range(cells(OldShRowCount,"a"),cells(OldShRowCoun t,"f")).Copy _ Sheets("Sheet2").range(NewShRowCount,"a") -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... I been sent macro by one of online friend . This macro copies entire row from sheet1 to sheet2. what should i do that this macro only copy rows from cell A to cell F instead of coping entire row. please any body can give any suggestions or macro Sub movedata() OldShRowCount = 1 NewShRowCount = 2 With Sheets("Sheet1") Do While .Range("D" & OldShRowCount) < "" If (.Range("D" & OldShRowCount) = .Range("D" & (OldShRowCount + 1))) And (.Range("E" & OldShRowCount) < .Range("E" & (OldShRowCount + 1))) Then .Rows(OldShRowCount).Copy Destination:=Sheets("Sheet2").Rows(NewShRowCount) NewShRowCount = NewShRowCount + 1 End If OldShRowCount = OldShRowCount + 1 Loop End With End Sub- Hide quoted text - - Show quoted text - Thanks Don this really works |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
correction needed
Don, I think K has a secret project going on. The OP does not give very much
info about what they are trying to do, just what they want the macro to do, one piece at the time. "Don Guillett" wrote: Most of us TOP post here. I guess that your statement means that my suggestion helped and that you don't want to know a better way? Thanks Don this really works -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... On Dec 16, 5:50 pm, "Don Guillett" wrote: Start over and tell us exactly what you want to do with before/after examples. It probably can be that you copy all at once instead of one at a time. but to answer your question about copy range .Rows(OldShRowCount).Copy to .range(cells(OldShRowCount,"a"),cells(OldShRowCoun t,"f")).Copy _ Sheets("Sheet2").range(NewShRowCount,"a") -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... I been sent macro by one of online friend . This macro copies entire row from sheet1 to sheet2. what should i do that this macro only copy rows from cell A to cell F instead of coping entire row. please any body can give any suggestions or macro Sub movedata() OldShRowCount = 1 NewShRowCount = 2 With Sheets("Sheet1") Do While .Range("D" & OldShRowCount) < "" If (.Range("D" & OldShRowCount) = .Range("D" & (OldShRowCount + 1))) And (.Range("E" & OldShRowCount) < .Range("E" & (OldShRowCount + 1))) Then .Rows(OldShRowCount).Copy Destination:=Sheets("Sheet2").Rows(NewShRowCount) NewShRowCount = NewShRowCount + 1 End If OldShRowCount = OldShRowCount + 1 Loop End With End Sub- Hide quoted text - - Show quoted text - Thanks Don this really works |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
correction needed
Then we need a "secret decoder ring" -- Don Guillett Microsoft MVP Excel SalesAid Software "JLGWhiz" wrote in message ... Don, I think K has a secret project going on. The OP does not give very much info about what they are trying to do, just what they want the macro to do, one piece at the time. "Don Guillett" wrote: Most of us TOP post here. I guess that your statement means that my suggestion helped and that you don't want to know a better way? Thanks Don this really works -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... On Dec 16, 5:50 pm, "Don Guillett" wrote: Start over and tell us exactly what you want to do with before/after examples. It probably can be that you copy all at once instead of one at a time. but to answer your question about copy range .Rows(OldShRowCount).Copy to .range(cells(OldShRowCount,"a"),cells(OldShRowCoun t,"f")).Copy _ Sheets("Sheet2").range(NewShRowCount,"a") -- Don Guillett Microsoft MVP Excel SalesAid Software "K" wrote in message ... I been sent macro by one of online friend . This macro copies entire row from sheet1 to sheet2. what should i do that this macro only copy rows from cell A to cell F instead of coping entire row. please any body can give any suggestions or macro Sub movedata() OldShRowCount = 1 NewShRowCount = 2 With Sheets("Sheet1") Do While .Range("D" & OldShRowCount) < "" If (.Range("D" & OldShRowCount) = .Range("D" & (OldShRowCount + 1))) And (.Range("E" & OldShRowCount) < .Range("E" & (OldShRowCount + 1))) Then .Rows(OldShRowCount).Copy Destination:=Sheets("Sheet2").Rows(NewShRowCount) NewShRowCount = NewShRowCount + 1 End If OldShRowCount = OldShRowCount + 1 Loop End With End Sub- Hide quoted text - - Show quoted text - Thanks Don this really works |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Value correction | Excel Discussion (Misc queries) | |||
Code correction pls help | Excel Programming | |||
VBA Code Correction | Excel Programming | |||
correction | Excel Discussion (Misc queries) | |||
two arrays correction | New Users to Excel |