víctor ibarz

Sería algo así: Dim mRange As Range Dim cell As Range Set mRange = Worksheets("Hoja7").Range("A1:C10") Dato = Application.WorksheetFunction.Min(mRange) For Each cell In mRange If cell.Value = Dato Then cell.Interior.Color = RGB(255, 0, 0) cell.Select...

Si te entendí bien sería algo así: Dim wSheet As Worksheet 'fila a partir de la que empezamos a tener datos relevantes de la hoja CONSOLIDADO a = 2 'bucle mientras tengamos valores en la columna X Do While Worksheets("CONSOLIDADO").Range("x" &...

Todo es posible, pero con estas explicaciones tan poco precisas es casi imposible que la solución propuesta se ajuste a lo que solicitas.

Lo puedes resolver sin necesidad de macro, solamente con fórmulas. Suponiendo tu ejemplo sería algo así: Observa que tendrás que modificar la fórmula en cada columna; en la imagen de arriba, para los dias "2" al final de la fórmula sumo "4". Para los...

Sería algo así: Dim Sht As Worksheet Dim i As Long Set Sht = ActiveSheet With Sht.AutoFilter For i = 1 To .Filters.Count If .Filters(i).On Then MsgBox .Range(1, i).Column End If Next i End With

Sería algo así: a = 5 Do While Range("a" & a).Value <> "" p = Range("r" & a).Value If p > 1 Then For b = 1 To p - 1 Range("a" & a & ":s" & a).Copy Range("a" & a).EntireRow.Select Range("a" & a).EntireRow.Insert Shift:=xlDown Range("a" &...

Algo así: a = 2 b = 2 Do While Range("a" & a).Value <> "" c = Range("c" & a).Value cod = Range("a" & a).Value pro = Range("b" & a).Value For d = 1 To c Range("e" & b).Value = cod Range("f" & b).Value = pro b = b + 1 Next a = a + 1 Loop

Para cambiar el nombre de una hoja utiliza la propiedad "name" del objeto worksheet. Simplemente iguala al valor de la celda que quieras: ThisWorkbook.Worksheets(2).Name = ThisWorkbook.Worksheets(1).Range("a1").Value Aquí estamos renombrando la...

Puedes crear una columna a parte y formular de este modo: (Suponiendo que tu columna auxiliar sea la "AF" y tu primera fila sea de encabezados: ... en "AF2" esto: =E2 ...en "AF3" esto: =F2+0,0000000001 Entonces selecciona "AF2:AF3" y arrastras hasta...

Puedes utilizar las fórmulas "contara" que cuenta las celdas ocupadas de un rango y la fórmula "contar.blanco", que cuenta las celdas en blanco de un rango..