Makro kopiujące komórkę do zakresu, obszar do zakresu -Jak ?
: wt maja 19, 2020 5:31 pm
Witam.
Siedzę od paru dni i nie mogę dojść jak skopiować zakres wiersza do wielu wierszy ?
Wiem jak skopiować zakres komórek do początku obszaru;
zakres B1:AO1 kopiuję do B11 i w ten sposób mam
cały zakres skopiowany do B11:AO11
I to działa.
A teraz trzeba mi skopiować
z zakresu B1:AO40 do wielu wierszy czyli B11, B12, B13 ..... B2000
Teraz robię to tak;
I to też działa - tylko że długo.
Może ktoś mnie oświeci jak to zrobić kompleksowo bez pętli ?, Bo brak mi już pomysłów .... i cierpię ....
Pozdrawiam
Rysiek S.
Siedzę od paru dni i nie mogę dojść jak skopiować zakres wiersza do wielu wierszy ?
Wiem jak skopiować zakres komórek do początku obszaru;
zakres B1:AO1 kopiuję do B11 i w ten sposób mam
cały zakres skopiowany do B11:AO11
Kod: Zaznacz cały
Sub Kopiuj_zakres
oBB = ThisComponent.Sheets.getByName( "BB" ) ' arkusz BB
oZrodlo = oBB.getCellRangeByPosition( 1, 0, 40, 0 ).getRangeAddress()
oCell = oBB.getCellByPosition( 1, 10 ).getCellAddress()
oBB.copyRange( oCell , oZrodlo )
End Sub
A teraz trzeba mi skopiować
z zakresu B1:AO40 do wielu wierszy czyli B11, B12, B13 ..... B2000
Teraz robię to tak;
Kod: Zaznacz cały
sub Kopiuj_wszystko_zapelnij
oBB = ThisComponent.Sheets.getByName( "BB" ) ' arkusz BB
oZrodlo = oBB.getCellRangeByPosition( 1, 0, 40, 0 ).getRangeAddress()
For wiersz = 10 to 2000
oCell = oBB.getCellByPosition( 1, wiersz ).getCellAddress()
oBB.copyRange( oCell , oZrodlo )
Next
End Sub
Może ktoś mnie oświeci jak to zrobić kompleksowo bez pętli ?, Bo brak mi już pomysłów .... i cierpię ....
Pozdrawiam
Rysiek S.