G
Guest
Guest
Hello..
I have a problem, Excel can’t seem to understand me, I would like to copy
Cells (I,”B”) And Cells (I,”C”) and Cells (I,”M”) from one worksheet to another
It gives me a type miss match error!!! I am choosing these cells off the value in column “M”.
Unless I say that entire rows. Copy. And I don’t want that ..
Also I would like them to be all in the same row in the secound sheet
This is my code that works
Sub Copy()
Dim RngDestination As Range
Dim i As Integer
Set RngDestination = Worksheets("Sheet2").Range("A1")
For i = Cells(Rows.Count, "M").End(xlUp).Row To 1 Step -1
If Cells(i, "M").Interior.ColorIndex = -4142 Then
Cells(i, "M").EntireRow.Copy Destination:=RngDestination
Set RngDestination = RngDestination.Offset(RngDestination.Rows.Count)
End If
Next i
And this is what I am trying to do
Sub Copy2()
Dim RngDestination As Range
Dim i As Integer
Set RngDestination = Worksheets("Sheet2").Range("A1")
For i = Cells(Rows.Count, "M").End(xlUp).Row To 1 Step -1
If Cells(i, "M").Interior.ColorIndex = -4142 Then
Cells((i, "B"),(i,"C")Cells(i,"M")).Copy Destination:=RngDestination
Set RngDestination = RngDestination.Offset(RngDestination.Rows.Count)
End If
Next I
Thanks for the help
I have a problem, Excel can’t seem to understand me, I would like to copy
Cells (I,”B”) And Cells (I,”C”) and Cells (I,”M”) from one worksheet to another
It gives me a type miss match error!!! I am choosing these cells off the value in column “M”.
Unless I say that entire rows. Copy. And I don’t want that ..
Also I would like them to be all in the same row in the secound sheet
This is my code that works
Sub Copy()
Dim RngDestination As Range
Dim i As Integer
Set RngDestination = Worksheets("Sheet2").Range("A1")
For i = Cells(Rows.Count, "M").End(xlUp).Row To 1 Step -1
If Cells(i, "M").Interior.ColorIndex = -4142 Then
Cells(i, "M").EntireRow.Copy Destination:=RngDestination
Set RngDestination = RngDestination.Offset(RngDestination.Rows.Count)
End If
Next i
And this is what I am trying to do
Sub Copy2()
Dim RngDestination As Range
Dim i As Integer
Set RngDestination = Worksheets("Sheet2").Range("A1")
For i = Cells(Rows.Count, "M").End(xlUp).Row To 1 Step -1
If Cells(i, "M").Interior.ColorIndex = -4142 Then
Cells((i, "B"),(i,"C")Cells(i,"M")).Copy Destination:=RngDestination
Set RngDestination = RngDestination.Offset(RngDestination.Rows.Count)
End If
Next I
Thanks for the help