BİR HÜCREDEKİ İŞARETİN KARŞILIĞINDAKİNİ BAŞKA HÜCREYE YAZMA

[splashsmlt]

Arkadaşlar bir proje dağılım tablosu var öğrenciler farklı derslerden proje alıyorlar. öğrencinin proje aldığı dersin sütünuna X kondu ise diğer sütünda hangi derslere X kondu ise onların isimlerinin yazılması mümkün mü? ekli dosya da daha net anlattım.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp Kod görüntüle deyince açılan sayfaya) yapıştırıp deneyin. D5:Q28 aralığında x ya da X girdiğinizde ya da hücreden silme yaptığınızda R ve S sütunlarında istediğiniz gibi değişiklik yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D5:Q28]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
a = Target.Row
b = Target.Column
If Target = "" Then
    If Cells(a, "R") = Cells(4, b) Then
        Cells(a, "R") = ""
    ElseIf Cells(a, "S") = Cells(4, b) Then
        Cells(a, "S") = ""
    End If
ElseIf Target = "X" Or Target = "x" Then
    If Cells(a, "R") = "" Then
        Cells(a, "R") = Cells(4, b)
    ElseIf Cells(a, "S") = "" Then
        Cells(a, "S") = Cells(4, b)
    Else
        MsgBox "Öğrenci 2'den fazla proje almış", vbCritical
    End If
End If
End Sub

 

[çıtır]

R5 Hücresine kopyalayınız,S5 kadar sağa ve aşağıdoğru çoğaltınız.

=EĞERHATA(KAYDIR($A$4;;TOPLAMA(15;6;(SÜTUN($D$1:$Q$1)/($D5:$Q5="X"))-1;SÜTUN(A$1)));"")

 

[splashsmlt]

HOCALARIM HER İKİSİDE ÇALIŞTI MÜKEMMELSİNİZ. SAYGILARIMLA.