Eli mitenkäs tapahtuu sellainen kun teen taulukkopohjan 1 niin sen pitäisi kopioitua automaattisesti lisäämälleni sheetille, ja kun muokkaan pohjaa 1 muokkaus tapahtuisi myös muilla sheeteillä? Eli ei tarvitsisi joka sheettiin käydä soluja viivoja yms. lisäämässä?
sheetti onkelma
ope
2322
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
Minulla on vain suomenkielinen ja siinä onnistuu näin.
Napsauta hiiren oikealla sitä taulukkovalitsinta jossa taulukkopohja on (esim:Taul1). valitse sieltä "Siirä tai kopioi", aukevassa laatikossa ruksi kohtaan "Tee kopio" ja OK.
Kaikkiin taulukoihin saat tehtyä muutokset kun napsautat taulukkovalitsinta hiiren oikealla ja aukeavasta valikosta "Valitse kaikki taulukot"
Kooodi kopioi vain muotoilut
Alkuperäisen taulukon moduuliin esim. taulukkona Alkuperäinen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
On Error GoTo virhe
Application.ScreenUpdating = False
Application.EnableEvents = False
Cells.Copy
For i = 1 To Sheets.Count
If Not Sheets(i).Name = "Alkuperäinen" Then
Sheets(i).Activate
Sheets(i).Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next
virhe:
For i = Sheets.Count To 1 Step -1
Sheets(i).Activate
Sheets(i).Range(Target.Address).Select
Next
Application.EnableEvents = True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub