Excel - Macros, no funciona en otra pc

 
Vista:
sin imagen de perfil

Macros, no funciona en otra pc

Publicado por marcos (2 intervenciones) el 27/07/2021 20:17:47
Hola:
Esta macros funciona bien en mi máquina, PERO NO EN OTRA PC, es para imprimir N hojas en un sólo click, que va cambiando el valor de una celda y cambia las demás con Busca V, con referencia a otras hojas del mismo libro. Ayúdenme por favor

Sub Imprimir_Todo()
' Imprimir Todo Macro
Dim NombreArchivo, RutaArchivo As String, ndeorden As Integer
ndeorden = 1
Range("G10:I10").Select
ActiveCell.FormulaR1C1 = ndeorden
Do While Range("C11").Value > 2
Range("G10:I10").Select
ActiveCell.FormulaR1C1 = ndeorden
Sheets("MIS BOLETAS").Select Range("C9").Select
NombreArchivo = Range("C9").Value
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ndeorden = ndeorden + 1
Loop
MsgBox "Revise su(s) Archivo(s) PDF en la ubicación de su Archivo: REGISTRO AUXILIAR BOLETA", vbOKOnly, "Estimado Profesor(a)"
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macros, no funciona en otra pc

Publicado por Antoni Masana (1888 intervenciones) el 02/08/2021 17:01:53
Falta ver el libro para ver que hace la macro.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar