VBA kysymys

Anonyymi

Apuvah!
Workbook "Osalista.xlsm" löytyy Worksheet "Osat" ja siellä on A2:H20 alueelle määritetty osalistaus, joka pitäisi saada siirtymään VBA:lla toiseen Workbookiin (Osat.xlsx) allekkain aina viimeisen alle.
Nyt tekemäni koodi siirtää "tyhjänäkin" olevat solut ja seuraava kopio siirtyy ensimmäisen siirron jälkeen soluun A39 ja seuraava A59 jne.....
Mitä tuossa on väärin vai ottaako tämä myös tyhjät solut joissa on pelkästään kaavat alueella A2:H20?


-------------------------------------------
Sub Osalista()

Dim wbGood As Workbook
Dim wsCopy As Worksheet, wsDest As Worksheet
Dim lCopyLastRow As Long, lDestLastRow As Long

Set wbGood = Workbooks("Osalista.xlsm")
Set wbGood = Workbooks("Osat.xlsx")

Set wsCopy = Workbooks("Osalista.xlsm").Worksheets("Osat")
Set wsDest = Workbooks("Osat.xlsx").Worksheets("Taul1")

lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row

lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

wsCopy.Range("A2:H" & lCopyLastRow).Copy
wsDest.Range("A" & lDestLastRow).PasteSpecial xlValues

Application.CutCopyMode = False



End Sub

0

586

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

      Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

      Luetuimmat keskustelut

      1. Miksi et irrota otettasi

        Suhteeni?
        Ikävä
        68
        2580
      2. Koko ajan olet

        Senkin suhteen kiusannut. Halut on ihan mielettömät olleet jo pitkään
        Ikävä
        62
        2542
      3. Muutama syy

        Sille miksi IRL kohtaaminen on hänelle vaikeaa
        Ikävä
        68
        1752
      4. Onko kaivatullasi

        Hyvä vai huono huumorintaju?
        Ikävä
        24
        1557
      5. Estitkö sä minut

        Oikeasti. Haluatko, että jätän sun ajattelemisen? :3
        Ikävä
        20
        1480
      6. Tykkään susta

        Elämäni loppuun asti. Olet niin suuresti siihen vaikuttanut. Tykkäsit tai et siitä
        Ikävä
        9
        1420
      7. Onko kaikki hyvin, iso huoli sinusta

        Miten jakselet? Onko sattunut jotain ikävää. Naiselta
        Ikävä
        15
        1352
      8. Millainen meno

        Viikonloppuna? Mulla hirvee vitutus päällänsä. Onko muilla sama tunne??
        Ikävä
        38
        1203
      9. Onko meillä

        Molemmilla nyt hyvät fiilikset😢ei ainakaan mulla mutta eteenpäin on mentävä😏ikävä on, kait se helpottaa ajan myötä. Ko
        Ikävä
        8
        1147
      10. Tiedätkö tykkääkö

        Kaivatustasi siinä mielessä joku muukin kuin sinä itse
        Ikävä
        25
        1076
      Aihe