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.

EXCEL Kopiowanie wierszy z innego arkusza niż aktywny

Facetjanusz 16 Cze 2013 21:09 1554 6
  • #1 16 Cze 2013 21:09
    Facetjanusz
    Poziom 15  

    Witam Mam następujący programik do kopiowania wierszy który działa dobrze.
    Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza. Nie wiem jak rozumieć "G20" - którym się ustawia arkusz z którego ma być kopiowanie??

    Public Arkusz_Nazwa As String

    Sub ewidencja_ksiegowa()

    End Sub
    Sub czysc()

    'kopiowanie()'
    'miejsce z kąd kopiowane
    Sheets(ActiveSheet.Range("G20").Value).Select
    Range("A70:AX70").Select
    Selection.Copy
    'miejsce kopiowania
    Sheets(5).Select
    ActiveSheet.Cells(82, 1).Select 'DO
    ActiveSheet.Paste
    End Sub


    Mam także inną prośbę - mianowicie ten program był skopiowany z innego programu i nie mogę usunąć następującej części:

    Sub ewidencja_ksiegowa()

    End Sub

    0 6
  • Pomocny post
    #2 16 Cze 2013 21:33
    markoz7874
    Poziom 31  

    Facetjanusz napisał:
    ..
    Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza...


    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 17 Cze 2013 11:26
    Facetjanusz
    Poziom 15  

    Dzięki markoz - po przeróbce świetnie działa, co uprościło mi sprawę . Teraz robię program z kopiowaniem w celu segregacji w/g daty zakupu - pewnie będę jeszcze prosił o pomoc.
    Pozdrawiam Janusz

    0
  • Pomocny post
    #4 17 Cze 2013 12:36
    cbrman
    Poziom 27  

    Bez zbędnych selectów

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #5 17 Cze 2013 16:37
    Facetjanusz
    Poziom 15  

    Pytałem o kopiowanie wierszy -jednak do mojego programu potrzebne jest "przestawienie" wiersza na inną linię. Pokrótce omówię dołączony kawałek programu.
    Chciałbym aby faktury mogły być wpisywane do książki w dowolnej kolejności , a program ustawiał je w/g dat. Program już kontroluje i nie przyjmie faktury z innego kwartału, jedynie w danym kwartale powinien wstawić wpisywaną fakturę w/g miesiąca i dnia jej powstania! Próbowałem to zrobić za pomocą kopiowania wiersza (po przekopiowaniu należy wyczyścić linię w której chwilowa znajdowała się faktura). Nie mogę sobie poradzić jak w tym programie zrobić aby "A20:BA20" (linia odczytu) oraz "A19" (początek zapisu) można było wstawić jako zmienne ?

    0
  • Pomocny post
    #6 11 Lip 2013 09:37
    sławek.gryf
    Poziom 8  

    Zastosuj taki wzór:
    Private Sub USTAWIANIE_Click()
    Worksheets("AA").Activate
    Wiersz_ost = Worksheets("AA").Range("a12").End(xlDown).Row + 1
    x = Wiersz_ost

    For i = 1 To x - 1
    Data1 = Cells(x + 1, 3).Value
    Dzień1 = Left(Data1, 2)
    Miesiąc1 = Mid(Data1, 4, 2)
    Data2 = Cells(x - i, 3).Value
    Dzień2 = Left(Data2, 2)
    Miesiąc2 = Mid(Data2, 4, 2)
    If Dzień2 > Dzień1 Then
    Sheets(2).Select
    Range("A20:BA20").Select
    Selection.Copy
    Sheets(2).Select
    Range("A19").Select
    ActiveSheet.Paste
    End If
    Next

    End Su

    0
  • #7 11 Lip 2013 09:43
    Facetjanusz
    Poziom 15  

    Dzięki Ci bardzo za zainteresowanie tematem.

    0