A stunu içerisindeki son 20 kayıd kopyalama

[salimarslan]

iyi günler,

A stununa hergün bi değer giriyorum
bu girdiğim değerlerin son 20 tanesini otomatik sheet2 ye kopyalamak istiyorum.

yardımlarınız için şimdiden teşekkürler.

 

[Ferhat Pazarçevirdi]

Merhabalar

Fonksiyonlar bölümünün altına sormuşsunuz ama aynı zamanda kopyalamak istediğinizden de bahsetmişsiniz. Biraz kafa karıştırıcı olmuş

Makro ile çözüm:

Sub Son_Yirmi_Aktar()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")
Dim i%, y%, son%
son = sh1.Cells(65536, 1).End(xlUp).Row
If son <= 20 Then: son = 20
For i = son - 19 To son
    y = y + 1
    sh2.Cells(y, 1) = sh1.Cells(i, 1)
Next i
Set sh1 = Nothing
Set sh2 = Nothing
End Sub

KTF (Kullanıcı Tanımlı Fonksiyon) ile çözüm :

Public Function SonYirmi(index As Integer)
Dim sh1 As Worksheet, sh2 As Worksheet
Dim arrVeri()
Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")
Dim i%, y%, son%
son = sh1.Cells(65536, 1).End(xlUp).Row
If son <= 20 Then: son = 20
For i = son - 19 To son
    y = y + 1
    ReDim Preserve arrVeri(1 To y)
    arrVeri(y) = sh1.Cells(i, 1)
Next i
SonYirmi = arrVeri(index)
Set sh1 = Nothing
Set sh2 = Nothing
End Function

Kullanımı : Sayfa2'de istediğiniz bir hücreye =Sonyirmi(Satir(A1)) yazıp aşağı doğru formülü kopyalayın.

Hangisini isterseniz onu kullanın ...