Merhaba

[TYFNKSKN]

Bir konuda yardıma ihtiyacım var.. hergün alt alta işlediğim kayıtlarım var.. bir makrom var sorunsuz çalışıyor fakat ben E sütünunda bir hücreye giriş yaptığımda ya da değişiklik yaptığımda sağdaki hücreye makroyu çalıştırmasını istiyorum.. yani örneğin E10 hücresini değiştirmişsem F10 hücresine makroyu çalıştırmasını istiyorum..

Makrom:

Sub Formul()
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(ISERROR(VLOOKUP(RC[-1],RAPOR!C[-5]:C[-4],2,FALSE)),""Hata"",VLOOKUP(RC[-1],RAPOR!C[-5]:C[-4],2,FALSE)))"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Ustalardan yardım bekliyorum.. Bunu uyarlayacağım birçok dosyam var..
Şimdiden teşekkür ederim..

 

[Mahir64]

Size de Merhaba.

 

[askm]

Merhaba.
Aşağıdaki kodlar ile deneyin. Olmazsa örnek dosyanızı ekleyin bakalım.

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False

On Error Resume Next
If ActiveCell.Column = 5 Then
Target.Offset(0, 6).FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(ISERROR(VLOOKUP(RC[-1],RAPOR!C[-5]:C[-4],2,FALSE)),""Hata"",VLOOKUP(RC[-1],RAPOR!C[-5]:C[-4],2,FALSE)))"

End If
Application.EnableEvents = True
Application.ScreenUpdating = True


End Sub

 

[TYFNKSKN]

anlayamadım..

 

[Ömer BARAN]

Merhaba.

Sanırım yeni üye olmanızdan kaynaklanıyor.
Açtığınız konu başlığı FORUM KURALLARINA aykırı.

Bu şekilde başlık taşıyan konular forum yöneticilerince
Forum Kurallarına Uymayan Başlıklar bölümüne taşınmaktadır.

Ayrıca, sorularınızı örnek belge ile desteklemenizi öneriyorum.
.