Hei!
Kuinka saan kopioitua ekalta välilehdeltä (Sheet4) ensimmäisen rivin kaikkiin muihin välilehtiin joita on tiedostossa. Välilehtien määrää ei tiedä etukäteen ja kopion liittäminen pitäisi tapahtua niin, että se liittää kopion ja siirtää muut tiedot alaspäin sivulla (Selection.Insert Shift:=xlDown).
Kiitoksia etukäteen!
Kuinka saan kopioitua ekalta välilehdeltä (Sheet4) ensimmäisen rivin kaikkiin muihin välilehtiin joita on tiedostossa. Välilehtien määrää ei tiedä etukäteen ja kopion liittäminen pitäisi tapahtua niin, että se liittää kopion ja siirtää muut tiedot alaspäin sivulla (Selection.Insert Shift:=xlDown).
Kiitoksia etukäteen!
Vastaukset 2
Vanhimmat
Sub Pastaa()
Dim nimi As String
nimi = "Taul1"
Worksheets(nimi).Activate
For Each arkki In Worksheets
If arkki.Name nimi Then
arkki.Range("A1").EntireRow.Insert
Range("A1").EntireRow.Copy Destination:=arkki.Range("A1")
End If
Next
End Sub
Kiitos ja kumarrus uudestaan