ERDALOZ
Yeni Üye
- Katılım
- 14 May 2023
- Mesajlar
- 342
- Çözümler
- 1
- Aldığı beğeni
- 43
- Excel V
- Office 2016 EN
Konu Sahibi
Merhaba
Caylak üstadımız ekteki dosyadaki kodlamaya yardımcı olmuştu. Aşağıda ilgi kod var(ekte ise örnek dosyamız): Örneğin A1 hücresinde ALKA yazılı, B1 hücresine yansıması da =FX|ALKA.ISE!Last (veri aldığım ekran sizde yoksa içeri boş ya da #ref hatası olarak görülebilir) şeklinde oluyor. Şimdi ben B2 hücresine de =FX|ALKA.ISE!'EMA(5)' yansımasını istiyorum. (ve böyle her ilave de nasıl bir yol izlemeliyim?) Ne kadar deneme yaptıysam başarılı olamadım, yardımlarınızı rica ederim, teşekkürler.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 1) = Formül(Target.Offset(0, 1), Target.Value)
Application.EnableEvents = True
End If
End Sub
Function Formül(Hucre As Range, Deger As String)
Hucre.Formula = "=FX|" & Deger & ".ISE!Last"
Formül = Hucre.Formula
End Function
Caylak üstadımız ekteki dosyadaki kodlamaya yardımcı olmuştu. Aşağıda ilgi kod var(ekte ise örnek dosyamız): Örneğin A1 hücresinde ALKA yazılı, B1 hücresine yansıması da =FX|ALKA.ISE!Last (veri aldığım ekran sizde yoksa içeri boş ya da #ref hatası olarak görülebilir) şeklinde oluyor. Şimdi ben B2 hücresine de =FX|ALKA.ISE!'EMA(5)' yansımasını istiyorum. (ve böyle her ilave de nasıl bir yol izlemeliyim?) Ne kadar deneme yaptıysam başarılı olamadım, yardımlarınızı rica ederim, teşekkürler.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 1) = Formül(Target.Offset(0, 1), Target.Value)
Application.EnableEvents = True
End If
End Sub
Function Formül(Hucre As Range, Deger As String)
Hucre.Formula = "=FX|" & Deger & ".ISE!Last"
Formül = Hucre.Formula
End Function
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
