Richard Alejandro Villarroel Gonzalez

Dale formato Tipo Texto. Así: Botón derecho en las Celdas de la cuenta de banco. Clic en Formato de Celdas...Ficha Número.Categoría: Elige: Texto

Puedes Usar este código: Sub BuscarDato() Dim x As String Dim Found As Boolean ' Establecer un valor de búsqueda variable. x = "test" ' Establecer la variable booleana "found" en False. Found = False For Filas = 1 To 53 ' For Columnas = 6 To 58 If...

Existen varias formas, pero la más rápida y sin macros es usar el asistente para convertir texto en columnas que está en la ficha Datos en el panel Herramientas de Datos, función Texto en columnas, te muestro: Dividir nombres con el Asistente para...

Puedes ocultar la carpetas desde el explorador haciendo: Clic derecho; luegoPropiedadesEn la ficha General. Activa la casilla OcultoEn la ficha Seguridad: En el botón Editar para cambiar los permisos de control de la carpeta como: Mostrar contenido...

Ok. Mira para activar un evento basado en el tiempo se usa un método del objeto Application llamado OnTimer. Ejemplo: Sub ConfigurarTiempo() Dim strAlarm As String ' Variable que captura el tiempo para ejecutar strAlarm = InputBox(Prompt:="Tiempo de...

Este código es para una hoja que al escribir en la columna A la palabra "Abrir", con mayúscula empezando, al darle clic a la celdas después de escribirlo se muestra la Hoja2 que estaba oculta. Modifícalo a tu voluntad: Private Sub...

Aquí tienes la solución,. Usando la fórmulas de Excel: =ENCONTRAR("-";A2;1) Esta función extrae la posición del guión dentro del rango de la fecha en A1: La posición es 12. =MED(A2; 1;B2-1) Esta función separa hasta el guion menos 1, la primera fecha...

Aqui tienes la macro: Sub Formato000() VALOR = Format(Range("A1").Value, "000") MsgBox VALOR End Sub No olvides agradecer...

¿Indícanos cómo son las fórmulas para ver si te ayudo?

El código está errado. El FOR le falta el TO. Este código te sirve mejor: Sub Imprimir() primera = "B18" ultima = Range("D18").End(xlUp).Offset(0, 2).Address ActiveSheet.PageSetup.PrintArea = primera & ":" & ultima ActiveSheet.PrintPreview End Sub