Aktar Makrosunu Butona Atamadan Otomatik Çalışmasını Sağlayabilirmiyiz.

[slcflz]

Merhabalar Asağıdaki Kodu Her İşlem Yaptığımızda Otomatik Çalışmasını Sağlayabilirmiyiz. Tşkler

Sub Aktar()
Set s1 = Sheets("RAPOR")
Set s2 = Sheets("Data")
sat1 = s1.[a65536].End(3).Row
sat2 = s2.[c65536].End(3).Row

For a = 3 To sat1
For b = 2 To sat2
If s2.Range("c" & b).Value = s1.Range("a" & a).Value Then
If s2.Range("g" & b).Value = "Sayım" Then
s1.Range("b" & a).Value = s2.Range("f" & b).Value

ElseIf s2.Range("g" & b).Value = "Satış İade" Then
s1.Range("c" & a).Value = s2.Range("f" & b).Value

ElseIf s2.Range("g" & b).Value = "Sevkiyat" Then
s1.Range("d" & a).Value = s2.Range("f" & b).Value

ElseIf s2.Range("g" & b).Value = "Üretim" Then
s1.Range("e" & a).Value = s2.Range("f" & b).Value

End If

End If
Next

Next


End Sub

 

[hamitcan]

Sayfadaki, Change olayına bağlayınız.