excel wybieranie co n-tego rekordu

[oliveira]

Witam,
Jak w excelu z jednego arkusza przerzucić do drugiego dokładnie co 40-ty
wiersz?
Z góry dzięki.

--

marcin

Day, ut ia pobrusa, a ti poziwai.

[Dante]

On Thu, 12 Feb 2009 17:41:02 +0100
oliveira <_oli...@go2.pl_> wrote:

> Witam,
> Jak w excelu z jednego arkusza przerzucić do drugiego dokładnie co 40-ty
> wiersz?
> Z góry dzięki.
>

Dołóż dodatkową kolumnę, wypełnij serię od 1 do 39 zaznacz, przeciągnij i wyfiltruj jedynki :-)

--
<dan...@qq.pl>

[Artur]

oliveira pisze:

> Witam,
> Jak w excelu z jednego arkusza przerzucić do drugiego dokładnie co 40-ty
> wiersz?
> Z góry dzięki.
>

Załóż w dodatkowym arkuszu kolumnę z numerkami wierszy, z których chcesz
pobierać (np. mogą być wynikiem jakichś obliczeń) i skorzystaj z funkcji
adr.pośr() aby jej argumentem był zlepek tekstu oznaczający nr komórki,
z której ma pobrać dane

np.
zakładając że w kolumnie B Arkusza1 masz te swoje dane do kopiowania "co
40-ste" oraz w aktualnym arkuszu w kolumnie A są numerki do kopiowania
(wybrane wiersze), np. w A1 jest liczba 40, to wpisanie w tym arkuszu w
jakiejś komórce:
=adr.pośr("Arkusz1B."&A1)

oznacza ni mniej, ni więcej tylko wpisz tutaj (tam gdzie jest funkcja
adr.pośr) wartość z "Arkusz1.B40" i da w wyniku zawartość tej komórki

W kolumnie A możesz sobie dowolne numerki dawać, mogą być wynikiem
obliczeń itp. BYLE TO BYŁ NUMEREK!!! w tym przypadku

pozdrawiam
Artur

[Jax]

Napisz sobie banalne makro w visual basic.

z totaliztycznym salutem
Jax

[Michal AKA Miki]

Użytkownik "oliveira" <_oli...@go2.pl_> napisał w wiadomości
news:gn1jf2$pl5$1...@inews.gazeta.pl...

> Witam,
> Jak w excelu z jednego arkusza przerzucić do drugiego dokładnie co 40-ty
> wiersz?

a jak ci propozycje kolegow nie odpowiadaja, to zawsze mozna inna formula

=JEŻELI(MOD(KOMÓRKA("wiersz";A1);40 )=0;"TO JA";"TO NIE JA")

> Z góry dzięki.
>

z dolu proszki

Pozdrawiam
Michal

[Jacek]

Sub CoEnty()
Enty = InputBox("Co ktory wiersz przeniesc?")
x = 1
y = 1
While Sheets("arkusz1").Cells(x, 1) <> ""
Sheets("arkusz2").Cells(y, 1) = Sheets("arkusz1").Cells(x, 1)
x = x + Enty
y = y + 1
Wend
End Sub

[oliveira]

On 12 Lut, 17:58, Dante <dant...@qq.pl> wrote:
> On Thu, 12 Feb 2009 17:41:02 +0100
>

> oliveira <_olive...@go2.pl_> wrote:
> > Witam,
> > Jak w excelu z jednego arkusza przerzucić do drugiego dokładnie co 40-ty
> > wiersz?
> > Z góry dzięki.
>
> Dołóż dodatkową kolumnę, wypełnij serię od 1 do 39 zaznacz, przeciągnij i wyfiltruj jedynki :-)

Dzięki wszystkim. Filtrowanie zadziałało najszybciej i w 100% zgodnie
z potrzebami ;)

PS. Gdybym potrafił sam napisać skrypt w VB, to nie zadawałbym głupich
pytań tutaj ;)

[druidek.onet]

oliveira pisze:

> Jak w excelu z jednego arkusza przerzucić do drugiego dokładnie co 40-ty
> wiersz?

można dodać kolumnę i wstawić funkcję "=JEŻELI(MOD(A1;40)=0;1;0)",
oczywiście w kolumnie A dasz indeks (numerację) wzrastająca o stałą
wartość jeden.
Wtedy w kolumnie z funkcję będziesz miał dwie wartości 0 (najczęściej)
oraz jedynkę (co czterdzieści).
Jeśli to jesteś zainteresowany jedna wartością (kolumną) to robisz
tabelę przestawną gdzie w miejsce "strona" wrzucasz nazwę kolumny z
funkcją i wybierasz jeden. Jeśli zaś jest do skopiowania więcej kolumn
to można przekopiować otrzymany wynik i wkleić jako wartości, następnie
sortuj i masz oddzielnie zera i jedynki.
Na pewno jest inny sposób prostszy, ale to już nie dla mnie zadanie :(

[jacek....@gmail.com]

funkcja PRZESUNIĘCIE będzie pomocna np: =PRZESUNIĘCIE($A$1;WIERSZ(A1)*40;0;1;1)