Copiar celdas cuando cumpla condición

Taqrdes mi pregunta es la siguiente hay una macro queme ayude a los siguiente
en una hoja tengo los sgiuientes datos de la columna a a la e
carlos amado 1000.00 500.00 500.00 1000. Oo
pedro hdz 0 500.00 500.00 0
necesito que busque en la columna e las celdas que tengas un valor mayor a 1 y que copie en otra hoja los datos de la columna a y e solo que de esta ultima lo convierta en valor por que contiene fórmula (b-c+d)

1 respuesta

Respuesta
1
Q+ Carlos,
Has lo siguiente:
- Abre VisualBasic pulsando ALT+F11
- En el Menu Insertar elige Modulo (Esta debajo de UserForm en el Menu Insertar)
- Una vez allí, vas a copiar todo el siguiente Código:
Sub MayorqUno()
' MayorqUno Macro
' Macro grabada el 12/08/2008 por Richard Chacón
Sheets("Hoja2").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A3").Select
Sheets("Hoja1").Select
Range("A3").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=">1", Operator:=xlAnd
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hoja2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
ActiveCell.Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Selection.End(xlToRight).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlToLeft).Select
Sheets("Hoja1").Select
Selection.End(xlToLeft).Select
Selection.AutoFilter Field:=5
End Sub
- Puedes cerrar ahora Visual basic
- En el Menu Herramientas elige Macro y luego Macros
- Elige Opciones
- Pon la letra i y luego pulsas Aceptar
- Le das al botoncito rojo para cerrar ese cuadro de dialogo.
- Listo... Ahora pulsando CTRL+i se ejecuta la Macro que te lleva todos los valores de las
columnas A y E para la Hoja2 si cumplen con la condición de que los datos en E sean mayores que 1.
"Cualquier cosa me avisas"
Saludos,
RCh.
"Viva Chávez"
Muchas gracias de verdad primero me mandaba error por que en una de las columnas no tenia datos cuando los capture me mandaba el importe de la columna dos hasta la ultima fila, sin embargo lo primero lo solucione leyendo la ayuda y lo segundo quedo resuelto pero sin tu gran apoyo y rapidez para solucionar mi enorme problema quedo resuelto por ello muchas gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar datos de una hoja a otra con una condición

Quisiera saber como puedo copiar datos de una hoja a otra y que sean de columnas específicas y que se basen en que tienen una condición. Por decir "Esto esta en la hoja 1" A B C D 1 Nombre Motivo Status Horas 2 José XXXX Proceso 300 3 Raúl XXXX...
2 respuestas

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

¿Cómo puedo cambiar celdas a formato de numero, por formato de celdas no me permite?

Solicito de su valiosa ayuda ya que no he podido crear una macro para Excel 2003 que me convierta un rango de celdas a numero, lo he intentado por formato de celdas y no pasa nada, la única forma es realizar el cambio manualmente para lo cual tengo...
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Pegar datos en última columna vacía

Estoy liado con una plantilla en la que quiero hacer lo siguiente. Necesito mediante una macro buscar una celda con un valor determinado en una columna:Cuando lo encuentre debería recorrer esa fila hasta encontrar la primera columna vacía de esa fila...
1 respuesta

MAcro Excel - Pasar la referencia de una celda y no el valor de la celda

Sigo aquí intentando llevar adelante el proyecto. Intentaré explicar lo mejor posible mi problema. Tengo una tabla dinámica, en una hoja. La misma agrupa las ventas de los productos y es actualizable. Contiene los datos de cada mes, por lo cual sus...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Agrupar y totalizar datos en excel

Necesito agrupar y sumar los datos de una tabla y copiarlos a otra en lo posible en otra hoja dentro del mismo libro. Ejemplo tengo la tabla 1: Mes importe enero $100 enero $50 febrero $25 marzo $100 enero $100 febrero $25 abril $200 mayo $150 mayo...
1 respuesta

Se ha producido el error 91 en tiempo de ejecución

Tengo un problema con esta macro ya que si me funciona en el archivo que la grabe depurador.xls, pero cuando la quiero utilizar en otros libros como complemento depurador.xla no me funciona Sub buscarbital() ' ' buscarbital Macro ' Macro grabada el...
4 respuestas