- Katılım
- 28 Tem 2022
- Mesajlar
- 15
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Option Explicit
Sub CPY()
Dim x As Range
Dim y As Range
Dim z As Range
Dim A As Range
Set x = Worksheets("BİLGİLER").Range("b23,k40")
Set y = Worksheets("UYG. SÖZL").Range("b14")
Set z = Worksheets("ZZ").Range("b13")
Set A = Worksheets("EK 17-1").Range("Z12")
x.Copy
y.PasteSpecial
z.PasteSpecial
A.PasteSpecial
End Sub
Sub CPY()
Dim x As Range
Dim y As Range
Dim z As Range
Dim A As Range
Set x = Worksheets("BİLGİLER").Range("b23,k40")
Set y = Worksheets("UYG. SÖZL").Range("b14")
Set z = Worksheets("ZZ").Range("b13")
Set A = Worksheets("EK 17-1").Range("Z12")
x.Copy
y.PasteSpecial
z.PasteSpecial
A.PasteSpecial
End Sub
