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

545

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Baaritappelu

        Hurjaksi käynyt meno Laffassa. Jotain jätkää kuristettu ja joutunu teholle...
        Kokkola
        47
        4823
      2. 4 tuntia töitä kerran viikossa on naisen mukaan liian raskasta

        Tämä ei taija olls lieksalaine vaikka "tuntomerkkiin" perusteella nii vois eppäillä! 🤣 31-vuotias Maya ei kykene tekemä
        Lieksa
        96
        4603
      3. Riikka Purra rosvosi eläkeläiset!

        1900 euron eläkkeestä rosvottiin 350 euroa. Kohtuullista vai? Perussuomalaisia ei enää ole olemassa meille eläkeläisille
        Maailman menoa
        620
        4204
      4. Tappo Kokkolassa

        Päivitetty tänään Iltalehti 17.04.2024 Klo: 15:23..Mikähän tämä tapaus nyt sitten taas on.? Henkirikos Kokkolassa on tap
        Kokkola
        23
        3177
      5. Näytit nainen sanoinkuvaamattoman ihanalta

        En voi unohtaa sinua. Pohdin nyt sinua.
        Ikävä
        79
        2711
      6. Ihastuksesi persoonalliset piirteet ulkonäössä?

        Onko jotain massasta poikkeavaa? Uskallatko paljastaa? Aloitan; todella kauniit kädet ja sirot sormet miehellä.
        Tunteet
        129
        2213
      7. Kansaneläkkeiden maksu ulkomaille loppuu

        Hyvä homma! Yli 30 miljoonan säästö siitäkin. Toxia.
        Maailman menoa
        222
        2182
      8. SDP:n kannatus edelleen kovassa nousussa, ps ja kokoomus putoavat

        SDP on noussut Helsingin Sanomien tuoreessa kannatuskyselyssä kokoomuksen ohi Suomen suosituimmaksi puolueeksi. SDP:n ka
        Maailman menoa
        348
        2168
      9. Ketä ammuttu ?

        Ketä sielä Juupajoela ammuttu ei kait mainemies alkanu amuskelemaan , , Kyösti H ?
        Juupajoki
        31
        1797
      10. Nainen, meistä tulisi maailman ihanin pari

        Mutta tosiasiat tosiasioina, on liian monta asiaa, jotka sotivat meidän yhteistä taivalta vastaan. Surulla tämän sanon,
        Ikävä
        66
        1512
      Aihe