José Saúl Méndez Alonso

Te dejo este código espero te sea de utilidad Sub ImprimeCopias() Dim nBultos As Integer If Not IsNumeric(Range("C2").Value) Then MsgBox "El contenido de la celda C2 debe ser un Número" Else If Range("C2").Value = 0 Then Exit Sub For nBultos = 1 To...

Por que no intentas copiar el contenido del CD a tu PC y desde ahí intentas abrir tus archivos, también intenta limpiar la superficie del CD para eliminar rayones.

Te dejo esta liga te puede servir http://www.programatium.com/manuales/excel/3.htm

¿Esas referencias son siempre las mismas o cambian?

Si entiendo tu pregunta te refieres a que tu hoja de cálculo sólo tiene los datos NO el formato para la impresión, ¿es correcto? Si es así entonces te convendría pasar los datos a imprimir a otra hoja que si tenga el formato de tu factura y puedes...

Mejor utiliza un ciclo Do WHile Loop Ejemplo Do While Range("A1").Value <> 0 Range("A1").Value = Range("A1").Value + 0.1 If Range("A1").Value >= 50 Then Exit Do End If Loop

Aquí va el código Sub BuscarHoja() On Error GoTo Err_BuscarHoja Dim sHoja As Worksheet Dim sNombre As String Dim SeEncontro As Boolean OtraBusqueda: SeEncontro = False sNombre = InputBox("Escribe el nombre de la Hoja a buscar", "Búsqueda") If...

Te dejo este código a ver si te funciona Private Sub Commandbutton1_Click() Togglebutton1.value = not Togglebutton1.value Pausa 2 'Aquí va la pausa del tiempo que necesites esta en segundos Commandbutton1_Click end sub() Sub Pausa(nSec As Single) Dim...

Te dejo este código a ver si te sirve Sub Macro1() Dim ExcelApp As Object Dim nParrafo As Integer Dim sParrafo As Paragraph Dim sRutaExcel As String Dim sCelda As String sRutaExcel = "C:\MiExcel.xls" Set ExcelApp = CreateObject("Excel.Application")...

SI es posible hacer lo que necesitas, pero si te parece mejor porque no me envías a mi correo lo que realmente necesitas que un sistema haga por ti y te ayudo a diseñarlo mi correo es [email protected]