terfi ilerletme

[berkbaba]

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?

 

Satır gizle aç

Foto Albüm Oluşturmak / UserForm - SpinButton

[berkbaba]

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.

 

[Ömer BARAN]

Makronun içerisinde olduğu örnek belge yükleseydiniz keşke.

 

[cakarem]

Sayın @berkbaba
Sorunuz çözüme ulaşıldı ise konuyu çözüldü olarak işaretleyip, kilitleyelim.

 

[berkbaba]

Sayın cakarem
Konu Çözüldü