Problema Libro Banco
Realice una macro de acuerdo a:
Columnas:
E: Tipo Si es CH (Cheque), DP, Deposito, NC Nota de Crédito, ND Nota de débito
F: DEBE lo que resta ND, CH
G: Haber lo que suma: DP, NC
Bien desearía aque al colocar algunas de esta opciones se coloque en la que le corresponde Debe o Haber,
desarrolle esta macro pero solo funciona en una celda, y deasaeria que funcionara en toda la Columna en mi caso "E"
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Tipo As String
Tipo = Cells(2, 5)
Select Case Tipo
Case "CH"
Range("F2").Select
Case "ND"
Range("F2").Select
Case "DP"
Range("G2").Select
Case "NC"
Range("G2").Select
End Select
End Sub
Saludos Gracias
1 Respuesta
Debes de usar la propiedad column del target. Adicionalmente en un Select-case, puedes colocar multiples expresiones:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Tipo As String
If Target.Column = 5 Then
Tipo = Target.Value
Select Case Tipo
Case "CH", "ND"
Target.Offset(0, 1).Select
Case "DP", "NC"
Target.Offset(0, 2).Select
Case Else
Target.Offset(0, 0).Select
End Select
End If
End Sub
Por favor puntua y finaliza la pregunta, cualquier duda me comentas!.
