Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

automatksko insertovanje, ubacivanje redova u vise sheetova odjednom

[es] :: Office :: Excel :: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom

[ Pregleda: 3525 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Laki024

Član broj: 161293
Poruke: 585
*.dynamic.isp.telekom.rs.



+64 Profil

icon automatksko insertovanje, ubacivanje redova u vise sheetova odjednom09.04.2013. u 09:58 - pre 74 meseci
Potrebna mi je pomoc oko automatskog kopiranja podataka, ili ako neko mozda zna da kaze bolje resenje,

Imam sheet 1 ( sumarum podataka na sheet 2,3,4,5 )

Stim sto je tako podeseno da u sheet1 1-5 reda idu podaci iz sheeta 2, 6-10 reda podaci iz sheeta 3 , 11-15 reda podaci iz sheeta 4 i 16-20 reda podaci iz sheeta 5.

Kao sto se vidi na prikacenom fajlu.

1-3 su prekopirani automatski podaci iz sheeta 2 tj ova vrednost "ddd" , e sada ako stavim an 4. mesto nesto i to ce se automatski prekopirati to nije problem, ali ako ubacim izmedju 2 i 3 reda jedan novi red ( insertujem novi red izmedju ) podaci iz tog rega se nece pokazati na sheetu 1. Znaci meni zapravo treba pomoc kako da insertujem red u sheet 2 a da se automtski taj red insertuje i u sheet 1 , takodje ako insertujem red u sheet 3 kako se taj red insertuje automatski u sheet 1.
Prikačeni fajlovi
 
Odgovor na temu

Laki024

Član broj: 161293
Poruke: 585
*.dynamic.isp.telekom.rs.



+64 Profil

icon Re: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom09.04.2013. u 10:14 - pre 74 meseci
Ako ovo ne moze ovako da se resi meni je bitno samo ako ubacim novi red u sheet 2 da se podaci iz tog reda automatski prekopiraju u sheet1 koji je sumarum svih sheetova, moze i na zadnje mesto nije problem, samo da se podaci automatski prekopiraju iz svih shetova u sheet 1 ako dodam nesto, ili ubaci neki sheet izmedju.
 
Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 804
*.adsl.verat.net.



+159 Profil

icon Re: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom09.04.2013. u 11:39 - pre 74 meseci
Ovo je rešenje sa pomoćnim kolonama.
Prvo u kolonama D,E,F,G povučemo podatke iz drugih šitova koristeći indirect(address) formulu tako da povučemo podataka iz svakog reda, nezavisno da li je reč o starom podatku ili o novododatom redu.

Sada prebrojimo broj podataka u Sheetovima i te rezultate stavimo u H kolonu. Koristeći ove brojeve prepišemo podatke iz kolona E,F i G u kolone I,J,K ali ih OFFSETUJEMO tako da se na kraju mogu svi podaci staviti u jednu kolonu.

Koristeći ugnježđenu IF funkciju kopiramo podatke iz kolona D,I,J,K u kolonu L. Sada će ta kolona L prikazivati sve što se nalazi u ostalim Sheetovima.
Prikačeni fajlovi
 
Odgovor na temu

Laki024

Član broj: 161293
Poruke: 585
*.dynamic.isp.telekom.rs.



+64 Profil

icon Re: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom09.04.2013. u 15:13 - pre 74 meseci
Ok, hvala na pomoci, ovo resavanje problema mi ipak ne odgovara.

Kako bi moglo da se resi onda na ovaj nacin>?

Ima sheet sumarum, sto je sve zajedno sheet A , sheet B, sheet C

Da li bi moglo nekako da se resi tako sto bi se dodavao autonumber svakoj koloni u A u sheetovima A, B i C, tako da ako se ukuca neki nov unos u A, B ili C tom redu dodaljuje automatski prvi sledeci autonumber, i kopira taj red na zadnje mesto ( tj sortira ga po autonumberu ) u sumarum sheet-u?

U prilogu je postavljeno kako bi trebao da se resi taj problem
Prikačeni fajlovi
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2060
212.200.121.*

Sajt: www.gowi.rs


+77 Profil

icon Re: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom10.04.2013. u 13:57 - pre 74 meseci
Već sam pisao ranije o tome da automatsko ubacivanje reda nije dobro rešenje, jer se onda otvara problem oko istovremenog ažuriranja i brisanja

Obično se sumarni listovi dobijaju na osnovu Pivot tabele, ali ako ti treba samo prepis možeš primeniti sledeće rešenje
Napravi proceduru koja prepisuje sve redove iz jednog lista u drugi. Nju možeš da smestiš u poseban modul

Code:
Sub AddRows(shSource As Worksheet, shDest As Worksheet)
' Dodaje sve redove iz shSource
' na kraj radnog lista shDest
' P. Jovanovic za elitesecurity.org
'
Dim rwLast As Long
rwLast = shSource.Range("A65535").End(xlUp).Row ' odredjivanje poslednjeg popunjenog reda
shSource.Rows(1).Resize(rowsize:=rwLast).Copy

rwLast = shDest.Range("A65535").End(xlUp).Row ' odredjivanje poslednjeg popunjenog reda
If Len(shDest.Cells(rwLast, 1).Text) > 0 Then
  rwLast = rwLast + 1  ' Red od kojeg se kopira 1- ili prvi prazan
End If
shDest.Cells(rwLast, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub


Na dogadjaj aktivacije lista sumarum izvrši prepisivanja iz lista A, B i C u taj list. Ovaj kod moraš staviti u kod radnog lista summarum

Code:
Private Sub Worksheet_Activate()
' Prilikom aktiviranja kopira se sadrzaj iz listova
' A, B, i C po vrednosti
'
    Dim rwLast As Long
 ' Sprecavanje drugih dogadjaja i osvezavanja ekrana
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 ' Brisanje prethodne liste
    rwLast = ActiveSheet.Range("A65535").End(xlUp).Row ' odredjivanje poslednjeg popunjenog reda
    ActiveSheet.Rows(1).Resize(rwLast).Delete
    
 '  Kopiranje redova iz listova
    AddRows Sheets("A"), ActiveSheet
    AddRows Sheets("B"), ActiveSheet
    AddRows Sheets("C"), ActiveSheet
    Application.CutCopyMode = False
    ActiveSheet.Range("A1").Select
  
  '
    Application.EnableEvents = True
    Application.ScreenUpdating = True
   
End Sub


Naravno ovo sad treba prilagoditi tvom primeru - da li kopiranje počinje od prvog reda ili ne i sl.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

pondeke
Veselin Djurovic

Član broj: 87412
Poruke: 72
*.crnagora.net.



Profil

icon Re: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom15.04.2013. u 21:38 - pre 74 meseci
Moze li ko objasnit, kako da iz jednoga sheeta, prepisem u drugi sheet neki podatak ; na primjer u sheet1 imam podatak u neku celiju npr. 50 , da mi u sheet2 pise 1 , sheet1 100 u sheet2 2 itd., isto me interesuje i za imena i prezimena....
Prikačeni fajlovi
 
Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 804
*.adsl.verat.net.



+159 Profil

icon Re: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom16.04.2013. u 05:37 - pre 74 meseci
Napravi pomoćnu tabelu. U njoj odredi kojem podatku odgovara koja šifra.

Pomoću Vlookup funkcije očitavaj podatke iz Sheeta1 i za dati podatak proveravaj koja mu šifra odgovara u pomoćnoj tabeli. Ta šifra će biti upisana u Sheet2.
Prikačeni fajlovi
 
Odgovor na temu

pondeke
Veselin Djurovic

Član broj: 87412
Poruke: 72
*.crnagora.net.



Profil

icon Re: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom16.04.2013. u 19:14 - pre 74 meseci
hvala care, treba mi za nijansu bolje resenje ako bi moglo, pomocna tabela mi ne odgovara, imam masu podataka, a koristio bih prepis i u neki drugi dokument
 
Odgovor na temu

[es] :: Office :: Excel :: automatksko insertovanje, ubacivanje redova u vise sheetova odjednom

[ Pregleda: 3525 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.