Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Por que no funciona

31/07/2007 - 18:34 por Albymar | Informe spam
Ayuda Hacer una pregunta
Hola a todos,
Tengo un Libro.xls con 40 Hojas, donde la Hoja1."General" es una hoja
registro, que tras una Macro (De Hector Miguel) por medio de filtro
avanzado, envio registros, por medio de un criterio, a cada Hoja (39
restantes)...
El problema que tengo es que... despues de realizar esto debo realizar una
columna (K) con saldo pendiente partiendo de un importe que esta en K6,
(K7=K6-I7) ... a si sucesivamente miestras haya valores en A:A

Ya se que arrastrando una determinada formula desde la celda K7 hacia abajo
se soluciona el problema pero quiero que lo haga al mismo tiempo
vuelca/traspasa los datos, pero debido a mis limitados conocimientos de
codigo, como siempre me he "atrancado".

Como primer paso para ver como hacerlo -en una hoja- he realizado lo
siguiente:
V = Range("A6").End(xlDown).Row
Range("K7:K" & V).Formula = "=R[-1]C-RC[-2]"
(Puede ser una animalada ... perdon si lo es, he avisado de conocimientos
limitados) pero me da error...
¿Podeis ayudarme?
Gracias de antemano a todos.
email Siga el debateRespuesta 13 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Ivan
31/07/2007 - 19:15 | Informe spam
On 31 jul, 18:34, Albymar wrote:
Hola a todos,
Tengo un Libro.xls con 40 Hojas, donde la Hoja1."General" es una hoja
registro, que tras una Macro (De Hector Miguel) por medio de filtro
avanzado, envio registros, por medio de un criterio, a cada Hoja (39
restantes)...
El problema que tengo es que... despues de realizar esto debo realizar una
columna (K) con saldo pendiente partiendo de un importe que esta en K6,
(K7=K6-I7) ... a si sucesivamente miestras haya valores en A:A

Ya se que arrastrando una determinada formula desde la celda K7 hacia abajo
se soluciona el problema pero quiero que lo haga al mismo tiempo
vuelca/traspasa los datos, pero debido a mis limitados conocimientos de
codigo, como siempre me he "atrancado".

Como primer paso para ver como hacerlo -en una hoja- he realizado lo
siguiente:
V = Range("A6").End(xlDown).Row
Range("K7:K" & V).Formula = "=R[-1]C-RC[-2]"
(Puede ser una animalada ... perdon si lo es, he avisado de conocimientos
limitados) pero me da error...
¿Podeis ayudarme?
Gracias de antemano a todos.



hola,

quizas podrias añadir esto dentro del bucle que carga las hojas (tras
haber pegdo lo filtrado)

Sheets(i).Range("k7").Formula = "=k6-i7"
Sheets(i) .Range("k7").AutoFill .Range("k7:k" & .
[a65536].End(xlUp).Row)

si te da conflictos con los filtros hazlo en un bucle a posteriori, y
si no te hace falta mas que el resultado (sin formula) algo como

dim celda as range
with sheets(i)
for each celda in .Range("k7:k" & .[a65536].End(xlUp).Row)
with celda
.value=.offset(-1)-.offset(,-2)
end with
next

a ver que tal

un saludo
Ivan

Preguntas similares

 

Busqueda sugerida :