[ mirko1949 @ 12.09.2006. 08:05 ] @
Koristim makro za kopiranje koji kopira vrednosti iz Sheet1 u Sheet2 i to u prvi prazan red Sheet2 [code Code: Sub Button1_Click() ' Makro koji snima podatke iz opsega C1:F1 u prvi prazan red ' na sledecem listu ' Selektovanje i kopiranje opsega Range("C1:F1").Select Selection.Copy ' Prelazak u Sheet2 Sheets("Sheet2").Select ' Pozicioniranje na prvu praznu ?eliju u koloni A Range("A65536").End(xlUp).Offset(1, 0).Select ' Kopiranje po vrednosti Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False ' Povratak na Sheet1 Sheets("Sheet1").Select End Sub] Kako da resim 2 problema: 1. U Sheet1 se nalaze podaci koji u zavisnosti od slucaja da slucaja mogu biti u razlicitim redovima (sa preskocenim radovima) Na primer: 1. Slucaj koji se kopira C1:F1 C4:F4 C6:F6 2. Slucaj koji se kopira C1:F1 C3:F3 3. Slucaj koji se kopira C4:F4 C5:F5 C7:F7 Kako ovakve vrednosti kopirati u Sheet2 tako da podaci budu kopirani u uzastopne redove (bez preskakanja) 2. Kako na slican nacin kopirati odredjenu tabelu (obrazac) u kome su odredjene celije spojene (Merge cells). Obrazac je uvek standardan (isti broj redova i kolona) [Ovu poruku je menjao Jpeca dana 03.12.2007. u 11:52 GMT+1] |