« Zpět na předchozí stránku
Answer Question
▲
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
86 views
▲
0
▼
✔
Private answer

dakujem, uz som si to vyriesil

Marked as spam
Odeslal Anonymous
Odpověděl 4.11.2018 7:03
« Zpět na předchozí stránku

Odešlete svou odpověď

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