calvuch

Debes pegar la selección de tus datos con la forma pegado especial solo texto: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Inserta estas lineas en reemplazo...

En J12 debes poner esta fórmula =CONTAR.SI(D12:D65536;"O") Cuanta cuantas O (Olvidos) hay en el rango D12:D65536 Bye

¿Cuándo dices base de datos te refieres a una hoja de Excel? ¿O una base externa? Quieres aplicar filtro a esos datos dependiendo de casillas de verificación, ¿pero cuantros ctriterios son?, dependiendo de cuantos criterios, tendrás que poner una...

Existe una forma sencilla si es que no importa el orden de los datos, es decir por ejemplo, ¿podría disponer libremente de el orden secuencial de la columna A? Ordenarlos de menor a mayor o viceversa o necesitas mantener el orden 567 - 678 - 543...

Según tu modelo ( la disposición que deduzco tienes en la hoja) Debes poner los CheckBox en la fila 2 celdas A hasta la E en fila 3 bajo cada Casilla pones el valor 0,6 0,9 etc en Fila 3 Columna F te dará la suma prueba este script ( debes pegarlo en...

Prueba esto: Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Dim c As String c = Target.Address c = Mid(c, 2, 1) If Target.Address = "$A:$A" Then Exit Sub If c = "A" Then i = Selection.Row - 1 If Target.Address = "$A$" & i Then...

Lo que pasa es que al declara la matriz ya la dimensionaste y solo admite un integer te sugiero declararla sin dimensiones y luego redimensionarla utilizando la variable Sub Tomadedatos(ByVal fi, ByVal ci, tamresp) Dim tampresp As Integer Dim...

Private Sub Worksheet Dim col1 As String Select Case Selection.Column Case Is = 5 col1 = "E:E" Case Is = 8 col1 = "H:H" Case Is < 5 Exit Sub Case Is > 8 Exit Sub End Select If Not Application.Intersect(Target, Columns(col1)) Is Nothing Then If...

En este mismo sitio andaba por allí un código que insertaba un cronometro en (tiempo de diseño) Debes pegarlo en un modulo: 'CRONOMETRO Sub IniciaCronometro() InicialTime = Now Cronometro End Sub Sub DetieneCronometro() Application.OnTime EarlTime,...

Prueba esto en el evento change de la hoja en donde deseas que se aplique Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Dim c As String c = Target.Address c = Mid(c, 2, 1) If Target.Address = "$A:$A" Then Exit Sub If c = "A" Then...