Cómo escribir operaciones de adición de datos durante un período determinado entre días en VBA
'Probado en EXCEL 2007'
Privado?Sub?CommandButton1_Click() LASTROW?=?Sheets("Data").Range("A65536").End(xlUp).Row For?I?= ? 2?A?LASTROW
¿Hora? =?Hora(Celdas(I,?1))?&?" :"?&?Minuto(Celdas(I,?1))
If?Sheets("Data").TextBox1?=?Then
A?=?I?'Obtener el número de línea de la línea inicial'
¿Salir? /p>
¿Fin?Si es siguiente para?I?=?2?A?LASTROW
¿Hora? =?Hora(Celdas(I,?1))?&?": "?& ?Minute(Cells(I,?1))
If?Sheets("Data").TextBox2?=?Then
B?=?I?' de la línea de parada'
¿Fin?Si es siguiente
'?MsgBox?"Número de línea inicial:"? Número de línea de parada: "?&?B
For?I?=?A?To?B
S?=?S? ?Sheets("Data").Cells ( I,?3)
Siguiente
TextBox3?=?S
Fin?