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
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...
