Makroda kopyalama

[aydogankemal]

Merhabalar,
Makro ile kopyalama yapıp daha sonra kopyaladığım satırın karşılarına hesap edilen değeri yapıştırmak ve sonra bir alt satırı kopyalayıp yeni hesaplamayı yaptırıp yine onun kopyalandığı satırın karşısına yapıştırmak istiyorum, bu işlem kopyalanacak değerlerin olduğu en alt satıra kadar gidip sonra bitmeli,
biraz karışık olduğunun farkındayım ama ekli dosya da biraz daha açık şekilde anlatmaya çalıştım,

 

[hamitcan]

Böyle deneyin.

Sub Aktar()
    For i = 2 To Sayfa2.[a65536].End(3).Row
        Sayfa1.Cells(i, 1) = Left(Sayfa2.Cells(i, 1), 2)
        Sayfa1.Cells(i, 2) = Right(Sayfa2.Cells(i, 1), 2)
        Cells(i, 3) = Cells(i, 1) * 18
        Cells(i, 4) = Cells(i, 3) * 1 / 2 + 56
        Cells(i, 5) = Cells(i, 4) - 4
    Next
End Sub

 

[aydogankemal]

Makro kopyalama

İlginize teşekkür ederim ancak benim oraya yazdığım formüller örnek formüllerdi, ben o formülleri makro da kullanmak istemiyorum, onun yerine formüllü satırı kopyalayıp değerleri yapıştıracak bir makroya ihtiyacım var

 

[hamitcan]

Biraz geç oldu ama...

Sub Aktar()
    For i = 2 To Sayfa2.[a65536].End(3).Row
        Sayfa1.Cells(i, 1) = Left(Sayfa2.Cells(i, 1), 2)
    Next
        Range("c2:e2").AutoFill Destination:=Range("C2:E" & Sayfa2.[a65536].End(3).Row), Type:=xlFillDefault
End Sub