Forums Últimos mensajes - Powered by IBM
 

requiero pegar un numero en dos celdas

15/05/2008 - 00:51 por mario | Informe spam
Hola:
Tengo un reporte con totales, que tiene informacion trimestral, ejemplo

numero importe1 importe2 importe3
000066 100.00 132.66 134.86
100.00 132.66 134.86
100.00 132.66 134.86
000066 125.00 158.66 100.86
102.00 178.66 101.86
116.00 155.66 102.78
Requiero pegar el numero de empleado en los dos siguientes 2 renglones para
poder obtener subtotales por empleado o si existe alguna otra forma se los
agradecere.

quedaria asi
numero importe1 importe2 importe3
000066 100.00 132.66 134.86
000066 100.00 132.66 134.86
000066 100.00 132.66 134.86
000067 125.00 158.66 100.86
000067 102.00 178.66 101.86
000067 116.00 155.66 102.78
con esto se puede sumar.

espero me entiendan

saludos
 

Leer las respuestas

#1 José A. Castrejón
15/05/2008 - 02:23 | Informe spam
Parto de la suposicion que tus datos comienzan en la fila 2 de la hoja1,
tambien parto de que segun tu ejemplo los datos que vas a copiar siempre
estan separados por 2 filas vacias.
En un modulo normal pon lo siguiente.

Sub copia()

Dim Hja As Worksheet
Dim Rg As Range
Dim I, Cuantos, Contador

Set Hja = Sheets("Hoja1")

Set Rg = Sheets("Hoja1").Range("A2:A100")

Cuantos = Application.WorksheetFunction.CountIf(Rg, ">0") 'cuento cuantos
numeros hay en el rango a2:a100

Contador = 0

I = 2

Do Until Contador = Cuantos

Hja.Cells(I + 1, 1) = Hja.Cells(I, 1)
Hja.Cells(I + 2, 1) = Hja.Cells(I, 1)
I = I + 3
Contador = Contador + 1
Loop

End Sub

espero te sirva.

Saludos


"mario" wrote:

Hola:
Tengo un reporte con totales, que tiene informacion trimestral, ejemplo

numero importe1 importe2 importe3
000066 100.00 132.66 134.86
100.00 132.66 134.86
100.00 132.66 134.86
000066 125.00 158.66 100.86
102.00 178.66 101.86
116.00 155.66 102.78
Requiero pegar el numero de empleado en los dos siguientes 2 renglones para
poder obtener subtotales por empleado o si existe alguna otra forma se los
agradecere.

quedaria asi
numero importe1 importe2 importe3
000066 100.00 132.66 134.86
000066 100.00 132.66 134.86
000066 100.00 132.66 134.86
000067 125.00 158.66 100.86
000067 102.00 178.66 101.86
000067 116.00 155.66 102.78
con esto se puede sumar.

espero me entiendan

saludos

Preguntas similares