MS Excel

Ahojte.
prosím o radu.
jak zkopíruju řadky z jednoho sešitu sešit 1 do druhého sešitu2 ?
oba jsem otevřel a zkoušel jsem to takto:
Workbooks("sešit2").Sheets("list1").Range("A3:J500")=_
Workbooks("sešit1").Sheets("list1").Range("A1:J498")
a nic :(
nemluvě o tom že bych rád kopíroval jen plné řádky ale to ted řešit nema cenu

Zaslat odpověď >

Roman(9.8.2011 9:56)#005738

Zkus:
Workbooks("sešit1.xls").Sheets("list1").Range("A1:J498").copy Workbooks("sešit2.xls").Sheets("list1").Range("A3")
Jinak nevím co je plný řádek ten, který má ve všech sloupcích nějaký znak, nebo jen ve vybraných sloupcích, pak je otázka, kterých?citovat

eliasex(9.8.2011 17:32)#005750

díky.plny je pro me všecjny bunky A ažJ ale stačolo by dat podmínku na A kde bude datum.citovat

Roman(10.8.2011 8:04)#005755

Snad toto pomůže
Sub Makro1()
Workbooks("sešit1.xls").Activate
Sheets("list1").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
Rad = Selection.Row
Sl = Selection.Column
i = 0
Set obl = Nothing
Do
If Not Range("A1").Offset(i, 0) = "" Then
Set obl = Range("A1").Offset(i, 0).Resize(1, Sl)
Exit Do
End If
i = i + 1
Loop Until i > Rad
If obl Is Nothing Then Exit Sub
Do
If Not Range("A1").Offset(i, 0) = "" Then
Set obl = Union(obl, Range("A1").Offset(i, 0).Resize(1, Sl))
End If
i = i + 1
Loop Until i > Rad
Workbooks("sešit2.xls").Activate
Sheets("list1").Select
obl.Copy Range("A3")
End Sub

citovat

Téma: řadky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje