Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: turkanet - 07 Nisan 2014, 11:20:30

Başlık: Sıfırdan büyükse renklendiren makro
Gönderen: turkanet - 07 Nisan 2014, 11:20:30

B sütununda aynı isimden birden fazla varsa ve bu aynı isimlerin karşılarındaki I satırlarının kimisinde A kimisinde B harfleri varsa, bu aynı satırların karşılığı O satırına "MU"; P satırına ise "ARB" yazacak makro için yardımınızı rica ederim.

Başlık: Ynt: Sıfırdan büyükse renklendiren makro
Gönderen: ataköylü-59 - 08 Nisan 2014, 11:23:23

Alıntı yapılan: turkanet - 07 Nisan 2014, 11:20:30

B sütununda aynı isimden birden fazla varsa ve bu aynı isimlerin karşılarındaki I satırlarının kimisinde A kimisinde B harfleri varsa, bu aynı satırların karşılığı O satırına "MU"; P satırına ise "ARB" yazacak makro için yardımınızı rica ederim.

Sub yazz()
Dim i As Long
    For i = 2 To ActiveSheet.Cells(Rows.Count, "B").End(3).Row
        If WorksheetFunction.CountIf(Columns("B"), Cells(i, "B")) > 1 And (Cells(i, "I") = "A" Or Cells(i, "I") = "B") Then
            Cells(i, "O") = "MU": Cells(i, "P") = "ARB"
        End If
    Next i
i = Empty
End Sub

Ayrıca R1 hücresine =EĞER(VE(EĞERSAY($B$2:$B$15;B2)>1;I2="a");"MU";EĞER(VE(EĞERSAY($B$2:$B$15;B2)>1;I2="b");"MU";""))
         S1 hücresine =EĞER(VE(EĞERSAY($B$2:$B$15;B2)>1;I2="a");"ARB";EĞER(VE(EĞERSAY($B$2:$B$15;B2)>1;I2="b");"ARB";""))
         yazmak suretiyle de aynı işlemi yaptırabilirsiniz.           

Başlık: Ynt: Sıfırdan büyükse renklendiren makro
Gönderen: ataköylü-59 - 08 Nisan 2014, 11:40:07

İletiyi mükerrer olarak gönderdim birini, yani mesajın tamamını silmek istedim ama başaramadım. Sitede yeniyim bu yüzden bağışlayın lütfen!!!

Başlık: Ynt: Sıfırdan büyükse renklendiren makro
Gönderen: ataköylü-59 - 08 Nisan 2014, 12:56:11

İlgili dosya ektedir.