Dante Amor

Declara la variable como constante: Public Const var1 = "hola" ' Sub ejemplo1() MsgBox "el valor de la constante es: " & var1 End Sub ' Sub ejemplo2() MsgBox "el valor de la constante es: " & var1 End Sub Saludos.Dante Amor Si es lo que necesitas.

Con lo siguiente agregas el contenido del textbox1 (por ejemplo), en la posición 0, eso significa que lo va a agregar al principio y los datos ya agregados los desplazará hacia abajo. Camiba textbox1 por el dato que vayas a agregar. ListBox1. AddItem...

Con el siguiente código crear un textbox y lo pone debajo del label1. Private Sub CommandButton1_Click() izq = Label1.Left alt = Label1.Top + Label1.Height + 10 Set txtB1 = Controls.Add("Forms.TextBox.1") With txtB1 .Height = 20 .Width = 50 .Left =...

Pon una fecha en la celda "B2" que corresponda al mes "X", cambia el formato de la celda para que solamente se vea solamente el mes y el año, por ejemplo, yo puse la fecha 01/03/2015 (uno de marzo de 2015), pero en el formato solamente se ve el mes y...

Si el número que vas a buscar lo estás obteniendo de un textbox o de un combobox, entonces tienes que convertirlo a valor, porque en el textbox o en el combobox se ha almacenado como texto. Utiliza lo siguiente por ejemplo res =...

No pusiste en dónde lo quieres, ¿en una lista de celdas o siempre la misma celda? En una misma celda: Sub Consecutivo() 'Por.Dante Amor Set celda = Range("A5") num = Replace(celda.Value, "A", "") num = Val(num) + 1 celda.Value = "A" & Format(num,...

Te confirmo la recepción del archivo, lo reviso y te envío la respuesta

Te confirmo la recepción del archivo, lo reviso y te pongo la respuesta.

No existe una regla general para los nombres, existen personas que tienen más de 5 palabras en su nombre, por ejemplo: María de los Angeles del Pilar de los Santos García y Navarrete Hay apellidos compuestos, hay apellidos con las palabras "de" o "y"...

Con lo siguiente puedes ocultar los archivos Sub PonerOculto() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" arch = "hola.txt" With CreateObject("scripting.filesystemobject") If Dir(ruta & arch) <> "" Then With .GetFile(ruta & arch) .Attributes =...