Solicitar dato al modificar valor de una celda
Estimados.
Recurro a Uds por sabia ayuda.Les cuento mi problematica.
Hoy dia manejo una BD en excel para el registro y seguimiento de cotizaciones. Aprox tiene 350 filas por 30 columnas. Nuevas cotizaciones se agregan por filas.
Hace un tiempo recurri a Uds. Porque necesita registrar una fecha automaticamente al momento de crear una nueva cotización, la lo cual incorpore el siguiente codigo (Que funciona de maravilla).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Application.Intersect(Target, Target.Parent.Range("A12:A50000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 3) = Now
Application.EnableEvents = True
End Sub
Ahora, me surge la siguiente necesidad. En la Columna "O", cada vez que una cotización es enviada, coloco en dica celda el valor "Cotizado" mediante una lista desplegable que incluye (Por Cotizar, Cotizado, Cotizado Repetido, No se Cotiza). Lo que requiero es que cada vez que yo coloque "Cotizado" mediante la lista desplegable (o lo escriba) me aparezca una ventana que me pregunte por la fecha en que fue "Cotizado" y la registe en la Celda inmediatamente anterior.
Por ejemplo, si estoy revisando la cotización N°250 (que si ubica en la Fila 250), al momento de colocar "Cotizado" en la celda "O250" me aparezca este cuadro, ingrese la fecha y la almacene en la celda "N250"
¿Es posible que me ayuden?
Desde ya agradezco vuestro tiempo y dedidación.
Recurro a Uds por sabia ayuda.Les cuento mi problematica.
Hoy dia manejo una BD en excel para el registro y seguimiento de cotizaciones. Aprox tiene 350 filas por 30 columnas. Nuevas cotizaciones se agregan por filas.
Hace un tiempo recurri a Uds. Porque necesita registrar una fecha automaticamente al momento de crear una nueva cotización, la lo cual incorpore el siguiente codigo (Que funciona de maravilla).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Application.Intersect(Target, Target.Parent.Range("A12:A50000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 3) = Now
Application.EnableEvents = True
End Sub
Ahora, me surge la siguiente necesidad. En la Columna "O", cada vez que una cotización es enviada, coloco en dica celda el valor "Cotizado" mediante una lista desplegable que incluye (Por Cotizar, Cotizado, Cotizado Repetido, No se Cotiza). Lo que requiero es que cada vez que yo coloque "Cotizado" mediante la lista desplegable (o lo escriba) me aparezca una ventana que me pregunte por la fecha en que fue "Cotizado" y la registe en la Celda inmediatamente anterior.
Por ejemplo, si estoy revisando la cotización N°250 (que si ubica en la Fila 250), al momento de colocar "Cotizado" en la celda "O250" me aparezca este cuadro, ingrese la fecha y la almacene en la celda "N250"
¿Es posible que me ayuden?
Desde ya agradezco vuestro tiempo y dedidación.
