jorge ab

Te pego el código: Sheets(Array("HOJA1" , "HOJA2")).Select Sheets("HOJA1").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=C\direccionFichero.pdf _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,...

Sub Eliminar() '''' borrar las celda que acaban en 4 Set Rango = Sheets("Hoja1").Range("A1:D100") For Each Celda In Rango If Right(Celda, 1) = 4 Then Celda.Clear End If Next End Sub Mira a ver si te sirve esta macro.

Tienes que crear un evento change en la hoja/s en los que hayan cambios y quieras que se actualicen los datos: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then RESUMEN ''' SI A1 DE ESTA MISMA HOJA CAMBIA, SE EJECUTA...

Primero la haces visible y luego la eliges. Si la quieres volver a ocultar, tendrás que poner un evento dentro de la hoja al cerrar para que se oculte de nuevo. Private Sub CommandButton1_Click() Sheets("HOJA1").Visible = True Sheets("HOJA1").Select...

Yo lo haría así. UC = Sheets("HOJA1").Range("A" & Cells.Rows.Count).End(xlUp).Row ''' Busca la ultima celda escrita SumaTotal = WorksheetFunction.Sum(Range("A1:A" & UC)) Sheets("HOJA1").Range("A" & UC + 1) = SumaTotal

Te pongo un ejemplo, quizás los expertos tengan una solución mejor, pero creo que esta te valdrá: Private Sub CommandButton1_Click() For Each hoja In Worksheets '' --> Recorre todas las hojas del libro If hoja.Name = "ene17" _ '' --> Si la hoja...

En el siguiente enlace tienes un ejemplo de como se haría. Por si te sirve de ayuda, lo único que yo me baso en celdas determinadas. Formularios: Unificar varios Change() o Exit() en una funcion