Modificar (eliminar) lineas de macro no necearias

1 post / 0 nuevos
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 semana 1 día
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2845
Modificar (eliminar) lineas de macro no necearias

Tengo este conjunto de macros que su función es crear una hoja como Copia y Sumar el %10 a tabla de determinada columna en hojas especificadas en las macros en mi caso es la columna D.

PROBÉ CAMBIANDO EL NOMBRE A LAS HOJAS sin resultado alguno

Private Sub Workbook_Open()
Dim UltFila As Integer
MESact = Format(Date, "mmmm-yyyy")   'PARA QUE COLOQUE EL NOMBRE DEL MES
UltFila = Sheets("Tabla2").Range("h" & Rows.Count).End(xlUp).Row       'CAMBIE NOMBRE A TABLA GENERAL Y A I
If Sheets("Tabla2").Range("h" & UltFila) = MESact Then        'CAMBIE DE H A I       'CAMBIE NOMBRE A TABLA GENERAL Y A I
Else
Sheets("Tabla2").Range("h" & UltFila + 1) = MESact       'CAMBIE NOMBRE A TABLA GENERAL Y A I
Call actualiza
End If
End Sub

 

Sub actualiza()
HOJA = "Tabla2"       'CAMBIE NOMBRE A TABLA GENERAL
Sheets(HOJA).Copy After:=Sheets(2)       'CAMBIE NOMBRE A Sheets(2)
ActiveSheet.Name = "Copia"       'CAMBIE NOMBRE A COPIA GENERAL
For I = 3 To 27    'LE AUMENTE EL RANGO A 57
    If I = 14 Or I = 15 Or I = 16 Or I = 17 Then         ' LA DESACTIVE
    Else        'LA DESACTIVE
        VALOR = Sheets(HOJA).Cells(I, 4).Value       'CAMBIE DE 4 A 2
        Sheets(HOJA).Cells(I, 4).Value = VALOR * 1.1       'CAMBIE DE 4 A 2
    End If        'DESACTIVE
Next I
Sheets(HOJA).Select
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wSheet As Worksheet
On Error Resume Next
Set wSheet = Sheets("Copia")      'CAMBIE NOMBRE A COPIA GENERAL
If wSheet Is Nothing Then
MsgBox ("La hoja Copia no existe")      'CAMBIE NOMBRE A COPIA GENERAL
Else 'Si existe la hoja Copia
MsgBox ("La hoja Copia existe para eliminar")      'CAMBIE NOMBRE A COPIA GENERAL
Sheets("Copia").Delete      'CAMBIE NOMBRE A COPIA GENERAL
End If
End Sub

¿Qué necesito?

Esta macro ejecute su función tal como lo esta haciendo y concebida, además también ejecute el mismo proceso en otra hoja. Su nombre "Tabla1" y crear hoja "Copia1" como crea la "Copia" de la Tabla2. El nombre del mes, en la columna I de la hoja Tabla1

En la Tabla1 En la columna B sume al actual el 10% y en la columna C 0.05%

La hoja Tabla1 no existen intervalos entre líneas como se ve en la imagen 2, en este momento va desde la línea 3 hasta la 57, mañana puede ir hasta la 60, pero eso no es problema por que siempre que agregue, le aumento el rango en la macro o entonces que la macro a crear pueda ir agregando y reconocido por la macro

De antemano Gracias por su ayuda. Alguna aclaratoria estoy a sus ordenes

No logro colocar enlace sin que este quede activo

 

AdjuntoTamaño
Image icon precios-21746631.jpg202.57 KB
Image icon precios2-21746591.jpg156.95 KB

Etiquetas: