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.

kopiowanie wierszy z kolumny A do innego arkusza

maxweber1981 09 Maj 2014 11:58 1425 8
  • #1 09 Maj 2014 11:58
    maxweber1981
    Poziom 9  

    Witam
    Mam taki arkusz z takimi danymi
    Arkusz1
    Kolumna A Kolumna B
    2014-05-09 00:00 900
    2014-05-09 01:00 800
    2014-05-09 02:00 700
    2014-05-09 03:00 800
    2014-05-09 04:00 600
    2014-05-09 05:00 400
    2014-05-09 06:00 500
    2014-05-09 07:00 400
    2014-05-09 08:00 600
    2014-05-09 09:00 800
    2014-05-09 10:00 900
    2014-05-09 11:00 300
    2014-05-09 12:00 600
    2014-05-09 13:00 700
    2014-05-09 14:00 800
    2014-05-09 15:00 900
    2014-05-09 16:00 800
    2014-05-09 17:00 600
    2014-05-09 18:00 700
    2014-05-09 19:00 800
    2014-05-09 20:00 600
    2014-05-09 21:00 300
    2014-05-09 22:00 500
    2014-05-09 23:00 600
    Gdzie kolumna B ma zmienne wartosci dla każdego dnia
    Chciałbym to kopiowac do arkusza2
    Arkusz2
    KolumnaA KolB KolC KolD KolE
    2014-05-08 00:00 1 2 3
    2014-05-08 01:00 1 2 3
    2014-05-08 02:00 1 2 3
    2014-05-08 03:00 1 2 3
    2014-05-08 04:00 1 2 3
    2014-05-08 05:00 1 2 3
    2014-05-08 06:00 1 2 3
    2014-05-08 07:00 1 2 3
    2014-05-08 08:00 1 2 3
    2014-05-08 09:00 1 2 3
    2014-05-08 10:00 1 2 3
    2014-05-08 11:00 1 2 3
    2014-05-08 12:00 1 2 3
    2014-05-08 13:00 1 2 3
    2014-05-08 14:00 1 2 3
    2014-05-08 15:00 1 2 3
    2014-05-08 16:00 1 2 3
    2014-05-08 17:00 1 2 3
    2014-05-08 18:00 1 2 3
    2014-05-08 19:00 1 2 3
    2014-05-08 20:00 1 2 3
    2014-05-08 21:00 1 2 3
    2014-05-08 22:00 1 2 3
    2014-05-08 23:00 1 2 3
    przy czym kolumna A z arkusza1 ma trafić do kolumny A do arkusza2 poniżej wartości ostatnie tj. 2014-05-08 23:00
    a kolumna B z arkusza1 ma trafić do arkusza 2 do kolumny E
    Po tym jak zrobi aby automatycznie wypełniło tymi samymi wartościami arkusz 2 KOLB KOLC KOLD dla nowo dodanych wartości.
    Czy może ktoś pomoc?

    0 8
  • #2 10 Maj 2014 20:51
    obi997
    Poziom 27  

    Jak możesz, to podrzuć tutaj plik z arkuszem wejściowym bo się zamotałem w tym twoim opisie co i jak.

    0
  • #4 11 Maj 2014 07:17
    PRL
    Poziom 33  

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #5 11 Maj 2014 08:50
    maxweber1981
    Poziom 9  

    Dzieki
    Działa pięknie

    0
  • #6 11 Maj 2014 13:43
    PRL
    Poziom 33  

    Czy w arkuszu 1 masz zawsze 24 wiersze?

    0
  • #7 11 Maj 2014 13:50
    maxweber1981
    Poziom 9  

    tak mam 24 wiersze

    0
  • Pomocny post
    #8 11 Maj 2014 13:59
    PRL
    Poziom 33  

    No to nie trzeba modyfikować kodu.
    Gdyby jednak w przyszłości okazało się, że np. odczyty są co pół godziny, to podmień w kodzie liczbę 23 na a1-1.

    0
  • #9 14 Maj 2014 08:29
    maxweber1981
    Poziom 9  

    Dobra troche namieszałem
    Potrzebuje aby do arkusza 2 kopiował dane z arkusza1
    Arkusz 2 mam pusty ale wiersz 1 wypelniam w ten sposob
    Generalnie znalazlem w excelu taka formule ale jak ja zastosowac do vba
    =FRAGMENT.TEKSTU(A3; 4;5)

    ActiveWorkbook.Sheets("Arkusz2").Activate
    ActiveCell.FormulaR1C1 = "10-05-2014 23:00"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "10/5/2014"
    Jak wyciac zawartość z B2 aby uzyskac format dd-mm
    Range("D4").Select
    Selection.NumberFormat = "mm/dd"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "1.02"
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("G4").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("H4").Select
    ActiveCell.FormulaR1C1 = "3"

    Dane w arkuszu 1 mam w formacie
    Kol A
    14-05-13 00:00
    KolB
    0,001s
    Przy czym KolA z arkusza 1 ma trafiac do arkusza2 do KolB a KolB z arkusza1 do KolE do arkusz2.
    Ilosc wierszy w arkuszu 1 to nadal 24 ;-)

    0