Sebas Torres

La respuesta a este pregunta es la misma que te publique en esta otra Macro para modificar un valor de una hoja desde otra Osea son la misma pregunta =/

Para ocultar el archivo al inicio es Application.ScreenUpdating = False Application.Visible = False UserForm5.Show Application.ScreenUpdating = True Pero puede que en ocasiones te tiré un pantallazo por la seguridad contra las macros de excel quizás...

Sub CambioPrecio() 'Evito movimientos en la pantalla Application.ScreenUpdating = False 'Dimensiono variables Dim h1, h2 As Worksheet Dim origen, buscar As Range Dim c As Object On Error Resume Next Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2")...

Haber si te sirve esta macro Sub Busqueda_Con_ConsultaV() ' ' Aplica para el rango "F25:L25" ' Application.ScreenUpdating = False Set Rng = Range("F25") Rng.FormulaLocal = "=CONSULTAV($K$7;COMPRAS_LISTA!$J:$R;3;FALSO)" Rng.Offset(0, 1).Select...

Haber si te sirve esta macro, agrega 3 veces y deja un espacio como en tu imagen Sub CopiarRango() 'Indicar las hojas de origen y destino Set wsOrigen = Sheets("Hoja1") Set wsDestino = Sheets("Hoja2") 'Indicar la celda de origen y destino Set...

¿Buenas Carlos Reyes como estas? Te refieres a que si el primer validador no esta vacío, ¿qué el segundo lo borre? Haber si te sirve esto: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng, rng2 As Range Set rng = Range("A1") Set...

¿Buenas Yosvanys Guerra Valverde como estas? ¿ ¿Podrías explicarme un poco que es lo que deseas hacer? Para dar una condición mediante VBA con If como dices tu Por ejemplo si una celda (A1)no esta vacía que en la siguiente celda(B1) escriba Hola...

En el formulario principal donde quieres llamarlos tienes que poner los items que llamaran a cada formulario Private Sub UserForm_Initialize() ListBox1. AddItem "Form1" ListBox1. AddItem "Form2" ListBox1. AddItem "Form3" ListBox1. AddItem "Form4"...

Una manera rápida y sencilla para no tocar mucho las macros seria llamarlas desde otra macro =) Sub AmbasMacros() Application.ScreenUpdating = False Call COPIAHOJA Call crearcarpeta2 Exit Sub Application.ScreenUpdating = True End Sub

Te dejo un Link donde te explica bien la función On Error que te permite hacer lo que quieres https://blogs.itpro.es/exceleinfo/2013/11/05/implementar-controlador-de-errores-en-excel-vba/