Pytanko kopiowanie danych z kilku arkuszy do jednego
Raptor - 24-12-2006 00:37
Pytanko kopiowanie danych z kilku arkuszy do jednego
Witam !
Mam pewnien problem, którym nie mogę sobie dać rady.
Próbowałem napisać procedurę w VBA ale coś nie gra.
Poniżej przedstawie o co mi chodzi.
Mam dane zawarte w kilku arkuszach 1-20. Potrzebuje skopiowac dane z
tych arkuszy ale z tej samej komórki "A7" do innego arkusza (
wszystkie w ramach tego samego skoroszytu).
Kopiowanie udało mi się zrobić tyle że wszystko zapisuje się w
jednej lini a nie wiem jak zrobić żeby się zapisywało w kolejnej
komórce czyli b2, b3 b4...b20.
Pniżej procedura próbowałem zmienną Range wykorzystać ale coś mi
nie działa...Proszę o pomoc.
Sub kopiowanie_nazwy()
'
' kopiowanie_nazwy Makro
' Makro zarejestrowane 2006-12-07, autor Administrator
'
'
Dim a, b As Integer
Dim r As Range
a = 1
b = 2
For a = 1 To 20
ActiveCell.FormulaR1C1 = Worksheets(a).Range("A7")
Worksheets(1).Range("a7").Copy
For b = 3 To 22
Worksheets("Zestawienie").Cells(b, 2).Value = "a7"
a = a + 1
ActiveCell.FormulaR1C1 = Worksheets(a + 1).Range("A7")
b = b + 1
Range(b + 1, 2).Activate
Next b
Next a
End Sub
Pozdrawiam
Andrzej
Jacek Czapla - 24-12-2006 00:37
Zajebiste. Jak wyślesz to jeszcze na grupę mającą cokolwiek wspólnego z
VB to sukces murowany.
--
*Jacek Czapla* //usuń ".pułapka" z adresu email
www.ASIT.pl
http://www.busyonline.pl - Rezerwacja miejsc w busach
zanotowane.pldoc.pisz.plpdf.pisz.pleffulla.pev.pl
|
[MSSQL2000] Problem z =?ISO-8859-2?Q?tabel=B1/indeksem/zapytanie?==?ISO-8859-2?Q?m_czy_b=B3=B1d_w_bazie_danych=2E=2E=2E?=
=?iso-8859-2?Q?=5BMySQL=5D_Wy=B6wietlenie_wszystkich_rekordow _zawierajacy?==?iso-8859-2?Q?ch_duplikat_a__moze_inna_struktura_bazy_danych ?=
Konwesja znaków w dump'ie bazy danych - ISO -> utf-8 -> ISO -> utf-8
[laik]Jak =?ISO-8859-2?Q?stworzy=E6/zaczac_tworzyc__ma=B3=B1?==?ISO-8859-2?Q?__baz=EA_danych_na_potrzeby_www=3F?=
[mysql] przenoszenie danych =?ISO-8859-2?Q?mi=EAdzy_tabelami_?==?ISO-8859-2?Q?w_r=F3=BFnych_bazach?=
Ksiazka - "Podstawowy =?ISO-8859-2?Q?wyk=B3ad_z_system=F3w_?==?ISO-8859-2?Q?baz_danych=22?=
Zrywanie =?ISO-8859-2?Q?po=B3aczen_z_baza_danych_-_pos?==?ISO-8859-2?Q?tgresql_=3C-=3E_odbc?=
Połączenie bazy danych z wykonaniem polaczenia telefonicznego
[mssql] insert do tabeli na podstawie danych z innej tabeli
[oracle] Baza danych do kursy Introduction to Oracle9i:PL/SQL ? Skąd ją pobrać ?
zanotowane.pldoc.pisz.plpdf.pisz.pllubiatowo.xlx.pl
Cytat
Decede mihi sole - nie zasłaniaj mi słonca.
Gdy kogoś kochasz, jesteś jak stworzyciel świata - na cokolwiek spojrzysz, nabiera to kształtu, wypełnia się barwą, światłem. Powietrze przytula się do ciebie, choćby był mróz, a ty masz w sobie tyle radości, że musisz ją rozdawać wokoło, bo się w tobie nie mieści
Hoc fac - tak czyń.
A tergo - od tyłu; z tyłu.
I czarne włosy posiwieją. Safona |
|
