MS Excel

Dakujem. Copy nerobim na aktivnom liste, ale na liste ktory dostanem z otvoreneho suboru pomocou Workbooks.Open Filename:="C:\ ...
Problem je v tom, ze potrebujem dynamicky menit druhu suradnicu XY v Copy oblasti B3: XY, pricom X a Y (cislo stlpca a riadku) mam v samostatnych dvoch bunkach. Ako potom mam robit Copy z takto sa meniacej oblasti z otvoreneho suboru?citovat

Kopírování používáš v rámci aktivního listu. Tj

Range("A1").Copy Range("B3")

Pokud chceš kopírovat z aktivního listu do jiného listu listu pak použiješ

Range("A1").Copy Worksheet("List2").Range("B3")

Pokud chceš kopírovat z jiného listu listu do aktivního listu pak použiješ

Worksheet("List3").Range("A1").Copy Range("B3")

A pokud otevřeš nový sešit a chceš z něj kopírovat do jiného pak je možné po otevření si nastavit proměnnou a pak s ní pracovat

' Můj sešit
Set A = ActiveWorkbook

' Otevřu jiný
Open...

Set B = ActiveWorkbook

A.Activate

Range("A1").Copy B.Worksheet("List1").Range

B.Close False

atd.

Podstatné je že:
- Aktivní sešit nemusíš uvádět.
- Nemusíš aktivovat příjemce když uvedeš cestu
- Pro lepší čitelnost při kopírování mezi sešity je vhodné nastavit proměnnou typu Workbooks

Pokud se týče kopírování mezi buňkami při větším množství je vhodné použít cyklus foreach

For each C in Worksheet("List3").Range("A1:A10")
C.Copy Worksheet("List3").Range(C.Address)
Next C

Tvůj případ je pak

For i = 1 to 10
Cells(i,1).Copy Worksheet("List3").Cells(i+10,3)
Next i

Ikdyž je na něco Cells vhodné ... převážně používám For Each protože se s tím líp pracuje.
R.citovat

... běžně Tvůj případ funguje spolehlivě.

Workbooks("otevřený sešit v pozadí.xls").Worksheets("blabla").Range("B12").Copy Range("A1")

Workbooks("otevřený sešit v pozadí.xls").Worksheets("blabla").Range("B12").Copy Cells(2, 2)

Co toto
Range("B3":"O12").Copy nahradit Range("B3:O12").Copy

Je jedno kterým směrem kopíruješ ... aktivní nemusíš psát a tene druhý ano. V makru si musíš být jistý na kterém v daný okamžik stojíš a nebo je Ti to jedno a kopíruješ mezi dvěma skrytými sešity v pozadí a musíš napsat cesty k oběma. Zkus si přečíst můj koment ještě jednou.

R.citovat

Možná by bylo vhodnější taky něco z toho vyzkoušet. Myslím si, že jsem Tě pochopil správně.

Pokud Ti ani toto nepomůže, pak by bylo skutečně příště lepší abys poslal vzorek dat ... třeba smyšlený. Jinak je tato komunikace jen prostá ztráta času. R.

Sub test()
Dim i As Long
Dim j As Long
Dim k As Long
Dim s As String
Dim C As String

1. varianta
With Workbooks("KD.xls").Worksheets("KD")
For i = 12 To 15
For j = 5 To 10
k = Range("A65536").End(xlUp).Row + 5
s = Cells(i, j).Address
.Range("B3:" & s).Copy Cells(k, 1)
Next j
Next i
End With

2. varianta
With Workbooks("KD.xls").Worksheets("KD")
For i = 12 To 15
For j = 5 To 10
s = Cells(i, j).Address & ":" & Cells(j, i).Address
.Range(s).Copy Cells(i * 10 + 5, 1)
Next j
Next i
End With

3. varianta
With Workbooks("KD.xls").Worksheets("KD")
s = Cells(3, 3).Address & ":" & Cells(3, 15).Address
For Each C In .Range(s)
C.Copy Cells(5, C.Column)
Next C
End With

4. varianta
With Workbooks("KD.xls").Worksheets("KD")
s = Cells(3, 3).Address & ":" & Cells(3, 15).Address
.Range(s).Copy Range("A1")
End With

End Sub
citovat