B

Çözüldü terfi ilerletme

  • Konuyu başlatan Konuyu başlatan berkbaba
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

berkbaba

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
L5 SÜTUNUNDAN İTİBAREN =EĞERHATA(EĞER($H5="";"";İNDİS(DERECE;KAÇINCI($H5&$I5;BİRLEŞİKDK;0)+1));"")
M5 SÜTUNUNDAN İTİBAREN =EĞERHATA(EĞER($H5="";"";İNDİS(KADEME;KAÇINCI($H5&$I5;BİRLEŞİKDK;0)+1));"")

formülünü makroya çevirmek istiyorum. Ancak;
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H5:I65536]) Is Nothing Then Exit Sub
sat = Target.Row

Makro kodunun altına eklemek istiyorum
Yardımcı olabilir misiniz?
 
L5 için : Application.WorksheetFunction.ıferror(Cells(sat, "h") = Empty, (Application.WorksheetFunction.Index(DERECE, Application.Match(Cells(sat, "H") & Cells(sat, "ı"), BİRLEŞİKDK, 0) + 1)), "")

M5 için : Application.WorksheetFunction.ıferror(Cells(sat, "h") = Empty, (Application.WorksheetFunction.Index(KADEME, Application.Match(Cells(sat, "H") & Cells(sat, "ı"), BİRLEŞİKDK, 0) + 1)), "")

hata da vermiyor, işlem de yapmıyor.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst