Luis López

Julián González Cabarcos respondió: Permíteme un consejo, olvídate de los campos calculados en las tablas. Jamás le he visto utilidad ninguna. Es como si te vendo un coche con un navegador sólo con las carreteras del Himalaya. ¿Cuándo vas a usarlo?. Deja las tablas como un simple...

Dante Amor respondió: Te anexo la macro Sub Copiar_Rango_Seleccionado() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' Set r1 = h1.Range(Selection.Address) If r1.Cells(1, 1).Column = 1 Then MsgBox "No se puede seleccionar una columna a la izquierda"...

Dante Amor respondió: El texto "enero" no corresponde a una fecha, es por eso que no le puedes dar formato de fecha: Format(strmes, "mm") Primero hay que convertir "enero" a una fecha, y después obtener el mes en número: ' strmes = "enero" fecha = CDate("01/" & strmes &...

Dante Amor respondió: Podemos agregar el frame como parámetro Opcional en la función: Public Function lanzarcalendario(cualquierformulario As Object, xtextbox As String, Optional xframe As Object) Entonces en la función tomaríamos ese parámetro para encontrar las...

Dante Amor respondió: H o la : Te anexo el código, para cargar los meses y los días de cada mes. Private Sub ComboBox1_Change() 'Por.Dante Amor ComboBox3.Clear If ComboBox1.ListIndex = -1 Or ComboBox1 = "" Then Exit Sub mes = ComboBox1.ListIndex + 1 ultdia =...

Adriel Ortiz Mangia respondió: H o l a Te paso la macro Private Sub CommandButton1_Click() Range("A1") = CDate(TextBox1 & "-" & ComboBox1) End Sub cambia los nombres de los controles por lo que estas utilizando. Valora mi contribución por Excelente o bueno saludos!

Dante Amor respondió: H o l a: Pon el siguiente código en formulario1, en el botón Editar: Private Sub CommandButton1_Click() 'Por.Dante Amor 'Ocultar el userform1 UserForm1.Hide 'Mostrar el userform2 UserForm2.Show 'Mostrar nuevamente el userform1 UserForm1.Show End Sub...