creo que la ultima pregunta

19/04/2005 - 00:35 por Hermano2 | Informe spam

Ahora tengo otro error cuando pongo pongo esta formula me dice error

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target,
Range("f18,f19,f20,f21,f22,f23,f24,f25,f26,f27,f28,f29,f30,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29,d30,c18,c19,c20,c21,c22,c23,c24,c25,c26,c27,c28,c29,c30,e18,e19,e20,e21,e22,e23,e24,e25,e26,e27,e28,e29,e30,g18,g19,g20,g21,g22,g23,g24,g25,g26,g27,g28,g29,g30")) Is Nothing Then Exit Sub
Dim Hoja As Worksheet
Select Case Target.Address
Case "$F$18"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 2
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$19"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$20"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 4
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$21"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 5
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$22"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 6
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$23"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 7
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$24"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 8
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$25"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 9
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$26"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 10
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$27"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 11
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$28"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 12
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$29"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 13
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$F$30"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 14
Target.Copy Hoja.Range("h6,h23,h40")
End Select
Next
Case "$C$18"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 2
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$19"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$20"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 4
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$21"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 5
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$22"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 6
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$23"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 7
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$24"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 8
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$25"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 9
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$26"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 10
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$27"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 11
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$28"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 12
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$29"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 13
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$C$30"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 14
Target.Copy Hoja.Range("f7,f24,f41")
End Select
Next
Case "$D$18"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 2
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$19"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$20"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 4
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$21"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 5
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$22"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 6
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$23"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 7
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$24"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 8
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$25"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 9
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$26"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 10
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$27"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 11
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$28"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 12
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$29"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 13
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$D$30"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 14
Target.Copy Hoja.Range("i7,i24,i41")
End Select
Next
Case "$E$18"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 2
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$19"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$20"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 4
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$21"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 5
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$22"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 6
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$23"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 7
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$24"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 8
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$25"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 9
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$26"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 10
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$27"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 11
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$28"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 12
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$29"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 13
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$E$30"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 14
Target.Copy Hoja.Range("l7,l24,l41")
End Select
Next
Case "$G$18"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 2
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$19"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$20"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 4
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$21"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 5
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$22"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 6
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$23"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 7
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$24"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 8
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$25"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 9
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$26"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 10
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$27"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 11
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$28"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 12
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$29"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 13
Target.Copy Hoja.Range("k9,k26")
End Select
Next
Case "$G$30"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 14
Target.Copy Hoja.Range("k9,k26")
End Select
Next
End Select
End Sub

