Anónimo
Borar el contenido en un rango de celdas
Hola.
Mi problema es:
Preguntar si en la celda O45 esta la palabra "listo"
Y si esta dicha palabra eliminar los datos (números) que aparezcan en el rango R4:r39 o para que queden en cero.
Y si no esta esa palabra que no haga nada.
Luego en la celda H3 preguntar si esta la misma palabra "listo" y que copie los números que hay en el rango L4:L39 y los lleve al rango I4:I39.
Gracias.
Mi problema es:
Preguntar si en la celda O45 esta la palabra "listo"
Y si esta dicha palabra eliminar los datos (números) que aparezcan en el rango R4:r39 o para que queden en cero.
Y si no esta esa palabra que no haga nada.
Luego en la celda H3 preguntar si esta la misma palabra "listo" y que copie los números que hay en el rango L4:L39 y los lleve al rango I4:I39.
Gracias.
1 respuesta
Respuesta de d2enri
1
Para lo que pides puede ser algo así
Sub borrar_rango()
Range("q45").Activate
If ActiveCell.Value = "listo" Then
Range("r4:r39").Delete
End If
Range("h3").Activate
If ActiveCell.Value = "listo" Then
Range("l4:l39").Copy
Range("i4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub
Pruébalo y ya me cuentas
Sub borrar_rango()
Range("q45").Activate
If ActiveCell.Value = "listo" Then
Range("r4:r39").Delete
End If
Range("h3").Activate
If ActiveCell.Value = "listo" Then
Range("l4:l39").Copy
Range("i4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub
Pruébalo y ya me cuentas
Disculpame la ignorancia de esto que te pregunto: pero no se donde lo copio o si es en la misma celda.
Esto hay que copiarlo en el editor de proyectos
Si quieres pásame tu archivo y te lo adapto y te explico como se hace
[email protected]
Si quieres pásame tu archivo y te lo adapto y te explico como se hace
[email protected]