[Excel] Popunjavanje ćelija

[Excel] Popunjavanje ćelija 03.11.2006. u 20:33 · pre 243 meseca #1

radim kronologiju korisnika i uz svaki datum mi mora biti pridruženo ime kako bi mogla koristiti podatke po kronologiji za koji mjesec ili godinu trebam.Međutim imam problem sa popunjavanjem ćelija. Evo primjera pa ću pokušati objasniti

417 NIKOLIĆ NIKOLA
1092 802 109 16.7.2002
1092 601 109 16.5.2003
1092 601 109 1.8.2003
1092 104 109 16.2.2004
1092 1201 109 16.11.2005
1096 0,01 100 16.8.2001
584 PETROVIĆ PETAR
1092 1001 111 16.9.2005
1096 0 100 16.9.2004
1096 1900 10 16.10.2005
672 MARKOVIĆ MARKO
1096 0,01 10 16.7.2001
1096 110,01 10 16.12.2002
1096 0 10 16.3.2004
Dok radim tabelu koristim za popunjavanje praznih ćelija Uređivanje-ispune-dolje i tako za svakog korisnika a njih imam oko 1500 Molim Vas dali postoji mogućnost da se to popuni u jednom potezu.Osim toga htjela bi koristiti makro naredbe o kojima sam dosta čitala na ovim stranicama i mislim da sam razumjela bit pa ako mi ovo uspjete rješiti i ja ću se potruditi da napravim makro za ovu krono tabelu
Pozdrav

Re: [Excel] Popunjavanje ćelija 04.11.2006. u 20:59 · pre 243 meseca #2

Da li možeš da još malo pojasniš u čemu je problem sa popunjavanjem - koji podaci se ponavljaju i u kojoj koloni/ćelijama? Bilo bi najbolje da uploaduješ primer u Excel-u kako bi videli o čemu se radi.
Uopšteno govoreći verovatno može da se napravi neka formula ili makro koji bi ti pomogao kod popunjavanja.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] Popunjavanje ćelija 04.11.2006. u 22:57 · pre 243 meseca #3

Pojasnit ću vrlo rado trebaju se kopirati broj u STUPCU A i Prezime i ime u STUPCU B do novog broja i imena i prezimena. Odnosno uz svaki datum mora biti broj i ime i prezime: Malo mi je neugodno ali ja sam tek sada počela koristiti ovaj način pomoći i ne znam kako se uploaduje primer iz Excela. Možda se pitate šta uopće radim ovdje ali ja hoću naučiti. Pokušat ću možda Vam pošaljem deset primera, a možda ni jedan.
Pozdrav

krono.xls14k

Re: [Excel] Popunjavanje ćelija 06.11.2006. u 09:13 · pre 243 meseca #4

Ne znam šta je sa praznim redovima 3 i 5 - kako si ti napisala i oni se popunjavaju sa kopiranim podacima?

Varijanta 1 - pomoću formule. Ideja je da se dobije rezultat koji ti treba u pomoćnim kolonama pa se to prebaci u kolone A i B

1/ U ćeliju H1 upiši formulu koja prepisuje sadržaj ćelije A1

Code:
=A1

2/ U ćeliju H2 upiši formulu koja prepisuje sadržaj iz A koloni ili ćelije iznada zavisno da li je kolona A popnjena.

Code:
=IF (A2 <> "", A2, A1)

3/ Kopiraj formule iz H1:H2 u I1:I2
[img] F:\My Documents\Razno\Fill.jpg[/img]

4/ Kopiraj formule H2:I2 na dole u sve redove koje treba popuniti. Sada se željeni rezultat nalazi u kolonama H i I
5/ Kopiraj kolone H i I
6/ Zalepi kopirane vrednosti (Paste Special, Values - pazi ne "običan" Paste) u kolone A i B

2. Varijanta. Napraviš makro koji će izvršiti popunjavanje i startuješ ga po potrebi. Ovo je brži način ako operaciju radiš relativno često, ali obrati pažnju da kod makroa ne radi Undo tako da treba pre startovanja snimiti radnu svesku. Sam makro je prilično jednostavan - Ide red po red i ukoliko je ćelija u koloni A prazna popunjava ćelije u koloni A i B sa prethodno zapamćenim vrednostima, a ukoliko nije prazna pamti vrednosti iz ćelija A i B

Code:

Sub Fill()
'Popunjavanje praznih celija u koloni A i B
'
' P. Jovanovic  6/11/2006
'
Dim sh As Worksheet
Dim rwEnd As Long
Dim r As Long
Dim Broj As String
Dim Ime As String
Const rwStart As Long = 1  ' Od kog reda pocinje oblast za popunu

