son satırı aşağıya doğru kopyalama

[turkanet]

Merhaba,
h sütunundaki son satırı aşağıya doğru 3 satır daha kopyalayacak makro için acil yardımınızı rica ederim.

 

[uzmanamele]

Merhaba

Bunun gibi mi?

Sub ssatcopy()
sat = Range("h65536").End(3).Row
Range("a" & sat & ":" & "h" & sat).Copy Range("a" & sat + 1 & ":" & "a" & sat + 3)
End Sub

 

[koyunerili]

merhaba kolay gelsin benim bir problemim var yapmak istediğim sayfa1 deki 2 satırı alıp toplayarak sayfa 2 ye 1 satır olarak yazdıran ve böyle satırlardan sayfa 1 de 200 tane var örneğin. Bunları otomatik yapabilir miyiz?

 

[turkanet]

merhaba,
aslında istediğim ekli dosyadaki gibi; yardımınızı rica ederim;

1- f sütununun sonundaki satırların üzerindeki boşluklar kalkacak (yandaki satırlar sabit olmaz üzere)
2- h sütununun son hücresini f sütununun son hücresine kadar kopyalayacak
3- f sütununun son hücresinden itibaren (bu hücrenin altından başlayarak) alttaki süm tasırları silecek

şimdiden teşekkür ederim

 

[turkanet]

Merhaba,
Aşağıdaki gibi bir çözüm yardımı aldım ancak ekteki gibi hata veriyor. Yardımınızı rica ederim.

Sub turka()
Dim son As Integer
Range("F:F").SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
son = Range("F" & Rows.Count).End(xlUp).Row + 1
Rows(son & ":" & Rows.Count).Delete
son = Range("H" & Rows.Count).End(xlUp).Row
Range("H" & son).FormulaLocal = "=F" & son & "-G" & son
Range("H" & son + 1).FormulaLocal = "=F" & son + 1 & "-G" & son + 1
End Sub

 

[turkanet]

Merhaba,
Bu defa, h sütunundaki son satırı aşağıya doğru G satırı kadar kopyalayacak makro için yardımınızı rica ediyorum.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub Makro1()
    Cells(Rows.Count, "H").End(3).AutoFill Destination:=Range("H" & Cells(Rows.Count, "H").End(3).Row & ":H" & Cells(Rows.Count, "G").End(3).Row)
End Sub

 

[turkanet]

Korhan bey
"range sınıfının autofill yöntemi başarısız" hatası verdi.

 

[Korhan Ayhan]

Ben denediğimde vermemişti. Örnek dosya ekleyiniz.

 

[turkanet]

ektedir. değerli cevabınızı rica ederim.

 

[Korhan Ayhan]

Üstteki mesajımdaki kodu dosyanıza göre revize ettim. Tekrar deneyiniz.

 

[turkanet]

minnettarım

 

[turkanet]

Sn. Korhan Ayhan,
ilgili makroya h sütunundaki son hücreyle g sütunundaki son hücre aynı satırdaysa kopyalamaması şartını da eklemenizi rica ederim.

 

[turkanet]

değerli yardımlarınızı rica ederim