Macro copiar fila y borrar celdas

03/01/2007 - 16:50 por sarriazu | Informe spam
Tengo la siguiente macro que busca un valor (respuesta) y copia la fila
en la que lo encuentra:

For Each Celda In Range("C7:C65000")
If Celda.Text = Respuesta Then
Rows(Celda.Row).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Exit For
End If
Next


Encuentro el valor buscado en Respuesta y copio la fila y la inserto
encima, pero ¿cómo puedo ahora borrar celdas concretas de esta nueva
fila? (por ejemplo de las columas I a Q, pero no sé qué fila es)

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
04/01/2007 - 02:44 | Informe spam
hola, 'anonimo/a' !

... la siguiente macro... busca un valor (respuesta) y copia la fila en la que lo encuentra:
For Each Celda In Range("C7:C65000")
If Celda.Text = Respuesta Then
Rows(Celda.Row).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Exit For
End If
Next
... pero como puedo ahora borrar celdas concretas de esta nueva fila? (por ejemplo de las columas I a Q, pero no se que fila es)



prueba con algo +/- como lo siguiente [de paso, te ahorras un 'bucle' que pudiera ejecutarse n_celdas hasta encontrar lo buscado] :))

Dim Celda As Range
On Error Resume Next
Set Celda = Range("c:c").Find(What:=Respuesta, After:=Range("c7"), LookAt:=xlWhole)
If Celda Is Nothing Then MsgBox Respuesta & " NO se encuentra !!!": Exit Sub
Celda.EntireRow.Copy
Range("a" & Celda.Row).Insert Shift:=xlDown
Range("a" & Celda.Row).Offset(, 8).Resize(, 9).ClearContents
Set Celda = Nothing

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida