zurrapa

Elsa Matilde respondió: Creo que estas tratando de utilizar Resize. La propiedad 'Resize' nos permite adicionar un rango al ya seleccionado. Si no es esto escribime un ejemplo para que lo comprenda mejor. Selection. Resize(10,4). Select ' el rango se amplía a 10 filas, 4...

Elsa Matilde respondió: Con este ejemplo solo tienes que presionar Enter para avanzar Espero te sirva Saludos Elsa Private Sub CommandButton1_Click() On Local Error Resume Next Dim c, sino, PrimCoinc Dim strBuscar As String strBuscar = Trim(InputBox("Que buscas?")) With...

Elsa Matilde respondió: Si encuentra un archivo con ese nombre te aparecerá el mensaje de Excel, ahí podrías resolver si guardarlo o no. Pero si necesitas otro mensaje dentro de la rutina para actuar según él, podes agregar esta función en un módulo: Function...

Elsa Matilde respondió: En el Editor, en el margen izquierdo selecciona el objeto Hoja que coincida con la que tendrá el control y ahí copia esta rutina: Private Sub Worksheet_Change(ByVal Target As Range) If Range("H8").Value > 1 Then Range("B5").Select 'primero se debe...

Elsa Matilde respondió: La rutina que te adjunto la colocarás en un módulo para ser ejecutada desde Herramientas, Macros o por atajo de teclado o podrás asignarla a un botón. Sub comparaCol() ' Macro grabada el 11/05/2005 por Elsamatilde ActiveSheet.Range("G7").Select...

César Mera respondió: Envíame tu correo electrónico para enviarte un archivo con un ejemplo que me inventé a ver si es lo que necesitas. Cordialmente, cmera