Citat:
vojvoda1010: Opseg B2:E11 da se kopira u iz sheet 1 do sheet 7 u sheet RADNO da idu jedni ispod drugih. u prilogu primer opsega.
Naslov teme ne odražava tvoj problem u ovom postu. Pogledaj tutorijal
Consolidating Data from Multiple Worksheets into a Summary Worksheet in Excel
btw: u mom primjeru je nešto drugačije.
Ovo je VBA kod koji radi nešto slično to što želiš (naravno ako ima podataka na ostalim Sheets). U Module1 nalazi se slijedeće
Code:
Sub CopyAndPasteMultipleRange()
Dim ws As Worksheet, flg As Boolean
Worksheets("RADNO").UsedRange.Delete
For Each ws In Worksheets
If ws.Name <> "RADNO" Then
'prva ćelija u kojoj se nalaze podaci +1 jer želiš razmak između kopiranih podataka
With ws.Range("B1").CurrentRegion
With .Resize(.Rows.Count - IIf(flg = True, 1, 0))
'destinacija prvi stupac A u koji se kopiraju podaci
Worksheets("RADNO").Range("A65536").End(xlUp).Offset(1). _
Resize(.Rows.Count, .Columns.Count).Value = .Value
flg = True
End With
End With
End If
Next ws
End Sub
Dakle VBA kod kopira podatke koji startaju u B2 i kopira ih na Sheet "RADNO" jedno ispod drugog s razmakom jednog reda između sheets. Vjerujem da ima jednostavniji ali ako ti rješava problem valjda će biti OK :)