no era eso

hola, Hermano2 !

1.- dejame comentarte que es conveniente 'mantener' las consultas 'dentro' de su 'hilo original' ;)
2.- no voy a 'entrar en detalles' [pero]... el asunto que pones [no era eso] NO 'concuerda' con el desarrollo de tu 'replica'...
en donde [al final de cuentas] 'queda +/- claro' que los supuestos de mi anterior respuesta son 'acertados' :D
3.- haciendo un 'recorte' de los puntos [que yo considero] 'relevantes' en tu replica...
'tratare' de aclarar algunas situaciones que [creo] te pudieran causar una 'cierta' confusion ;)

espero lograrlo :)) pero... si cualquier duda... comentas?
saludos,
hector.
__1:

... un texto "A"... y un texto "B" en la misma hoja... que copie en X lugares el texto "A" y X... el texto "B"
... poniendo la formula 2 veces no anda y salta un error... no solo tengo 2 cosas... tengo mas de 100 veces
... como... poner esa misma formula en una hoja 2 o 3 veces y despues me guio...

=> en este punto comentas que necesitas poner varias veces una formula [en realidad se trata de 'rutinas']
y 'ejemlpificas' ->una duplicacion total<- de un procedimiento de eventos en el modulo de codigo de 'dicha' hoja
lo cual no es 'prudente' [ademas de que es 'inaceptable' para vba] :(
=> para este caso 'especifico' [varias celdas que requieres de un procedimiento 'diferente' para cada una]...
lo 'recomendable' es una 'estructura' en el codigo [en un mismo y unico procedimiento/evento]...
[p.e.] del tipo 'Select Case...End Select' [entre otros] y un ejemplo de como 'estructurar' el codigo seria el siguiente:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("o10,f32")) Is Nothing Then Exit Sub
Dim Hoja As Worksheet
Select Case Target.Address
Case "$O$10"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 1, 3, 4, 5, 8
Target .Copy Hoja.Range("c10,b15,e20,d35")
End Select
Next
Case "$F$32"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 7, 8, 9, 11, 15
Target.Copy Hoja.Range("d12,v15,o20,p35")
End Select
Next
End Select
' pon aqui mas 'cases' segun la direccion del 'target'... p.e. Case "$H$50"... pero... 100 cases ???
End Select
End Sub

__2:

... tengo el resultado de una formula por ejemplo =SUMA(J16:J28) y el resultado... quiero que se copie en otra hoja
... con esa formula que me diste lo que hace es simplemente copiar la formula y cambiarla
... si eso le pongo que lo copie con la formula en D70 me lo deja asi...=SUMA(D57:D69)
... pongamosle que la formula =SUMA(J16:J28) diera 20, quiero que se copie 20... no la formula...

=> en este caso, no se [porque no lo comentas] cual es la formula [o la instruccion] que usaste y que no te funciono :((
si suponemos que la formula 'original' esta en la celda 'J29' de la hoja que tiene el codigo...
y quieres 'depositar' [solo] el resultado en la celda es 'D70' de la hoja 'X_Nombre'...
-> usa una instruccion como la siguiente: Worksheets("X_Nombre").Range("d70") = Range("j29")

como podras observar... 'mis' supuestos en el mensaje anterior [si los revisas 'con calma']... siguen siendo 'acertados' ;)
solo me resta comentarte que para el caso de los 100 casos... [probablemente] convendria pensar en una estructura 'diferente'
[p.e. matrices para los rangos 'Target', los rangos -y las hojas- de 'destino', cuando son copia y cuando 'solo resultados, etc.]
si comentas los detalles 'finos' de las situaciones que requieras 'arreglar' :D

Mira vos sos un grande total... realmente vos me diste la formula, yo no se
nada de eso... es chino basico pero voy entendiendo mirando la formula de
que se trata...

Range("d34,d35")) significa los 2 puntos que copiara

Case 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 seran las hojas donde tiene
que copiar eso

Target.Copy Hoja.Range("E6,E23,E40") seran los lugares donde lo copiara en
las hojas selecionadas...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d34,d35")) Is Nothing Then Exit Sub
Dim Hoja As Worksheet
Select Case Target.Address
Case "$D$34"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
Target.Copy Hoja.Range("E3,E20,E37")
End Select
Next
Case "$D$35"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
Target.Copy Hoja.Range("E6,E23,E40")
End Select

Ahora mi pregunta es. si quiero ir probando esta Funcion con solo 2
copias.. como la cierro para ir probando... porque me salta un error... me
podrias explicar eso... ya todo lo demas lo entendi... te juro... solo eso y
empieso a hacer lo que quiero hacer... pls... desde ya muchisimas gracias por
responderme siempre sos mi idolo del Excel...

la pregunta anterior no le prestes atenciion... ahora tengo la pregunta
maxima... te hago la pregunta que quiero hacer... pongo esta formula y no me
la toma... va... me toma una parte...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F16,F17,D34,D35")) Is Nothing Then Exit Sub
Dim Hoja As Worksheet
Select Case Target.Address
Case "$D$34"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16
Target.Copy Hoja.Range("E3,E20,E37")
End Select
Next
Case "$D$35"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16
Target.Copy Hoja.Range("E6,E23,E40")
End Select
Next
Case "$F$16"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 2
Target.Copy Hoja.Range("F16")
End Select
Next
Case "$F$16"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3
Target.Copy Hoja.Range("F6,F23,F40")
End Select
Next
Case "$F$17"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 2
Target.Copy Hoja.Range("F17")
End Select
Next
Case "$F$17"
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 5
Target.Copy Hoja.Range("F6,F23,F40")
End Select
Next
End Select
End Sub

Osea no me toma las 2 formulas de F16 y las 2 de F17, tambien tengo otro
problema, osea viste que te dije lo de copiar los resultados de por ejemplo
te dejo este que anda.. pero la cosa es que cuando cambia el resultado de la
formula resultado, no cambia a donde la copia...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$29" Then Exit Sub
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3
Hoja.Range("D70") = Target
End Select
Next Hoja
End Sub

Esas 2 duditas tengo...

hola, Hermano2 !

la pregunta anterior no le prestes atencion... ahora tengo la pregunta maxima...

ok... ;)
tratare de 'explicar' las causas [y si se puede... 'remedios'] de los comportamientos que señalas ;)
si cualquier duda... comentas?
saludos,
hector.
=__ 1:

