Respuesta
en
Microsoft Excel
y en 3 temas más
a
Como ocultar filas según criterio
Te anexo la macro Sub ocultar_filas() Cells.Rows.Hidden = False For i = 7 To Range("N" & Rows.Count).End(xlUp).Row If Cells(i, "N").Value = 0 Or Cells(i, "N").Value = "-" Then Rows(i).Hidden = True End If Next MsgBox "Fin" End Sub'.[Sal u dos. Dante...
Respuesta
en
Ingeniería Informática
y en 4 temas más
a
Cuantos países tienen más de 10 investigadores
Suponiendo que el rango de investigadores está en el rango de la celda B2 hasta la celda B7, la fórmula sería: =CONTAR.SI(B2:B7;">10") Cambia B7 por la fila donde se encuentre el último país. '.[Sal u dos. Dante Amor. No olvides valorar la respuesta....
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Aplicar fórmula =IFERROR, a datos copiados de una tabla pivote
Prueba así: =Si.Error(GETPIVOTDATA("Guía",$A$3,"Cumplimiento","No Cumplio")*100,0) Si lo tienes en inglés, entonces: =IfError(GETPIVOTDATA("Guía",$A$3,"Cumplimiento","No Cumplio")*100,0)
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito crear un archivo csv de cada fila de una tabla excel donde se guarden con el nombre de las celdas de la columna F
Te anexo la macro para crear un archivo csv (delimidato por comas), por cada fila de la hoja1 Sub Crear_Csv() 'Por Dante Amor ' ' Crea un csv por cada línea ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Unificar diferentes libros en una sola hoja.
Revisa el siguiente artículo y trata de adaptarlo a tus necesidades https://www.gerencie.com/importar-datos-de-varios-libros-de-excel-en-la-hoja-resumen.html
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro que haga las veces de un filtro avanzado
Pon la siguiente macro en tu botón Sub Macro1() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Ruteo") Set h2 = Sheets("Resumen") If h1.AutoFilterMode Then h1.AutoFilterMode = False If h2.Range("B2").Value = "" Or Not...
Respuesta
en
Microsoft Excel
a
Tengo una hoja de cálculo que tiene muchas columnas y deseo imprimirlas y que cada impresión sea columna por columna.
Te anexo la macro Sub Imprimir_Columnas() 'Por Dante Amor Application.ScreenUpdating = False For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column u = Cells(Rows.Count, i).End(xlUp).Row rango = Range(Cells(1, i), Cells(u, i)).Address...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Enviar correo desde excel cuando se cumpla una condición
Te anexo la macro para enviar por outlook. Nota: la macro funciona considerando los datos tal cual se muestran en tu imagen. Sub Enviar_Correos() 'Por Dante Amor For i = 7 To Range("D" & Rows.Count).End(xlUp).Row fec = Cells(i, "D").Value fec = Date...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Quiero hacer una búsqueda en varias hojas de excel y que me devuelva las filas completas que contengan esa palabra
Te anexo la macro Sub Buscar_En_Varias_Hojas() 'Busca una palabra en varias hojas y copia la fila completa 'Por Dante Amor ' Application.ScreenUpdating = False Set h1 = Sheets("resultado") 'hoja con resultados h1.Select ' fila = 3 h1.Rows(fila & ":"...
Respuesta
en
Ingeniería Informática
y en 3 temas más
a
¿Como seleccionar rango variable en código Visual Basic utilizado en una función de análisis de datos?
Cambia esta línea Application.Run "ATPVBAEN.XLAM!Regress", Range("$AY$4:$AY$43"), _ Range("$AV$4:$AV$43"), False, False, , ActiveSheet.Range("$BL$3" _ ), False, False, False, False, , False Por estas u1 = Range("AY" & Rows.Count).End(xlUp).Row u2 =...