Mensaje MsgBox Si/No

¿Crees que es necesario repetir los datos que ya tienes?
Casi siempre hay varias maneras de hacer algo. Puede que no hayas elegido
una de las buenas.





"Antonio" escribió en el mensaje de noticias
news:

Hola de nuevo amigos excelticos. Os comento haber como puedo hacer los
sguiente:

Tengo que poner un evento que la salir de la celda C17 me pregunte ¿el
cliente es el mismo que el usuario? si le digo SI me copie los datos de
C17, C18 y C19 en C24, C25 y C26. Si la respuesta fuese no pues que me
deje introducir datos en C24, C25 y C26. Haber si me podeis echar una
manilla.

Saludos

hola, Antonio !

Tengo que poner un evento que la salir de la celda C17 me pregunte el cliente es el mismo que el usuario?
si le digo SI me copie los datos de C17, C18 y C19 en C24, C25 y C26.
Si la respuesta fuese no pues que me deje introducir datos en C24, C25 y C26. Haber si me podeis echar una manilla.

pureba copiando/pegando (o escribiendo) las siguientes lineas en el modulo de codigo de "esa" hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$17" Then
If MsgBox("El cliente es el mismo que el usuario ?", vbYesNo, "") _
= vbYes Then Range("c24:c26").Value = Range("c17:c19").Value _
Else Range("c24:c26").Select
End If
End Sub

saludos,
hector.

Hola Hector.

No entiendo mucho de codigo y lo poco que hago es lo que me vais diciendo.
En esa misma hoja tengo este codigo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I5")) Is Nothing Then
Calendario.Show
Calendario.Top = (Target.Top + Calendario.Height) - 20
Calendario.Left = Target.Left + Target.Width + 20
Else
Unload Calendario
End If

End Sub

¿Como puedo utilizar este y el que tu me envias.?. Tambien comentarte que la
idea seria al salir de c17 o bien al ver que c22 esta vacia que me ejecute
una macro llamada REPRESENTANTE que me actualiza los datos que quiero de la
hoja.

Saludos y gracias.

"Héctor Miguel" escribió en el mensaje
news:

hola, Antonio !

Tengo que poner un evento que la salir de la celda C17 me pregunte el
cliente es el mismo que el usuario?
si le digo SI me copie los datos de C17, C18 y C19 en C24, C25 y C26.
Si la respuesta fuese no pues que me deje introducir datos en C24, C25 y
C26. Haber si me podeis echar una manilla.

pureba copiando/pegando (o escribiendo) las siguientes lineas en el modulo
de codigo de "esa" hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$17" Then
If MsgBox("El cliente es el mismo que el usuario ?", vbYesNo, "") _
= vbYes Then Range("c24:c26").Value = Range("c17:c19").Value _
Else Range("c24:c26").Select
End If
End Sub

saludos,
hector.

hola, Antonio !

1) comentarte que no hay objecion ni obstruccion al utilizar ambos codigos (al menos, como lo comentas)
uno se activa al cambiar de seleccion (el que ya tenias) y otro al modificarse la celda C17 (como solicitas)
o sea, ambos pueden convivir si estorbarse)

2) para que la celda C24 sea verificada al salir de (o cambiar su contenido) a celda C17
solo agrega la siguiente instruccion (JUSTO ANTES del End Sub)
(o revisa donde y cuando seria mas conveniente la llamada a la otra macro, segun que acciones realice) -?-

If Range("c22") = "" Then Call representante

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

No entiendo mucho de codigo y lo poco que hago es lo que me vais diciendo. En esa misma hoja tengo este codigo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I5")) Is Nothing Then
Calendario.Show
Calendario.Top = (Target.Top + Calendario.Height) - 20
Calendario.Left = Target.Left + Target.Width + 20
Else
Unload Calendario
End If
End Sub

Como puedo utilizar este y el que tu me envias.?.
Tambien comentarte que la idea seria al salir de c17 o bien al ver que c22 esta vacia
que me ejecute una macro llamada REPRESENTANTE que me actualiza los datos que quiero de la hoja.

__ previos __

Tengo que poner un evento que la salir de la celda C17 me pregunte el cliente es el mismo que el usuario?
si le digo SI me copie los datos de C17, C18 y C19 en C24, C25 y C26.
Si la respuesta fuese no pues que me deje introducir datos en C24, C25 y C26. Haber si me podeis echar una manilla.

pureba copiando/pegando (o escribiendo) las siguientes lineas en el modulo de codigo de "esa" hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$17" Then
If MsgBox("El cliente es el mismo que el usuario ?", vbYesNo, "") _
= vbYes Then Range("c24:c26").Value = Range("c17:c19").Value _
Else Range("c24:c26").Select
End If
End Sub