donnyal

Elsa Matilde respondió: Te dejo un ejemplo para lo que necesitas. La rutina se ejecuta al clic de un botón de Aceptar, por ej: Private Sub CommandButton_Click() dato = textbox1.value 'ver* Set busco =Range("A2:A10000").Find(dato, LookIn:=xlvalues, LookAt:= xlwhole) if not...

Anónimo respondió: Range("a65536").End(xlUp).Offset(1,0).Select Range("a65536") te posiciona en la ultima linea de la columna a End(xkUp) Te sube hasta la primera linea con datos de abajo hacia arriba Offset(1,0).select Te selecciona una celda hacia abajo de la que...

Abraham Valencia respondió: Para cerrar todo el Excel prueba: Application. Quit Abraham

asaroma respondió: Pra activar el buscador de windows, copia este código en un modulo: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const KEYEVENTF_KEYUP = &H2 Const VK_LWIN =...

asaroma respondió: Prueba esta macro: Sub AbrirCarpeta() Dim carpeta As String carpeta = "C:\GUIA OFFICE" Call Shell("explorer.exe " & carpeta, vbNormalFocus) End Sub

asaroma respondió: Lo que podrías hacer es agregar al nombre la hora en que esta siendo guardado, algo así: tim = Format$(Time, "hh-mm-ss") La variable tim almacenara la hora con sus minutos y sus segundos, por ejemplo si estas y guardas a en la mañana: 09-10-23 si...