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

589

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Mitään järkeä?

        Että ollaan erillään? Kummankin pää on kovilla.
        Ikävä
        129
        2063
      2. Noniin rakas

        Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi
        Ikävä
        105
        1876
      3. Kumpi vetoaa enemmän sinuun

        Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?
        Ikävä
        84
        1659
      4. Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä

        Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy
        Maailman menoa
        64
        1524
      5. Multa sulle

        Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M
        Ikävä
        33
        1192
      6. Ei se mene ohi ajan kanssa

        Näin se vaan on.
        Ikävä
        82
        1148
      7. Nainen, olen tutkinut sinua paljon

        Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm
        Ikävä
        56
        1132
      8. Tavoitteeni onkin ärsyttää

        Sua niin turhaudut ja unohdat koko homman
        Ikävä
        110
        1093
      9. Mies, eihän sulla ole vaimoa tai naisystävää?

        Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s
        Ikävä
        47
        1066
      10. Onko sulla empatiakykyä?

        Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet
        Ikävä
        44
        1013
      Aihe