Arkadaşlar merhaba Sizlerin yardımlarıyla hazırladığım öğrenci kulüp programında ŞABLON sayfasında E3 hücresinde;
=EĞER(A3="";"";İNDİS(KULÜPLER!C$3:KULÜPLER!C$55;KAÇINCI(A3;KULÜPLER!B$3:KULÜPLER!B$55;0);1)) şeklindeki formül kulüpler sayfasında silme ve taşıma işlemleri yapılınca bazen;
=EĞER(A3="";"";İNDİS(KULÜPLER!#BAŞV!:KULÜPLER!C$55;KAÇINCI(A3;KULÜPLER!#BAŞV!:KULÜPLER!B$55;0);1)) haline gelip işlevini kaybediyor. Ben ŞABLON sayfasının kod bölümünde;
Private Sub Worksheet_Activate()
s = ActiveSheet.Name
[a3] = s
End Sub kodlarına ilaveten
Private Sub Worksheet_Change(ByVal Target As Range)
Range("E3").FormulaLocal = "=EĞER(A3="";"";İNDİS(KULÜPLER!C3:KULÜPLER!C$55;KAÇINCI(A3;KULÜPLER!B3:KULÜPLER!B$55;0);1))"
End Sub
Şeklinde bir kod ilave etmek istedim ama çalışmadı. Ne yapabilirim Teşekkürler.
https://www.dosyaupload.com/a7v7
=EĞER(A3="";"";İNDİS(KULÜPLER!C$3:KULÜPLER!C$55;KAÇINCI(A3;KULÜPLER!B$3:KULÜPLER!B$55;0);1)) şeklindeki formül kulüpler sayfasında silme ve taşıma işlemleri yapılınca bazen;
=EĞER(A3="";"";İNDİS(KULÜPLER!#BAŞV!:KULÜPLER!C$55;KAÇINCI(A3;KULÜPLER!#BAŞV!:KULÜPLER!B$55;0);1)) haline gelip işlevini kaybediyor. Ben ŞABLON sayfasının kod bölümünde;
Private Sub Worksheet_Activate()
s = ActiveSheet.Name
[a3] = s
End Sub kodlarına ilaveten
Private Sub Worksheet_Change(ByVal Target As Range)
Range("E3").FormulaLocal = "=EĞER(A3="";"";İNDİS(KULÜPLER!C3:KULÜPLER!C$55;KAÇINCI(A3;KULÜPLER!B3:KULÜPLER!B$55;0);1))"
End Sub
Şeklinde bir kod ilave etmek istedim ama çalışmadı. Ne yapabilirim Teşekkürler.
https://www.dosyaupload.com/a7v7