Dante Amor

H o l a: Una opción es que antes de abrir el archivo, cierres el formulario: Private Sub V2013_Click() Unload Me Workbooks.Open Filename:="Nombre de archivo" End Sub Y también antes de abrir el formulario, cierres el primer formulario: Private Sub...

H o l a: Te anexo la macro actualizada. Cambia en esta línea el nombre de la hoja y la celda donde vas a poner el nombre de la hoja destino. hoja = Sheets("hoja1").Range("D1") La macro: Sub Macro2() ' Dim strTitulo As String Dim Continuar As String...

Así quedaría: Private Sub CommandButton1_Click() If UCase(Range("A3").Value) = "HOLA" Then macro1 ElseIf UCase(Range("A3").Value) = "ADIOS" Then macro2 End If End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o l a: ¿En cuál fila tienes tus encabezados? ¿De cuál columna a cuál columna quieres copiar?

H o l a: Puedes ocultar la barra de fórmulas desde las opciones de excel, avanzadas, Mostrar barra de fórmulas. O desde VBA con esta instrucción para ocultar: Application.DisplayFormulaBar = False Para mostrar Application.DisplayFormulaBar = True Si...

H o l a: Supongo que solicitas lo siguiente: En la celda C3 el resultado de 750 * 50 En la celda D3 el resultado de 760 * 50 En la celda E3 el resultado de 770 * 50 ... En la celda C4 el resultado de 750 * 60 En la celda D4 el resultado de 760 * 60...

H o l a: Te anexo la macro actualizada Sub macro() Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("Lista") Set h2 = Sheets("otra hoja") h2.Cells.ClearContents fila = 4 j = 4 While h1.Cells(fila, 7) <> Empty est =...

H o l a: Prueba con esta opción: Después de esta línea: .Subject = "Ejemplo de Asunto" Pon esta: .SendUsingAccount = Outmail.Session.Accounts.Item(2) Cambia el 2 que está después de Item(2), por el número de cuenta El número de cuenta lo puedes ver...

Antes de poner la macro, debes desproteger todas las celdas. Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor cini = Columns("A").Column 'columna inicial cfin = Columns("Z").Column...

H o l a: En tu ejemplo, también tendría que eliminarse la última "s", ya que aparece 3 veces. Entonces el resultado de esta frase: "pensadores mexicanos" Debería ser: "pensadores mxicano" Te anexo la macro: Sub EliminarLetrasRepetidas() 'Por.Dante...