Da li moze da se brise preko macroa odredjene kolone tipa A i H, i odredjeni redovi 30,31,32 , taj kod bi sluzio za vise workbook-ova? ili kako da se obrisu odredjene kolone i redovi iz workbook ali razlicitih sheet-ova isti primer kolona A i h i redovi 30,31,32?
brisanje odredjene kolone i reda
Zaključano
Zakačeno
Da li bi moglo umesto brisanja da se odredjeni opseg npr B2:E41 kopira iz vise sheetova u jedan?
Kako zameniti kod koji je u prilogu korisnika elektroing da kopira raspon i sheetova u jedan,a raspon je B4:Q44.imam jos dva pitanja kako da se pomeri button dugme u levo? I da li ce kopirati raspon i ako sheetovi nisu imenovani kao sheet ili ce i kopirati ako se sheet erugacije zove?
Ovde sam pokusavao da cells zamenim sa range ali mi ppkazuje gresku n\a. A treba opseg a3:c41 iz svakog shweta da kopora u jedan. A tu imam jos jedan problem kako da vrednost iz a2 kopiram u kolonu d i to u opsegud3:d41 za sve sheetove. Svaki sheet ima svoju vrednost iz a2
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.
a drugi primer u prilogu treba da se vrednost iz celije A1 kopira u kolonu B u rasponu od B2 do B13 I tako za sve sheetove ali vrednost iz A1 u svakom sheetu je razlicita tj ili vrednost ili tekst u ovom primeru tekst
Da li za ovaj iznad jedan primer kad se napise da kopira vrednost u rasponu i da bi ponovio to isto napisati next sheet pa ce ponavljati ili mu zreba zadati petlju?
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.
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
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 :)
To je to.
Kako resiti: da se kopira raspon A2:B10 iz vise sheetova u sheet RADNO ali da kopira jedam pored drugog sa kolonom razmaka?
Kako resiti: da se kopira raspon A2:B10 iz vise sheetova u sheet RADNO ali da kopira jedam pored drugog sa kolonom razmaka?