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
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
Nije to loše Rembrante, samo što ne bi dodao još malo boje?