Pasar datos de una fila a otra hoja dependiendo de una celda
Tengo una tabla con datos en la hoja 1 , quisiera que al
poner OK en la celda correspondiente, los datos de esa fila pasasen a la hoja 3
y desapareciera esa fila de la hoja 1.
Es decir si en hoja 1 voy dando ok a las filas estas se
pasasen a hoja 3.y solo quedaran en hoja 1 las que no tuvieran el ok
1 Respuesta
Respuesta de Elsa Matilde
1
En el Editor, seleccioná con doble clic la hoja1 y allí copiá esto:
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controla lo que se ingresa en col D 'AJUSTAR
If Target.Column <> 4 Then Exit Sub
'no se ejecuta si se trata de limpiar rangos de celdas
If Target.Count > 1 Then Exit Sub
'si es OK se copia la fila en la 1er fila libre de hoja3
If UCase(Target.Value) = "OK" Then
Target.EntireRow.Copy Destination:=Sheets("Hoja3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete shift:=xlUp
End If
End SubComo no indicas en qué col se colocará el texto OK lo imaginé en col D (ajusta).
Le coloco como condición la función UCase para que sea tanto mayúsc como minúsc, pero ese detalle podes ajustar también.
