Copiar contenido de celda según condición
¿
¿? Todoexpertos, he intentado copiar el contenido de la celdas no vacías dentro de una columna en otra columna atrás de la posición que se encuentre un valor activo, he trabajado con esta macro
Sub busca() Do While ActiveCell.Value <> "" valor = ActiveCell.Value If InStr(valor, "3") Then ActiveCell.Offset(1, -4).Value = valor End If ActiveCell.Offset(1, 0).Select Loop End Sub
La idea es que si en la columna J encuentra un valor bajando J3 lo lleve al la celda F4, en la columna J pueden haber cualquier cantidad de datos incluyendo celdas vacías, los datos pueden ser letras o numeros en valor.
1 Respuesta
Respuesta de Briam Ramon
1