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

591

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Taisin tehdä virheen

        Kaipaan sua enemmän kuin kuvittelin. Luulin, että helpottuisin, mutta olinkin täysin väärässä. Vieläkö vastaisit minulle
        Ikävä
        49
        3304
      2. Hyvä että lähdit siitä

        Ties mitä oisin keksinyt jos oisit jäänyt siihen, näit varmaan miten katoin sua.... 😘🤭😎💖
        Ikävä
        47
        2772
      3. Koronarokotus sattui oudon paljon nyt sairaanhoitaja Tanja 46 istuu pyörätuolissa

        Pitkä piina piikistä Kun Tanja Vatka käy suihkussa, tuntuu kuin ihoa revittäisiin raastinraudalla irti. Hän on kärsinyt
        Maailman menoa
        134
        2552
      4. Nyt tuntuu siltä, että on pakko päästä puhumaan kanssasi

        Tuntuu että sekoan tämän kaiken takia. Miehelle
        Ikävä
        57
        2281
      5. Olisitko mies valmis?

        Maksamaan naisellesi/vaimollesi/tyttöystävällesi elämisestä syntyvät kulut, ruokailun, vuokran ja muut välttämättömät me
        Ikävä
        355
        2004
      6. Mitä haluat sanoa kaivatullesi?

        Onko ikävä? Milloin näitte viimeksi?
        Ikävä
        151
        1634
      7. Nainen, mulla olisi sulle pari vinkkiä

        Kerro vain ongelmasi niin annan siihen vinkin. :/
        Ikävä
        76
        1485
      8. vieläkin sanoa voin...

        💖💛💖💛💖💛💖💛💖 💛 Beijjjbeh 💛 Kaks vuotta tänään täällä. Miten hitossa jotkut on jaksaneet kymmeniä vuos
        Ikävä
        23
        1308
      9. Nainen onko sulla supervoimmia ?

        Voisitko auttaa miestä mäessä? Tarjota auttavan käden ja jeesata tätä miestä? Tai antaa olla et sä kuitenkaan auta.
        Ikävä
        35
        1258
      10. Miksi mediheli

        Mitä on tapahtunut ku poliiseja ja ambulanssi pyöri aamusta keskustassa
        Kiuruvesi
        24
        1154
      Aihe