Boa tarde!!
Sub UsePesquisaDoForum()
Dim ws As Worksheet
For Each ws In Sheets(Array("Tupy", "Centro", "Vila_Nova", "Norte"))
ws.Range("A2", ws.Range("H" & Rows.Count).End(xlUp)).Copy Worksheets("BaseDados").Range("A65536").End(xlUp)(2)
Next ws
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 23/09/2016 2:04 pm