Vba copy data to other sheet

[ste33uka]

Hi could someone help me add the follwing to this code ?
So that if column TL has an 'x' it would copy range.


if LCase(.Range("Tl81").Value) = "x" Then
.Range("TL81:Tx81").Copy Sheets("COPY").Range("NU" & Rows.Count).End(xlUp).Offset(1)
if LCase(.Range("Tl82").Value) = "x" Then
.Range("TL82:Tx82").Copy Sheets("COPY").Range("NU" & Rows.Count).End(xlUp).Offset(1)

Sub copy()
   Dim i As Long
  
   For i = 1 To 60
      With Sheets(CStr(i))
         If LCase(.Range("TL80").Value) = "x" Then
            .Range("TL80:Tx80").Copy Sheets("COPY").Range("NU" & Rows.Count).End(xlUp).Offset(1)
         End If
      End With
   Next i
End Sub

 

[JLGWhiz]

Sub copy2()
   Dim i As Long
   For i = 1 To 60
      With Sheets(CStr(i))
          For j = 80 To 82
             If LCase(.Range("TI" & j).Value) = "x" Then
                .Range("TL" & j).Resize(, 13).copy Sheets("COPY").Range("NU" & Rows.Count).End(xlUp).Offset(1)
             End If
          Next
      End With
   Next i
End Sub

 

[ste33uka]

Thanks alot, appreciate it.

 

[JLGWhiz]

Thanks alot, appreciate it.

You're welcome,
regards, JLG

 

[ste33uka]

Hi could someone please tweak this code so it would also copy blank cells to destination sheet.
Thanks

Sub copy2()
   Dim i As Long
   For i = 1 To 60
      With Sheets(CStr(i))
          For j = 80 To 82
             If LCase(.Range("TI" & j).Value) = "x" Then
                .Range("TL" & j).Resize(, 13).copy Sheets("COPY").Range("NU" & Rows.Count).End(xlUp).Offset(1)
             End If
          Next
      End With
   Next i
End Sub

 

[JLGWhiz]

Hi could someone please tweak this code so it would also copy blank cells to destination sheet.

You need to explain this better because it currently copies whatever is in (or not ii if blank) cells from columns TL to TX. Can you give an illustration of what you expect?

 

[ste33uka]

sorry my mistake , everything seems to work correctly now, thanks