Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Duda con codigo de Impresion

publicado

Saludos, tengo un confusión con una macro que necesito que me imprima de acuerdo a un rango seleccionado y esta me imprime solo una hoja. 

El resultado que busco es que en la Hoja "Recibo de sueldo", tengo una formula de Buscarv, que esta asociada a la Columna AR3, lo que deseo es imprimir de una vez una serie de Recibos colocandolos en la Columna AR, que al imprimir AR3, baje de celda AR4 y así sucesivamente hasta el ultimo dato que le coloque.

Cuando le doy para la impresión solo me imprime unicamente lo que esta en AR3 varias vecces.

 

Tengo este código pero no encuentro mi error

Sub imprimir()
Dim C As Range
If [ar3] = "" Then Exit Sub
For Each C In Range([ar3], [ar100].End(xlUp))
  [at3] = C.Value
  ActiveSheet.PrintOut Copies:=1
Next C
End Sub

04 Nomina Abril.xlsm

Featured Replies

publicado
  • Autor
hace 2 horas, JasallBcn dijo:

Hola JasallBcn, esta genial, sin embargo en el código hay un rango AT3: AT6 enmarcado, sería viable que la impresión se realice no hasta AT6, sino que busque dentro de la columna el ultimo dato e imprima hasta allí, es decir, la cantidad de impresiones puede variar, pueden ser 6, 10 o 30 recibos, que al colocarlo automáticamente imprima hasta el ultimo dato de la columna.

publicado

cambia la linea por

Set C = Range("AT3:AT&" & Range("AT" & Rows.Count).End(xlUp).Row)

saludos

publicado
  • Autor
hace 58 minutos , JasallBcn dijo:

cambia la linea por

Set C = Range("AT3:AT&" & Range("AT" & Rows.Count).End(xlUp).Row)

saludos

image.thumb.png.75161eb6e70029a99738ae647f56c196.png

Me generó este error

publicado

disculpa , esta mal escrito

Set C = Range("AT3:AT" & Range("AT" & Rows.Count).End(xlUp).Row)

saludos

publicado
  • Autor
hace 8 horas, JasallBcn dijo:

disculpa , esta mal escrito

Set C = Range("AT3:AT" & Range("AT" & Rows.Count).End(xlUp).Row)

saludos

Esta barbaro, mil gracias me sirvió, con esto doy por cerrado el tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.