[ÇÖZÜLDÜ] Formül Çağırma Yardım

[3641]

Arkadaşlar

Her Ürün kodu İçin Kullanılan Sabit Formüllerim Var.
Bu Formülleri "Formül" Sayfasında tutuyorum. Veri_Gir Sayfasında ise Ürün Kodu Yazarak Formülü Çağırmak istiyorum.

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Örnek Dosya Ektedir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1, S2 As Worksheet
Dim SUT1, SUT2 As Integer
If Intersect(Target, [A3:A19]) Is Nothing Then Exit Sub
Set S1 = Sheets("Veri_Gir")
Set S2 = Sheets("Formül")
For SUT1 = 3 To S1.Cells(65536, "A").End(3).Row
For SUT2 = 3 To S2.Cells(65536, "A").End(3).Row
If S1.Cells(SUT1, "A") = S2.Cells(SUT2, "A") Then
S2.Cells(SUT2, "K").Copy
S1.Cells(SUT1, "K").PasteSpecial
Application.CutCopyMode = False
End If
Next
Next
Set S1 = Nothing
Set S2 = Nothing
End Sub

 

[3641]

Sayın V.Basic For Applications
İlginiz ve yardımınız için teşekkür ederim.
Formül çağırma işlemi 20. Satıra kadar işliyor, acaba bunu excelde son hücreye kadar aktifleştirmek mümkünmü.

 

[N.Ziya Hiçdurmaz]

Yanıt

If Intersect(Target, [A3:A19]) Is Nothing Then Exit Sub ' kırmızı fontlu yerden istediğiniz kadar artırabilirsiniz.

 

[3641]

V.Basic For Applications
Ellerine Sağlık beni ciddi bir sıkıntıdan kurtardın tekrar teşekkür ederim.