caranbis

Puedes calcular las nuevas posiciones, basado en la diferencia (porcentaje) que hubo, entre la medida original del userform (alto) y la medida después de ajustarlo a la pantalla, es decir Si tu userform mide originalmente (desde tu diseño) 800 de...

Deja el código dentro de la Macro1, y en el código del botón colocas: Private Sub CommandButton1_Click() Application.Run "Macro1" End Sub

Tocó con una fórmula personalizada, porque con las fórmulas de EXCEL es imposible. Public Function Primer_positivo(Rango As Range) As Double For Each celda In Rango Primer_positivo = celda.Value If Primer_positivo > 0 Then Exit Function Next End Function

Private Sub Listar_abrir_y_cerrar() 'Ir a menu Herramientas, Referencias ' Y agregar: 'Microsoft Scrpting Runtime ' Dim hFolder As Folder Dim hFile As File Dim Fso As FileSystemObject Dim Folder As String Dim LibroPpal As String 'El libro principal,...

Lo que necesitas no lo hace una simple fórmula; lo que tú necesitas se llaman "Tablas dinámicas" Revisa esto, y espero que te sirva. http://asp3.anep.edu.uy/capinfo//Material/Excel/Exc_cap15.pdf

Entrar a: Editor de visual basic (Alt+F11) Menu Herramientas. Propiedades de VB... Protección. Activar: Bloquear proyecto para visualización Colocar contraseña...

'Haz la prueba primero Sub Macro1() Range("A1").Select Selection.CurrentRegion.Select Selection.AutoFilter Field:=1, Criteria1:="<>A", _ Operator:=xlAnd Selection.CurrentRegion.Select Selection.EntireRow.Delete End Sub

Puedo ayudarte, pero necesito que me expliques bien cómo está organizada tu tabla, porque hay confusión en lo que dices. Si puedes, sube un archivo de ejemplo a http://www.zshare.net/ y me envías el link.

Sub abreycierra() Dim Neo As Object Set Neo = CreateObject("Word.Application") ' Neo.Visible = True Neo.Documents.Open Filename:="C:\EXPO.docx", ReadOnly:=True ' ' ' 'COMBINANDO CORRESPONDENCIA ' MsgBox "PRESIONE ACEPTAR PARA CERRAR WORD" ' 'CERRAR:...

Pruebe quitándole ese par de comillas y dejándolo así: Private Sub Workbook_Open() Ruta = ThisWorkbook.Path Ruta = Ruta & "\Ambar1.jpg" ActiveSheet.Shapes.AddPicture Ruta, True, True, 100, 100, 70, 70 End Sub 'Sin embargo a mí me funciona de las dos...