calvuch

Excel no tiene control timer, tendrías que hacerlo vía código... y de todas maneras para que tener un bucle contando segundos si para abrir archivos puedes utilizar el panel de tareas programadas de windows. Que ya hace eso. O sea para que escribir...

Lo puedes arreglar con un macro que recorra los rangos y concatene las cadenas con la cadena ":" Preguntas: ¿El autómata te pasa automáticamente los datos a la hoja excel?... ¿En qué rangos? ( Columna fecha y columna hora y desde que fila comienzan)...

Así como esta el bucle hace bien su trabajo, o sea rellenar si el TextBox1.Text <> Hoja1. Cells(k, 3) Según lo que leo de tu script el text 3 y 4 lo pasas a las columnas 10 y 11 siempre que antes exista el id del usuario, hasta allí bien. El problema...

Te falta un "end if" antes del "next" del bucle

Esta fila estas contando la columna A y debes contar la B, quedando así: iFila = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

Bien. Abre el editor de Visual basic (ALT +F11) Desde la barra de proyecto dale doble click al objeto Hoja9. En la ventana de edición que e abrió pegas esto Private Sub Worksheet_Change(ByVal Target As Range) Dim fila As Integer Dim hojas As Integer...

Si ese script solo "reconoce" contraseña, da igual que usuario sea. Prueba así Private Sub CommandButton1_Click() Contraseña = Usuario.Text & Contraseña.Text If Contraseña = "JUAN26937536" Then MsgBox "BIENVENIDO, Contraseña correcta", vbInformation,...

Sabes según tus datos la fecha fin debe ser el 05-10-2011 y no 21-12-2011 Si tienes 390 horas y 6 horas es cada día, serian 65 días de curso, partiendo el 04-07-2011 descontando todos los sábados y domingos y los festivos de tu lista, debe ser el...

Este es el "problema" Set ws = Worksheets(1) Estas tomando siempre solo la hoja ubicada en la posición ( indice) 1 que por lo general es la Hoja1. Debes hacer dinámico ese indice, si estas tomando la hoja en forma manual Bastaría con indicarlos así....

Inserta un modulo y en este modulo pegas este macro: Sub guarda_txt() Dim n As String n = Replace(ActiveWorkbook.Name, ".xls", ".txt") ActiveWorkbook.SaveAs Filename:="C:\" & n, FileFormat:=xlText, _ CreateBackup:=False End Sub Luego en el evento...