Problema con esta macro, que se para en una celda
Buenos días
Tengo esta macro perfecta:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, [E13:P69]) Is Nothing Then
Sheets("ControlVentaArticulo").Select
u = Sheets("ControlVentaArticulo").Cells(93, Columns.Count).End(xlToLeft).Column + 1
f = 93
If u < Columns("E").Column Then
u = Columns("E").Column
End If
If u > Columns("V").Column Then
u = Columns("E").Column
f = 94
End If
Sheets("ControlVentaArticulo").Cells(f, u).Select
End If
End Sub
Y aunque este ocupado siempre me selecciona la "E94" y no me selecciona la siguiente celda hasta la "V94".
Un saludo
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, [E13:P69]) Is Nothing Then
Set h = Sheets("ControlVentaArticulo")
h.Select
u = h.Cells(93, Columns.Count).End(xlToLeft).Column + 1
f = 93
If u < Columns("E").Column Then
u = Columns("E").Column
End If
If u > Columns("V").Column Then
u = h.Cells(94, Columns.Count).End(xlToLeft).Column + 1
If u < Columns("E").Column Then
u = Columns("E").Column
End If
f = 94
End If
h.Cells(f, u).Select
End If
End Sub
