calvuch

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...

Pfff. Para eso deberías estar recorriendo cada fila a intervalo de 1 segundo si tu formato es : dd-mm-aa hh:mm:ss Atendiendo a la cantidad de registros, eso se vuelve un lio

Mmm.. hablas de dos cosas Filtrar y eliminar... ambas cosas lo puedes hacer con opción de autofiltros, seleccionas el código que deseas y en la columna valores, seleccionas el o los valores que deseas eliminar, una vez aplicado el filtro, seleccionas...

Prueba esto, debe ir en el evento change de la hoja Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim n As Integer Dim llt As String If Target.Address = "$A$1" Then [IV1] = "=COUNTA(RC[-254]:RC[-1])" Range("B1").Select If...

Lo único que tengo es para validar el nombre de la maquina. por ejemplo si tienes un form ponle esto en el evento load MAQUINA = ComputerName If MAQUINA <> "CFD12545" Then End Si la el nombre de la maquina es <> "de lo que sea" entonces end antes que...

Prueba esto: Sub elim() Dim i As Long [IV1] = "=COUNTA(R[1]C[-254]:R[65534]C[-254])" If Range("IV1").Value = 0 Then Exit Sub For i = 2 To [IV1] If Trim(Range("B" & i).Text) = "02020U00" Or Trim(Range("C" & i).Text) = "702" Then Rows(i & ":" &...

Los datos de la celda se ajustan para adaptarse al ancho de la columna" Si tiene más dudas de ese tipo presione F1