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
- 682580
- 622542
- 681752
- 241557
- 201480
Tykkään susta
Elämäni loppuun asti. Olet niin suuresti siihen vaikuttanut. Tykkäsit tai et siitä91420- 151352
- 381203
Onko meillä
Molemmilla nyt hyvät fiilikset😢ei ainakaan mulla mutta eteenpäin on mentävä😏ikävä on, kait se helpottaa ajan myötä. Ko81147- 251076