excel macro උදව්වක්

[tin_kiri]

@hasithayad මචං හෙල්ප් එකක් දියං
කොලම් තුනක් තියෙනව
වම් පැත්තෙ කොලම් තුනේ කන්ටෙන්ට් එක අනුව දකුණු පැත්තෙ කොලම් එකට වචනයක් ඇඩ් වෙන්න ඕනෙ
පේලියෙන් පේලිය පල්ලැහැට වෙන්න ඕනෙ

පලවෙනි කොලම් එකේ P අකුර තිබිල දෙවෙනි කොලම් එකේ මොකුත් නැති වුණොත් උදා "ඇත" කියන වචනෙ තුන්වෙනි කොලම් එකට එන්න ඕනෙ
conditional formatting වලින් කරන්න විදියක් නෑ. එතනට වෙනම ෆෝමියුල එකකුත් දාල තියෙන්නෙ

 

[hasithayad]

@hasithayad මචං හෙල්ප් එකක් දියං
කොලම් තුනක් තියෙනව
වම් පැත්තෙ කොලම් තුනේ කන්ටෙන්ට් එක අනුව දකුණු පැත්තෙ කොලම් එකට වචනයක් ඇඩ් වෙන්න ඕනෙ
පේලියෙන් පේලිය පල්ලැහැට වෙන්න ඕනෙ

පලවෙනි කොලම් එකේ P අකුර තිබිල දෙවෙනි කොලම් එකේ මොකුත් නැති වුණොත් උදා "ඇත" කියන වචනෙ තුන්වෙනි කොලම් එකට එන්න ඕනෙ
conditional formatting වලින් කරන්න විදියක් නෑ. එතනට වෙනම ෆෝමියුල එකකුත් දාල තියෙන්නෙ

Private Sub Worksheet_Change(ByVal Target As Range)
        If LCase(Range("A" & Target.Row)) = "p" And Range("B" & Target.Row) = "" Then
            Application.EnableEvents = False
            Range("D" & Target.Row) = "Yes"
            Application.EnableEvents = True
        Else
            Application.EnableEvents = False
            Range("D" & Target.Row) = "No"
            Application.EnableEvents = True
        End If
End Sub

 

[tin_kiri]

Private Sub Worksheet_Change(ByVal Target As Range)
        If LCase(Range("A" & Target.Row)) = "p" And Range("B" & Target.Row) = "" Then
            Application.EnableEvents = False
            Range("D" & Target.Row) = "Yes"
            Application.EnableEvents = True
        Else
            Application.EnableEvents = False
            Range("D" & Target.Row) = "No"
            Application.EnableEvents = True
        End If
End Sub

අඩේ තැන්කියු මචං