Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ayuda en Macros

25/03/2009 - 21:46 por Rubén GSSer | Informe spam
Estimados amigos necesito su ayuda para mejorar este codigo, muchas gracias
Les comento tengo una base de datos en la cual toda la información en una
sola columna (campo), 14 celdas del campo vienen a formar un registro y asi
sucesivamente, lo que requiero es seleccionar estas 14 celdas copiarles luego
un pegado especial transponer y asi los 14 repetitivamente, debido a esto
decide hacer una macro con el grabador de macros, con el codigo adjunto
llegue transponer los primeros 14 celdas pero el problemas es cuando quiero q
este codigo se repetiva para las siguientes 14 y asi hasta el final.

orkleman@terra.com.pe
http://www.
casa
Calle. Guillermo Dansey 2188- Lima
511 -+51 1 3368
511 -+51 1 425
LIMA/LIMA/LIMA
peru
lima
Walter,Ormeño
orkleman@terra.com.pe
Gerente
511 -4254
511 -4254


gtc@gomelast.com
http://www.
casa 1
Av. 22 de julio 230
511 -+51 1 3521155; 511 -3520039 / 3511658
511 -3516
LIMA\LIMA\ATE
Arequipa
Peru
WILLIAM,GALVEZ
igosac@terra.com.pe
Gerente General
511 -224-
511 -224-

CODIGO
ActiveCell.Range("A1:A14").Select
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(16, -2).Range("A1:A14").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
 

Leer las respuestas

#1 Héctor Miguel
26/03/2009 - 05:39 | Informe spam
hola, Rubén !

... una base de datos... toda la informacion en una sola columna... 14 celdas... vienen a formar un registro y asi sucesivamente
... seleccionar estas 14 celdas... pegado especial transponer y asi los 14 repetitivamente ...
... con el grabador de macros... llegue transponer los primeros 14 celdas
... el problemas es cuando quiero q este codigo se repetiva para las siguientes 14 y asi hasta el final...



- indica cual es la fila donde inician tus datos (realmente)
- confirma que en cada grupo de 14 celdas NO existen celdas vacias intermedias
- comenta (si hubiera) cualquier otro detalle "en el tintero"

saludos,
hector.

Preguntas similares