Inicio > Microsoft Excel > tavopz > Ayuda Excel

Ayuda Excel

Experto:
Usuario:
Fecha: 17/07/2008
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
08/07/2008
pekitas2501, usuario preguntando en Microsoft Excel
Usuario
Hola como estas espero puedas ayudarme con lo siguiente:
1.- Tengo un archivo de Excel el cual tiene informacion de comisiones
2.- La idea es que cuando yo cambio la comision en la hoja "Comisiones" automaticamente me cambie en la hoja "Resumen", por ejemplo si en "Comisiones" tengo 1000 y la cambio por 500 me cambia automaticamente en "Resumen".
3.- Por otro lado si yo en la hoja "Comisiones" pongo comisión Cero (0), automaticamente esa linea tiene que eliminarse en "Resumen".
Espero tu pronta ayuda
Saludos
 
 
08/07/2008
pekitas2501, usuario preguntando en Microsoft Excel
Usuario
Otra cosa el momento que hago el punto 3 que me lance una advertencia para poder proceder puede ser algo asi como "Esta segura de continuar con el proceso, esto eliminara la transaccion" y poner Si o No.
16/07/2008
pekitas2501, experto respondiendo en Microsoft Excel
Experto
Hola,
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

 
Espero que te sea de utilidad.
 
Saludos, Tavopz
Visita: www.colombia2011.org
17/07/2008
pekitas2501, usuario preguntando en Microsoft Excel
Usuario
Muchas gracias por tu ayuda me ayudo muchisimo
Enlaces patrocinados