es un poco chiquita la formula como te dije... :P pero bue.. y todavia no
voy ni la mitad :( pero bue... decime como hago para que se aga accesible esa
formula...

me dice que "Se ha producido el error ´1004´ en tiempo de ejecucion
Error en el metodo ´range´ de objeto ´_Worksheet´
me dice me pone amarillo esta parte
If Intersect(Target,
Range("f18,f19,f20,f21,f22,f23,f24,f25,f26,f27,f28,f29,f30,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29,d30,c18,c19,c20,c21,c22,c23,c24,c25,c26,c27,c28,c29,c30,e18,e19,e20,e21,e22,e23,e24,e25,e26,e27,e28,e29,e30,g18,g19,g20,g21,g22,g23,g24,g25,g26,g27,g28,g29,g30")) Is Nothing Then Exit Sub

y la otra duda que tengo es que no entendi mucho.. lo que entendi es que vos
queres que copie la formula... pero si quiero copiar el resultado de una
formula que esta en hoja 1 en hoja 7 en varios lugares de la hoja 7, como
hago... supongamos que =SUMA(J18:J30) y este en J31 de la hoja 1, como hago
para copiarlo en hoja 4 E3 y E7, el resultado pero que cambie a medida que
cambie J31??, si me pones la formula te lo agradeceria infinitamente, siempre
que sea compatible con la primera formula que expuse, porque seria la
continuacion de esa formula...

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 KL

19/04/2005 - 10:41 | Informe spam

Hola Hermano2,

Quizas no sea la respuesta a tu pregunta, pero he intentado depurar tu
formula un pelin. Prueba el codigo de abajo - igual te funciona (y ocupa
menos espacio). No lo he probado asi que ya me diras si da algun error.

Saludos,
KL

'--Inicio Codigo--
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range

On Error Resume Next
Set Rng = Intersect(Target, _
Range("F18:F30,C18:C30,D18:D30,E18:E30,G18:G30"))
On Error GoTo 0
If Rng Is Nothing Then Exit Sub

Dim c As Range
Dim Hoja As Worksheet
For Each c In Rng
Select Case c.Column
Case 6: Dest = "H6,H23,H40" '"F"
Case 3: Dest = "F7,F24,F41" '"C"
Case 4: Dest = "I7,I24,I41" '"D"
Case 5: Dest = "L7,L24,L41" '"E"
Case 7: Dest = "K9,K26" '"G"
End Select

On Error Resume Next
Set Hoja = Worksheets(c.Row - 16)
On Error GoTo 0
If Not Hoja Is Nothing Then
c.Copy Worksheets(c.Row - 16).Range(Dest)
Else
MsgBox "No existe hoja numero " & (c.Row - 16)
End If
Next c
End Sub
'--FinCodigo--

Responder a este mensaje

#2 Hermano2

19/04/2005 - 16:04 | Informe spam

KL pero lo que copio no va siempre a una columna en otro lado.. osea... deseo
que F18 se copie en los lados mencionados de la Hoja 2, que el F19 de la hoja
3 y asi pasando de uno hasta el 32, asi con todas las letras... tampoco veo
que me respondieron lo de:
"y la otra duda que tengo es que no entendi mucho.. lo que entendi es que vos
queres que copie la formula... pero si quiero copiar el resultado de una
formula que esta en hoja 1 en hoja 7 en varios lugares de la hoja 7, como
hago... supongamos que =SUMA(J18:J30) y este en J31 de la hoja 1, como hago
para copiarlo en hoja 4 E3 y E7, el resultado pero que cambie a medida que
cambie J31??, si me pones la formula te lo agradeceria infinitamente, siempre
que sea compatible con la primera formula que expuse, porque seria la
continuacion de esa formula... "

Responder a este mensaje

#3 KL

19/04/2005 - 16:48 | Informe spam

Hola Hermano2,

KL pero lo que copio no va siempre a una columna en otro lado.. osea...
deseo
que F18 se copie en los lados mencionados de la Hoja 2, que el F19 de la
hoja
3 y asi pasando de uno hasta el 32, asi con todas las letras

Debo estar muy torpe hoy, pero no entiendo en absoluto lo que quieres decir
con esto :-(. Lo que he hecho es unicamente reescribir tu macro quitando el
codigo redundante (vamos, adelgazarlo). Con que creo que el codigo que te he
posteado debe hacer exactamente lo mismo que tu macro anterior. ?Te
importaria reformular tu pregunta?

... tampoco veo que me respondieron lo de:
"y la otra duda que tengo es que no entendi mucho..

No se de quien ha sido la idea de usar la formula, pero aquella persona
conoce la situacion - yo no (o es que ya no me acuerdo :-/)

Saludos,
KL

Responder a este mensaje

#4 KL

19/04/2005 - 17:37 | Informe spam

Hola Hermano2,

...lo que copio no va siempre a una columna en otro lado.. osea... deseo
que F18 se copie en los lados mencionados de la Hoja 2, que el F19 de la
hoja
3 y asi pasando de uno hasta el 32, asi con todas las letras...

Habiendo releido la primera frase de tu ultimo mensaje un par de veces mas,
creo que empiezo a entender lo que quieres decir, pero tambien creo que es
justo lo que hace mi macr:

En el evento Worksheet_Change puede ser una celda o mas. Al crear la
variable Rng le asigno todas las celdas que esten siendo cambiadas en este
evento siempre y cuando esten en los rangos predetreminados
"F18:F30,C18:C30,D18:D30,E18:E30,G18:G30". De ahi la interseccion:

Set Rng = Intersect(Target, _
Range("F18:F30,C18:C30,D18:D30,E18:E30,G18:G30"))

Ahora ya tenemos el rango a copiar. Utilizo el bucle For Each...Next para
escanear celda tras celda (c) el rango y copiar los valores a la hoja numero
(c.Row-16) y al rango que corresponda a la columna de la celda cambiada
(origen). P.ej.:

para F18 la hoja sera (c.Row-16)=2 y el rango Range(Dest) =
Range("H6,H23,H40")
para F19 la hoja sera (c.Row-16)=3 y el rango Range(Dest) =
Range("H6,H23,H40")
para D23 la hoja sera (c.Row-16)=7 y el rango Range(Dest) =
Range("I7,I24,I41")

Lo unico es que el codigo lo hace solo para las celdas que cambian, no para
todas las celdas que puedan encontrarse en los rangos:
"F18:F30,C18:C30,D18:D30,E18:E30,G18:G30".

Por otro lado no entiendo como dices que se deberia pasar de 1 a 32. ?A que
te refieres? ?A filas? - Si nada mas hay 13 entre F18 y F30. ?A hojas? Pero
si tu macro empieza a copiar a la hoja 2 y habiendo 13 filas acabaras
necesariamente en la hoja 14, digo yo.

Saludos,
KL

Responder a este mensaje

#5 Hermano2

19/04/2005 - 18:02 | Informe spam

Disculpame... la formula va...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range

On Error Resume Next
Set Rng = Intersect(Target, _
Range("F18:F30,C18:C30,D18:D30,E18:E30,G18:G30,I18:I30"))
On Error GoTo 0
If Rng Is Nothing Then Exit Sub

Dim c As Range
Dim Hoja As Worksheet
For Each c In Rng
Select Case c.Column
Case 6: Dest = "H6,H23,H40" '"F"
Case 3: Dest = "F7,F24,F41" '"C"
Case 4: Dest = "I7,I24,I41" '"D"
Case 5: Dest = "L7,L24,L41" '"E"
Case 7: Dest = "K9,K26" '"G"
End Select

On Error Resume Next
Set Hoja = Worksheets(c.Row - 16)
On Error GoTo 0
If Not Hoja Is Nothing Then
c.Copy Worksheets(c.Row - 16).Range(Dest)
Else
MsgBox "No existe hoja numero " & (c.Row - 16)
End If
Next c
End Sub

Pero al querer agrregarle Case 9: Dest = "K10,K27" '"I", y
previamente agregando ,I18:I30 , Case 13: Dest = "M14,M31" '"L" y
Case 12: Dest = "M12,M29" '"K"me vuelve a tirar el error de antes
tambien necesitaria que se copie otras cosas como R35 en hoja 2 to 14 en
E3,E20,E37 y R36 en Hoja 2 to 14 en E5,E22,E39,tambien aparte quiero copiar
el resultado de una formulas Supongamos que en r3 esta el resultado de
r1+r2... ese resultado lo quiero pasar a otra hoja, hoja 2 E37 pero R1 y R2
pueden cambiar sus valores... y el resultado cambia.. al cambiar quiero que
pase automaticamente al cambiar R1 y R2... pero es un poco mas complicado...
porque seria como el de "Case 9: Dest = "K10,K27" '"I"" alguno de
estos... que estan los de resultado en H, J, N , W, el H de 18:30 hoja en
M9,M26, el J de 18:30 hoja en M10,m28, el N de 18:30 hoja en M16,M33 y W de
18:30 hoja en M15,M32

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida