Anónimo
Ejercicio de macro excel
Hola!
No sé como hacer el código, intente hacerlo pero no me resulto... Se lo agradecería mucho quien me responda por favor...
Como evaluar cada fila si en "C6" se encuentra la lista de regiones(chiloe, rancagua, temuco, curico, etc) y en la fila "G6" Total del terreno y tengo que dejar en la fila "H6" el valor del terreno cultivable según corresponda por ejemplo G6 * 0.7 si corresponde a Temuco sino *0.5 si es chiloé, etc.
Ejercicio que me dio el profesor:
Entregar en la columna H6 el valor del terreno cultivable, sabiendo que el mt. De terreno es en : Chiloé de 0.5 UF, Temuco 0.7 UF y cualquier otro lugar de 1.2 UF
Range("H6").Select
If Cells(6, 3) = "Temuco" Then
Selection.Formula = "=G6 * 0.7"
Else
If Cells(6, 3) = "Chiloé" Then
Selection.Formula = "=G6 * 0.5"
Else
Selection.Formula = "=G6 * 1.2"
End If
End If
No sé como hacer el código, intente hacerlo pero no me resulto... Se lo agradecería mucho quien me responda por favor...
Como evaluar cada fila si en "C6" se encuentra la lista de regiones(chiloe, rancagua, temuco, curico, etc) y en la fila "G6" Total del terreno y tengo que dejar en la fila "H6" el valor del terreno cultivable según corresponda por ejemplo G6 * 0.7 si corresponde a Temuco sino *0.5 si es chiloé, etc.
Ejercicio que me dio el profesor:
Entregar en la columna H6 el valor del terreno cultivable, sabiendo que el mt. De terreno es en : Chiloé de 0.5 UF, Temuco 0.7 UF y cualquier otro lugar de 1.2 UF
Range("H6").Select
If Cells(6, 3) = "Temuco" Then
Selection.Formula = "=G6 * 0.7"
Else
If Cells(6, 3) = "Chiloé" Then
Selection.Formula = "=G6 * 0.5"
Else
Selection.Formula = "=G6 * 1.2"
End If
End If
Respuesta de Cadipas spain
1
Si no lo he entendido mal, tienes una lista de superficies en la columna G a partir de la fila 6 y quieres que se modifique el valor contiguo (la celda de la derecha) en funcuon del factor que le corresponde al nombre que hay en la celda C6. Con estos datos me sale el siguiente código.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
Select Case UCase(Target)
Case "CHILOE"
factor = 0.5
Case "TEMUCO"
factor = 0.7
Case Else
factor = 1.2
End Select
fila = 6
Do While Cells(fila, 7) <> ""
Cells(fila, 8) = Cells(fila, 7) * factor
fila = fila + 1
Loop
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
Select Case UCase(Target)
Case "CHILOE"
factor = 0.5
Case "TEMUCO"
factor = 0.7
Case Else
factor = 1.2
End Select
fila = 6
Do While Cells(fila, 7) <> ""
Cells(fila, 8) = Cells(fila, 7) * factor
fila = fila + 1
Loop
End If
End Sub