Red de conocimiento informático - Problemas con los teléfonos móviles - Ayuda de programación VBA, espera a Dios en línea ~

Ayuda de programación VBA, espera a Dios en línea ~

Sub QBDY()

Dim j As Integer

Hojas de trabajo("Imprimir factura").Seleccione

Contar = Hojas de trabajo("Información de la persona").[A65536 ].End(xlUp).Row

Para j = 2 para contar

Utilice la hoja de trabajo ("Información del personal")

Celdas (2, 4) = .Cells(j, 2) & .Cells(j, 1)

Terminar con

ActiveWindow.SelectedSheets.PrintOut Copias:=1

Siguiente< / p>

Fin del subtítulo