Makro ile sütundaki değerleri farklı sütuna yapıştırma

[berkeartar]

Arkadaşlar merhaba,

Ekteki tabloda tarih yazan sütunlardaki yüzdelik değerleri makro ile bir solundaki bir önceki dönem tarihi yazan sütunlara değer olarak yapıştırmak istiyorum. Bunu her hafta düzenli olarak yapmam gerekiyor. Kısacası C sütunundaki değerleri B sütununa, E sütunundaki değerleri D sütununa diye tablonun sonuna kadar yapıştırmak istiyorum. Hayati yardımcı olabilirseniz çok sevinirim Makroyu öğrenmeye yeni başladım ancak bu tablo için vaktim olmadığı için kurcalamadan buradan paylaşıyorum.

 

[AdemCan]

Merhaba bu kodları kullanabilirsiniz.

Sub deger_yapistir()
Application.ScreenUpdating = False
Dim s1 As Worksheet, sonS As Long, sonL As Integer, i As Integer
Set s1 = Sheets("İLERLEME")

sonS = s1.Range("A" & Rows.Count).End(xlUp).Row
sonL = s1.Cells(3, Columns.Count).End(xlToLeft).Column

For i = 3 To sonL Step 2
    s1.Range(Cells(4, i), Cells(sonS, i)).Copy
    s1.Cells(4, i - 1).PasteSpecial Paste:=xlPasteValues
Next i

s1.Range("A4").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Set s1 = Nothing
sonS = 0: sonL = 0: i = 0
End Sub

 

[berkeartar]

Harikasınız

 

[AdemCan]

Teşekkür ederim harika olan forum