Makro ile hücre seçimi

[mhizlim]

Ben a2 ile e5 arası hücrelerin I3 ile m3 hücresine aktarmasını ve böyle böyle her aktarmayı alt alta yazmasını istiyorum.

Sub AKTAR()
satb = [a2:e5].End(3).Row
satc = [a2:e5].End(3).Row
For i = 1 To satb
s2s = [f65536].End(3).Row + 1
Cells(s2s, 5).Value = Cells(i, 2).Value
Next
For i = 1 To satc
s2s = [I65536].End(3).Row + 1
Cells(s2s, 5).Value = Cells(i, 3).Value
Next
End Sub

 

[apocalyt]

şunu denermisiniz..

Sub AKTAR()
If Range("ı3") = "" Then
Range("a2:e5").Copy Destination:=Range("ı3:m3")
Exit Sub
Else
a = [ı200].End(3).Row
b = [j200].End(3).Row
c = [k200].End(3).Row
d = [l200].End(3).Row
e = [m200].End(3).Row
x = WorksheetFunction.Max(a, b, c, d, e)
Range("a2:e5").Copy Destination:=Range("ı" & x + 1 & ":" & "m" & x + 1)
End If
End Sub

 

[mhizlim]

teşekkür ederim fakat şöyle bir sorun var. Hücre renklerini ve formüllerini aktarmadan sadece metni aktarılacak. Bunun nasıl çözeriz.

 

[apocalyt]

bunu deneyiniz.
Sub AKTAR()
If Range("ı3") = "" Then
Range("a2:e5").Copy
Range("ı3:m3").PasteSpecial (xlPasteValues)
Exit Sub
Else
a = [ı200].End(3).Row
b = [j200].End(3).Row
c = [k200].End(3).Row
d = [l200].End(3).Row
e = [m200].End(3).Row
x = WorksheetFunction.Max(a, b, c, d, e)
Range("a2:e5").Copy
Range("ı" & x + 1 & ":" & "m" & x + 1).PasteSpecial (xlPasteValues)
End If
End Sub