Jonatan Moretto

Dante Amor respondió: Prueba esto: Sub SeleccionarCelda() Dim f As Range Set f = Sheets("Hoja2").Range("B:B").Find(ActiveCell.Value, , xlValues, xlWhole, , , False) If f Is Nothing Then MsgBox "No encontrado" Else Sheets("Hoja2").Select f.Select End If End Sub

Victor Maldonado Chavez respondió: Te dejo el código que hice: Sub copiar() 'Por Víctor M. Application.ScreenUpdating = False Dim miCelda As Range Range("A1:A10").Select For Each miCelda In Selection If miCelda <> "" And miCelda <> 0 Then Sheets("Hoja2").Select Range("B1").Select Do...

Sebas Torres respondió: ¿Algo así es lo que tu necesitas?

Sebas Torres respondió: 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...

Sebas Torres respondió: 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 =/

Sebas Torres respondió: 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")...

Mario Rodríguez respondió: Da la sensación, Jonatan, que donde has escrito filas quisiste escribir columnas. Para entender mejor tu necesidad, te sugiero que subas en algún servidor gratuito una versión pequeña de tu archivo. Aprovecha para escribir en la segunda hoja que es...

Dante Amor respondió: H o l a: Por código de VBA no se puede seleccionar la bandeja de salida, pero puedes agregar la misma impresora 2 veces, es decir, ya tienes agregada la impresora "HP 1102W" y apunta a la bandeja 1; ahora, agrega nuevamente la impresora "HP 1102W"...

Dante Amor respondió: Te refieres a cambiar el nombre que se muestra en el botón. Si es así, pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C5")) Is Nothing Then If Target.Count > 1...