problemas al insertar filas por filas

Gracias Hector Miguel:

Funciona de maravilla, una pregunta solamente que perfil profesional tienes,
o como has llegado a saber tanto de vba, existe algun curso formal sobre
este tema. Me interesa mucho aprender sobre este tema.

Gracias y Suerte

"Héctor Miguel" escribió en el mensaje
news:%

hola, Isaac !

1) solo comentarte que [generalmente] no es necesario 'andar brincando
entre libros y hojas para usar sus objetos :))
puedes hacer una referencia 'completa' al libro/hoja y rangos que
necesitas usar SIN 'tener que' des/re/activarlos [p.e.]
ActiveWorkbook [obviamente] se refiere al libro que se encuentra en
la ventana activa de la aplicacion
ThisWorkbook [obviamente] se refiere al libro que contiene el
modulo de codigo con el procedimiento 'en ejecucion'
Workbooks("libro X") es una referencia al 'libro x' que [obviamente]
se encuentra abierto en la sesion

2) prueba con las siguientes modificaciones a la propuesta original...
Sub Inserta_x_filas()
Dim Filas As Byte, Cols As Byte, Datos
With Workbooks("centrales.xls").Worksheets("hoja1").Range("datos_cent")
Filas = .Rows.Count
Cols = .Columns.Count
Datos = .Value
End With
With ThisWorkbook.Worksheets("hoja1").Range("a2")
.Resize(Filas).EntireRow.Insert
.Offset(-Filas).Resize(Filas, Cols).Value = Datos
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __

el siguiente codigo:
Sub Inserta_x_filas()
Windows("centrales.xls").Activate ' ADICIONADA
ActiveWorkbook.Worksheets("hoja1").Range("datos_cent").EntireRow.Copy
Windows("matriz.xls").Activate ' ADICIONADA
With ThisWorkbook.Worksheets("hoja1").Range("a2")
.Insert xlDown
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
End With
End Sub
me funciona pero pega los valores de "datos_cent" con formulas
existe alguna manera de que se peguen como valores absolutos, sin formula
lo unico que puede hacer fue lo siguiente:
Sub Inserta_x_filas()
Windows("centrales.xls").Activate
ActiveWorkbook.Worksheets("hoja1").Range("datos_cent").EntireRow.Copy
Windows("matriz.xls").Activate
With ThisWorkbook.Worksheets("hoja1").Range("a3")
.Insert xlDown
End With
Windows("centrales.xls").Activate
ActiveWorkbook.Worksheets("hoja1").Range("datos_cent").EntireRow.Copy
Windows("matriz.xls").Activate
With ThisWorkbook.Worksheets("hoja1").Range("a3")
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
End With
End Sub
donde primero se copia el bloque y abre el espacio en filas que se
requiere pero con formulas en algunas celdas
la segunda parte vuelve a copiar y encima con pastespecial en esos mismos
espacios pero en solo los valores abosolutos
es decir que varias filas de "datos_cent" tienen formulas (a1*a5) y lo
que deseo es que pase solo el valor y no la formula.
Se puede simplificar el codigo anterior

Te gradezco mucho tu ayuda, me servira para poder adentrarme mas en esto de
la programacion, y respecto de la Hora. Mi uso horario es el de la Ciudad de
Mexico, cuando publico aparece la hora de mi sistema que es la misma del uso
horario de mexico parece ser que mexico esta 6 horas antes del meridiano,
saludos y nuevamente te reitero mis agradacimientos, Isaac desde Mexico



"Héctor Miguel" escribió en el mensaje
news:%23oa3$

hola, Isaac !

[primero]: creo que tu sistema 'trae un atraso' de -cuando menos- cinco
horas ;)

... que perfil... tienes
... como has llegado a saber tanto de vba
... algun curso... sobre este tema. Me interesa... aprender ..

1) no te ofendas si dejo la respuesta 'en el aire' [con relacion a 'mi'
perfil] pero...
me gusta considerarme como... 'de bajo perfil' :D

2) con relacion a los otros 'asuntos' de esta consulta... te paso algunos
comentarios al final ;)
[es posible que algunos ya no esten disponibles] :-(

saludos,
hector.

-> me gustaria decirte que leyendo 'tales o cuales' libros ... [pero,
estaria siendo 'excluyente'] ;)
todo material de estudio [manuales, {F1}, libros, revistas, cursos,
web's, estos foros, etc.] ->es excel...ente<-
mas bien [creo yo que], cada quien 'avanza al ritmo que
puede/quiere/necesita' ;)
ademas considera que [en muchas de las ocasiones]
-> 'buscando una cosa'... 'encuentras otra' [que se te habia 'perdido']
-> o ['te topas' con] 'la hermana que se escapo de su prision'
[sor-presa... NO esta !!!] :))