Set sh = ThisWorkbook.Sheets(1) ' List koji se obradjuje
' Odredjuje poslednji red koji treba popuniti na osnovu kolone C
rwEnd = sh.Range("C65536").End(xlUp).Row
For r = rwStart To rwEnd
   If Len(sh.Cells(r, 1).Text) = 0 Then
      ' Popuni red
      sh.Cells(r, 1).Value = Broj
      sh.Cells(r, 2).Value = Ime
   Else
      ' Azuriraj podatke za prepisivanje
      Broj = sh.Cells(r, 1).Text
      Ime = sh.Cells(r, 2).Text
   End If
Next r

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] Popunjavanje ćelija 06.11.2006. u 14:46 · pre 243 meseca #5

Hvala lijepo, probala sam primjeniti Vaš kod i uspjelo je. Sada ću probati napraviti kompletnu tabelu makro naredbom ako zapnem javit ću se. Uredila sam tabelu (popunjavala ručno stupac a i b) recite mi kako da ugradim ovaj kod u svoj makro (od do) ili moram uzeti novi modul (Insert-Module).
Pozdrav

Re: [Excel] Popunjavanje ćelija 06.11.2006. u 15:10 · pre 243 meseca #6

Citat:

...kako da ugradim ovaj kod u svoj makro (od do) ili moram uzeti novi modul (Insert-Module).

Ne znam kako izgleda tvoj makro. Ukoliko sam razumeo i ti imaš makro koji kreira tabelu možeš(najjednostavnije ali ne i najefikasnije) da ovaj kod pozoveš na kraju svog makroa - nakon što je popunjenje tabela npr.

Code:

Sub PopuniTabelu
'Deo koji imas i koji popunjava tabelu
'....
Fill
End Sub

Kod mozes da stavis u isti modul sa svojim makroom.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] Popunjavanje ćelija 06.11.2006. u 16:17 · pre 243 meseca #7

Da držeći se vaših uputa o rad s makro naredbama ja sam uspjela napraviti svoj prvi makro za tu tabelu i radi mi sve ok sada samo trebam upotrijebiti ovaj kod koji ste mi poslali i to će biti savršeno, onda moram vidjeti kako radi makro dok je u pitanju prelazak na drugi radni lista. Hvala Vam puno.
Pozdrav

Re: [Excel] Popunjavanje ćelija 25.06.2007. u 15:16 · pre 235 meseci #8

Jedno pitanje u vezi ove makro naredbe

Code:

Sub Fill()
'Popunjavanje praznih celija u koloni A i B
'
' P. Jovanovic  6/11/2006
'
Dim sh As Worksheet
Dim rwEnd As Long
Dim r As Long
Dim Broj As String
Dim Ime As String
Const rwStart As Long = 1  ' Od kog reda pocinje oblast za popunu

Set sh = ThisWorkbook.Sheets(1) ' List koji se obradjuje
' Odredjuje poslednji red koji treba popuniti na osnovu kolone C
rwEnd = sh.Range("C65536").End(xlUp).Row
For r = rwStart To rwEnd
   If Len(sh.Cells(r, 1).Text) = 0 Then
      ' Popuni red
      sh.Cells(r, 1).Value = Broj
      sh.Cells(r, 2).Value = Ime
   Else
      ' Azuriraj podatke za prepisivanje
      Broj = sh.Cells(r, 1).Text
      Ime = sh.Cells(r, 2).Text
   End If
Next r
End Sub

[/quote]

Re: [Excel] Popunjavanje ćelija 25.06.2007. u 15:53 · pre 235 meseci #9

Makro koje koristiš samo za specifične namene pamtiš u toj radnoj svesci. Makroi kojima treba pristupati iz različitih radnih sveski, da nebi stalo kopirala iz jedne u drugu možeš sačuvati u personal radnoj svesci. Ovde ćeš naći detaljnija uputstva: http://www.praktikum.co.yu/office/excel/xl_062.htm

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] Popunjavanje ćelija 25.06.2007. u 16:36 · pre 235 meseci #10

Jesam već imam puno makronaredbi u Personalu samo mi ona ne radi a ne znam iz kojeg razloga. Ona radi samo dok ju direktno kopiram u modulu te radne knjige u kojoj ju koristim.

Posebnu datoteku imam složenu sa makroima jer ju onda mogu prenositi na drugi komp.

I moram Vam reći mrzim Excel 2007 ne mogu se snaći i ne znam gdje mi je Visual Basic. Da bi došla do njega moram snimiti makro pa onda preko njega idem u Visual. Glupa sam ali ne znam gdje mi je šta. Sve mi je kao dječja bojanka. Same slikice. Nevolim promjene. Ja puno radim u Excelu i XP je zakon.
jesam li sada napravila vraga ali morala sam to reći makar nije ni mjesto ni tema.

Hvala
Pozdrav

Forum kao aplikacija na telefonu

Srodne teme