Çözüldü Hücredeki formülde bozulmaları önlemek

[vurkan]

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

 

[yanginci34]

sayfa korumasını kaldırın veya şifresini yazın

 

[Korhan Ayhan]

Deneyiniz.

Hücreler silinse de formülde bozulma olmaz.

=EĞER(A3="";"";İNDİS(DOLAYLI("KULÜPLER!C3:C55");KAÇINCI(A3;DOLAYLI("KULÜPLER!B3:B55");0);1))

 

[vurkan]

Sayın Korhan Ayhan Bey Teşekkür ederim. Bir başka çalışmada İhtiyaç hasıl olursa kod ile çözüm nasıl olurdu acaba? Teşekkürler.
Sayın yangıncı34 şifreyi kaldırmıştım ama yine de vereyim "sivas"

 

[Korhan Ayhan]

ŞABLON sayfanızın kod bölümüne aşağıdaki kodu uygulamanız yeterli olacaktır.

Private Sub Worksheet_Activate()
    Range("A3") = ActiveSheet.Name
    Range("E3").FormulaLocal = "=EĞER(A3="""";"""";İNDİS(KULÜPLER!C$3:C$55;KAÇINCI(A3;KULÜPLER!B$3:B$55;0);1))"
End Sub

 

[vurkan]

Sayın Korhan Ayhan ilgi ve yardımınız için teşekkür ederim