Macro Urgentisimaaaa

Maribel:

Te envié una hoja por privado que pienso te servirá.
Saludos Raul_S

"Maribel" wrote:

Hola a todos:
Tengo una planilla con los sgtes datos
u
1 200
2 300
3 400
4 500
5 566 que son el resultado de una formulanga con Buscarv; luego necesito
darle un Formato Condicional que si esos valores son menores a un numero fijo
puesto en la celda $AC$3 ese valor es fijo le de un color a toda la celda
pero necesito si o si adicionarle un comentario que diga "No hay Stock" he
probado con Validación y en Formato Condicional no hay para insertar un
comentario.

Necesito Ayuda
Gracias




Ing. Maribel Arana
Help Desk
Centro de Computo Docente U.A.G.R.M

Maribel,

Como desconectaste del MSN Messenger te he enviado tu fichero con mi macro
por correo electronico. Ya me diras si te sirve o no. Por si a alguien le
pueda interesar abajo pongo el macro (o mejor dicho una serie de
procedimientos que se tienen que colocar en el modulo de la hoja en
cuestion.

Saludos,
KL

'Inicio Codigo--
Private Sub Worksheet_Calculate()
Call Validar
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call Validar
End Sub

Private Sub Validar()
Dim c As Range
Dim Valor As Double
With ThisWorkbook.Sheets("Hoja1")
For Each c In .Range("C5:C7")
Valor = .Range("K6") * .Range("E1") - .Range("P6")
If c < Valor Then
c.Interior.ColorIndex = 3
On Error Resume Next
c.Comment.Delete
c.AddComment "Tienes que hacer reserva"
On Error GoTo 0
Else
c.Interior.ColorIndex = 0
On Error Resume Next
c.Comment.Delete
On Error GoTo 0
End If
Next c
End With
End Sub
'FinCodigo--



"Maribel" wrote in message
news:

Hola a todos:
Tengo una planilla con los sgtes datos
u
1 200
2 300
3 400
4 500
5 566 que son el resultado de una formulanga con Buscarv; luego necesito
darle un Formato Condicional que si esos valores son menores a un numero
fijo
puesto en la celda $AC$3 ese valor es fijo le de un color a toda la celda
pero necesito si o si adicionarle un comentario que diga "No hay Stock" he
probado con Validación y en Formato Condicional no hay para insertar un
comentario.

Necesito Ayuda
Gracias




Ing. Maribel Arana
Help Desk
Centro de Computo Docente U.A.G.R.M

Hola KL:
Muchisimas gracias pero te cuento que no funciona ya que tiene que ser para
todo un rango desde k6:k30; que aunque le cambie no funciona.

Ojala pudiera encontrar una solucion a este problema
Gracias

"KL" escribió:

Maribel,

Como desconectaste del MSN Messenger te he enviado tu fichero con mi macro
por correo electronico. Ya me diras si te sirve o no. Por si a alguien le
pueda interesar abajo pongo el macro (o mejor dicho una serie de
procedimientos que se tienen que colocar en el modulo de la hoja en
cuestion.

Saludos,
KL

'Inicio Codigo--
Private Sub Worksheet_Calculate()
Call Validar
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call Validar
End Sub

Private Sub Validar()
Dim c As Range
Dim Valor As Double
With ThisWorkbook.Sheets("Hoja1")
For Each c In .Range("C5:C7")
Valor = .Range("K6") * .Range("E1") - .Range("P6")
If c < Valor Then
c.Interior.ColorIndex = 3
On Error Resume Next
c.Comment.Delete
c.AddComment "Tienes que hacer reserva"
On Error GoTo 0
Else
c.Interior.ColorIndex = 0
On Error Resume Next
c.Comment.Delete
On Error GoTo 0
End If
Next c
End With
End Sub
'FinCodigo--



"Maribel" wrote in message
news:
> Hola a todos:
> Tengo una planilla con los sgtes datos
> u
> 1 200
> 2 300
> 3 400
> 4 500
> 5 566 que son el resultado de una formulanga con Buscarv; luego necesito
> darle un Formato Condicional que si esos valores son menores a un numero
> fijo
> puesto en la celda $AC$3 ese valor es fijo le de un color a toda la celda
> pero necesito si o si adicionarle un comentario que diga "No hay Stock" he
> probado con Validación y en Formato Condicional no hay para insertar un
> comentario.
>
> Necesito Ayuda
> Gracias
>
>
>
>
> Ing. Maribel Arana
> Help Desk
> Centro de Computo Docente U.A.G.R.M

Maribel,

tiene que ser para
todo un rango desde k6:k30; que aunque le cambie no funciona.

Esta informacion es algo que te has guardado para ti sola hasta este
momento. En tus mensajes anteriores ni en el fichero mismo que me enviaste
nada hacia sospechar que era esto lo que querias. Prueba sustituir el codigo
anterior con el que sigue.

Saludos,
KL

'Inicio Codigo
Private Sub Worksheet_Calculate()
Call Validar
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call Validar
End Sub

Private Sub Validar()
Dim c As Range
Dim Valor As Double
With ThisWorkbook.Sheets("Hoja1")
For Each c In .Range("C5:C7")
Valor = c.Offset(0, 8) * .Range("E1") - c.Offset(0, 13)
If c < Valor Then
c.Interior.ColorIndex = 3
On Error Resume Next
c.Comment.Delete
c.AddComment "Tienes que hacer reserva"
On Error GoTo 0
Else
c.Interior.ColorIndex = 0
On Error Resume Next
c.Comment.Delete
On Error GoTo 0
End If
Next c
End With
End Sub
'Fin Codigo

otra cosa:

acuerdate de cambiar en el codigo el rango "C5:C7" por el que tengas en
realidad (???sera "C6:C30"???). Si no es la columna [C] tendras que
modificar los valores de columnas para la funcion Offset dentro del codigo.

KL

"KL" wrote in message
news:

Maribel,

tiene que ser para
todo un rango desde k6:k30; que aunque le cambie no funciona.

Esta informacion es algo que te has guardado para ti sola hasta este
momento. En tus mensajes anteriores ni en el fichero mismo que me enviaste
nada hacia sospechar que era esto lo que querias. Prueba sustituir el
codigo anterior con el que sigue.

Saludos,
KL

'Inicio Codigo
Private Sub Worksheet_Calculate()
Call Validar
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call Validar
End Sub

Private Sub Validar()
Dim c As Range
Dim Valor As Double
With ThisWorkbook.Sheets("Hoja1")
For Each c In .Range("C5:C7")
Valor = c.Offset(0, 8) * .Range("E1") - c.Offset(0, 13)
If c < Valor Then
c.Interior.ColorIndex = 3
On Error Resume Next
c.Comment.Delete
c.AddComment "Tienes que hacer reserva"
On Error GoTo 0
Else
c.Interior.ColorIndex = 0
On Error Resume Next
c.Comment.Delete
On Error GoTo 0
End If
Next c
End With
End Sub
'Fin Codigo