Macro de Excel, actualización de datos
¿Cuál sería la macro o función para que de una base de datos que está en la hoja 1, todas aquellas filas que coincidan con una característica se eliminen de esa hoja 1 y pasen a la hoja 2?
1 Respuesta
Respuesta de tavopz
1
Puedes hacerlo de varias formas. Quizás mediante una macro pueda ser lo más rápido, pero también podrías usar un autofiltro y filtrar con base en el criterio que deseas, esas filas las puedes mover luego a la otra hoja y listo.
Dime si esto es válido. Si es una actividad que harás sólo una vez pienso que el autofiltro es lo adecuado, si lo tienes que repetir muchas veces entonces podemos trabajar en lo de la macro.
Dime si esto es válido. Si es una actividad que harás sólo una vez pienso que el autofiltro es lo adecuado, si lo tienes que repetir muchas veces entonces podemos trabajar en lo de la macro.
Saludos desde Costa Rica
Gracias por tu respuesta.
En realidad es una acción que se podría ejecutar de forma periódica. Es para una herramienta que estoy elaborando para usuarios que no conocen mucho de excel, por ello necesito una solución que requiera del menor esfuerzo del usuario y de forma transparente, o sea, una macro ligada a un botón.
Pura vida..
Gracias por tu respuesta.
En realidad es una acción que se podría ejecutar de forma periódica. Es para una herramienta que estoy elaborando para usuarios que no conocen mucho de excel, por ello necesito una solución que requiera del menor esfuerzo del usuario y de forma transparente, o sea, una macro ligada a un botón.
Pura vida..
En ese caso puede ser algo así:
Sub BorrarFilas()
Dim w1, w2 As Worksheet
Set w1 = Sheets("Hoja1")
Set w2 = Sheets("Hoja2")
For i = 1 To 100
If Range("A" & LTrim(Str(i))).Value = "1" Then
Range("A" & LTrim(Str(i))).EntireRow.Select
Selection.Copy
w2.Activate
x = LTrim(Str(w2.Range("A1").End(xlDown).Row + 1))
w2.Range("A" & x).Select
ActiveSheet.Paste
w1.Activate
Range("A" & LTrim(Str(i))).EntireRow.Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next i
End Sub
Este es un ejemplo de macro, desde luego tendrás que hacerle cambios para que funcione en tu propio libro. Si tienes alguna duda me avisas.
Sub BorrarFilas()
Dim w1, w2 As Worksheet
Set w1 = Sheets("Hoja1")
Set w2 = Sheets("Hoja2")
For i = 1 To 100
If Range("A" & LTrim(Str(i))).Value = "1" Then
Range("A" & LTrim(Str(i))).EntireRow.Select
Selection.Copy
w2.Activate
x = LTrim(Str(w2.Range("A1").End(xlDown).Row + 1))
w2.Range("A" & x).Select
ActiveSheet.Paste
w1.Activate
Range("A" & LTrim(Str(i))).EntireRow.Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next i
End Sub
Este es un ejemplo de macro, desde luego tendrás que hacerle cambios para que funcione en tu propio libro. Si tienes alguna duda me avisas.
