eros65

eros65

 España @eros65 desde - visto

Actividad pública reciente

Ha valorado "Buena" la respuesta

Giuardar plantilla con otro nombre

respondió: De lo que entiendo haces una copia del libro original y por tanto es obvio que te aparezca nuevamente el formulario, de lo que entiendo el formulario está en la hoja "Inicio", por lo que yo incluiría unos códigos luego de guardar con el nuevo nombre...
Ha valorado "Buena" la respuesta

Macro para CheckBox

respondió: Usa CheckBox1_Click para guardar el estado de los checkBox en celdas, luego con UserForm_Activate recuperas el último estado de los checkBox. Private Sub CheckBox1_Click() Sheets("Hoja2").Range("A7").Value = CheckBox1.Value End Sub...
Ha valorado "Excelente" la respuesta

Destacar OptionButton al cargar formulario

respondió: Claro, debes guardar el estado de los OptionButton's en otra parte del libro, incluso puede ser celdas lejanas o en una columna para que no se vean. Entonces cuando le des clic a uno de los OptionButton va a poner su celda a True y las otras 2 a...
Ha valorado "Buena" la respuesta

Descargar datos de un formulario a varias hojas

respondió: Carga los valores al activar el formulario... Private Sub UserForm_Activate() TextBox1.Text = Sheets("Hoja2").Range("A5").Value TextBox2.Text = Sheets("Hoja3").Range("A4").Value TextBox3.Text = Sheets("Hoja4").Range("A1").Value End Sub Y luego si los...
Ha valorado "Buena" la respuesta

Vincular un ListBox a un ComboBox

respondió: No hay problema, con esta macro cargas el comboBox Private Sub UserForm_Initialize() For i = 1 To 25 ComboBox1.AddItem Sheets("Hoja1").Range("A" & i).Value Next i End Sub Y con esta lo vinculas al listBox Private Sub ComboBox1_Click() j =...
Ha valorado "Buena" la respuesta

Dar formato condicional a un textbox

respondió: Pega este en el código del textbox1 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) a = Mid(TextBox1, 1, 1) b = "." c = Mid(TextBox1, 2, 3) d = Mid(TextBox1, 5, 3) e = "-" f = Mid(TextBox1, 8, 1) TextBox1.Value = a & b & c & b & d &...
Ha valorado "Excelente" la respuesta

Resaltar celdas

respondió: Esta pregunta ya la habían hecho, igual espero ayudarte... La solución fue algo parecido a esta macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Protect userinterfaceonly:=True Static Fila_Ant As Integer On Error Resume...
Ha valorado "Excelente" la respuesta

Volver a vista anterior con macro en excel

respondió: Lo que puedes hacer es en una hoja determinada que en las columna a, te valla guardando los nombres de las hojas... Es decir Cuando tu actuivas una hoja. Que se te guarde en esa hoja el nombre de la hoja---y cuando tu presiones el botón regresar a...