-> cuando 'se atora la carreta' [que nos sucede a todos] :-(
NO es 'imprescindible' saberlo todo ;) es suficiente con saber...
el telefono del que sabe... o el e-mail... o la web... o... por que no
consultas en el foro? :D

aunque [supongo que de algun modo] no 'escaparas' de consultar al
asistente {F1} de excel/vba...
encontraras [algunos] manuales/instructivos/cursos/etc. en las siguientes
direcciones:
[aunque... 'calificarlo/s' de sencillos o complicados... dependera de
factores 'personales'] :D
saludos,
hector.

una lista de manuales y tutoriales [ingles]
http://www.virtualhelpdeskcentral.c...asp?SiteID&NoGUI=&CategoryID

algunas paginas en ingles...
Charles Williams (DecisionModels): http://www.decisionmodels.com/
Tushar Mehta: http://www.tushar-mehta.com/excel/
Laurent Longre: http://xcell05.free.fr/
Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
Jurgen Volkerink (KeepItCool):
http://members.chello.nl/keepitcool/addins.html
Matt Evans: http://www.exinfm.com/free_spreadsheets.html
Karl Peterson: http://vb.mvps.org/samples/
Bob Umlas: http://www.emailoffice.com/excel/ar...umlas.html
Carlo Quintero: http://www.mztools.com/
Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
MiStupid (Training Online): http://mistupid.com/tutorials/excel/
ExtremeVBTalk(newsgroup): http://www.visualbasicforum.com/

algunas paginas en castellano...
http://www.franciscopascual.com/Arc...202002.zip
http://www.javeriana.edu.co/decisio...icios.html
http://www.javeriana.edu.co/cursad/...iento.html
http://members.fortunecity.es/tonelorc/eexcel.html
http://www.aulaclic.es/excel2000/f_excel2000.htm
http://64.226.188.26/sivnetwork-www/cursos_gratis/excel/Excel.htm
http://www.territoriopc.com/excel/
http://interinfo.iespana.es/interin...les_ig.htm
http://www.fullwebs.com.uy/endondee.../excel.pdf
http://office.arnulfoperez.com/excel/
http://lacher.com/toc.htm
http://www.sistemaslym.net/vba/excel/excel.html
http://es.geocities.com/lacibelesde...macros.htm
http://es.geocities.com/lacibelesde...acros1.htm
http://www.macroheavy.com/excel/excel.asp
http://www.geocities.com/gorita_2000/VBA.htm
http://www.excelavanzado.com/
http://www.xtec.es/~rlloren4/KBEsp2.htm
http://www.exceluciones.com/portal/...p?article5

Mira que cerca estamos, yo trabajo en San Jose de Gracia Michoacan, Como a
unas 2 horas de Guadalajara
En este momento aparece como las 09:41 pm
saludos


"Isaac" escribió en el mensaje
news:eJ$t%

Te gradezco mucho tu ayuda, me servira para poder adentrarme mas en esto
de la programacion, y respecto de la Hora. Mi uso horario es el de la
Ciudad de Mexico, cuando publico aparece la hora de mi sistema que es la
misma del uso horario de mexico parece ser que mexico esta 6 horas antes
del meridiano, saludos y nuevamente te reitero mis agradacimientos, Isaac
desde Mexico



"Héctor Miguel" escribió en el mensaje
news:%23oa3$

hola, Isaac !

[primero]: creo que tu sistema 'trae un atraso' de -cuando menos- cinco
horas ;)

... que perfil... tienes
... como has llegado a saber tanto de vba
... algun curso... sobre este tema. Me interesa... aprender ..

1) no te ofendas si dejo la respuesta 'en el aire' [con relacion a 'mi'
perfil] pero...
me gusta considerarme como... 'de bajo perfil' :D

2) con relacion a los otros 'asuntos' de esta consulta... te paso algunos
comentarios al final ;)
[es posible que algunos ya no esten disponibles] :-(

saludos,
hector.

-> me gustaria decirte que leyendo 'tales o cuales' libros ... [pero,
estaria siendo 'excluyente'] ;)
todo material de estudio [manuales, {F1}, libros, revistas, cursos,
web's, estos foros, etc.] ->es excel...ente<-
mas bien [creo yo que], cada quien 'avanza al ritmo que
puede/quiere/necesita' ;)
ademas considera que [en muchas de las ocasiones]
-> 'buscando una cosa'... 'encuentras otra' [que se te habia
'perdido']
-> o ['te topas' con] 'la hermana que se escapo de su prision'
[sor-presa... NO esta !!!] :))

