Jump to content

como crear relaciones entre hojas con unos datos determinados


santravis

Recommended Posts

me han encomendado este archivo de excel, mis conocimientos son algo limitados...

si me pueden guiar o explicar que funciones tendría que usar ...

 

la cuestión es crear nº aleatorios en cada hoja respectiva, según mes, (D_M1 es Datos_Mes_Enero) y según una tabla de unidades (esta en REF) y el numero de U. relacionado la FECHA y L.Q

 

ARTICULO Y COD.ART los he relacionado mediante Validación de Datos y BUSCARV con REF

 

En U. es donde esta el lio, ese numero tiene que crear números aleatorios en DM_1 (C6, F6, I6, L6,...) y crear tantos como

corresponda en la tabla de 1 a 100 crear los nº aleatorios que allá (si hay 17 unidades pues 17 nº aleatorios)

                                                 101 a 500 crear 30

                                                 501 a 3200 crear 50

                                                  3201 a 5000 crear 80

la formula que estoy usando no termina de funcionar. y no se porque.

para que después queden fijos copio la columna de los nº aleatorios y después oculta dicha columna.

 

estoy usando vínculos pero es muy tedioso, se podría hacer de alguna manera más automática?

 

agradecería cualquier ayuda, un saludo.

 

no se si me he terminado de explicar bien.

NUEVO_FORMATO.xlsx

Edited by santravis
Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila     Range("O" & fila) = Range("H" & fila) & Range("I" & fila) Next fila End Sub Por favor si me podria dar una ayuda estare muy agradecido. Adjunto el archivo Consolidado.xlsm
    • Con la grabadora Pero son demasiadas filas. Sub Macro1() Range("C3:I7").Select Selection.Copy Range("C12").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Range("C21").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Hace tiempo que no entro en el foro y no veo la opcion de subir libro. Un Saludo.
    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy