Acción a partir cambio valor en rango de celda
El lio que tengo es el siguiente:
1. Tengo una Hoja de excel vinculada, mediante una sentencia SELECT, a una tabla de SQL en un servidor remoto.
2. La tabla, resumidamente, consiste en 5 columnas
DigitoImpresion;CodProducto;DesProducto;Valor1;ValorPvP
2.1. Los valores en las celdas, dado el vinculo, se rellena automático cada vez que se actualiza ya sea automáticamente o de forma manual.
2.2. El rango que nos interesa es el de ValorPvP. Cuando este cambia necesito que se señale el dígito "1" en la columna DigitoImpresion de la fila que corresponde al ValorPvP actualizado.
3. Como propiedad a tener en cuenta en relación a la consulta desde excel es que se actualiza cada minuto, cada vez que se abre el excel o cuando se pulsa en "Actualizar"
Super agradecido a todos los que me podéis echar una mano. Si no se entiende mucho, os haré una explicación del caso real.
Muchas gracias
1 respuesta
Te anexo una macro que pone 1
Instrucciones
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Precondiciones para que funcione la macro:
La columna donde se encuentra el DigitoImpresion, debe ser la columna A
La columna donde se encuentra ValorPvP, debe ser la columna E
Si esto valores están en otra columna, deberás cambiar los valore en la macro, en la parte que dice:
'Definición de columnas
c_dig_imp = 1 'El 1 es a A, el 2 es a B, el 3 es C, etc
c_valorPvP = "E"
'***Macro
Private Sub Worksheet_Change(ByVal Target As Range)
'Actualiza con un 1 la fila columna
'Por.daM
'Definición de columnas
c_dig_imp = 1 'El 1 es a A, el 2 es a B, el 3 es C, etc
c_valorPvP = "E"
If Not Intersect(Target, Range(c_valorPvP & ":" & c_valorPvP)) Is Nothing Then
If Target.Value <> "" Then
Cells(Target.Row, Cells(Target.Row, c_dig_imp)) = 1
End If
End If
End Sub
'***Macro
Saludos. Dam
