Como hacer que se repita una macro en varias filas

HOLA AMIGOS TENGO ESTA MACRO COMO LA HAGO QUE SE REPITA EN VARIAS FILAS:

ESTA MACRO LA VI CON LUISMONDELO (TODO EXPERTOS)

Private Sub Worksheet_Change(ByVal Target As Range)
'por luismondelo SE CAPTURA EN LA HOJA
If Target.Address = "$B$2" Then
Target.Offset(0, 6).Select
Exit Sub
End If
If Target.Address = "$H$2" Then
Target.Offset(0, 27).Select
Exit Sub
End If
If Target.Address = "$AI$2" Then
Target.Offset(0, 8).Select
Exit Sub
End If
If Target.Address = "$AQ$2" Then
Target.Offset(0, 6).Select
Exit Sub
End If
If Target.Address = "$AW$2" Then
Target.Offset(0, 7).Select
Exit Sub
End If
If Target.Address = "$BD$2" Then
Target.Offset(0, 2).Select
Exit Sub
End If
If Target.Address = "$BF$2" Then
Target.Offset(0, 7).Select
Exit Sub
End If
If Target.Address = "$BM$2" Then
Target.Offset(1, 1).Select
Exit Sub
End If
End Sub

1 Respuesta

Respuesta
1

Private Sub Worksheet_Change(ByVal Target As Range)
'por luismondelo SE CAPTURA EN LA HOJA

' Añades una variable, yo tengo requerimiento de variables

Dim i as double

'Si quieres de la 2 a la 50

for i =2 to 50

if Target.Address = "$B$"+cstr(i) Then
Target.Offset(0, 6).Select
Exit Sub
End If
If Target.Address = "$H$"+cstr(i) Then
Target.Offset(0, 27).Select
Exit Sub
End If
If Target.Address = "$AI$"+cstr(i)Then
Target.Offset(0, 8).Select
Exit Sub
End If
If Target.Address = "$AQ$"+cstr(i) Then
Target.Offset(0, 6).Select
Exit Sub
End If
If Target.Address = "$AW$"+cstr(i) Then
Target.Offset(0, 7).Select
Exit Sub
End If
If Target.Address = "$BD$"+cstr(i) Then
Target.Offset(0, 2).Select
Exit Sub
End If
If Target.Address = "$BF$"+cstr(i) Then
Target.Offset(0, 7).Select
Exit Sub
End If
If Target.Address = "$BM$"+cstr(i) Then
Target.Offset(1, 1).Select

End If

next i
End Sub

GRACIAS ERES GENIAL QUISIERA APRENDER MAS PARA ASI PODER DECIR QUE LO APRENDÍ DE USTEDES.

GRACIAS EN MI MACRO PONGO EL AGRADECIMIENTO DE USTEDES YA QUE SIN USTEDES NO SOY NADA...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas