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

GRÁFICOS: origen de series variable

Jawisr

Por Jawisr
en Macros y programación VBA

Recommended Posts

Jawisr Novato

Jawisr

publicado
publicado

Buenos días,

Hoy necesito una pequeña ayuda para un tema que tengo que resolver en excel.

Voy a explicarlo de la manera más sencilla posible. Tengo un libro de excel con varias hojas (fichas.xslm), todas tienen un mismo gráfico series. El tema es que esas series salen de datos que están en otro libro distinto con varias hojas también (base de datos.xlsm).

Por ejemplo: el libro "fichas.xlsm" contiene hojas llamadas: peras, manzanas, plátanos. Y en cada hoja hay un gráfico que busca datos en el libro "base datos.xlsm" en el que hay las mismas hojas (peras, manzanas, plátanos) pero con tablas de datos.

La pregunta es: ¿puedo hacer que la ruta de origen de los datos esté vinculada a una celda? Es decir, si yo tengo: 



[CENTER]=SERIES('[base datos.xlsm][B]Peras[/B]'!$B$4;;'[base datos.xlsm][B]Peras[/B]'!$C$4:$E$4;1), 

[/CENTER]




[/CODE]




puedo poner "peras" en la celda A1 y y que la fórmula sea algo como 




[CODE]
[CENTER]=SERIES('[base datos.xlsm][B]"&A1&"[/B]'!$B$4;;'[base datos.xlsm][B]"&A1&"[/B]'!$C$4:$E$4;1)

[/CENTER]




[/CODE]






La intención es que cada gráfico saque los datos de una hoja distinta de la base de datos según el nombre que se le dé en una celda.


(Adjunto un zip con los dos archivos base datos y fichas)


PD: sé que esto no tiene que ver directamente con VBA, pero he intentado utilizar los caracteres para unir texto y variables de VBA ( " & & ") como en el ejemplo y no lo he conseguido. Así que supongo que tendré que hacerlo con macros. Si pudiera hacerlo sin macros también me sirve.


Muchas gracias, si algo no ha quedado claro del todo preguntadme e intento alcarar.


Un saludo,


[color=blue]- - - - - Mensaje combinado - - - - -[/color]


Al final lo he hecho con una macro. Simplemente va hoja por hoja copiando la primera hoja y modifica las series de los gráficos según el nombre de la hoja en la que está.


Es relativamente sencillo:




[CODE]Sub Prueba1()

'

' Prueba1 Macro

'



Dim nombre As String

Dim hoja As Worksheet




    For Each hoja In Worksheets


     If hoja.Name = "Manzana" Then GoTo NoCopia:

        ActiveWorkbook.Worksheets(1).Cells.Copy

        hoja.Activate

        hoja.Cells.Select

        ActiveSheet.Paste

        Application.CutCopyMode = False


NoCopia:

        nombre = ActiveSheet.Name


        ActiveSheet.ChartObjects(1).Activate

        'Crea serie 1

        ActiveChart.FullSeriesCollection(1).Name = "='[base datos.xlsm]" & nombre & "'!$B$4"

        ActiveChart.FullSeriesCollection(1).Values = _

          "='[base datos.xlsm]" & nombre & "'!$C$4:$E$4"


     'Crea serie 2

         ActiveChart.FullSeriesCollection(2).Name = "='[base datos.xlsm]" & nombre & "'!$B$5"

         ActiveChart.FullSeriesCollection(2).Values = _

            "='[base datos.xlsm]" & nombre & "'!$C$5:$E$5"

    Next hoja




End Sub

[/CODE]




Ejemplos.zip



			
		


		

		
	


	
    


	



					
					
						


					
					
				
			
			



		

	


	
	
	
		

			
Archivado

			

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

		

	
	
	

	







	

		
			
				Ir al listado de temas
			
		
	

	




						


					

					


	

		
		
		
		


	

		
    
			
				
					
					
  • 
				
					
					
  • 



    

	
		
    
			
				 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
									
        
									
        
										
											
										
									
        
								
        • 
							
						
      
					
      2. 
				
			
    
			
    
			
		
    
	


    


    • 
				
					
					
  • 

    Ayúdanos a mejorar la comunidad
    


    
	
      
		
			
    • 
                

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

    • 
				
					
					
  • 

    Archivos
    

    
	
		
			
		
	

    • 
				
					
					
  • 

    Estadísticas de descargas
    

    
	
		
      
			
    • 
				
      
					Archivos
				
      
				
      
					188
				
      
			
      • 
			
				
    • 
					
      
						Comentarios
					
      
					
      
						98
					
      
				
      • 
			
			
				
    • 
					
      
						Revisiones
					
      
					
      
						29
					
      
				
      • 
			
		
    
		
    
		
			
    
				


	
	
		Más información sobre "Cambios en el Control Horario"
	
 
				
    
					Última descarga
    
					
    Cambios en el Control Horario
    
					Por 




	
pegones1
					
     4    1
    
				
    
			
    
		
	

    • 
				
					
					
  • 

    
	
    
	Crear macros Excel

    


    

    • 
				
					
					
  • 

	
    Mensajes
    
	
		
    
			
      
				
					
    • 
						
      
							


	
		DiegoPC
	

						
      
						
      
							
       FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS
      
							
      Por 




	
DiegoPC · publicado 
      
							
      
								Hola, veo que tienes 365, así que esta forma funcionará
 


	 
 

Almacen.xlsx 
							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		jues
	

						
      
						
      
							
       Guardar Formulario en PDF
      
							
      Por 




	
		
		
		
			
		
	
jues · publicado  
      
							
      
								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
      
							
      Por 




	
DiegoLG · publicado 
      
							
      
								@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
      
							
      Por 




	
jose_alk · publicado  
      
							
      
								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
      
							
      Por 




	
		
		
		
			
		
	
jues · publicado 
      
							
      
								Exelente solución mil gracias 
 

							
      
						
      
					
      • 
				
			
    
		
    
	


    • 
				
					
					
  • 
				
					
					
  • 

    
    
    
        
            Visualizado recientemente
        
        
    
    
    
    
        
      
            
                
    • No hay usuarios registrado para ver esta página.
      • 
            
        
    
        
    
    

    • 
				
			
		

	


	


					

				

			

			
		

		
		



	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Crear nuevo...
    • 
				
			

		

	




		






















	

		

			
Información importante

			
Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.