Excel - insertar fila en varias hojas segun a1 de hoja1

 
Vista:

insertar fila en varias hojas segun a1 de hoja1

Publicado por aklamath (92 intervenciones) el 29/05/2007 17:48:40
Buenas tardes, tal como se pudo un par de mensajes mas abajo, me ha salido a la perfeccion crear una macro para insertar o borrar una fila segun el numero de una celda de la misma hoja, ahora bien, me interesaria ampliar esta macro un poco para k me nserte una fila tb pero en otras hojas, he hecho varios intentos pero todos ellos fallidos,
tal como puse en el otro post, es crear insertar una fila segun la celda en este caso la M15
k seria asi y sale perfecto:

Sub insertar_fila_en_tabla_1()
'
' insertar_fila_en_tabla_1 Macro
' Macro grabada el 28/05/2007 por aklamath
'

'
Dim fila

If Range("M15") <> "" Then

fila = Range("M15").Value

Rows(fila).Select
Selection.Insert Shift:=xlDown

End If
Range("D8").Select
End Sub

Pero para k esta misma M15 (es la hoja: TIC ), pues me borre el numero de la fila ponga en M15 de TIC me lo inserte en otras hojas pues nose como.

tengo otras soluciones para hacerlo, ya k se hacer insertar pues haria esto mismo para cada hoja por separado, pero vaya k seguro k solo agregando 2 cositas ya no haria falta yo creo k debe ser algo asi:

Sub insertar_filas_en_varias_hojas()
'
' insertar_filas_en_varias_hojas Macro
' Macro grabada el 28/05/2007 por aklamath
'

'
Dim fila

If Range("F10") <> "" Then

fila = Range("F10").Value

Rows(fila).Select
Selection.Delete Shift:=xlDown
Sheets("OUT").Select
Rows(fila).Select
Selection.Delete Shift:=xlDown

End If
Sheets("TIC").Select
Range("C12").Select
End Sub

pero asi no me sale, nose si alguien me puede hechar una manita se lo agradecere !
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:insertar fila en varias hojas segun a1 de hoja1

Publicado por aklamath (92 intervenciones) el 30/05/2007 19:43:28
al final consegui hacerlo, gracias de todas formas.

Os dejo aqui la macro por si a alguien le hiciera falta ya k me va perfecta !

Sub insertar_filas_en_varias_hojas()
'
' insertar_filas_en_varias_hojas Macro
' Macro grabada el 28/05/2007 por aklamath
'

'
Dim fila

If Range("F9") <> "" Then

fila = Range("F9").Value
Sheets("OUT").Select
Rows(fila).Select
Selection.Insert Shift:=xlDown

End If
Sheets("TIC").Select

If Range("F9") <> "" Then

fila = Range("F9").Value
Sheets("IN").Select
Rows(fila).Select
Selection.Insert Shift:=xlDown

End If

Sheets("TIC").Select
Range("B9").Select

End Sub

Solo decir k esta macro crea una fila en la fila segun el dato de la celda F9 de la hoja TIC y segun ese dato al ejecutar la macro inserta una fila en las hojas OUT y IN, salu2 dsd tarragona !
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar