seleccion multiple

11/05/2005 - 19:57 por Kiala Stefane | Informe spam

Hola de nuevo amigos:

Una macro tras una condicion me ha de copiar dos celdas a otra hoja
distinta.
El caso es que las celdas serian de distintas columnas "H" y "V" y la fila
será siempre distinta, por lo cual no le puedo dar un numero concreto a la
macro...
las tengo puestas así:

If Range("H" & j).Font.Underline = xlUnderlineStyleSingle Then Range("V"
& j).Copy: Range("T" & j).Copy

Y claro, no me funciona... solo me copia una de ellas, ¿quizas mis recuerdos
van mal y he puesto mal la linea? o quizás por no tener mucha idea no doy en
el clavo.
gracias por anticipado.

Siga el debate

1 respuesta

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 KL

11/05/2005 - 21:36 | Informe spam

Hola Kiala,

Suponiendo que en el codigo faltante se le asigna a la variable j algun
valor, el problema de tu instruccion es que copia los rangos, pero no los
pega ya que no hay ningun rango de destino. Ademas estas intentando agregar
dos instrucciones a If...Then (que solo permite una) en vez de
If...Then...End If

Prueba con algo asi:

If Range("H" & j).Font.Underline = xlUnderlineStyleSingle Then
Range("V"& j).Copy Range("X"&j)
Range("T" & j).Copy Range("Y"&j)
End if

Saludos,
KL

"Kiala Stefane" wrote in message
news:%

Hola de nuevo amigos:

Una macro tras una condicion me ha de copiar dos celdas a otra hoja
distinta.
El caso es que las celdas serian de distintas columnas "H" y "V" y la fila
será siempre distinta, por lo cual no le puedo dar un numero concreto a la
macro...
las tengo puestas así:

If Range("H" & j).Font.Underline = xlUnderlineStyleSingle Then
Range("V" & j).Copy: Range("T" & j).Copy

Y claro, no me funciona... solo me copia una de ellas, ¿quizas mis
recuerdos van mal y he puesto mal la linea? o quizás por no tener mucha
idea no doy en el clavo.
gracias por anticipado.

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :