saber si una celda tiene borde superior

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
Mira a ver si te vale esto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Borders(xlEdgeTop).Weight = xlThick Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub


Saludos a

Emilio [MS-MVP Access 2006/7]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"chiri" <fernandoSUSTITUYEPORARROBAmollatSUSTITUYEPORPUNTOinfo> escribió en
el mensaje news:%

Quisiera poner una condición para extraer unos datos de una hoja de
cálculo, creada automáticamente por un programa que no puedo manipular.

El caso es que necesitaría hacer unas cosas si una celda tiene borde
superior activado en negrita y otras si no lo tiene (sólo el borde
superior)

algo así como if Worksheets("professor_2").Cells(1, 1).border.superior as
true then

pero no acierto con ello

gracias

No lo acabo de entender pero he probado y no me sirve

yo quiero que me devuelva verdadero cuando tenga borde superior una celda

"Emilio" <miliuco56 ALGARROBA hotmail PUNTO com> escribió en el mensaje
news:%

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
Mira a ver si te vale esto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Borders(xlEdgeTop).Weight = xlThick Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub


Saludos a

Emilio [MS-MVP Access 2006/7]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"chiri" <fernandoSUSTITUYEPORARROBAmollatSUSTITUYEPORPUNTOinfo> escribió
en el mensaje news:%

Quisiera poner una condición para extraer unos datos de una hoja de
cálculo, creada automáticamente por un programa que no puedo manipular.

El caso es que necesitaría hacer unas cosas si una celda tiene borde
superior activado en negrita y otras si no lo tiene (sólo el borde
superior)

algo así como if Worksheets("professor_2").Cells(1, 1).border.superior as
true then

pero no acierto con ello

gracias

Si no hay solución mejor, lo he conseguido gracias a tu pista Emilio, con
esto me funciona:

en vez de weight poniendo lineStyle

If Range("e7").Borders(xlEdgeTop).LineStyle = 1 Then
'If Selection.Borders(xlEdgeTop).Weight = xlThick Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub

Gracias


"Emilio" <miliuco56 ALGARROBA hotmail PUNTO com> escribió en el mensaje
news:%

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
Mira a ver si te vale esto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Borders(xlEdgeTop).Weight = xlThick Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub


Saludos a

Emilio [MS-MVP Access 2006/7]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"chiri" <fernandoSUSTITUYEPORARROBAmollatSUSTITUYEPORPUNTOinfo> escribió
en el mensaje news:%

Quisiera poner una condición para extraer unos datos de una hoja de
cálculo, creada automáticamente por un programa que no puedo manipular.

El caso es que necesitaría hacer unas cosas si una celda tiene borde
superior activado en negrita y otras si no lo tiene (sólo el borde
superior)

algo así como if Worksheets("professor_2").Cells(1, 1).border.superior as
true then

pero no acierto con ello

gracias