Veri aktarma

[Ledaer]

merhabalar, iyi haftalar,

ekteki linkte bulunan excel dosyasında 2 adet sayfa vardır.
talimat form ve arşiv olarak.

talimat formda girilen bilgileri arşive aktarabilir miyiz?

teşekkürler.

 

[Ledaer]

http://s3.dosya.tc/server10/z2f5dc/talimat.rar.html

dosya buradadır.

 

[vardar07]

Modül'e ekleeyip deneyiniz.

Sub aktar()
Set sh = Sheets("Talimat Form")
With Sheets("Arşiv")
son = .Cells(Rows.Count, "A").End(3).Row + 1
a = 1
For i = 12 To 42 Step 2
.Cells(son, a) = sh.Cells(i, "D")
a = a + 1
Next i
End With
a = Empty
End Sub

 

[Ledaer]

teşekkür ederim