Elektroda.pl
Elektroda.pl
X

Wyszukiwarki naszych partnerów

Wyszukaj w ofercie 200 tys. produktów TME
Kategoria: Kamery IP / Alarmy / Automatyka Bram
Montersi
Proszę, dodaj wyjątek elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Makro/wpisz do pierwszej wolne - Wpisz do pierwszej wolnej w innym arkuszu

wiewior2007 24 Sty 2014 12:33 1263 12
  • #1 24 Sty 2014 12:33
    wiewior2007
    Poziom 9  

    Witam

    Po raz kolejny zwracam się z prośbą.
    Potrzebuje zrobić makro które będzie mi kopiowało wartość komórki A35 z pierwszego arkusza o nazwie "Pierw" do pierwszego wolnego wiersza w arkuszu o nazwie "Po za"

    Jednocześnie potrzebuje też makro które będzie wyszukiwało komórkę w arkuszu "Po za"( i kasowało ją) o takiej samej zawartości jak komórka A35 w arkuszu "druga".

    to co zrobiłem:

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    nie działa niestety.

    Z góry dziękuję.

    Pozdrawaim

  • #2 24 Sty 2014 13:32
    PRL
    Poziom 33  

    Kod: vb
    Zaloguj się, aby zobaczyć kod

  • #3 24 Sty 2014 15:18
    wiewior2007
    Poziom 9  

    Dzięki!

    Działa prawidłowo, ale napisz mi prosze które parametry muszę zmienić aby wybrać inną komórkę w arkuszu pierw. (komórkę odniesienia.

    Pozdrawima

    Dodano po 3 [minuty]:

    Już mam, dzięki.
    JEst mały problem z kasowaniem wpisów a mianowicie kasuje wszystkie o takiej samej zawartości a chciałbym żeby kasował jeden, ewentualnie żeby pytał który.

    Pzdr

  • #4 24 Sty 2014 15:19
    PRL
    Poziom 33  

    Kod: vb
    Zaloguj się, aby zobaczyć kod

  • #5 24 Sty 2014 15:46
    wiewior2007
    Poziom 9  

    Cells(nw, 1) = Sheets("Issuance").Cells(18, 2) - jak wpisać żeby mi kopiowało dane z kilku komówej B18, F18, A1.????
    Dzięki!

  • #6 24 Sty 2014 15:52
    PRL
    Poziom 33  

    Cytat:
    Cells(nw, 1) = Sheets("Issuance").Cells(18, 2) - jak wpisać żeby mi kopiowało dane z kilku komówej B18, F18, A1.????


    Jeżeli obszar danych jest taki, jak napisałeś - 'nieforemny', to po prostu przypisz wartości docelowe ze źródłowych.
    No chyba, że znajdziesz jakąś zależność, którą można zautomatyzować.

    P.S. Pisanie linijek kodu nie boli.

  • Pomocny post
    #7 26 Sty 2014 12:29
    PRL
    Poziom 33  

    I co, działa, czy nie działa?
    Jakoś brak odpowiedzi...

  • #8 27 Sty 2014 09:45
    wiewior2007
    Poziom 9  

    Witam

    Działa prawidłowo :) Przepraszam za brak odpowiedzi ale przeprowadzkę miałem. Dzięki za pomoc.

    A teraz........
    Hight level:)

    Fajnie by było jakby wklejało kilka komórek do "po za", zależnie od wartości Komórki K18 w "Pierw" i kasowało zależnie od wartości K18 w "Druga".

    Jeszcze raz dzięki!!!

  • #9 28 Sty 2014 10:24
    wiewior2007
    Poziom 9  

    Witam
    Mam coś takiego.

    Sub Issuance()
    Sheets("Po za firmą").Select
    nw = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Cells(nw, 1) = Sheets("Issuance").Cells(18, 2)
    Cells(nw, 2) = Sheets("Issuance").Cells(18, 11)
    Cells(nw, 3) = Sheets("Issuance").Cells(3, 1)
    Cells(nw, 4) = Sheets("Issuance").Cells(14, 9)
    ow = Cells(Rows.Count, "A").End(xlUp).Row


    Sheets("Issuance").Select

    End Sub

    Działa to prawidłowo ale chciałbym żeby robiło w arkuszu "Po za firmą" tyle kopi komórki B18, A3, I14 ile wskazuje wartość komórki K18 w arkuszu "Issuance".

    Pozdrawiam

  • Pomocny post
    #10 28 Sty 2014 11:35
    PRL
    Poziom 33  

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    P.S. Umieszczaj kod korzystając z listy rozwijalnej (nagłówek wiadomości) - 'Listing kodu'.

  • #11 30 Sty 2014 09:23
    wiewior2007
    Poziom 9  

    Niestety nie działa :(

    Kopiuje wartości do arkusza "Po za firmą" ale robi tylko jeden wpis a nie tyle ile wskazuje wartość w K18 w arkuszu "Issuance".

    Pozdro

  • Pomocny post
    #12 30 Sty 2014 09:28
    PRL
    Poziom 33  

    Dałem Ci tylko podpowiedź.

    Popraw

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    na

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Baw się indeksami komórek...

  • #13 03 Lut 2014 08:19
    wiewior2007
    Poziom 9  

    Dzięki wielkie, ja nie wiem jak można mieć tak wielką wiedzę na temat VB. Pozdrawiam, fajnie że są tacy ludzie co nie dość że mają ogromną wiedzę ale też pomagają innym.

 
Promocja -20%
Zamknij 
Wyszukaj w ofercie 200 tys. produktów TME
tme