Jak osekat kod

0
0

Stručne, potrebujem zjednodusit tento kod, pride mi to dost zlozite, a je to aj dost pomale: tu je kod
Private Sub Worksheet_Activate()
Sheets("dsp").Range("d62:w76").Copy
With Sheets("ss").Range("g6:z20")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

Sheets("dsp").Range("d60:w60").Copy
With Sheets("ss").Range("g4:z4")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

Sheets("dsp").Range("x62:aq76").Copy
With Sheets("ss").Range("g39:z53")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

Sheets("dsp").Range("x60:aq60").Copy
With Sheets("ss").Range("g37:z37")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

Sheets("dsp").Range("ar62:bm76").Copy
With Sheets("ss").Range("g68:ab82")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With
Sheets("dsp").Range("ar60:bm60").Copy

With Sheets("ss").Range("g66:ab66")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With

End Sub

Marked as spam
Odeslal Anonymous
Otázka položena 3.11.2018 13:09
15 views
0
Private answer

dakujem, uz som si to vyriesil

Marked as spam
Odeslal Anonymous
Odpověděl 4.11.2018 7:03

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]