Condicional

Hola Hector,

Sera bastante mas facil contestar tu pregunta si expones el codigo que
intentas usar.

Saludos,
KL


"Hector D." wrote in message
news:

Hola, mi pergunta es la siguiente:
Con el editor del VB realizo un condicional tomando como referencia una
celda del excel que contiene un texto.
El condicional no responde y toma todo como "verdadero"
Como puedo hacer para que me compare con el texto que hay en la
celda??
Gracias.


Hector D.

Hector D.'s Profile: http://www.msusenet.com/member.php?userid!84
View this thread: http://www.msusenet.com/t-1870544777

ActiveSheet.Shapes("check box 228").Select
With Selection
.LinkedCell = "BB62"
End With 'hasta acá me devuelve "verdadero" si est
tildado o
"falso" si no lo está



If BB64 = VERDADERO Then
Workbooks("traspaso d
datos").Worksheets("registros").Activate
ActiveCell.Offset(0, -78).Select
ActiveCell = "Voice-Data-Video"

'aca no me distingue el verdadero de
falso como
texto y continúa como si fuera tod
"verdadero"

Necesitaría que me diferencie el texto..
gracias,

Hecto

Hector D
Hector D.'s Profile: http://www.msusenet.com/member.php?userid!8
View this thread: http://www.msusenet.com/t-187054477

Hola Hector,

Lo primero que salta a la vista es que usas el valor VERDADERO en castellano
mientras que VBA requiere ingles. Prueba sustituir VERDADERO por TRUE en tu
codigo.

Ademas, creo que la primera parte de tu codigo se puede presentarla de la
siguiente manera:

ActiveSheet.Shapes("check box 228").LinkedCell = "BB62"

E incluso todo el codigo de esta manera:

If ActiveSheet.Shapes("check box 228").Value=True Then
Workbooks("traspaso de datos").Worksheets("registros").Activate
ActiveCell.Offset(0, -78).Value= "Voice-Data-Video"
End If

Saludos,
KL


"Hector D." wrote in message
news:

ActiveSheet.Shapes("check box 228").Select
With Selection
LinkedCell = "BB62"
End With 'hasta acá me devuelve "verdadero" si está
tildado o
"falso" si no lo está



If BB64 = VERDADERO Then
Workbooks("traspaso de
datos").Worksheets("registros").Activate
ActiveCell.Offset(0, -78).Select
ActiveCell = "Voice-Data-Video"

'aca no me distingue el verdadero del
falso como
texto y continúa como si fuera todo
"verdadero"

Necesitaría que me diferencie el texto..
gracias,

Hector


Hector D.

Hector D.'s Profile: http://www.msusenet.com/member.php?userid!84
View this thread: http://www.msusenet.com/t-1870544777