Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Preguntita

16/04/2005 - 21:26 por Hermano2 | Informe spam
estoy haciendo algo.. y necesito si me pueden decir 2 cosas... la primera
como se hace para poner varias veces esta formula en una misma hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$O$10" Then Exit Sub
Dim Hoja As Worksheet
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 Hoja
End Sub

Tambien me gustaria saber como hacer lo mismo que esta formula pero en vez
de copiar un texto, copiar el resultado de una formula en otra hoja, y que me
digan como hacerlo tambien para poder poner ese codigo varias veces en una
hoja.. desde ya muchas gracias
 

Leer las respuestas

#1 Héctor Miguel
17/04/2005 - 04:07 | Informe spam
hola, Hermano2 !

... como se hace para poner varias veces esta formula en una misma hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$O$10" Then Exit Sub
Dim Hoja As Worksheet
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 Hoja
End Sub
... como hacer... que... en vez de copiar un texto, copiar el resultado de una formula en otra hoja
... y... como hacerlo tambien para poder poner ese codigo varias veces en una hoja...



1.- en el codigo que expones, si se modifica la celda 'O10' de 'la hoja' [donde esta depositado el codigo...
se copia [todo] 'tal cual' -> a las celdas 'C10', 'B15', 'E20' y 'D35' -> de las hojas 1, 3, 4, 5 y 8
[solo toma en cuenta que si el usuario 'las cambia de posicion'... ya no seran... 'las que creias'] <= OJO
2.- supongo que por: '... varias veces esta formula ...' te refieres a que existen otras celdas [ademas de 'O10']
que necesitas copiar -> a otros rangos -> DISTINTOS de 'C10', 'B15', 'E20' y 'D35' -> de las hojas... cuales?
seria conveniente conocer las 'variantes' que se aplicaran a 'las varias veces' que necesitas :D
3.- para cambiar a que en lugar de 'copiar' [exactamente] el contenido de una celda [formulas o constantes]...
y que se 'traslade' [solo] el 'resultado final' [despues de calculada una formula]...
-> invierte la instruccion del 'copiado' y... 'elimina' el metodo 'Copy' [p.e. suponiendo mismos rangos/hojas]...
de -> Target.Copy Hoja.Range("c10,b15,e20,e35")
a -> Hoja.Range("c10,b15,e20,e35") = Target

comentas los datos 'faltantes'?
saludos,
hector.

Preguntas similares