Eduard Caballero

Deberías usar entonces TextBox1.Value = ActiveCell Allí el texbox te toma el valor de la celda activa.

Probaste con sumar. Si. ¿Conjunto?

Puedes usar esta función. Function valorcolor(x) c = x.Interior.ColorIndex Select Case c Case 5 valorcolor = 1 Case 6 valorcolor = 2 Case 3 valorcolor = 3 Case 50 valorcolor = 4 End Select End Function Tomado de...

¿Haz probado deshabilitar la actualización de la pantalla? Application.ScreenUpdating = False (Esto antes de iniciar todo el proceso) Application.ScreenUpdating = True (Esto al finalizar todo el proceso)

Puedes probar lo siguiente. Código modificado de información en la web: 1. Utilizar Application. CopyObjectsWithCells = False que no copia los objetos de la hoja 2.- Probar borrando los botones luego de copiados Sheets(1).select n =...

Voy a suponer que copias el Rango D11:D13 y lo vas a pegar en la columna H Sub copia() Range("D11:D13").Copy fin = [H65000].End(xlUp).Row + 1 Range("h" & fin).PasteSpecial xlPasteAll Application.CutCopyMode = False End Sub

Prueba con esto Sub pinta() For i = 2 To Range("B1000").End(xlUp).Row If Cells(i, 2) = 100 Then Cells(i, 2).Select With Selection.Interior .Color = 12611584 End With End If Next i End Sub Se supone que los datos estan en la Columna A (Alumnos)...

Creo conveniente que definas bien "duración". En tu ejemplo 0:30 + 03:00 = 03:30 eso se interpreta como horas no son duraciones, 03:30 son las tres treinta de la mañana si esta en formato 24 horas. Te sugiero revisar bien los formatos que estas usando.

Por lo que pude ver en la web se tiene limitaciones para un picturebox El archivo de imagen, Debe ser obligatoriamente un gráfico gif, jpg, bmp, ico, cur . No asi otros formatos, como por ejemplo el PNG, o Tiff. ( Aunque se puede leer estos formatos,...

Copia este código en un botón Private Sub CommandButton1_Click() uf = Range("F1000000").End(xlUp).Row If Range("F" & uf) = "" Then Range("F" & uf) = Range("A1") Range("G" & uf) = Range("B1") Else Range("F" & uf + 1) = Range("A1") Range("G" & uf + 1)...