ixtlilto
04.06.05, 13:44
Witam,
mam makro:
Sub dodaj()
'
' dodaj Makro
Sheets("wynik").Select
Range("B2:B24").Select
Selection.Copy
Sheets("zestawienie").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Dotyczy ono ankiety.
Wyniki ostatniej wprowadzonej ankiety są zbierane w arkuszu "zestawienie"; a
następnie mają być kopiowane do arkusza wynik.
Zadaniem tego makra ma być przekopiowanie wyników poszczególnych ankiet; tak,
żeby pierwsza zaczynała się w B3; a następna wskleiła się wiersz niżej...
słowem, żebym po wprowadzeniu np. 10 ankiet, w arkuszu "wynik" miała zapisane
odpowiedzi tych 10 osób.
Domyślam się, że zmianę należy wprowadzić w linijce:
Range("B3").Select
ale już kombinowałam z "offline" i jakoś nie idzie :/, "range(b3:b13).select"
też nie robi tego o co mi chodzi
Mogę liczyć na jakieś wskazówki??