Preko formula mislim da je tesko izvodljivo, a i ako jeste slozenije je za razliku od makroa. Ako je forma na svim Sheet-ovima ista onda ce moj kod funkcionisati bez ikakvog prepravljanja. Evo ukratko kako bi ga mogao ubaciti kod sebe.
Code:
Private Sub btnKopiraj()
Dim Aktivni As String
Dim List As Variant
Dim i As Integer
Dim j As Integer
j = 1
Aktivni = ActiveSheet.Name
For Each List In Worksheets
If List.Name <> Aktivni Then
i = 2
Do Until IsEmpty(List.Cells(i, 1))
j = j + 1
Sheets(Aktivni).Cells(j, 1) = j - 1
Sheets(Aktivni).Cells(j, 2) = List.Cells(i, 2)
Sheets(Aktivni).Cells(j, 3) = List.Cells(i, 3)
Sheets(Aktivni).Cells(j, 4) = List.Cells(i, 4)
i = i + 1
Loop
End If
Next
End Sub
1. Kada otvoris svoj Excel fajl otvori Sheet u kome zelis da ti sve bude iskopirano.
1. Otvori VBA editor (Alt+F11).
2. Dupli klik na Sheet u kome zelis da ti bude koirano (lista na levoj strani u VBA editoru).
3. Iskopiraj ovaj gore kod.
4. Mozes kliknuti na zelenu strelicu ili stisnuti taster F5.
NAPOMENA: Ovo sve prvo probaj na nekoj rezervnoj kopiji, nemoj na originalnom fajlu.
Ako ne uspes mozes okaciti svoj fajl pa da ti ubacim ovaj kod.