Ayuda Excel
Hola como estas espero puedas ayudarme con lo siguiente:
1.- Tengo un archivo de Excel el cual tiene información de comisiones
2.- La idea es que cuando yo cambio la comisión en la hoja "Comisiones" automáticamente me cambie en la hoja "Resumen", por ejemplo si en "Comisiones" tengo 1000 y la cambio por 500 me cambia automáticamente en "Resumen".
3.- Por otro lado si yo en la hoja "Comisiones" pongo comisión Cero (0), automáticamente esa linea tiene que eliminarse en "Resumen".
Espero tu pronta ayuda
Saludos
1.- Tengo un archivo de Excel el cual tiene información de comisiones
2.- La idea es que cuando yo cambio la comisión en la hoja "Comisiones" automáticamente me cambie en la hoja "Resumen", por ejemplo si en "Comisiones" tengo 1000 y la cambio por 500 me cambia automáticamente en "Resumen".
3.- Por otro lado si yo en la hoja "Comisiones" pongo comisión Cero (0), automáticamente esa linea tiene que eliminarse en "Resumen".
Espero tu pronta ayuda
Saludos
1 respuesta
Respuesta de tavopz
1
Con respecto al punto 2, pienso que esto lo puedes manejar dejando con fórmula entre la hoja "Comisiones" y la hoja "Resumen".
Claro, también puedes hacer esto mediante un código que se ejecute cuando cambies un dato de la columna comisión. Supongamos que la comisión se encuentra en la columna B y el dato que sirve de llave entre la hoja "Comisiones" y la hoja "Resumen" está en la columna A. Entonces puedes hacer algo como esto:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c, resumen1 As Range
Dim w, w1 As Worksheet
Set w = Sheets(1)
Set w = Sheets(2)
Set resumen1 = w.Range("A1:" & w.Range("A1").End(xlDown).Address)
Application.ScreenUpdating = False
If Target.Column = 2 Then
If Target <> 0 Then
For Each c In resumen1
If c = Target Then
w.Range("B" & LTrim(Str(c.Row))).Value = Target
End If
Next c
Else
sigue = MsgBox("Desea eliminar esta fila de la hoja resumen", vbYesNo)
If sigue = vbYes Then
For Each c In resumen1
If c = Target Then
w.Range(c.Address).Activate
EntireRow.Delete
w1.Activate
End If
Next c
End If
End If
Application.ScreenUpdating = True
End Sub
Claro, también puedes hacer esto mediante un código que se ejecute cuando cambies un dato de la columna comisión. Supongamos que la comisión se encuentra en la columna B y el dato que sirve de llave entre la hoja "Comisiones" y la hoja "Resumen" está en la columna A. Entonces puedes hacer algo como esto:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c, resumen1 As Range
Dim w, w1 As Worksheet
Set w = Sheets(1)
Set w = Sheets(2)
Set resumen1 = w.Range("A1:" & w.Range("A1").End(xlDown).Address)
Application.ScreenUpdating = False
If Target.Column = 2 Then
If Target <> 0 Then
For Each c In resumen1
If c = Target Then
w.Range("B" & LTrim(Str(c.Row))).Value = Target
End If
Next c
Else
sigue = MsgBox("Desea eliminar esta fila de la hoja resumen", vbYesNo)
If sigue = vbYes Then
For Each c In resumen1
If c = Target Then
w.Range(c.Address).Activate
EntireRow.Delete
w1.Activate
End If
Next c
End If
End If
Application.ScreenUpdating = True
End Sub
