Dante Amor

H o l a : Prueba con lo siguiente: sht.Range(arrColumns(col) & LastRow + 1).Formula = "=IFERROR((" & arrColumns(col) & fila_arrojar_informacion + 2 & " - " & arrColumns(col) & fila_arrojar_informacion + 1 & ")/" & arrColumns(col) &...

H o l a : Como son varias condiciones, te sugiero que utilices un formulario. Crea un formulario con lo siguiente: Pon el siguiente código en el formulario: Private Sub CommandButton1_Click() 'Por.Dante Amor 'validaciones If TextBox3 = "" Or Not...

Te anexo un ejemplo Sub macro() ' ' 'en esta parte va tu macro ' 'suponiendo que en la variable suma tienes el resultado ' libro = "varios 28oct2016.xlsm" hoja = "Datos" celda = "A5" Workbooks(libro).Sheets(hoja).Range(celda) = suma ' End Sub El...

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...

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...

H o l a: Podrías enviarme tu archivo con las 2 hojas y me explicas con un par de ejemplos lo que se tiene que hacer. Utiliza imágenes, colores y comentarios para explicar los ejemplos. Mi correo [email protected] En el asunto del correo escribe tu...

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 : Y en dónde quieres pegar la información, todos los rangos en la misma hoja, ¿o cada rango en una hoja diferente?