Execel - czy ktos potrafi - Thread - go-pugleaf | RockSolid RetroBBS NetNews Server

Thread View: pl.comp.bazy-danych.msaccess

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Marcin Przybyłek Tue, 17 Nov 1998 11:28

Execel - czy ktos potrafi

#211

Author: Marcin Przybyłek
Date: Tue, 17 Nov 1998 11:28

32 lines
1870 bytes

Czy moglby mi ktos pomoc w excelu z pakietu Office 97

Chodzi o to ze musze zrobic na jutro taka rzecz:

W excelu zrobilem kalkulacje z ktiorej po nazisnieciu guzika generuje sie
oferta a potem potw. oferty

Pozostalo zrobienie jeszcze czesci ktora by generowala zamowienie

w kalkulacji sa urzadzenia roznych firm wiec zamowienia musza byc podzielone
na odpowiednie firmy.

rozwiazalem to tak ze w pierwszej kolumnie przy towarze podaje sie 2
literowy kod producenta.

Teraz pozostalo tylko to aby w jakis sposob makrem wybrac wszystkie linie z
np. RA w 1 kolumnie i skopiowac do innego skoroszytu - i tak dla innech
producentow.

Maksymalnie 5 producentow , czyli bedzie 5 skoroszytow zamowien.

Pytanie - jak to zrobic


Marcin

PS. Bardzo pilne i bardzo prosze o pomoc

------------ ICQ UIN 3554961 ------------------------------
http://soft-net.heban.com.pl - NT admin., DTP
http://sr5pna.heban.com.pl - Warszawska Bramka Krótkofalarska
http://nt.faq.net.pl - pomoże ci w NT

Re: Execel - czy ktos potrafi

#212

Author: B. Pankowski
Date: Tue, 17 Nov 1998 13:50

30 lines
1703 bytes


Marcin Przyby³ek wrote:

> [...]
> Teraz pozostalo tylko to aby w jakis sposob makrem wybrac wszystkie linie z
> np. RA w 1 kolumnie i skopiowac do innego skoroszytu - i tak dla innech
> producentow.

Moze takie cos Ci sie nada, oczywiscie po drobnych przerobkach

Sub Kopiuj(wartosc As Variant)
  Dim CurSource, NextSource
  Dim CurOut, NextOut
  Set CurOut = Worksheets("cel").RANGE("A2") ' lub tez jako parametr
  Set CurSource = Worksheets("zrodlo").Range("A2") 'lub jako parametr
  Do While Not IsEmpty(CurSource)
    Set NextSource = CurSource.Offset(1, 0)
    If CurPar.Value = Wartosc Then 'znaleziony wiersz
      CurOut.Offset(0, 0) = CurSource.Offset(0,0)
      CurOut.Offset(0, 1) = CurSource.Offset(0,1)
      'itd
      Set NextOut = CurOut.Offset(1, 0)
      Set CurOut =  NextOut
    End If
    Set CurSource = NextSource
  Loop
End Sub

Pozdrowienia

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads