düğme ile sadece belirli verilerin toplamı

[GursoyC]

Merhaba,
ekteki örnek dosyamda da açıkladığım üzere, 1. sayfadaki bazı verilerin bir düğme ile 2. sayfada artmasını sağlamaya çalışıyorum.
Yardımcı olur musunuz?

 

[antonio]

Merhaba,

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, aranan As String, _
ss1 As Long, ss2 As Long, i As Long, alan As Range, k As Range
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
ss1 = s1.Range("G56789").End(3).Row
ss2 = s2.Range("D56789").End(3).Row
Set alan = s2.Range("D2:D" & ss2)
For i = 2 To ss1
    aranan = s1.Range("G" & i).Value
    Set k = alan.Find(aranan, , xlValues, xlWhole)
    If Not k Is Nothing Then
        deg = s1.Range("H" & i).Value
        k.Offset(0, 1).Value = k.Offset(0, 1).Value + deg
    End If
Next i
MsgBox "İşlem tamamlandı. veriler eklendi", vbInformation, "antonio"
End Sub

 

[GursoyC]

Çok teşekkür ederim sayın Antonio, gayet güzel çalışıyor.
Saygılar,

 

[antonio]

Rica ederim. İyi çalışmalar.

 

[GursoyC]

Sayın Antonio, öğrenmek için soruyorum.
kodların hemen hemen hepsini anladım.
Range("G56789").End(3).Row kodunda "end(3)" kısmı neyi ifade ediyor acaba?

 

[GursoyC]

Biraz araştırıp anlamını buldum. Tekrar teşekkürler.