Inicio > Microsoft Excel > asaroma > ayuda Macro

ayuda Macro

Experto:
Usuario:
Fecha: 10/09/2008
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
05/08/2008
pekitas2501, usuario preguntando en Microsoft Excel
Usuario
Buenos dias expertos tengo una pregunta, tengo mi codigo que me permite borrar las filas segun cierto criterio, mi pregunta es la siguiente:
Necesito que si yo ingreso informacion en alguna fila, esta se me copie automaticamente en dos hojas de mismo libro pero al final de todos mis datos.
Saludos
06/08/2008
pekitas2501, experto respondiendo en Microsoft Excel
Experto
Hola seria algo asi:
Sub copia2hojas()
Dim fila As Integer
With Sheets("Hoja2")
fila = 1
Do While True
If IsEmpty(.Cells(fila, 1)) Then Exit Do
fila = fila + 1
Loop
End With
Worksheets("Hoja2").Range("A1").Value = Sheets("Hoja1").Cells(fila - 1, 1)
Worksheets("Hoja3").Range("A1").Value = Sheets("Hoja1").Cells(fila - 1, 1)
end sub
 
bytez :)
06/08/2008
pekitas2501, usuario preguntando en Microsoft Excel
Usuario
Hola muchas gracias por tu ayuda pero, por lo que veo esta hecho para que me copie en la primera fila, la idea es que sea indeferente donde me copie, de hecho en el archivo que estoy trabajando ya tengo datos la idea es que donde yo copie los datos me vaya aumentando columnas y en la columna que copie lo ingresado este seguido de los datos que tengo, no se si me entiendes
06/08/2008
pekitas2501, usuario preguntando en Microsoft Excel
Usuario
Muchas gracias por tu ayuda pero la idea es que mi archivo como ya contiene datos, la idea es que cada que yo ingreso datos por ejemplo en la celda a51 esta se me copie automaticamente, por ejemplo si tengo datos hasta la A30 se me deberia copiar en la A31 aumentando logicamente una nueva fila.
06/08/2008
pekitas2501, experto respondiendo en Microsoft Excel
Experto
Claro eso solo esta funcionando de un solo lado, tendrias ke hacer algunos ajustes :)
Sub copia2hojas()
Dim fila,fila1 As Integer
With Sheets("Hoja2")
fila = 1
fila1 = 1
Do While True
If IsEmpty(.Cells(fila, 1)) and IsEmpty(.cells(fila1,1) Then Exit Do
fila = fila + 1
fila1= fila1 + 1
Loop
End With
Sheets("Hoja2").cells(fila1-1,1)= Sheets("Hoja1").Cells(fila - 1, 1)
Sheets("Hoja3").cells(fila1-1,1)= Sheets("Hoja1").Cells(fila - 1, 1)
end sub
prueba codigo y anda modificando bytez :)
10/09/2008
pekitas2501, usuario preguntando en Microsoft Excel
Usuario
Muchas gracias por tu ayuda, me sirvio mucho
Enlaces patrocinados