-> cuando 'se atora la carreta' [que nos sucede a todos] :-(
NO es 'imprescindible' saberlo todo ;) es suficiente con saber...
el telefono del que sabe... o el e-mail... o la web... o... por que no
consultas en el foro? :D

aunque [supongo que de algun modo] no 'escaparas' de consultar al
asistente {F1} de excel/vba...
encontraras [algunos] manuales/instructivos/cursos/etc. en las siguientes
direcciones:
[aunque... 'calificarlo/s' de sencillos o complicados... dependera de
factores 'personales'] :D
saludos,
hector.

una lista de manuales y tutoriales [ingles]
http://www.virtualhelpdeskcentral.c...asp?SiteID&NoGUI=&CategoryID

algunas paginas en ingles...
Charles Williams (DecisionModels): http://www.decisionmodels.com/
Tushar Mehta: http://www.tushar-mehta.com/excel/
Laurent Longre: http://xcell05.free.fr/
Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
Jurgen Volkerink (KeepItCool):
http://members.chello.nl/keepitcool/addins.html
Matt Evans: http://www.exinfm.com/free_spreadsheets.html
Karl Peterson: http://vb.mvps.org/samples/
Bob Umlas: http://www.emailoffice.com/excel/ar...umlas.html
Carlo Quintero: http://www.mztools.com/
Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
MiStupid (Training Online): http://mistupid.com/tutorials/excel/
ExtremeVBTalk(newsgroup): http://www.visualbasicforum.com/

algunas paginas en castellano...
http://www.franciscopascual.com/Arc...202002.zip
http://www.javeriana.edu.co/decisio...icios.html
http://www.javeriana.edu.co/cursad/...iento.html
http://members.fortunecity.es/tonelorc/eexcel.html
http://www.aulaclic.es/excel2000/f_excel2000.htm
http://64.226.188.26/sivnetwork-www/cursos_gratis/excel/Excel.htm
http://www.territoriopc.com/excel/
http://interinfo.iespana.es/interin...les_ig.htm
http://www.fullwebs.com.uy/endondee.../excel.pdf
http://office.arnulfoperez.com/excel/
http://lacher.com/toc.htm
http://www.sistemaslym.net/vba/excel/excel.html
http://es.geocities.com/lacibelesde...macros.htm
http://es.geocities.com/lacibelesde...acros1.htm
http://www.macroheavy.com/excel/excel.asp
http://www.geocities.com/gorita_2000/VBA.htm
http://www.excelavanzado.com/
http://www.xtec.es/~rlloren4/KBEsp2.htm
http://www.exceluciones.com/portal/...p?article5

hola, Isaac !

1) solo comentarte que [generalmente] no es necesario 'andar brincando entre libros y hojas para usar sus objetos :))
puedes hacer una referencia 'completa' al libro/hoja y rangos que necesitas usar SIN 'tener que' des/re/activarlos [p.e.]
ActiveWorkbook [obviamente] se refiere al libro que se encuentra en la ventana activa de la aplicacion
ThisWorkbook [obviamente] se refiere al libro que contiene el modulo de codigo con el procedimiento 'en ejecucion'
Workbooks("libro X") es una referencia al 'libro x' que [obviamente] se encuentra abierto en la sesion

2) prueba con las siguientes modificaciones a la propuesta original...
Sub Inserta_x_filas()
Dim Filas As Byte, Cols As Byte, Datos
With Workbooks("centrales.xls").Worksheets("hoja1").Range("datos_cent")
Filas = .Rows.Count
Cols = .Columns.Count
Datos = .Value
End With
With ThisWorkbook.Worksheets("hoja1").Range("a2")
.Resize(Filas).EntireRow.Insert
.Offset(-Filas).Resize(Filas, Cols).Value = Datos
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __

