Ya que nadie reponde , solucione el poblema:
Código:
If e.ColumnIndex <> 8 Then Return
Dim value As String = dgvDetalle.CurrentCell.Value.ToString
Dim row As DataGridViewRow = dgvDetalle.CurrentRow
Select Case value.ToUpper
Case "FERIADO"
row.Cells(6).Value = 11
row.Cells(7).Value = Val(row.Cells(6).Value) + Val(row.Cells(5).Value) + Val(row.Cells(4).Value)
Case "FALTA"
row.Cells(6).Value = 0
row.Cells(5).Value = 0
row.Cells(4).Value = 0
row.Cells(7).Value = Val(row.Cells(6).Value) + Val(row.Cells(5).Value) + Val(row.Cells(4).Value)
Case Else
Return
End Select