is there any macro that if i want to copy only those rows (row lentgh
cell A to cell F) from sheet 1 to sheet 2 in which any cell in coloumn
B got Red colour by conditional formatting. Please just need the
macro if anybody can help. thanks

Check your original posting.

"K" wrote:

> is there any macro that if i want to copy only those rows (row lentgh
> cell A to cell F) from sheet 1 to sheet 2 in which any cell in coloumn
> B got Red colour by conditional formatting. Please just need the
> macro if anybody can help. thanks
>

Sub cpyColr()
Dim c As Range
lastRw = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row
For Each c In Worksheets(1).Range("B2:B" & lastRw)
If c.FormatConditions.Count > 0 Then
If c.FormatConditions(1).Interior.ColorIndex = 3 Then
lstRw2 = Worksheets(2).Range("A65536").End(xlUp).Row
cRng = c.Address
Worksheets(1).Range("A" & Range(cRng).Row & ":F" & _
Range(cRng).Row).Copy Worksheets(2).Range("A" & lstRw2 + 1)
End If
End If
Next
End Sub


"K" wrote:

> is there any macro that if i want to copy only those rows (row lentgh
> cell A to cell F) from sheet 1 to sheet 2 in which any cell in coloumn
> B got Red colour by conditional formatting. Please just need the
> macro if anybody can help. thanks
>

On 15 Dec, 18:31, JLGWhiz <JLGW...@discussions.microsoft.com> wrote:
> Sub cpyColr()
> Dim c As Range
> lastRw = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row
> For Each c In Worksheets(1).Range("B2:B" & lastRw)
> If c.FormatConditions.Count > 0 Then
> If c.FormatConditions(1).Interior.ColorIndex = 3 Then
> lstRw2 = Worksheets(2).Range("A65536").End(xlUp).Row
> cRng = c.Address
> Worksheets(1).Range("A" & Range(cRng).Row & ":F" & _
> Range(cRng).Row).Copy Worksheets(2).Range("A" & lstRw2 + 1)
> End If
> End If
> Next
> End Sub
>
>
>
> "K" wrote:
> > is there any macro that if i want to copy only those rows (row lentgh
> > cell A to cell F) from sheet 1 to sheet 2 in which any cell in coloumn
> > B got Red colour by conditional formatting. Please just need the
> > macro if anybody can help. thanks- Hide quoted text -
>
> - Show quoted text -

Thanks JLG