Veri Aktarımı Hk.

[ny28.]

Merhabalar,
Sayfa2 den Sayfa1 e veri aktarılması konusunda yardımlarınızı rica ederim.
Saygılarımla,

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub veriaktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For Each hucre In s2.[a2:h65536].SpecialCells(xlCellTypeConstants, 2)
sut = WorksheetFunction.Match(hucre, s1.[1:1], 0)
sat = s1.Cells(65536, sut).End(3).Row + 1
s1.Cells(sat, "a") = s2.[h1]
s1.Cells(sat, sut) = hucre.Offset(1, 0)
Next
End Sub

 

[ny28.]

Teşekürler Hocam, Elinize sağlık.