Respuesta
en
Visual Basic
a
Macro para Contar.si, si tiene dos condiciones mismo rango
Una opción sería con utilizar este código: Sub copia() cond1 = Application.WorksheetFunction.CountIfs(Range("rangoestatus"), "corriendo") cond2 = Application.WorksheetFunction.CountIfs(Range("rangoestatus"), "caminado") proceso = cond1 + cond2 End Sub
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Excel avanzado, colocar marca e celda con el mouse
Pega esta macro en el objeto hoja que contiene tu listado: Private Sub workSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("B1:C500")) Is Nothing Then Exit Sub Target = 1 End Sub Suponiendo que la columnas...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
VBA para eliminar filas vacías
Para eliminar filas vacías utiliza este código: Sub elimina_filas_vacías() Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Cells(i, "A") = "" Then Rows(i).Delete Next Application.ScreenUpdating = False...