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
VBA kysymys
Anonyymi
0
586
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 406983
- 323938
- 453330
- 402939
- 172716
- 372238
- 162196
- 412143
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons482077- 402028