otreblig
21 de Febrero del 2006

rosi: existe algun codigo para una celda de exel parpadee segun el valor de otracedlda? por ejemplo tengo una formula que compara una celda con otra y quisiera que cuando sea falso se activare el parpadeo de dicha celda.

otra pregunta : se puede de que forma podria establecer algun codigo en VB para que el nombre de la hoja aparezca automaticamente en una celda de excel, gracias de antemano mpor leer el mensaje atte gilberto, de Guanajuato, Gto. Mexico

Rosa
21 de Febrero del 2006

Hola Gilberto, para hacer parpadear una celda tienes que simular un timer, en el código que escribo faltaría que incluyas la condición para que se active o no el parpadeo, y sobre el nombre de la hoja en una celda, creo que lo quieres hacer en vba? también lo he incluido, pero si lo necesitas hacer desde una aplicación vb externa también es posible.


Private Sub CommandButton1_Click()

Cells(1, 1) = ActiveCell.Worksheet.Name

Call sActivaTimer

End Sub

Private Sub sActivaTimer()
'activar el timer
Dim Start, Finish, TotalTime
Dim Valor As String

Valor = Cells(1, 1)
'PauseTime = 5 ' duracion. se detendra cunado PauseTime =TIMER
Start = Timer ' Set start time.
Do While Timer >= Start + PauseTime
DoEvents
If Timer Mod 2 = 0 Then
DoEvents ' Yield to other processes.
Cells(1, 1) = ""
DoEvents
'leer archivo del peso
Else
Cells(1, 1) = Valor
End If
Loop
End Sub