Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA/Excell - Przenoszenie danych do nowego arkusza

mk1212 20 Lip 2014 13:37 1146 6
  • #1 20 Lip 2014 13:37
    mk1212
    Poziom 8  

    Witam ponownie - być może gdzieś było na forum, ale ze względu na mój słaby poziom znajomości VBA proszę o wyrozumiałość i pomoc.

    W czym rzecz.......plik Excel posiada dwa arkusze - zmianowy i zbiorczy

    Zmianowy - edytowalny - wprowadzane dane ilościowe w przedziałach godzinowych. W pliku wskazane są również nr tygodnia/data/nr zmiany.

    Zbiorczy - w ten arkusz powinny zasysać się dane z arkusza zmianowego (podsumowanie danej zmany oraz wyniki poszczególnych godzin) z uwzględnieniem nr tygodnia oraz daty i nr zmiany zaciąganej z pliku edytowalnego.

    Co ważne po plik zmianowy po zakończeniu np. zmiany A jest zaciągany poprzez przycisk wyślij do pliku zbiorczego i zmiana B może na nim pracować od nowa.....

    Mam nadzieje, że nie namieszałem - poniżej przykład pliku

    Dzięki za pomoc

    0 6
  • #2 20 Lip 2014 16:34
    JRV
    Specjalista - VBA, Excel

    W pokazanom przykładzie ile linie powinny być do pliku zbiorczego ?
    Lub w tym przykładzie wypełni wiersz 4 na arkuszu "zbiorczy"

    0
  • #3 20 Lip 2014 19:38
    mk1212
    Poziom 8  

    Dzięki za zainteresowanie tematem - zresztą jak zwykle :D

    Rzeczywiście tego nie dopisałem z arkusza zmianowego do zbiorczego powinno zaciągać:

    1. Tydzień
    2. Data
    3. Nr zmiany
    4. Średnia ze wskaźnika_1
    5 Średnia ze wskaźnika_2
    6. Wyniki szczegółowe z arkusza zmianowego zgodnie z daną godziną dla wskaźnika nr 1

    Nie wiem czy nie zamotałem - dla przykładu wypełniłem ręcznie:

    PS. Każdy nowy pomiar z arkusza zmianowego powinien zapisywać się poniżej poprzednego w arkuszu zbiorczym

    Jeszcze raz dzięki

    0
  • Pomocny post
    #4 20 Lip 2014 20:10
    JRV
    Specjalista - VBA, Excel

    Polecam używać pomocniczy wiersz( wiersz 1 arkusz zbiorczy)
    Można ukryć
    lub przenieść gdzie indziej,
    W takim przypadku wymienić
    bs.Rows(1) na Range("buffor")

    0
  • #5 20 Lip 2014 20:31
    mk1212
    Poziom 8  

    Wielkie, wielkie dzięki o to właśnie chodziło - spróbuje na spokojnie przeglądnąć kod i wyciągnąć wnioski.....

    Dodatkowa prośba - a czy da się by po przeniesieniu danych czyściły się dane wpisywane w arkuszu zmianowym tj dane godzinowe dla wskaźnika_1 oraz wskaźnika_2??

    Dzięki za pomoc

    0
  • Pomocny post
    #6 20 Lip 2014 20:46
    JRV
    Specjalista - VBA, Excel

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #7 20 Lip 2014 21:04
    mk1212
    Poziom 8  

    Działa super - jeszcze raz dzięki

    Miłego wieczoru

    0