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,...

Dante Amor respondió: Te anexo la macro. Por cada combo, te va a enviar un mensaje de sí existe o no existe. Private Sub CommandButton1_Click() 'Por.Dante Amor ' For i = 1 To 15 existe = False For Each ctrl In Me.Controls If TypeName(ctrl) = "ComboBox" Then n =...

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

Dante Amor respondió: Sigue los siguientes pasos: 1. Crea una Clase1 y pon el siguiente código: Public WithEvents tbxCustom1 As MSForms.ComboBox 'Custom ComboBox ' Private Sub tbxCustom1_Change() MsgBox "Modificaste el combo: " & tbxCustom1.Name End Sub No todos los...

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

Dante Amor respondió: H o l a: Esta sería una opción. Creé el procedimiento Cargar_Lote, le paso como parámetros los 2 combos, el modificado y el que vas a cargar. En la llamada al procedimiento tienes que poner los 2 combos. El procedimiento será igual para todos los...

Adriel Ortiz Mangia respondió: H o l a Te paso la macro Private Sub CommandButton1_Click() 'Por Adriel n = 0 ListBox1.Clear For Each j In Me.Controls If TypeOf j Is MSForms.TextBox Then If TypeName(j) = "TextBox" Then If j.Value <> "" Then n = n + 1 End If End If End If Next...