Dante Amor

H o l a : Te anexo la macro actualizada. Lo que hace es cambiar los vacíos por ceros, ordena y después cambiar los ceros por vacíos. Cambia en la macro en esta línea u = 3, el número 3 por la última fila con números que quieras ordenar, o bien, si...

Te anexo la macro actualizada para el hipervínculo Sub CopiarPlantilla() 'Por.Dante Amor Set h1 = Sheets("PRESUPUESTO FINAL") Set h2 = Sheets("PLANTILLAMADERA1") Set r = h1.Columns("B") Set b = r.Find("Partida", lookat:=xlWhole) If Not b Is Nothing...

Te anexo la macro Private Sub CommandButton2_Click() 'Por.Dante Amor ListBox1.Clear If TxtMonto = "" Or Not IsNumeric(TxtMonto) Or _ TxtMeses = "" Or Not IsNumeric(TxtMeses) Then Exit Sub End If cuota = TxtMonto / TxtMeses fec = Date For i = 1 To...

H o l a : No entendí un par de cosas. 1. En todos los ejemplos de la hoja1, en la col2, pusiste el número 2, pero en la hoja2 ya no lo pusiste. ¿Se tiene que eliminar siempre el segundo registro? 2. En el primer ejemplo en la col3 tienes los datos:...

Pusiste el evento WorkSheet_Activate y debe ser UserForm_Activate. En el case estás poniendo Case indicador = "Cordialidad en el servicio" y debe ser Case "Cordialidad en el servicio" Te anexo el código actualizado Private Sub...

Te anexo la macro Sub CopiarRangos() 'Por.Dante Amor 'copia rangos de hojas de libros en un libro Application.ScreenUpdating = False Set l1 = ThisWorkbook 'l1.Sheets.Add Set h1 = l1.Sheets("Hoja1") ' rutaini = l1.Path & "\" 'rutaini = "C:\trabajo" On...

H o l a : Envíame tu archivo con el formulario y me explicas con un ejemplo con imágenes y colores qué requieres. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Virginia Monico” y el título de esta pregunta.

Ejecuta la siguiente macro Sub quitarfiltro() On Error Resume Next ActiveSheet.ShowAllData End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Te anexo el código Private Sub CommandButton2_Click() If ListBox1.ListIndex = -1 Then MsgBox "Selecciona un registro del listbox" Exit Sub End If For Each h In Sheets If h.Visible = -1 Then h.Range("G4").Value = ListBox1.List() End If Next Unload Me...

H o l a : Dices: "si el código ya fue ingresado que solo me modifique la cantidad del textbox2". ¿Quieres modificar la cantidad que tienes en la hoja con la cantidad que pusiste en el texbox? Y si el código a buscar no existe, ¿qué se debe hacer?