Jump to content
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Ejecutar una macro en una hoja diferente de dónde están los datos

SaraBarrio

Recommended Posts

SaraBarrio Newbie

SaraBarrio

Posted
Posted

En primer lugar quería agradecerles toda la ayuda que nos prestan con estos foros.

Soy totalmente novata en esto de las macros, pero gracias a su foro he conseguido que por medio de una macro se me imprima un área, pero que antes de imprimir se oculten las filas en blanco y después de imprimir vuelvan a aparecer las filas en blanco.

Como les he dicho hasta aquí todo correcto, pero el problema surge cuando el botón para ejecutar la macro lo pongo en otra hoja diferentes (en este caso en la hoja "RESUMEN"), como se puede ver en el archivo adjunto, si el botón está en la hoja "Desarrollo" (donde se encuentran los datos a imprimir) no hay problema, pero si pongo el botón en la otra hoja no sé qué es lo que tengo que cambiar en la macro.

He probado de todo y no consigo que me responda la macro.

Espero puedan ayudarme y les agradezco de antemano toda la atención prestada.

PRUEBAS.xls

tese1969 Apprentice

tese1969

Posted
Posted

Dónde tienes......



With ActiveSheet.PageSetup

[/CODE]

Debes modificarlo por la hoja que quieras imprimir........que el botón esté en una u otra hoja no implica que el código deba correr a partir de los datos de esa misma hoja...........

Lo más sencillo......

Primero activas (lo vea o no el usuario) la hoja que quieres realmente imprimir, mediante, por ejemplo la inclusión al principio de:

[CODE]
Sheets("Desarrollo").Activate
[/CODE]

Y el resto como está.........

Debería funcionarte.......

Prueba y comentas...

Un saludo,

Tese

Editado-------------------------

Por cierto, si las 2 hojas ocultas de tu archivo no son interesantes para la consulta podrías haberlas eliminado previamente.......no olvides que a través del entorno de VBA son visibles...........jejejejejeje...........como consejo para posteriores consultas.......

Chao,

SaraBarrio Newbie

SaraBarrio

Posted
  • Author
Posted

¡¡¡¡FUNCIONA¡¡¡¡¡

De verdad... MUCHÍISIMAS GRACIAS¡¡¡¡¡

No pensé que pudiera ser tan fácil. Yo me dedicaba a cambiar cosas por toda la macro.

Un saludo y gracias de nuevo.

tese1969 Apprentice

tese1969

Posted
Posted

De nada............si te das cuenta, entendiendo el concepto de "sheet" se pueden hacer muchas cosas.....jejejej

No olvides dar el tema por Solucionado.............para que los administradores puedan cerrarlo.......

Puedes escribir directamente algo como "Tema Solucionado" (en un gran alarde de creatividad........jejejej)

Chao,

Tese

SaraBarrio Newbie

SaraBarrio

Posted
  • Author
Posted

TEMA SOLUCIONADO

Tese1969 veo que has descubierto todas mis carencias (estaba venga a buscar cómo cambiar la etiqueta del mensaje para indicar lo de solucionado). Muchas gracias otra vez.

Si tienes toda la razón y con todas las vueltas que he dado al foro sabía que la solución estaba en el concepto "sheet" pero me ponía a cambiar todas las líneas donde aparecía el concepto y..... error. Como te he dicho, no pensé que fuera tan fácil como ponerlo únicamente al principio y sin cambiar nada más.

Hasta otra (dada la eficacia me temo que vovleré con más dudas ;))

Archived

This topic is now archived and is closed to further replies.

Go to topic listing

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Files

  • Download Statistics

    • Files
      188
    • Comments
      98
    • Reviews
      29
    More information about "Cambios en el Control Horario"
    Latest File
    Cambios en el Control Horario
    By pegones1

    4    1

  • Crear macros Excel

  • Posts

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      By DiegoPC · Posted

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      By jues · Posted

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      By DiegoLG · Posted

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      By jose_alk · Posted

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      By jues · Posted

      Exelente solución mil gracias 

  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy

  I accept