jerryeagle

ActiveWorkbook.Sheets("salida").Range("b1").End(xlDown).Offset(1, 0) = txtcodigo ActiveWorkbook.Sheets("salida").Range("c1").End(xlDown).Offset(1, 0) = txtcantidad Cambialo por ActiveWorkbook.Sheets("salida").Range("b1").End(xlDown).Offset(1, 0) =...

¿Y cuál es el error q marca? Porque acabo de probar esa linea tal cual, solo le puse el indice de la hoja 1 en lugar del nombre y funciona bien. Quizá el error sea q no pones el nombre correcto de la hoja

Si estas manejando Fechas, ¿por qué usas variables de tipo Integer? Ademas, pones una variable FECHA pero al asignar valores pones FECHAIMPOR y esa ya es otra variable

Si existiera un código que Activara los "Editores de Confianza" no serviría de nada que hubiera esta protección porque precisamente es para eso, para protegerte de Código Malicioso que se pueda ejecutar al abrir algún archivo Excel.

Yo usaría esta función: Textbox1.Value = FormatNumeric(Textbox1.Value,2) Así, sí te pone los valores como Números y no como texto

Solo pon esta linea después de haber "Pegado" las celdas Application.CutCopyMode = False Es todo

Checa este Código: Dim mM, dD, aA, Libro As String mM = Month(Date) mM = Format(mM, "00") dD = Day(Date) aA = Year(Date) Libro = "MiTemplate " & dD & "-" & mM & "-" & aA ActiveWorkbook.SaveAs Filename:= _ "Tu Ruta" & Libro , FileFormat _ :=xlExcel8,...