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

614

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Rakas

        Eihän se tietysti minulle kuulu, mutta missä sinä olet? 😠
        Ikävä
        52
        1757
      2. Pidit itseäsi liian

        Vanhana minulle? Niinkö?
        Ikävä
        62
        1692
      3. SDP:n lyhyt selviytymisopas

        1. Komitea on vastaus, oli kysymys mikä tahansa Jos maailma on muuttumassa tai jossain palaa, demari ei hätiköi. Ensin p
        Maailman menoa
        10
        1248
      4. Joko olet luovuttanut

        Mun suhteen?
        Ikävä
        61
        1061
      5. Haluaisitko oikeasti

        Vakavampaa välillemme vai tämäkö riittää
        Ikävä
        49
        1024
      6. Mitä se olisi

        Jos sinä mies saisit sanoa kaivatullesi mitä vain juuri nyt. Ilman mitään seuraamuksia yms. Niin mitä sanoisit?
        Ikävä
        41
        775
      7. Nanna Karalahti :Paljastus bisneksistä Jere Karalahden kanssa!

        Ottanut yhteyttä seiskalehden toimittajaan ja kertonut totuuden yhteisestä Herotreeni-nimisestä verkkovalmenuksesta.
        Kotimaiset julkkisjuorut
        118
        637
      8. Toivoisitko

        Toivoisitko, että kaivattusi olisi introvertimpi tai extrovertimpi? Itsenäinen tai tarvitsisi enemmän apua/sinua? Osoit
        Ikävä
        86
        630
      9. Sotekeskus

        Aloite on hyvä, kiitokset siitä. Mutta jos olette yhtään seuranneet hyvinvointialueen kokouksia niin sehän on jo nuijit
        Ähtäri
        32
        607
      10. Sinunkin pitää jättää

        Se kaivattusi rauhaan.
        Ikävä
        38
        566
      Aihe