............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Ayudenme con esta Macro

Ver el tema anterior Ver el tema siguiente Ir abajo

Ayudenme con esta Macro

Mensaje por Deivid el Miér Ago 19, 2009 10:22 am

Hola buen dia. Verán, podrían explicarme exactamente el funcionamiento de las lienas en color rojo de esta macro?

Private Sub Worksheet_Change(ByVal Target As Range)
celda = Target.Address(ColumnAbsolute:=False)
borrado = InStrRev(celda, "$")
linea = Mid(celda, borrado + 1)


If (Target.Address = "$D$" & linea) Or (Target.Address = "$E$" & linea) Or (Target.Address = "$F$" & linea) Then
If Range("D" & linea).Value <> "" And Range("E" & linea).Value <> "" And Range("F" & linea).Value <> "" And _
Range("N" & linea).Value >= 0.2 Then
OJO.Show
End If
End If
End Sub

Muchas Gracias...

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Ayudenme con esta Macro

Mensaje por GalileoGali el Miér Ago 19, 2009 8:21 pm

Deivid escribió:Private Sub Worksheet_Change(ByVal Target As Range)
celda = Target.Address(ColumnAbsolute:=False)
borrado = InStrRev(celda, "$")
linea = Mid(celda, borrado + 1)

Target.address: del rango que experimento cambios la Direccion, se pide que la referencia a la Columnna sea relativa
InStrRev(celda,"$"), contando de derecha a Izquierda en la cadena de la referencia de celda, en qué posición aparece el primer (ultimo de iquiierda a derecha) signo de "$"

Mid(celda, borrado +1) devuelve el primer caracter de la derecha(+1) de donde esta posicionado el Ultimo "$"

Para que esto o si esta bien, eso ya es otro cantar......
yo abreviaria todo este embrollo con
linea = Target.Row

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.