Estou realizando um For
dentro outro For
, onde corre por coluna, encontra a célula e copia, no outro For
corre coluna também e cola numa range. Porém, o código está realizando todo um For
primeiro para depois realizar o outro e preciso que execute os dois (copiando e colando).
Podem me ajudar? Abaixo o código que realizei...
SUB ()
Set Cop = Workbooks(Arq)
L = Cop.Sheets("Consolidado_Vendas_TFN").Range("J1048576").End(xlUp).Row
For w = 15 To 135
If Cells(6, w) <> "" Then
Cells(6, w).Copy
End If
For y = 18 To 138
If Cells(8, y) = "" Then
Sheets("Consolidado_Vendas_TFN").Range(Cells(8, y), Cells(L, y)).PasteSpecial xlValues
w = w + 4
y = y + 4
End If
If w = 136 And y = 139 Then
Exit For
Exit For
Else
w = w - 1
y = y - 1
End If
Next y
Next w
END SUB