Ciclo

29/08/2007 - 05:00 por sebastico | Informe spam

Hola amigos del Foro

Tengo los siguientes rangos
Sheet1
A1:A10, A14:A24, A28:A38, A42:A52
B1:B10, B14:B24, B28:B38, B42:B52
C1:C10, C14:C24, C28:C38, C42:C52
D1:D10, D14:D24, D28:D38, D42:D52

Sheet2
A1:A10, A14:A24, A28:A38, A42:A52
B1:B10, B14:B24, B28:B38, B42:B52
C1:C10, C14:C24, C28:C38, C42:C52
D1:D10, D14:D24, D28:D38, D42:D52

Sheet3
A1:A10, A14:A24, A28:A38, A42:A52
B1:B10, B14:B24, B28:B38, B42:B52
C1:C10, C14:C24, C28:C38, C42:C52
D1:D10, D14:D24, D28:D38, D42:D52

Necesito un código que me permita en cada hoja Sumar cada rango y Calcular
el promedio. El resultado de la suma debe estar en las celdas A:11, B11, C11
y D11.
El Promedio debe estar en las celdas A12, B12, C12 y D12
Lo anterior para cada Sheet.

Seguidamente, copiar los Promedios de cada rango y pegarlos en el Sheet 4 en
el siguiente orden:
Sheet1
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
A4 B4 C4 D4

Sheet2
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
A4 B4 C4 D4

Sheet3
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
A4 B4 C4 D4

Pienso que la instrucción es:
Sume el rango A1:A10, y coloque el resultado en A11, Saque el Promedio del
rango A1:A10 coloque el resultado y péguelo en A:12, salga.
Vaya a la celda B Sume el rango B1:B10, y coloque el resultado en B11, Saque
el Promedio del rango B1:B10 coloque el resultado y péguelo en B:12, salga.

Presumo que es un ciclo For next. Proceso similar creo que es para la
instrucción copiar y pegar. En los dos casos desconozco la instrucción. Tengo
la impresión que hay ciclos anidados. Me podrían ayudar con esta petición

Muchas gracias de antemano

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

30/08/2007 - 06:18 | Informe spam

hola, (...) ???

hay dos *detallitos* que requieren confirmacion y/o modificacion de los datos comentados:

1) tu primer *grupo* es de 10 filas [1-10] y los otros tres son de 11 filas [14-24, 26-36, 42-52] ?

2) como podrian *pegarse* en la *Sheet4* los promedios de las 3 *Sheets* anteriores...
-> en los mismos lugares [rango A1:D4] -???-

saludos,
hector.

__ la cosulta original __

Tengo los siguientes rangos
Sheet1
A1:A10, A14:A24, A28:A38, A42:A52
B1:B10, B14:B24, B28:B38, B42:B52
C1:C10, C14:C24, C28:C38, C42:C52
D1:D10, D14:D24, D28:D38, D42:D52

Sheet2 [igual al anterior] ...
Sheet3 [igual al anterior] ...

Necesito un codigo que me permita en cada hoja Sumar cada rango y Calcular el promedio.
El resultado de la suma debe estar en las celdas A:11, B11, C11 y D11.
El Promedio debe estar en las celdas A12, B12, C12 y D12
Lo anterior para cada Sheet.

Seguidamente, copiar los Promedios de cada rango y pegarlos en el Sheet 4 en el siguiente orden:
Sheet1
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
A4 B4 C4 D4

Sheet2
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
A4 B4 C4 D4

Sheet3
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
A4 B4 C4 D4

Pienso que la instruccion es:
Sume el rango A1:A10, y coloque el resultado en A11
Saque el Promedio del rango A1:A10 coloque el resultado y peguelo en A:12, salga.
Vaya a la celda B Sume el rango B1:B10, y coloque el resultado en B11
Saque el Promedio del rango B1:B10 coloque el resultado y peguelo en B:12, salga.

Presumo que es un ciclo For next. Proceso similar creo que es para la instruccion copiar y pegar.
En los dos casos desconozco la instruccion. Tengo la impresion que hay ciclos anidados...

Responder a este mensaje

#2 sebastico

30/08/2007 - 07:16 | Informe spam

