............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

activar Macro Automaticamente

Ver el tema anterior Ver el tema siguiente Ir abajo

activar Macro Automaticamente

Mensaje por Azu el Vie Feb 11, 2011 5:07 am

Hola Amigos, bueno tengo algo sencillo pero para mi es todo un mundo, tengo una hoja (Legionella) donde pongo valores en la columna M y necesito que si ese valor es mayor que 0 me copie las celdas desde A hasta M de esa fila activa en la siguiente fila vacia de la hoja (Positivos) en la misma posición desde A hasta M, bueno no se si me he explicado bien, he realizado muchas pruebas pero no consigo que funcione.


Azu

Femenino Cantidad de envíos : 38
Edad : 40
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: activar Macro Automaticamente

Mensaje por GalileoGali el Vie Feb 11, 2011 7:33 am

serí interesante ver tus intentos

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: activar Macro Automaticamente

Mensaje por Azu el Vie Feb 11, 2011 9:26 am

Bueno lo cierto es que ya borre muchos de los intentos solo tengo el último, este me llega a apegar la fila en la A1 de la Hoja "Legionella" y yo necesito que lo haga en la primera fila disponible de la hoja "Positivos", luego me da un error en el select, luego la macro se dispara nada mas tocas la hoja "Legionella" en lugar de cuando ponga el valor en la columa M, bueno creo que al final me he armado tal lio que no se por donde salir, por cierto solo necesito que me copie desde la columa A hasta la M, ya que en la hoja de destino "Positivos" tengo formulas desde la N en adelante, bueno gali haber si me ayudas un pokito, muchas gracias



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer
Dim nueva_fila As Integer
nueva_fila = 0
For i = 6 To 2000
If (Range("M" + CStr(i)).Value > 0) Then
nueva_fila = nueva_fila + 1
Range(CStr(i) + ":" + CStr(i)).Select
Range(CStr(i) + ":" + CStr(i)).Copy
Sheets("Positivos").Activate
Range("A" + CStr(nueva_fila)).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Sheets("Legionella").Activate
End If
Next i
End Sub

Azu

Femenino Cantidad de envíos : 38
Edad : 40
Ciudad - Pais : Valencia
Version de Excel : 2007
Fecha de inscripción : 14/07/2009

Volver arriba Ir abajo

Re: activar Macro Automaticamente

Mensaje por P@li el Vie Abr 29, 2011 11:33 pm

hola Azu como estas?
Te cuento que no puedo revisar a fondo tu macro en este momento, pero a primera vista me doy cuenta que en el código te está faltando referencias la hoja específica donde estás tratando de modificar las celdas.
Y por otro lado estás dando un uso incorrecto a Copy, ya que esta función te da la posibilidad de pegar en el mismo momento que estás copiando, pasando como único parámetro la celda de destino de los datos.

el if esta bien, supongamos que nueva_fila también esté bien, yo modificaria lo que sigue,
Rows(i).Copy Sheets("Positivos").rows(nueva_fila)

todo esto lo quitaría:
Range(CStr(i) + ":" + CStr(i)).Select
Range(CStr(i) + ":" + CStr(i)).Copy
Sheets("Positivos").Activate
Range("A" + CStr(nueva_fila)).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Sheets("Legionella").Activate

Además de ser instrucciones que ralentizan el procedimiento, están constantemente cambiando de hoja, eso afecta muchísimo la velocidad de ejecución de la macro.

Si no llegaras a entender algo consultame que trato de orientarte mejor.

El tema de la fila disponible hay varios ejemplos en el foro, sería cuestión de buscar uno, voy a ver si encuentro uno que yo mismo aporte con ayuda de otro forista, cualquier cosa vuelvo con la respuesta.

Saludos,
Pablo.

P@li
Admin

Masculino Cantidad de envíos : 238
Edad : 33
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: activar Macro Automaticamente

Mensaje por Contenido patrocinado Hoy a las 3:14 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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