... pongo esta formula y... me toma una parte...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F16,F17,D34,D35")) Is Nothing Then Exit Sub
Dim Hoja As Worksheet
Select Case Target.Address
Case "$D$34" [...]
Case "$D$35" [...]
Case "$F$16" [...]
Case "$F$16" [...]
Case "$F$17" [...]
Case "$F$17" [...]
End Select
End Sub
... no me toma las 2 formulas de F16 y las 2 de F17...

__ 2:

... otro... lo de copiar los resultados... cuando cambia el resultado de la formula... no cambia a donde la copia...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$29" Then Exit Sub
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 3
Hoja.Range("D70") = Target
End Select
Next Hoja
End Sub

1: cuando utilizas una instruccion del tipo 'Select Case...End Select'
al 'cumplirse' un 'case' [dentro de los especificados]... los 'restantes' son omitidos
es decir... NO debes/puedes 'duplicar cases' :(
-> si tienes varias 'opciones' para un mismo 'case' debes 'desglosarlas' ->dentro/debajo<- del mismo 'case'
[te pongo un ejemplo al final del presente] ;)

2: el evento '_change' de una hoja, 'se dispara' SOLO cuando ->el contenido<- del 'Target' es modificado...
NO cuando 'el cambio' sucede por efectos de un re/calculo del modelo [misma formula... diferente resultado] ;)
[a menos que 'cambies' de evento para utilizar el '_calculate' que tiene otro 'comportamiento' y otros 'requisitos'] -?-
[creo que] lo 'conducente' es 'jalar' la referencia a la celda que contiene la formula ->al destino<- donde quieres el resultado
[p.e.] si en la hoja (3) en la celda 'D70' necesitas 'el resultado' de la formula en la celda 'J29' de la hoja [del evento]...
una formula 'sencilla y directa' en la hoja(3).[D70] =hoja_origen!$J$29 [deposita SOLO el resultado... NO jala la formula]

-> un ejemplo para varias 'opciones' dentro de un mismo 'case' [p.e. para el caso de ->cambios directos<- en 'F16']...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F16,F17,D34,D35")) Is Nothing Then Exit Sub
Dim Hoja As Worksheet
Select Case Target.Address
' aqui van los cases 'anteriores' ... '
Case "$F$16" ' la celda que se modifica '
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 2
Target.Copy Hoja.Range("F16")
Case 3
Target.Copy Hoja.Range("F6,F23,F40")
End Select
Next
' aqui sigue el resto del codigo para el mismo y unico evento ... '

[dicho sea 'de paso']... cuando los 'indices' de las hojas 'afecables' son 'series consecutivas'... puedes 'simplificar/recortar'
[p.e.:
de -> Case 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16
a -> Case 3 To 16

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...