Hola hector Miguel.

En el caso de los rangos dejemolos en 10.

Para copiar y pegar en el Sheet 4, las posiciones serán así
Sheet1
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
A4 B4 C4 D4

Sheet2
F1 G1 H1 I1
F2 G2 H2 I2
F3 G3 H3 I3
F4 G4 H4 I4

Sheet3
K1 L1 M1 N1
K2 L2 M2 N2
K3 L3 M3 N3
K4 L4 M4 N4

Una vez más, muchas gracias por tu ayuda

"Héctor Miguel" wrote:

hola, (...) ???

hay dos *detallitos* que requieren confirmacion y/o modificacion de los datos comentados:

1) tu primer *grupo* es de 10 filas [1-10] y los otros tres son de 11 filas [14-24, 26-36, 42-52] ?

2) como podrian *pegarse* en la *Sheet4* los promedios de las 3 *Sheets* anteriores...
-> en los mismos lugares [rango A1:D4] -???-

saludos,
hector.

__ la cosulta original __
> Tengo los siguientes rangos
> Sheet1
> A1:A10, A14:A24, A28:A38, A42:A52
> B1:B10, B14:B24, B28:B38, B42:B52
> C1:C10, C14:C24, C28:C38, C42:C52
> D1:D10, D14:D24, D28:D38, D42:D52
>
> Sheet2 [igual al anterior] ...
> Sheet3 [igual al anterior] ...
>
> Necesito un codigo que me permita en cada hoja Sumar cada rango y Calcular el promedio.
> El resultado de la suma debe estar en las celdas A:11, B11, C11 y D11.
> El Promedio debe estar en las celdas A12, B12, C12 y D12
> Lo anterior para cada Sheet.
>
> Seguidamente, copiar los Promedios de cada rango y pegarlos en el Sheet 4 en el siguiente orden:
> Sheet1
> A1 B1 C1 D1
> A2 B2 C2 D2
> A3 B3 C3 D3
> A4 B4 C4 D4
>
> Sheet2
> A1 B1 C1 D1
> A2 B2 C2 D2
> A3 B3 C3 D3
> A4 B4 C4 D4
>
> Sheet3
> A1 B1 C1 D1
> A2 B2 C2 D2
> A3 B3 C3 D3
> A4 B4 C4 D4
>
> Pienso que la instruccion es:
> Sume el rango A1:A10, y coloque el resultado en A11
> Saque el Promedio del rango A1:A10 coloque el resultado y peguelo en A:12, salga.
> Vaya a la celda B Sume el rango B1:B10, y coloque el resultado en B11
> Saque el Promedio del rango B1:B10 coloque el resultado y peguelo en B:12, salga.
>
> Presumo que es un ciclo For next. Proceso similar creo que es para la instruccion copiar y pegar.
> En los dos casos desconozco la instruccion. Tengo la impresion que hay ciclos anidados...

Responder a este mensaje

#3 Héctor Miguel

30/08/2007 - 07:33 | Informe spam

hola, (...) ???

En el caso de los rangos dejemolos en 10.

ok, pero... cuales ?... los que yo quiera/suponga/... ?... o los que tu necesites -?-
y en que filas van las formulas ? [suma y promedio] :))

la segunda parte, ya queda *entendida* ;)

saludos,
hector.

Para copiar y pegar en el Sheet 4, las posiciones seran asi
Sheet1
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
A4 B4 C4 D4

Sheet2
F1 G1 H1 I1
F2 G2 H2 I2
F3 G3 H3 I3
F4 G4 H4 I4

Sheet3
K1 L1 M1 N1
K2 L2 M2 N2
K3 L3 M3 N3
K4 L4 M4 N4

Responder a este mensaje

#4 sebastico

31/08/2007 - 06:00 | Informe spam

Bueno disculpas por el descuido.
Los rangos son así

Sheet1
A1:A10 B1:B10 C1:C10 D1:D10
A14:A23 B14:B23 C14:C23 D14:D23
A27:A36 B27:B36 C27:C36 D27:D36
A40:A49 B40:B49 C40:C49 D40:D49

