Automatizar busqueda y retiro de datos

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Gracias Antonio, como es publico el código no lo manejo.


SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia


"AnSanVal" escribió en el mensaje
news:u5GiV%

Para eso necesitas código VBA, por ejemplo:

Sub EliminaFila()
Dim fila As Integer
Dim miDato As String
On Error GoTo Salir
miDato = InputBox("Entra el código que quieres eliminar.", "AnSanVal",
"AD35H267")
If miDato = "" Then Exit Sub
fila = Worksheets("Hoja1").Range("A2:A60000").Find(miDato).Row
Cells(fila, 1).EntireRow.Delete
Exit Sub
Salir:
If Err = 91 Then
MsgBox "El código " & miDato & " no existe.", vbInformation, "CONTROL
DE ERROR"
Else
MsgBox Error, vbInformation, "CONTROL DE ERROR"
End If
End Sub


Saludos: AnSanVal.
***********************************

"Gus" escribió en el mensaje
news:

Nuevamente gracias Julian por la bola que me das, efectivamente por
retirar
me refiero a borrar y/o eliminar la fila y/o copiarle los datos
actualizados
encima, si pudiera desde el lugar en la hoja donde estoy, llegar donde
esta
el codigo deceado, el resto es facil, hago una macro que borre/copie el
contenido de las celdas que estan a su derecha, pero como llegar ahi, es
lo
que no se.
Seguramente habra otras alternativas.
Lamento tener que molestar tanto...

;-)

Un saludo.
*********************
"julian-vlc-sp" escribió en el mensaje news:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Gracias Antonio, como es publico el código no lo manejo.


SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia


"AnSanVal" escribió en el mensaje news:u5GiV%

Para eso necesitas código VBA, por ejemplo:

Sub EliminaFila()
Dim fila As Integer
Dim miDato As String
On Error GoTo Salir
miDato = InputBox("Entra el código que quieres eliminar.", "AnSanVal", "AD35H267")
If miDato = "" Then Exit Sub
fila = Worksheets("Hoja1").Range("A2:A60000").Find(miDato).Row
Cells(fila, 1).EntireRow.Delete
Exit Sub
Salir:
If Err = 91 Then
MsgBox "El código " & miDato & " no existe.", vbInformation, "CONTROL DE ERROR"
Else
MsgBox Error, vbInformation, "CONTROL DE ERROR"
End If
End Sub


Saludos: AnSanVal.
***********************************

"Gus" escribió en el mensaje
news:

Nuevamente gracias Julian por la bola que me das, efectivamente por retirar
me refiero a borrar y/o eliminar la fila y/o copiarle los datos actualizados
encima, si pudiera desde el lugar en la hoja donde estoy, llegar donde esta
el codigo deceado, el resto es facil, hago una macro que borre/copie el
contenido de las celdas que estan a su derecha, pero como llegar ahi, es lo
que no se.
Seguramente habra otras alternativas.
Lamento tener que molestar tanto...

Julian Antonio
Gracia a ambos por la dispocisión, no puedo creerlo la propuesta de Antonio
dio "RESULTADO" estoy feliz, solo lo adapte a mis necesidades y funcionó, de
esto no entiendo mucho pero lo suficiente para adaptar lo propuesto, si
pueden una mas, quisiera que en vez de tener que ingresar el codigo lo tome
de un rango con nombre, intente lo siguiente: retire " InputBox("Entra el
código que quieres eliminar.", "AnSanVal", "AD35H267") " y agrege "
Range("Eliminar") " como no soy un entendido no me dio resultado, ¿se puedra
solucioner esto?
Gracias nuevamente


"AnSanVal" escribió:

Para eso necesitas código VBA, por ejemplo:

Sub EliminaFila()
Dim fila As Integer
Dim miDato As String
On Error GoTo Salir
miDato = InputBox("Entra el código que quieres eliminar.", "AnSanVal", "AD35H267")
If miDato = "" Then Exit Sub
fila = Worksheets("Hoja1").Range("A2:A60000").Find(miDato).Row
Cells(fila, 1).EntireRow.Delete
Exit Sub
Salir:
If Err = 91 Then
MsgBox "El código " & miDato & " no existe.", vbInformation, "CONTROL DE ERROR"
Else
MsgBox Error, vbInformation, "CONTROL DE ERROR"
End If
End Sub


Saludos: AnSanVal.
***********************************

"Gus" escribió en el mensaje news:
> Nuevamente gracias Julian por la bola que me das, efectivamente por retirar
> me refiero a borrar y/o eliminar la fila y/o copiarle los datos actualizados
> encima, si pudiera desde el lugar en la hoja donde estoy, llegar donde esta
> el codigo deceado, el resto es facil, hago una macro que borre/copie el
> contenido de las celdas que estan a su derecha, pero como llegar ahi, es lo
> que no se.
> Seguramente habra otras alternativas.
> Lamento tener que molestar tanto...

¿Tienes una celda que se llama "Eliminar"?
Si es así, intenta con: miDato = Range("Eliminar").value

Nota: Se supone que la celda "Eliminar" contiene el código.

Saludos desde Tenerife.

**********************************

"Gus-Córdoba-Argentina" escribió en el mensaje
news:

Julian Antonio
Gracia a ambos por la dispocisión, no puedo creerlo la propuesta de Antonio
dio "RESULTADO" estoy feliz, solo lo adapte a mis necesidades y funcionó, de
esto no entiendo mucho pero lo suficiente para adaptar lo propuesto, si
pueden una mas, quisiera que en vez de tener que ingresar el codigo lo tome
de un rango con nombre, intente lo siguiente: retire " InputBox("Entra el
código que quieres eliminar.", "AnSanVal", "AD35H267") " y agrege "
Range("Eliminar") " como no soy un entendido no me dio resultado, ¿se puedra
solucioner esto?
Gracias nuevamente


"AnSanVal" escribió:

Para eso necesitas código VBA, por ejemplo:

Sub EliminaFila()
Dim fila As Integer
Dim miDato As String
On Error GoTo Salir
miDato = InputBox("Entra el código que quieres eliminar.", "AnSanVal", "AD35H267")
If miDato = "" Then Exit Sub
fila = Worksheets("Hoja1").Range("A2:A60000").Find(miDato).Row
Cells(fila, 1).EntireRow.Delete
Exit Sub
Salir:
If Err = 91 Then
MsgBox "El código " & miDato & " no existe.", vbInformation, "CONTROL DE ERROR"
Else
MsgBox Error, vbInformation, "CONTROL DE ERROR"
End If
End Sub


Saludos: AnSanVal.
***********************************

"Gus" escribió en el mensaje
news:
> Nuevamente gracias Julian por la bola que me das, efectivamente por retirar
> me refiero a borrar y/o eliminar la fila y/o copiarle los datos actualizados
> encima, si pudiera desde el lugar en la hoja donde estoy, llegar donde esta
> el codigo deceado, el resto es facil, hago una macro que borre/copie el
> contenido de las celdas que estan a su derecha, pero como llegar ahi, es lo
> que no se.
> Seguramente habra otras alternativas.
> Lamento tener que molestar tanto...

Si...Si...Si... Antonio, Genio, esta todo bien, intenté con: miDato =
Range("Eliminar"), pero me falto ".value", esto esta muy bueno.
Lindo lugar donde vives, cando estube en españa no me dieron los tiempos
para conoserlo.
Otra vez será.
Nuevamente, muchas gracia por la ayuda.


"AnSanVal" escribió:

¿Tienes una celda que se llama "Eliminar"?
Si es así, intenta con: miDato = Range("Eliminar").value

Nota: Se supone que la celda "Eliminar" contiene el código.

Saludos desde Tenerife.

**********************************

"Gus-Córdoba-Argentina" escribió en el mensaje
news:
> Julian Antonio
> Gracia a ambos por la dispocisión, no puedo creerlo la propuesta de Antonio
> dio "RESULTADO" estoy feliz, solo lo adapte a mis necesidades y funcionó, de
> esto no entiendo mucho pero lo suficiente para adaptar lo propuesto, si
> pueden una mas, quisiera que en vez de tener que ingresar el codigo lo tome
> de un rango con nombre, intente lo siguiente: retire " InputBox("Entra el
> código que quieres eliminar.", "AnSanVal", "AD35H267") " y agrege "
> Range("Eliminar") " como no soy un entendido no me dio resultado, ¿se puedra
> solucioner esto?
> Gracias nuevamente
>
>
> "AnSanVal" escribió:
>
>> Para eso necesitas código VBA, por ejemplo:
>>
>> Sub EliminaFila()
>> Dim fila As Integer
>> Dim miDato As String
>> On Error GoTo Salir
>> miDato = InputBox("Entra el código que quieres eliminar.", "AnSanVal", "AD35H267")
>> If miDato = "" Then Exit Sub
>> fila = Worksheets("Hoja1").Range("A2:A60000").Find(miDato).Row
>> Cells(fila, 1).EntireRow.Delete
>> Exit Sub
>> Salir:
>> If Err = 91 Then
>> MsgBox "El código " & miDato & " no existe.", vbInformation, "CONTROL DE ERROR"
>> Else
>> MsgBox Error, vbInformation, "CONTROL DE ERROR"
>> End If
>> End Sub
>>
>>
>> Saludos: AnSanVal.
>> ***********************************
>>
>> "Gus" escribió en el mensaje
>> news:
>> > Nuevamente gracias Julian por la bola que me das, efectivamente por retirar
>> > me refiero a borrar y/o eliminar la fila y/o copiarle los datos actualizados
>> > encima, si pudiera desde el lugar en la hoja donde estoy, llegar donde esta
>> > el codigo deceado, el resto es facil, hago una macro que borre/copie el
>> > contenido de las celdas que estan a su derecha, pero como llegar ahi, es lo
>> > que no se.
>> > Seguramente habra otras alternativas.
>> > Lamento tener que molestar tanto...
>>
>>
>>