| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Highlighting Rows and Cut to another worksheet
Hi
Excel 2002 sheet1 Column A this is formatted as Text 0001 0001 0002 0002 0002 0002 0002 0003 0003 I would like to hightlight the Rows of the first series of numbers, in this case Rows A1,A2 Cut and paste them in sheet2, leaving...... 0002 0002 0002 0002 0002 0003 0003 and when I use the code again it would move the 0002s Thanks in advance Dave |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Highlighting Rows and Cut to another worksheet
Hi,
Right click sheet1 tab, view code and paste this in. Note that this appends to the data on sheet2 Sub copyit() Dim myrange, MyRange1 As Range lastrow = Cells(Rows.Count, "A").End(xlUp).Row Set myrange = Range("A2:A" & lastrow) firstvalue = Range("A1").Value Set MyRange1 = Rows(1) For Each c In myrange If c.Value = firstvalue Then Set MyRange1 = Union(MyRange1, c.EntireRow) End If Next If Not MyRange1 Is Nothing Then MyRange1.Copy lastrow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row Sheets("Sheet2").Range("A" & lastrow + 1).PasteSpecial 'Sheets("Sheet2").Range("A1").PasteSpecial MyRange1.Delete End If End Sub Mike "DaveM" wrote: Hi Excel 2002 sheet1 Column A this is formatted as Text 0001 0001 0002 0002 0002 0002 0002 0003 0003 I would like to hightlight the Rows of the first series of numbers, in this case Rows A1,A2 Cut and paste them in sheet2, leaving...... 0002 0002 0002 0002 0002 0003 0003 and when I use the code again it would move the 0002s Thanks in advance Dave |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Highlighting Rows and Cut to another worksheet
Thanks Mike
Works a treat All the best Dave "Mike H" wrote in message ... Hi, Right click sheet1 tab, view code and paste this in. Note that this appends to the data on sheet2 Sub copyit() Dim myrange, MyRange1 As Range lastrow = Cells(Rows.Count, "A").End(xlUp).Row Set myrange = Range("A2:A" & lastrow) firstvalue = Range("A1").Value Set MyRange1 = Rows(1) For Each c In myrange If c.Value = firstvalue Then Set MyRange1 = Union(MyRange1, c.EntireRow) End If Next If Not MyRange1 Is Nothing Then MyRange1.Copy lastrow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row Sheets("Sheet2").Range("A" & lastrow + 1).PasteSpecial 'Sheets("Sheet2").Range("A1").PasteSpecial MyRange1.Delete End If End Sub Mike "DaveM" wrote: Hi Excel 2002 sheet1 Column A this is formatted as Text 0001 0001 0002 0002 0002 0002 0002 0003 0003 I would like to hightlight the Rows of the first series of numbers, in this case Rows A1,A2 Cut and paste them in sheet2, leaving...... 0002 0002 0002 0002 0002 0003 0003 and when I use the code again it would move the 0002s Thanks in advance Dave |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Highlighting Rows and Cut to another worksheet
Glad I could help
"DaveM" wrote: Thanks Mike Works a treat All the best Dave "Mike H" wrote in message ... Hi, Right click sheet1 tab, view code and paste this in. Note that this appends to the data on sheet2 Sub copyit() Dim myrange, MyRange1 As Range lastrow = Cells(Rows.Count, "A").End(xlUp).Row Set myrange = Range("A2:A" & lastrow) firstvalue = Range("A1").Value Set MyRange1 = Rows(1) For Each c In myrange If c.Value = firstvalue Then Set MyRange1 = Union(MyRange1, c.EntireRow) End If Next If Not MyRange1 Is Nothing Then MyRange1.Copy lastrow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row Sheets("Sheet2").Range("A" & lastrow + 1).PasteSpecial 'Sheets("Sheet2").Range("A1").PasteSpecial MyRange1.Delete End If End Sub Mike "DaveM" wrote: Hi Excel 2002 sheet1 Column A this is formatted as Text 0001 0001 0002 0002 0002 0002 0002 0003 0003 I would like to hightlight the Rows of the first series of numbers, in this case Rows A1,A2 Cut and paste them in sheet2, leaving...... 0002 0002 0002 0002 0002 0003 0003 and when I use the code again it would move the 0002s Thanks in advance Dave |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Highlighting Rows with VB. | Excel Worksheet Functions | |||
| Highlighting Rows | Excel Discussion (Misc queries) | |||
| Highlighting Rows | Excel Discussion (Misc queries) | |||
| Highlighting rows? | Setting up and Configuration of Excel | |||
| highlighting rows | Excel Programming | |||
![DaveM[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
