yenilenen verinin ilk satırdan başlaması

[torik52]

Bu formül sn baranın döviz çalışmasından alıntıdr.sormak istediğim burda yeni veri bir satır aşşağıya yazmaktadır benim istediğim yeni verinin hep ilk satıra yazılmasıdır yani aşşağıdakilerin tersidir bu konuda yardımcı olursanız sevinirim.
Private Sub Worksheet_Change(ByVal Target As Range)
Set ar = Sheets("ARŞİV")
ar.Cells(ar.[B65536].End(3).Row + 1, "B") = [A49]
ar.Cells(ar.[C65536].End(3).Row + 1, "C") = [A48]
ar.Cells(ar.[D65536].End(3).Row + 1, "D") = [A43]
ar.Cells(ar.[E65536].End(3).Row + 1, "E") = [A42]
ar.Cells(ar.[F65536].End(3).Row + 1, "F") = [A45]
ar.Cells(ar.[G65536].End(3).Row + 1, "G") = [A46]
ar.Cells(ar.[H65536].End(3).Row + 1, "H") = Now
End Sub

 

[systran]

deneyiniz.

Set ar = Sheets("ARŞİV")
ar.Cells(1, "B") = [A49]
ar.Cells(1, "C") = [A48]
ar.Cells(1, "D") = [A43]
ar.Cells(1, "E") = [A42]
ar.Cells(1, "F") = [A45]
ar.Cells(1, "G") = [A46]
ar.Cells(1, "H") = Now
End Sub

 

[torik52]

Verdiğiniz formül çalışmadı orjinal dosyayı ekledim size zahmet tekrar bakarmısınız

 

[systran]

örnek dosyayı inceleyiniz.
sizin yazarak belirttiğiniz durumda ilk satır dediğiniz için 1.satır anlaşılıyor,
ancak örnek incelendiğinde başlık verileri olduğundan 4. satır istediğiniz konuma karşılık geliyor.

ayrıca 3 farklı sayfada işlem yapıldığı için her birinin kodunun değişmesi gerekiyor.
kodları inceleyiniz.

SONUÇ: örnek dosya yüklemenin faydası bir kez daha görülmüştür ;-)

 

[torik52]

sağolun teşekkür ediyorum size