en son yazılan satırı sayfa başına kopyalama

[karnalit28]

bir veri sayfasındaki en son yazılan satırı bütün olarak sayfanın başındaki satıra otomatik olarak nasıl yazdırabilirim.

yani enson girilen satırı tekrar sayfanın başına kopyalayacak.

ekte bir örneğim var

 

[kiziloguz]

Ekteki dosyayı inceleyiniz.

 

[Muhammet Okumuş]

Merhaba.
Kodu deneyiniz.

Sub Aktar()
Application.ScreenUpdating = False
Rows(6).Insert
son = Cells(Rows.Count, "A").End(3).Row
Range("A6:F6") = Range("A" & son & ":F" & son).Value
Rows(son).Delete
End Sub

 

[karnalit28]

bilgiler için teşekkürler buda işime yarar ama bunu kod değilde formülle yapamazmıyız.

 

[Muhammet Okumuş]

4. Satırda sadece en alttaki veriyi göstermek için

A4 hücresine,

=EĞER(İNDİS(A6:A10000;BAĞ_DEĞ_DOLU_SAY($A$6:$A$10000))="";"";İNDİS(A6:A10000;BAĞ_DEĞ_DOLU_SAY($A$6:$A$10000)))

formülünü uygulayınız.

 

[karnalit28]

işte bu teşekkürler