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 !
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
0