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 VBA] Kopiowanie z jednego arkusza do drugiego.

artus241 01 Mar 2012 13:45 3355 3
  • #1 01 Mar 2012 13:45
    artus241
    Poziom 2  

    Witam mam problem.
    Napisalem makro ktore z jednego arkusza Dane1 kopiuje mi dane do odpowiednich kolumn w arkuszu Sheet i automatycznie numeruje.
    Chcialbym stworzyc kilka arkuszy z identycznymi polami jak w arkuszu Dane2, lecz z innymi wartościami, i teraz chodzi mi o to , ze jak przekopiuje mi dane z arkusza Dane2 do Sheet, to będe mogł rownież skopiować dane z innego arkusza, gdzie dane mi się nie zaaktualizuja tylko dopiszą do danych w arkuszu Sheet
    Dzieki z góry za pomoc!!!

    Poniżej kod:
    Sub File1_Wsad()

    Dim cell As Range
    Dim i As Integer

    Dim config1 As Worksheet
    Set config1 = Sheets("Dane1")

    Dim mainSheet As Worksheet
    Set mainSheet = Sheets("Sheet1")


    Dim nrCol As Integer
    nrCol = 1

    Dim buKrCol As Integer
    buKrCol = 2

    Dim mpkCol As Integer
    mpkCol = 3

    Dim abCol As Integer
    abCol = 5

    Dim bisCol As Integer
    bisCol = 6

    Dim kostenCol As Integer
    kostenCol = 9

    Dim wertCol As Integer
    wertCol = 13

    Dim wahrCol As Integer
    wahrCol = 21

    Dim currentConfigRow As Integer
    Dim currentMainSheetRow As Integer




    For i = 1 To 30000
    currentConfigRow = i + 7
    currentMainSheetRow = i + 1
    If config1.Cells(currentConfigRow, 1).Value = vbNullString Then
    Exit For
    End If
    mainSheet.Cells(currentMainSheetRow, nrCol).Value = i
    mainSheet.Cells(currentMainSheetRow, buKrCol).Value = config1.Range("B1")
    mainSheet.Cells(currentMainSheetRow, mpkCol).Value = config1.Cells(currentConfigRow, 1).Value
    mainSheet.Cells(currentMainSheetRow, abCol).Value = config1.Range("B2")
    mainSheet.Cells(currentMainSheetRow, bisCol).Value = config1.Range("C2")
    mainSheet.Cells(currentMainSheetRow, kostenCol).Value = config1.Range("B4").Value
    mainSheet.Cells(currentMainSheetRow, wertCol).Value = config1.Range("B5").Value * config1.Cells(currentConfigRow, 2).Value
    mainSheet.Cells(currentMainSheetRow, wertCol).NumberFormat = "#,##0.00"
    mainSheet.Cells(currentMainSheetRow, wahrCol).Value = config1.Range("B6")

    Next i


    End Sub

    0 3
  • #3 03 Mar 2012 02:44
    walek33
    Poziom 28  

    Cytat:
    i teraz chodzi mi o to , ze jak przekopiuje mi dane z arkusza Dane2 do Sheet, to będe mogł rownież skopiować dane z innego arkusza, gdzie dane mi się nie zaaktualizuja tylko dopiszą do danych w arkuszu Sheet
    Rozjaśnij to trochę. Skąd, ile i jakie dane, miejsce docelowe? A najlepiej wrzuć przykładowy plik, na którym zobrazujesz swoje marzenia.

    0
  • #4 06 Mar 2012 07:36
    artus241
    Poziom 2  

    Udało mi się samemu rozwiązać problem:)

    0