Condicional de una celda para ejecutar una macro
Si la Celda U (en la primera fila sería U1) el numero que contiene (es una celda con un dato numérico) es mayor que 2 y menor que 9, es decir tiene que estar entre el 3 y el 8 entonces ejecute la macro y si no cumple esta condición que pase a la próxima fila. Adjunto Macro a la cual habría que agregar este condicional:
Sub Copiar_Numeros()
'Por.Dante Amor
Range("V1", Cells(30, Columns.Count)).ClearContents
For i = 1 To 30
k = Columns("V").Column
For j = 1 To Columns("T").Column
If Cells(i, j) <> "" Then
Cells(i, k) = Cells(i, j)
k = k + 1
End If
Next
Next
MsgBox "Fin"
End Sub
Ej:
En la macro actual sería, rango A1:T1 si la celda U1 es un 7 prosigue y si es un 1 pasa a la fila A2: T2 y así hasta la A30: T30
1 respuesta
Te anexo la macro actualizada
Sub Copiar_Numeros()
'Por.Dante Amor
Range("V1", Cells(30, Columns.Count)).ClearContents
For i = 1 To 30
If Cells(i, "U") > 2 And Cells(i, "U") < 9 Then
k = Columns("V").Column
For j = 1 To Columns("T").Column
If Cells(i, j) <> "" Then
Cells(i, k) = Cells(i, j)
k = k + 1
End If
Next
End If
Next
MsgBox "Fin"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
