View Single Post
  #19   Report Post  
Old August 30th 05, 02:34 PM
Dave Peterson
Posts: n/a

Maybe something like:

Option Explicit
Sub testme2()
Dim toWks As Worksheet
Dim actWks As Worksheet
Dim myRng As Range
Dim myCell As Range
Dim iRow As Long
Dim DestCell As Range

Set actWks = ActiveSheet
Set toWks = Worksheets("Sheet1")

Set myRng = Intersect(Selection.EntireRow, actWks.Range("a:a"))

With toWks
Set DestCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
End With

With toWks
For Each myCell In myRng.Cells
iRow = myCell.Row
DestCell.Value = actWks.Cells(iRow, "a").Value
DestCell.Offset(0, 1).Value = actWks.Cells(iRow, "z").Value
Next myCell
End With
End Sub

I'm guessing that z12 meant column Z.

Optitron wrote:

Now I need something else along the same lines. I need a button to move
2 cells in multiple selected rows to another sheet.

sheet2 -- sheet 1

row(rows selected) column a -- rows (# of rows selected) column a
row(rows selected) column z12 -- rows (# of rows selected) column b

Optitron's Profile:
View this thread:


Dave Peterson