yasodhara

Dante Amor respondió: Prueba con lo siguiente: Dim Copia As String ' CREAMOS UNA COPIA DEL ARCHIVO PROGRAMA INFORME SIN FORMULAS NOMBRE1 = "INFORME 2-A No." NOMBRE2 = Hoja6.Range("V3") NOMBRE3 = Hoja6.Range("Y3") Copia = Left(ThisWorkbook.FullName, _...

Enrique Bernal respondió: Esta solución esta en la red, yo la he utilizado y funciona Sub Quitar_PassWord_VBA() Application.SendKeys "%{f11}{l 4}%q", True Workbooks("Libro X").Activate Application.SendKeys "%{f11}^r{down}AquiTuPassWoRd~%q", True End Sub

Dante Amor respondió: Prueba con lo siguiente Private Sub CommandButton1_Click() For i = 1 To 25 Me.Controls("combobox" & i).rowsource = "Hoja1!a1:a20" Next End Sub Saludos. DAM Si es lo que necesitas.

Dante Amor respondió: Pero el control Refedit se utiliza para otra cosa.. Si no caben tus combobox y textbox, cambia la propiedad del userform Scrollbars, selecciona la número 2 Y ScrollHeight escribe un valor de la altura de tu user form Para calcular el valor de la...

Dante Amor respondió: Te anexo la macro con la que puedes seleccionar el archivo desde la ventana Abrir. En la variable archivo tienes el nombre del archivo que acabas de abrir, para que lo puedas utilizar. '***Macro abrir un libro Sub abrirunlibro() 'Por Dam rutayarchivo...

Dante Amor respondió: Con estas instrucciones puedes importar los datos de un excel, específicamente de una celda a tu combobox Private Sub UserForm_Activate() ComboBox1.Value = Workbooks("persona").Worksheets("abc").Range("A1").Value End Sub Saludos. Dam

Dante Amor respondió: Se me ocurre una idea, tal vez en el libro nuevo la hoja6 tenga algun espacio antes o despues del nombre. De cualquier forma, si gustas la puedo revisar, ya en otros otr Os casos me ha pasado lo mismo y se tiene que escribr worksheets("hoja").select....