• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
18 Nisan 2017
Mesajlar
112
Excel Vers. ve Dili
2016 c++
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.
 

Ekli dosyalar

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:

Kod:
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
 
R5 Hücresine kopyalayınız,S5 kadar sağa ve aşağıdoğru çoğaltınız.
Kod:
=EĞERHATA(KAYDIR($A$4;;TOPLAMA(15;6;(SÜTUN($D$1:$Q$1)/($D5:$Q5="X"))-1;SÜTUN(A$1)));"")
 
Son düzenleme:
HOCALARIM HER İKİSİDE ÇALIŞTI MÜKEMMELSİNİZ. SAYGILARIMLA.
 
Geri
Üst