Gra Mendiburo

Dante Amor respondió: La macro para el progressbar Private Sub UserForm_Activate() 'Referencia: http://support.microsoft.com/kb/211736/es 'Mod.Por.DAM LProgress.Width = 0 principal End Sub Sub principal() 'Por.DAM Application.ScreenUpdating = False Set h1 =...

Dante Amor respondió: Revisé tu archivo. El userform que tiene una barra "En progreso", se utiliza cuando tienes un proceso sobre los registros y vas leyendo registro por registro. En tu caso la macro que tienes no lo hace registro por registro, más bien tienes varios...

Dante Amor respondió: H o l a: Te presento 3 formas de ver un ProgressBar El primero, es con la instrucción: Application. StatusBar, el texto te aparece en la parte inferior izquierda de excel, el código para ponerlo: Application.StatusBar = "Procesando registro " & reg &...

Eduard Caballero respondió: Acá tienes Private Sub Workbook_Open() Sheets(1).Select If Range("A1") < Range("A2") Then ActiveSheet.Shapes.Range(Array("Autoforma1")).Select With Selection.ShapeRange.Fill .ForeColor.RGB = RGB(255, 0, 0) End With End If End Sub Recuerda que debes...

angelcrisnor respondió: Puedes hacerlo apoyándote en columnas auxiliares, p.ej., creándote junto a las otras dos columnas una columna C nueva cuyo valor sea una celda vacía o la fecha según si el nombre es o no el del alumno que buscas: Ejemplo para C1: =...

paramisolo respondió: Para hacer eso pones en VBA en Auto_Open esta macro: Sub Auto_Open() On Error Resume Next For i = 1 To 10 Application.CommandBars("Worksheet Menu Bar").Controls(1).Delete Next i End Sub Y ahora para volver a mostrarlas por si abres otro libro en el...

Dante Amor respondió: Envíame tu archivo para adaptar el código para llenar el listbox y me dices cuáles columnas quieres que se muestren en el listbox Mi correo [email protected] No olvides poner en el asunto del correo tu usuario y la pregunta. Saludos. Dante Amor

Dante Amor respondió: Te anexo la macro para que la pongas en tu botón. Te crea un libro nuevo y te pasa toda la información del listbox1 al nuevo libro. Private Sub CommandButton1_Click() 'Por.Dante Amor Set l2 = Workbooks.Add Set h2 = l2.Sheets(1) c =...

Dante Amor respondió: Instrucciones para poner la macro en ThisWorkbook 1. Abre tu libro de excel 2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11 3. Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook 4. Del lado derecho copia la...

Dante Amor respondió: Puedes poner lo siguiente, Instrucciones para poner la macro en ThisWorkbook 1. Abre tu libro de excel 2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11 3. Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook...

Dante Amor respondió: Listo, te anexo el código para pasar los datos capturados al listbox Private Sub CommandButton1_Click() 'Por.Dante Amor Set h2 = Sheets("temp") u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u, "A") = TextBox1 h2.Cells(u, "B") = TextBox2...

Dante Amor respondió: Te anexo la macro actualizada. Private Sub CommandButton1_Click() 'Act.Por.Dante Amor Me.ListBox1.Clear ' For Each celda In Hoja1.Range("C2:C" & Hoja1.Range("C" & Rows.Count).End(xlUp).Row) If celda >= DTPicker1 And celda <= DTPicker2 Then...

Dante Amor respondió: Pon el siguiente código en tu formulario, te va a cargar las columnas (C, D, E y F) en el formulario. En el formulario puse esta instrucción para el número de columnas: ListBox1.ColumnCount = 4. Cambia "Hoja1" por el nombre de la hoja donde tienes...

Dante Amor respondió: Con el siguiente código cargas las Movilidades únicas Private Sub UserForm_Activate() 'por.Dante Amor Set h1 = Sheets("PlantillaFija") For i = 2 To h1.Range("P" & Rows.Count).End(xlUp).Row agregar cmbMovilidad, Cells(i, "P") Next End Sub Sub...

Programar Excel respondió: http://www.programarexcel.com/2014/12/combobox-depende-otro-combobox-carga.html Mira esos tres ejemplos que te ayudarán a lo que requiere hacer

jerryeagle respondió: ¿Cuál es el código que sí te funciona?