Hücredeki değere göre veri girmek

[amenejist]

Arkadaşlar burada uzun uzadıya derdimi anlatmamak için Örnek dosya içersinde yapmak istediğim şeyi anlatmaya çalıştım.
Bana yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub DEĞER_GİR()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    S2.Columns(1).ClearContents
    For X = 1 To S1.[A65536].End(3).Row
    If X = 1 Then
    S2.Cells(X, "A") = 1
    Else
    Satır = WorksheetFunction.Sum(S1.Range("A1:A" & X))
    S2.Cells(Satır, "A") = 1
    End If
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[amenejist]

Teşekkür

Çok teşekkür ederim Korhan Bey tam istediğim gibi olmuş...