Excel-Visual2
Oye muchas gracias.. Si eso que me dices es para guardar la información pero de autorecuperacion.
Lo del macro te lo agradecería en el alma, lo que necesito es un macro que guarde automáticamente cada minuto lo que esta en el libro de excel puede ser en un archivo con un nombre diferente o el mismo no importa y lo otro que quería saber era que cuando excel guardara ese archivo no lo guarde como formate .xls sino como .txt, oye nene muchas gracias por tan lindas palabras, me achante un poquito jaja y gracias por tu ayuda que es muy importante para mi y gracias también por responder a mi pregunta.
Un abrazo para ti también.
Lo del macro te lo agradecería en el alma, lo que necesito es un macro que guarde automáticamente cada minuto lo que esta en el libro de excel puede ser en un archivo con un nombre diferente o el mismo no importa y lo otro que quería saber era que cuando excel guardara ese archivo no lo guarde como formate .xls sino como .txt, oye nene muchas gracias por tan lindas palabras, me achante un poquito jaja y gracias por tu ayuda que es muy importante para mi y gracias también por responder a mi pregunta.
Un abrazo para ti también.
1 respuesta
Respuesta de patanrisitas
1
Dianita bella (Gatitadita).
Fíjate, haz lo siguiente:
- Primero haz una prueba con un archivo nuevo que vas a llamar Autoguardar.xls
- Te ubicas en B2 y escribe 00:00:59 y pulsas ENTER
- Te ubicas en C2 y escribes =segundo(b2) y pulsas ENTER
luego hacemos estos pasos:
1.- Pulsa ALT+F11 (Te aparece Visual Basic)
2.- Menu Insertar MODULO y allí copias el siguiente código completico:
Dim tiempo As Date
Sub crono()
tiempo = Now + TimeValue("00:00:01")
Application.OnTime tiempo, "calcular"
End Sub
Sub calcular()
Range("b2").Value = Range("b2").Value + 1.15740740740805E-05
'If Range("b2").Value <= 0 Then
'Range("b2") = "00:00:59"
'End If
Call crono
End Sub
3.- Luego haces doble click en ThisWorkbook que está en la parte izquierda y copias el siguiente código:
Private Sub Workbook_Open()
Range("B2").Select
Selection.Value = "00:00:59"
crono
End Sub
4.- Finalmente haces doble click en hoja1(hoja1) que está también en la parte izquierda pero un poquito más arriba y copias este código completico:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("c2") = 58 Then
Range("B2").Select
Selection.Value = "00:00:59"
On Error Resume Next
'Ocultamos el procedimiento
Application.ScreenUpdating = False
'copiamos la hoja activa en un nuevo libro
ActiveSheet.Copy
'copiamos y pegamos los valores
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
'Nos quedamos con el nombre del
'Archivo y la ruta donde está
Archivo = ThisWorkbook.Name
ruta = ThisWorkbook.Path
'Quitamos la extenxión de excel
Archivo = Replace(Archivo, ".xlsx", "")
Archivo = Replace(Archivo, ".xls", "")
'seleccionamos la hoja activa
ActiveSheet.Select
'omitimos los mensajes de aviso
Application.DisplayAlerts = False
'guardamos el Archivo de texto acomodado
'en el mismo directorio donde tenemos el
'Archivo de excel normal
ActiveWorkbook.SaveAs Filename:=ruta & "\" & Archivo & ".txt", FileFormat:=xlText
'cerramos el Archivo de texto
ActiveWorkbook.Close
'Mostramos el procedimiento
Application.ScreenUpdating = True
Range("b2").Select
Selection.Value = "00:00:59"
End If
End Sub
5.- Cierras Visual basic y haz algún cambio en excel, luego espera un minuto y revisa el directorio donde guardas tu archivo. Allí vas a buscar un TXT con el mismo nombre y lo revisas!
6.- Me mandas una fotico tuya y los dos somos felices!
Muack!
RCh
Fíjate, haz lo siguiente:
- Primero haz una prueba con un archivo nuevo que vas a llamar Autoguardar.xls
- Te ubicas en B2 y escribe 00:00:59 y pulsas ENTER
- Te ubicas en C2 y escribes =segundo(b2) y pulsas ENTER
luego hacemos estos pasos:
1.- Pulsa ALT+F11 (Te aparece Visual Basic)
2.- Menu Insertar MODULO y allí copias el siguiente código completico:
Dim tiempo As Date
Sub crono()
tiempo = Now + TimeValue("00:00:01")
Application.OnTime tiempo, "calcular"
End Sub
Sub calcular()
Range("b2").Value = Range("b2").Value + 1.15740740740805E-05
'If Range("b2").Value <= 0 Then
'Range("b2") = "00:00:59"
'End If
Call crono
End Sub
3.- Luego haces doble click en ThisWorkbook que está en la parte izquierda y copias el siguiente código:
Private Sub Workbook_Open()
Range("B2").Select
Selection.Value = "00:00:59"
crono
End Sub
4.- Finalmente haces doble click en hoja1(hoja1) que está también en la parte izquierda pero un poquito más arriba y copias este código completico:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("c2") = 58 Then
Range("B2").Select
Selection.Value = "00:00:59"
On Error Resume Next
'Ocultamos el procedimiento
Application.ScreenUpdating = False
'copiamos la hoja activa en un nuevo libro
ActiveSheet.Copy
'copiamos y pegamos los valores
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
'Nos quedamos con el nombre del
'Archivo y la ruta donde está
Archivo = ThisWorkbook.Name
ruta = ThisWorkbook.Path
'Quitamos la extenxión de excel
Archivo = Replace(Archivo, ".xlsx", "")
Archivo = Replace(Archivo, ".xls", "")
'seleccionamos la hoja activa
ActiveSheet.Select
'omitimos los mensajes de aviso
Application.DisplayAlerts = False
'guardamos el Archivo de texto acomodado
'en el mismo directorio donde tenemos el
'Archivo de excel normal
ActiveWorkbook.SaveAs Filename:=ruta & "\" & Archivo & ".txt", FileFormat:=xlText
'cerramos el Archivo de texto
ActiveWorkbook.Close
'Mostramos el procedimiento
Application.ScreenUpdating = True
Range("b2").Select
Selection.Value = "00:00:59"
End If
End Sub
5.- Cierras Visual basic y haz algún cambio en excel, luego espera un minuto y revisa el directorio donde guardas tu archivo. Allí vas a buscar un TXT con el mismo nombre y lo revisas!
6.- Me mandas una fotico tuya y los dos somos felices!
Muack!
RCh
OYE MCUAHS GRACIAS, ERES UN DURO CON ESTO DE LA PROGRAMACIÓN, te ganaste un besito :D MUAK, lastima que solo existan 5 estrellas, yo te colocaría 10 :D (K) gracias bonito
