🚀 go-pugleaf

On Thu, 12 Feb 2009 17:41:02 +0100
oliveira <_oliveira@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 :-)

-- 
 <dante75@qq.pl>

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

Napisz sobie banalne makro w visual basic.

z totaliztycznym salutem
Jax

Użytkownik "oliveira" <_oliveira@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

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

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 ;)

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 :(

W dniu czwartek, 12 lutego 2009 17:41:02 UTC+1 użytkownik oliveira napisał:
> 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.

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