UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

katrinez2


Hola estimados,
Me ha parecido sumamente productivo este foro, me aprendido mucho y por lo que he visto hay muchos usuarios realmente casi a nivel experto en macros  Very Happy  por lo mismo quiero pedirles ayuda!!!! Embarassed 

Estoy intentando copiar celdas de una hoja en otra según un criterio que si, algún estado dice CDE copie en otra hoja sólo algunos datos. Logro hacer que copie pero, no se como hacer que ahora que copia sea capaz de identificar que si son los mismos datos no los vuelva a copiar  Sad 

El código que estoy usando es este:

Sub ImportarDatos()

Application.ScreenUpdating = False
Sheets("Hoja1").Select
Range("A35:A776").Select

Do While Not IsEmpty(ActiveCell)
If ActiveCell = "CDE" Then
ActiveCell.Select
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 5)).Copy
Sheets("Hoja2").Select
Range("B2").Select

If ActiveCell = "" Then
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja1").Select

Else

Range("B776").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja1").Select

End If

ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If

Loop
Sheets("Hoja2").Select
Application.ScreenUpdating = False
End Sub


Ufff sería de gran ayuda, ya que por mi trabajo ocupo una gran cantidad de datos almacenados y siempre tengo que hacer cruce de información....
Por favor!!! Embarassed 

Gracias!!! Very Happy
Archivos
estadosCDE.xlsx
Listado de CDE
No tienes los permisos para descargar los archivos.
(14 KB)



Última edición por katrinez2 el 20/03/14, 03:45 pm, editado 1 vez (Razón : Help!!!)

tyno


Hola katrinez, bien venida al foro.
Paso tu archivo con una macro para pasar los datos como lo has indicado. Saludos
Archivos
estadosCDE.zip
No tienes los permisos para descargar los archivos.
(23 KB)

3RESUELTO AGREGO el 22/03/14, 05:22 pm

rubito1


HOLAkatrinez y tyno,habria que corregir (o tal vez no es necesario para katrinez )que tome el dato ya sea minuscula o mayusc.(si pones dce en minusc.no lo toma)(perdon que me meti tyno ,pero me gusto el archivo que subistes por eso lo investigue;saludos(y tyno,aprovecho para pedirte que cuando puedas mires mis consultas ,please)gracias y saludos a ambos

4RESUELTO Gracias!!! el 24/03/14, 10:25 am

katrinez2


Estimados muchas gracias tanto a tyno y rubito!!!
no, no es necesario la Mayúscula, ahora bien, será posible hacer lo mismo para eliminar, o sea, si ya no dice CDE que lo borre?

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.