el siguiente codigo:
Sub Inserta_x_filas()
Windows("centrales.xls").Activate ' ADICIONADA
ActiveWorkbook.Worksheets("hoja1").Range("datos_cent").EntireRow.Copy
Windows("matriz.xls").Activate ' ADICIONADA
With ThisWorkbook.Worksheets("hoja1").Range("a2")
.Insert xlDown
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
End With
End Sub
me funciona pero pega los valores de "datos_cent" con formulas
existe alguna manera de que se peguen como valores absolutos, sin formula
lo unico que puede hacer fue lo siguiente:
Sub Inserta_x_filas()
Windows("centrales.xls").Activate
ActiveWorkbook.Worksheets("hoja1").Range("datos_cent").EntireRow.Copy
Windows("matriz.xls").Activate
With ThisWorkbook.Worksheets("hoja1").Range("a3")
.Insert xlDown
End With
Windows("centrales.xls").Activate
ActiveWorkbook.Worksheets("hoja1").Range("datos_cent").EntireRow.Copy
Windows("matriz.xls").Activate
With ThisWorkbook.Worksheets("hoja1").Range("a3")
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
End With
End Sub
donde primero se copia el bloque y abre el espacio en filas que se requiere pero con formulas en algunas celdas
la segunda parte vuelve a copiar y encima con pastespecial en esos mismos espacios pero en solo los valores abosolutos
es decir que varias filas de "datos_cent" tienen formulas (a1*a5) y lo que deseo es que pase solo el valor y no la formula.
Se puede simplificar el codigo anterior

hola, Isaac !

[primero]: creo que tu sistema 'trae un atraso' de -cuando menos- cinco horas ;)

... que perfil... tienes
... como has llegado a saber tanto de vba
... algun curso... sobre este tema. Me interesa... aprender ..

1) no te ofendas si dejo la respuesta 'en el aire' [con relacion a 'mi' perfil] pero...
me gusta considerarme como... 'de bajo perfil' :D

2) con relacion a los otros 'asuntos' de esta consulta... te paso algunos comentarios al final ;)
[es posible que algunos ya no esten disponibles] :-(

saludos,
hector.

-> me gustaria decirte que leyendo 'tales o cuales' libros ... [pero, estaria siendo 'excluyente'] ;)
todo material de estudio [manuales, {F1}, libros, revistas, cursos, web's, estos foros, etc.] ->es excel...ente<-
mas bien [creo yo que], cada quien 'avanza al ritmo que puede/quiere/necesita' ;)
ademas considera que [en muchas de las ocasiones]
-> 'buscando una cosa'... 'encuentras otra' [que se te habia 'perdido']
-> o ['te topas' con] 'la hermana que se escapo de su prision' [sor-presa... NO esta !!!] :))

-> cuando 'se atora la carreta' [que nos sucede a todos] :-(
NO es 'imprescindible' saberlo todo ;) es suficiente con saber...
el telefono del que sabe... o el e-mail... o la web... o... por que no consultas en el foro? :D

aunque [supongo que de algun modo] no 'escaparas' de consultar al asistente {F1} de excel/vba...
encontraras [algunos] manuales/instructivos/cursos/etc. en las siguientes direcciones:
[aunque... 'calificarlo/s' de sencillos o complicados... dependera de factores 'personales'] :D
saludos,
hector.

una lista de manuales y tutoriales [ingles]
http://www.virtualhelpdeskcentral.c...asp?SiteID&NoGUI=&CategoryID

algunas paginas en ingles...
Charles Williams (DecisionModels): http://www.decisionmodels.com/
Tushar Mehta: http://www.tushar-mehta.com/excel/
Laurent Longre: http://xcell05.free.fr/
Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
Jurgen Volkerink (KeepItCool): http://members.chello.nl/keepitcool/addins.html
Matt Evans: http://www.exinfm.com/free_spreadsheets.html
Karl Peterson: http://vb.mvps.org/samples/
Bob Umlas: http://www.emailoffice.com/excel/ar...umlas.html
Carlo Quintero: http://www.mztools.com/
Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
MiStupid (Training Online): http://mistupid.com/tutorials/excel/
ExtremeVBTalk(newsgroup): http://www.visualbasicforum.com/

algunas paginas en castellano...
http://www.franciscopascual.com/Arc...202002.zip
http://www.javeriana.edu.co/decisio...icios.html
http://www.javeriana.edu.co/cursad/...iento.html
http://members.fortunecity.es/tonelorc/eexcel.html
http://www.aulaclic.es/excel2000/f_excel2000.htm
http://64.226.188.26/sivnetwork-www/cursos_gratis/excel/Excel.htm
http://www.territoriopc.com/excel/
http://interinfo.iespana.es/interin...les_ig.htm
http://www.fullwebs.com.uy/endondee.../excel.pdf
http://office.arnulfoperez.com/excel/
http://lacher.com/toc.htm
http://www.sistemaslym.net/vba/excel/excel.html
http://es.geocities.com/lacibelesde...macros.htm
http://es.geocities.com/lacibelesde...acros1.htm
http://www.macroheavy.com/excel/excel.asp
http://www.geocities.com/gorita_2000/VBA.htm
http://www.excelavanzado.com/
http://www.xtec.es/~rlloren4/KBEsp2.htm
http://www.exceluciones.com/portal/...p?article5