Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Fórmula en rango.

23/03/2010 - 09:28 por César | Informe spam
Ayuda Hacer una pregunta
Hola a todos.

En una hoja en el rango A1:A100 tengo distintos textos.

Range(“B1:B100”).Value = Range(“B1:B100”).Offset(0,-1).Value

y en cada celda del rango B1:B100 me pone su valor correspondiente del rango
A1:A100

Si en vez del valor quiero que en cada celda de B1:B100 me ponga si la celda
correspondiente de A1:A100 está en negrita. ¿Cómo lo puedo hacer?

Estoy buscando una solución que haga ‘de golpe’ el bloque completo, no con
bucles, el libro real tiene varios miles de filas y un bucle se demora
bastante.

Gracias anticipadas.

Saludos.
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Benito Merino
23/03/2010 - 17:26 | Informe spam
Hola.

Lo que quieres me parece que no lo puedes hacer en bloque.

Mi propuesta es:
Sub prueba()
For Each celda In Range("B1:B100")
If celda.Offset(0, -1).Font.Bold = -1 Then
celda.Value = "negrita"
Else
celda.Value = "normal"
End If
Next
End Sub

Saludos

Benito Merino
Barcelona

Preguntas similares

 

Busqueda sugerida :