valores dependientes con vba

Question

valores dependientes con vba

Iniciado por Julian10 , may 08 2014 22:20

Pulsa corazón para recibir avisos de nuevas Respuestas

0

Julian10 AUTOR PREGUNTA #1

Publicado 08 mayo 2014 - 22:20

tengo un excel donde tengo dos columnas A1 y A2, donde las respuestas que pueden contener cada una son Si o No, pero, si en una sección la primera respuesta es Si la siguiente debe ser No y viceversa. ¿Cómo podría hacer esto con VBA?

¿Tienes la misma pregunta? Yo también
Volver arriba

Preguntado por Julian10

Cuenta Std 110

PREGUNTAS SIMILARES

Calcular el valor de una celda dependiendo de los valores de otras celdas

Error de archivo en el convertidor valores separados por comas Outlook

Quiero saber como traer valores de una tabla intermedia y sumarlos en Laravel

No puedo obtener los valores de Auth::user() en mis controladores (LARAVEL)

Como contar valores repetitivos de un array?

verificar valores no definidos

Acceder a valores de input con coffeescript

Añadir valores a archivo en vez de sobreescribir en Java

PREGUNTAS SIMILARES

Calcular el valor de una celda dependiendo de los valores de otras celdas

Error de archivo en el convertidor valores separados por comas Outlook

Quiero saber como traer valores de una tabla intermedia y sumarlos en Laravel

No puedo obtener los valores de Auth::user() en mis controladores (LARAVEL)

Como contar valores repetitivos de un array?

verificar valores no definidos

Acceder a valores de input con coffeescript

Añadir valores a archivo en vez de sobreescribir en Java

Manipular valores de un form dinamico con función de Javascript

Añadir valores con jQuery UI Slider

Sumar valores de columna con google sheets

Concatenaciones de valores omitiendo otros

postgreSQL y existencia de valores en un mismo momento

Insertar valores nulos a una tabla en mysql

Jhony10 · Answer 1

Coloca el siguiente código en tu evento Worksheet_Change:


Const col1pos= 1
Const col2pos= 2
Application.EnableEvents = False Select Case Target.Column
Case col1pos
If UCase(Target.Value) = "S" Then
ActiveSheet.Cells(Target.Row, col1pos) = "S"
ActiveSheet.Cells(Target.Row, col2pos) = "N"
Else
ActiveSheet.Cells(Target.Row, col1pos) = "N"
ActiveSheet.Cells(Target.Row, col2pos) = "S"
End If
Case col2pos
If UCase(Target.Value) = "S" Then
ActiveSheet.Cells(Target.Row, col1pos) = "N"
ActiveSheet.Cells(Target.Row, col2pos) = "S"
Else
ActiveSheet.Cells(Target.Row, col1pos) = "S"
ActiveSheet.Cells(Target.Row, col2pos) = "N"
End If
End Select
Application.EnableEvents = True

Julian10 · Answer 2

Julian10 AUTOR PREGUNTA #3

Publicado 09 mayo 2014 - 03:48

Gracias Jhony, muy bueno tu ejemplo

Volver arriba

Respuesta de Julian10

Cuenta Std 110

¿Te ha sido útil esta respuesta?
- 0

valores dependientes con vba

Julian10 AUTOR PREGUNTA #1

PREGUNTAS SIMILARES

Jhony10 #2

Julian10 AUTOR PREGUNTA #3

PREGUNTAS SIMILARES