Ejecutar una macro al cambiar valor de una celda
Sucede que en una hoja de Excel 2007 tengo un grupo de celdas en donde he validado cada una para que me permita elegir valores de una lista, la idea es que cuando seleccione un item de la lista me escriba automáticamente a través de una macro en una celda a la derecha, el valor del elemento seleccionado, es decir, si el elemento es procesador, escriba al frente el valor 250000.
La cuestión es que me escribe el valor del elemento cuando cambio de celda y no cuando cambio de elemento en la lista.
Me gustaría que me ayudaran a que la macro me escriba el valor del elemento al momento de seleccionar un elemento de la lista. El código es siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
f1 = 2
f2 = 10
For i = f1 To f2
Select Case Cells(i, 1).Value
Case "PROCESADOR"
valor = 215000
Case "MEMORIA RAM"
valor = 60000
Case "BOARD"
valor = 170000
Case Else
valor = 0
End Select
Cells(i, 2).Value = valor
Next i
End Sub
La cuestión es que me escribe el valor del elemento cuando cambio de celda y no cuando cambio de elemento en la lista.
Me gustaría que me ayudaran a que la macro me escriba el valor del elemento al momento de seleccionar un elemento de la lista. El código es siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
f1 = 2
f2 = 10
For i = f1 To f2
Select Case Cells(i, 1).Value
Case "PROCESADOR"
valor = 215000
Case "MEMORIA RAM"
valor = 60000
Case "BOARD"
valor = 170000
Case Else
valor = 0
End Select
Cells(i, 2).Value = valor
Next i
End Sub
1 Respuesta
Respuesta de jerryeagle
1