Necesito saber código contador Visual Basic VB
Hola, tengo un problema con un código de contador de click, ya que el procedimiento es demasiado largo y no se acortarlo.
Os paso el código para ver si me podéis ayudar. Muchas Gracias
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' FILA 1
If Target.Row = 3 And Target.Column = 3 Then
Range("C3").Value = Range("C3").Value + 1
End If
If Target.Row = 3 And Target.Column = 4 Then
Range("D3").Value = Range("D3").Value + 1
End If
If Target.Row = 3 And Target.Column = 5 Then
Range("E3").Value = Range("E3").Value + 1
End If
If Target.Row = 3 And Target.Column = 6 Then
Range("F3").Value = Range("F3").Value + 1
End If
If Target.Row = 3 And Target.Column = 7 Then
Range("G3").Value = Range("G3").Value + 1
End If
If Target.Row = 3 And Target.Column = 8 Then
Range("H3").Value = Range("H3").Value + 1
End If
If Target.Row = 3 And Target.Column = 9 Then
Range("I3").Value = Range("I3").Value + 1
End If
If Target.Row = 3 And Target.Column = 10 Then
Range("J3").Value = Range("J3").Value + 1
End If
If Target.Row = 3 And Target.Column = 11 Then
Range("K3").Value = Range("K3").Value + 1
End If
If Target.Row = 3 And Target.Column = 12 Then
Range("L3").Value = Range("L3").Value + 1
End If
If Target.Row = 3 And Target.Column = 13 Then
Range("M3").Value = Range("M3").Value + 1
End If
If Target.Row = 3 And Target.Column = 14 Then
Range("N3").Value = Range("N3").Value + 1
End If
If Target.Row = 3 And Target.Column = 15 Then
Range("O3").Value = Range("O3").Value + 1
End If
If Target.Row = 3 And Target.Column = 16 Then
Range("P3").Value = Range("P3").Value + 1
End If
If Target.Row = 3 And Target.Column = 17 Then
Range("Q3").Value = Range("Q3").Value + 1
End If
If Target.Row = 3 And Target.Column = 18 Then
Range("R3").Value = Range("R3").Value + 1
End If
If Target.Row = 3 And Target.Column = 19 Then
Range("S3").Value = Range("S3").Value + 1
End If
' FILA 2
If Target.Row = 4 And Target.Column = 3 Then
Range("C4").Value = Range("C4").Value + 1
End If
ETC....ETC...
FINAL DEL CODIGO
End If
If Target.Row = 30 And Target.Column = 19 Then
Range("S30").Value = Range("S30").Value + 1
Range("C3:S30").Select
End If
End Sub
1 respuesta
Adjunto macro reducida. Quedó al margen el final sin evaluar, por eso solo llega hasta la fila 29.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'x Elsamatilde
' hasta fila 29
If Target.Row >= 3 And Target.Row <= 29 Then
If Target.Column >= 3 And Target.Column <= 19 Then
Cells(Target.Row, Target.Column).Value = Cells(Target.Row, Target.Column).Value + 1
End If
End If
'FINAL DEL CODIGO
If Target.Row = 30 And Target.Column = 19 Then
Range("S30").Value = Range("S30").Value + 1
Range("C3:S30").Select
End If
End SubEsto va en el objeto ThisWorkbook.
Sdos. Si está todo comprendido y resuelto no olvides valorar desde el desplegable que se encuentra al final de la consulta. Sino comenta.
Elsa
Muchisimas gracias Elsa, el codigo funciona perfectamente y me da la idea necesaria para saber reducir mis codigos.
Da gusto gente que pueda ayudar así y tan rápido.
Muchas Gracias.