Shhet2
A1:A10 B1:B10 C1:C10 D1:D10
A14:A23 B14:B23 C14:C23 D14:D23
A27:A36 B27:B36 C27:C36 D27:D36
A40:A49 B40:B49 C40:C49 D40:D49

Shhet3
A1:A10 B1:B10 C1:C10 D1:D10
A14:A23 B14:B23 C14:C23 D14:D23
A27:A36 B27:B36 C27:C36 D27:D36
A40:A49 B40:B49 C40:C49 D40:D49

En cada Sheet, el resultado de las sumas debe estar en las celdas
A11, B11, C11 y D11.
A24, B24, C24 y D24
A37, B37, C37 y D37
A50, B50, C50 y D50

En cada Sheet, el resultado del promedio debe estar en las celdas
A12, B12, C12 y D12
A25, B25, C25 y D25
A38, B38, C38 y D38
A51, B51, C51 y D51

Espero que esta vez si hay claridad en mi consulta.

Muchas gracias

"Héctor Miguel" wrote:

hola, (...) ???

> En el caso de los rangos dejemolos en 10.

ok, pero... cuales ?... los que yo quiera/suponga/... ?... o los que tu necesites -?-
y en que filas van las formulas ? [suma y promedio] :))

la segunda parte, ya queda *entendida* ;)

saludos,
hector.

> Para copiar y pegar en el Sheet 4, las posiciones seran asi
> Sheet1
> A1 B1 C1 D1
> A2 B2 C2 D2
> A3 B3 C3 D3
> A4 B4 C4 D4
>
> Sheet2
> F1 G1 H1 I1
> F2 G2 H2 I2
> F3 G3 H3 I3
> F4 G4 H4 I4
>
> Sheet3
> K1 L1 M1 N1
> K2 L2 M2 N2
> K3 L3 M3 N3
> K4 L4 M4 N4

Responder a este mensaje

#5 Héctor Miguel

31/08/2007 - 06:56 | Informe spam

hola, (...) ?

prueba con algo +/- como lo siguiente:

Sub Sumar_Promediar_Copiar()
Dim n As Byte
For n = 1 To 3
With Worksheets("sheet" & n)
.Range("a11").Formula = "=sum(a1:a10)"
.Range("a12").Formula = "=average(a1:a10)"
With .Range("a11:d12")
.FillRight: .Copy Destination:=.Parent.Range("a24,a37,a50")
End With
.Range("a12:d12,a25:d25,a38:d38,a51:d51").Copy
Worksheets("sheet4").Range("a1").Offset(, (n - 1) * 5) _
.Resize(4, 4).PasteSpecial xlPasteValues
End With
Next: Application.CutCopyMode = False
End Sub

si lo que necesitas no es copiar [solo] los valores de los promedios...
sino dejar una formula que *vincule* cualquier cambio en sus origenes...
sera necesario modificar la instruccion del *Copy / PasteSpecial*

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

__ la consulta original __

Bueno disculpas por el descuido.
Los rangos son asi

Sheet1
A1:A10 B1:B10 C1:C10 D1:D10
A14:A23 B14:B23 C14:C23 D14:D23
A27:A36 B27:B36 C27:C36 D27:D36
A40:A49 B40:B49 C40:C49 D40:D49

Shhet2
A1:A10 B1:B10 C1:C10 D1:D10
A14:A23 B14:B23 C14:C23 D14:D23
A27:A36 B27:B36 C27:C36 D27:D36
A40:A49 B40:B49 C40:C49 D40:D49

Shhet3
A1:A10 B1:B10 C1:C10 D1:D10
A14:A23 B14:B23 C14:C23 D14:D23
A27:A36 B27:B36 C27:C36 D27:D36
A40:A49 B40:B49 C40:C49 D40:D49

En cada Sheet, el resultado de las sumas debe estar en las celdas
A11, B11, C11 y D11
A24, B24, C24 y D24
A37, B37, C37 y D37
A50, B50, C50 y D50

En cada Sheet, el resultado del promedio debe estar en las celdas
A12, B12, C12 y D12
A25, B25, C25 y D25
A38, B38, C38 y D38
A51, B51, C51 y D51

Espero que esta vez si hay claridad en mi consulta.

Muchas gracias

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida