boton con macro

Que tal.

A qué te refieres con "una pantalla", acaso es a un UserForm ó a un mensajes
de notificación ???

A sus órdenes.

Tec. Inf. Sergio A Campos H

"robert" escribió en el mensaje
news:164301c47bce$f62a1910$

Hola me gustaria poder ejecutar una macro con un boton y
que me saliera una pantalla conforme se ha ejecutado esa
macro.
Si alguien me puede hechar un cable, muy agradecido!!!

Gracias

Wenas, se trata de un mensaje que ponga por
ejemplo: "estoy ejecuntando macro de correo electronico"
y esto dentro de un recuadro tipo windows, supongo q
seria como un mensaje de notificacion.

Si te sirve esta aclaracion

thanks

Que tal.

A qué te refieres con "una pantalla", acaso es a un

UserForm ó a un mensajes

de notificación ???

A sus órdenes.

Tec. Inf. Sergio A Campos H

"robert" escribió en el

mensaje

news:164301c47bce$f62a1910$

Hola me gustaria poder ejecutar una macro con un boton

y

que me saliera una pantalla conforme se ha ejecutado

esa

macro.
Si alguien me puede hechar un cable, muy agradecido!!!

Gracias

.

Que tal.

Antes ó después del código de la macro insertamos el siguiente código que
simplemente te manda un cuadro de mensaje indicándote que se ejecutará o se
ejecutó la macro:

MsgBox "Se está ejecutando la macro : ", vbInformation

A sus órdenes.

Tec. Inf. Sergio A Campos H

escribió en el mensaje
news:282801c47de4$133bacf0$
Wenas, se trata de un mensaje que ponga por
ejemplo: "estoy ejecuntando macro de correo electronico"
y esto dentro de un recuadro tipo windows, supongo q
seria como un mensaje de notificacion.

Si te sirve esta aclaracion

thanks

Que tal.

A qué te refieres con "una pantalla", acaso es a un

UserForm ó a un mensajes

de notificación ???

A sus órdenes.

Tec. Inf. Sergio A Campos H

"robert" escribió en el

mensaje

news:164301c47bce$f62a1910$

Hola me gustaria poder ejecutar una macro con un boton

y

que me saliera una pantalla conforme se ha ejecutado

esa

macro.
Si alguien me puede hechar un cable, muy agradecido!!!

Gracias

.

HOLA A TODOS ESPERO QUE ME PUEDAN AYUDAR, TENGO UNA
PEQUEÑA MACRO AQUI ESTA EL CODIGO, PREGUNTA COMO PUEDO
HACER PARA QUE NO ME PREGUNTE A CADA RATO EL VALOR
ENCONTRADO.
QUIERO SI SE PUEDE QUE LO HAGA AUTOMATICAMENTE, SE PUEDE
HACER QUE CADA VEZ QUE ME ENCUENTRA EL VALOR REPETIDO ME
LO COPIE A OTRA HOJA.



Sub Repetidos()
Range("B1").Select
Posicion = 1
While ActiveCell.Value <> ""
valorcomparacion = ActiveCell.Value
Range("a1").Select
Salir = "no"
While ActiveCell.Value <> "" And Salir = "no"
If ActiveCell.Value = valorcomparacion Then
respuesta = MsgBox("¿Deseas ponerle color?",
4, "¡¡Encontrado!!")
If respuesta = vbYes Then
Selection.Font.ColorIndex = 3
End If
Salir = "si"
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
Posicion = Posicion + 1
Range("b1").Select
ActiveCell.Offset(Posicion - 1, 0).Range("a1").Select
Wend
End Sub

Que tal.

A lo que entiendo es :

No quieres que cada vez que te encuentre un valor repetido te pregunte si
quieres cambiarle el color ???

Si si es eso solo cambia el código a este :

Sub Repetidos()
Range("B1").Select
posicion = 1
While ActiveCell.Value <> ""
valorcomparacion = ActiveCell.Value
Range("a1").Select
Salir = "no"
While ActiveCell.Value <> "" And Salir = "no"
If ActiveCell.Value = valorcomparacion Then
'respuesta = MsgBox("¿Deseas ponerle color?", 4, "¡¡Encontrado!!")
'If respuesta = vbYes Then
Selection.Font.ColorIndex = 3
'End If
Salir = "si"
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
posicion = posicion + 1
Range("b1").Select
ActiveCell.Offset(posicion - 1, 0).Range("a1").Select
Wend
End Sub

A sus órdenes.

Tec. Inf. Sergio A Campos H

"RODRIGO CABELLO" escribió en el
mensaje news:003301c483dc$7b638520$
HOLA A TODOS ESPERO QUE ME PUEDAN AYUDAR, TENGO UNA
PEQUEÑA MACRO AQUI ESTA EL CODIGO, PREGUNTA COMO PUEDO
HACER PARA QUE NO ME PREGUNTE A CADA RATO EL VALOR
ENCONTRADO.
QUIERO SI SE PUEDE QUE LO HAGA AUTOMATICAMENTE, SE PUEDE
HACER QUE CADA VEZ QUE ME ENCUENTRA EL VALOR REPETIDO ME
LO COPIE A OTRA HOJA.



Sub Repetidos()
Range("B1").Select
Posicion = 1
While ActiveCell.Value <> ""
valorcomparacion = ActiveCell.Value
Range("a1").Select
Salir = "no"
While ActiveCell.Value <> "" And Salir = "no"
If ActiveCell.Value = valorcomparacion Then
respuesta = MsgBox("¿Deseas ponerle color?",
4, "¡¡Encontrado!!")
If respuesta = vbYes Then
Selection.Font.ColorIndex = 3
End If
Salir = "si"
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
Posicion = Posicion + 1
Range("b1").Select
ActiveCell.Offset(Posicion - 1, 0).Range("a1").Select
Wend
End Sub