Jump to content

COPIAR DATOS UNICOS SEGUN CONDICION


Go to solution Solved by AlexanderS,

Recommended Posts

BUENOS DÍAS, UN CORDIAL SALUDO Y MUCHAS GRACIAS DE ANTEMANO POR SU AYUDA.

EN LA HOJA = "Proy.-Comer", TENGO DOS COLUMNAS EN AMARILLO UNA ES LA VARIEDAD Y LA OTRA ES LA RECETA, EL TEMA ES QUE LAS RECETAS SE DUPLICAN EN ALGUNOS CASO Y SEGÚN LA VARIEDAD, CREE EN EL ADMINISTRADOR DE NOMBRES,  RANGOS DE  TODAS LAS VARIEDADES;

POR EJEMPLO

"BLACK SEEDLESS" = "BS"  (RANGO ='Proy.-Comer'!$L$11:$L$20)

"COTTON CANDY" = "CC"  (RANGO ='Proy.-Comer'!$L$41:$L$55)

"CANDY SNAPS" = "CS" (RANGO ='Proy.-Comer'!$L$23:$L$38) ...--------Y ASÍ SUCESIVAMENTE

LA IDEA ES COPIAR LOS DATOS ÚNICOS DE LAS RECETAS EN LA HOJA = BD_Recetas EN EL RANGO C9:C43 (DE COLOR AMARILLO.

YO USE UNA MACRO LA CUAL ESTA EN EL MODULO2  DEL VISUAL, CADA VEZ QUE CAMBIO LA VARIEDAD EN LA HOJA = BD_Recetas CELDA EN ROJO (F1), TRATO DE OBTENER LAS INICIALES DE CADA VARIEDAD EN LA CELDA D1 , SEGÚN COMO ESTAN LOS RANGOS EN EL ADMINISTRADOR DE NOMBRES, EN LA MACRO EN LA LINEA ---    For Each Celda In Range("D1")   ---- SOLO ME COPIA LO DE LA CELDA D1, SIN EMBARGO CUANDO EN LA MISMA MACRO LE CAMBIO EN LA LINEA    ---    For Each Celda In Range("CS")   ---- SI ME COPIA LOS DATOS.

COMO PODRÍA AUTOMATIZARLO MEJOR???? SI HUBIERA ALGUNA FORMA SERIA GENIAL, ADJUNTO ARCHIVO

IMPORTANTE: "A MANERA DE PRUEBA PUSE EL RANGO AH8 PORQUE CADA VEZ QUE EJECUTO LA MACRO ME BORRABA LOS DATOS DE LAS DEMAS CELDAS DE LA COLUMNA C LA IDEA ES QUE ME COPIE EN LA CELDA C  DEL RANGO EN AMARILLO"

 

SALUDOS Y NUEVAMENTE GRACIAS POR EL APOYO

 

 

 

 

 

01 PCP.xlsx - v02 - copia.xlsm

Link to post
Share on other sites
  • Solution

Hola @darkstars9976, prueba este código y me comentas.

Sub Copia_recetas()
    Dim Rng$, x#
    Dim rept        As Range
    Dim celda
    With Sheets("BD_Recetas")
        
        Rng = .Range("D1")
        
        x = 9
        
        For Each celda In Sheets("Proy.-Comer").Range(Rng)
            
            If celda <> "" Then
                Set rept = .Range("C9:C43").Find(celda, , , xlWhole)
                
                If rept Is Nothing Then _
                   .Cells(x, "C") = celda: x = x + 1
                
            End If
        Next
        
    End With
    
End Sub

Saludos.

Link to post
Share on other sites

MI ESTIMADO  @AlexanderS ES JUSTO LO QUE QUERÍA, DE VERDAD NO LO HUBIESE PODIDO HACER DE ESA MANERA TAN SIMPLE COMO TU LO HAS HECHO, Y SE ME OCURRIÓ POR AHÍ AGREGAR UNA LINEA PARA BORRAR EL CONTENIDO ANTES DE OBTENER LAS NUEVAS RECETAS......

Sub Copia_recetas()
    Dim Rng$, x#
    Dim rept        As Range
    Dim celda
    With Sheets("BD_Recetas")
       Rng = .Range("D1")
       Range("C9:C43").ClearContents   -   AGREGUE ESTA LINEA
       x = 9
       For Each celda In Sheets("Proy.-Comer").Range(Rng)
       If celda <> "" Then
                Set rept = .Range("C9:C43").Find(celda, , , xlWhole)
                If rept Is Nothing Then _
                   .Cells(x, "C") = celda: x = x + 1
                End If
        Next
    End With
End Sub

MUCHAS GRACIAS POR TU APOYO ERES UN GENIO, Y POR LA EXCELENTE LECCIÓN QUE ME HAS DADO, ESTOY HACIENDO UN LIBRO DE PRODUCCIÓN INDUSTRIAL, Y SE QUE NECESITARE DE MAS AYUDA PARA PODER CULMINARLO.

SI TENGO OTRA CONSULTA ESPERO PODER MOLESTARTE Y QUITARTE ALGO DE TIEMPO.

MILES DE GRACIAS,. Y BENDICIONES.

 

 

 

 

Link to post
Share on other sites

BUEN DIA MI ESTIMADO @AlexanderS molestandote de nuevo, queria saber si me puedes ayudar con este archivo:

tengo un archivo "01 PCP.xlsx - v02 - copia" el cual entre otras hojas contiene tres principalmente, y son:

"Proy.-Comer"      -       "BD_Recetas"      -      "Mat_Stock"

En la hoja "Proy.-Comer" tenemos en color naranja las semanas del año, y en color amarillo los productos, y en plomo las cantidades (que se digitan manualmente).

***Lo que necesito es que en la hoja "BD_Recetas" , a partir de la celda "M65"  Sume la cantidad correspondiente a la semana según el producto de la columna en color amarillo "L10:L193" Y sus cantidades (celdas de color plomo), y luego lo multiplique por la cantidad según corresponda de la columna "H65" y que si la celda de la columna H dice caja que lo deje en "0", y asi sucesivamente para las demás semanas  (se puede apreciar en la formula).***

En la Hoja  "Mat_Stock",  a partir de la celda "I7"

***Quiero sumar por semana la cantidad del material a utilizar, en la columna A que esta en amarillo los códigos y tiene que sumar por semana según el código de la hoja "BD_Recetas" en la columna "F" de color naranja (Se puede ver también en la formula de las celdas)***

 

esto es para tratar de automatizar lcon una macro el archivo de calculo de materiales por semana.

 

DE ANTEMANO MUCHAS GRACIAS POR LA AYUDA.

01 PCP.xlsx - v02.xlsm

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
a


  • Crear macros Excel

  • Posts

    • Esta es una variante del juego de bingo, donde no hay tablas, solo está el tablero con los 75 números, y a cada fila del tablero se le asigna un jugador, o lo que es lo mismo, cada jugador escoge una fila del tablero, se van llenando los números del tablero aleatoriamente y gana el jugador al que primero se le complete su respectiva línea. me podes ayudar proyecto de bingo que te mande video youtube es para divertir con mis familias y te lo agradezco... estoy buscador cuando las bolas salen y aparecen lineas complets, sale el mensaje de cuadro de dialogo "BINGO!!°, el primer jugador es""" numero de particpantes,...esto me interesa, me podes ayudar....te lo agradezco...miralo video y comprenderas.. y espero tus respuestas, Sldo  
    • Muchas gracias bigpetroman, si como lo digo funciona bien crea los reportes bien por cada alumno pero en algunas hojas del reporte los coloca mal los criterios de evolución y sumados todo ellos no concuerda con el total, como lo digo solo en algunos 
    • hola silvi y hola cristian;silvia,lo tuyo excelente y cristian,el ejemplo que subi el otro dia esta modificado,lo que sucedio(lo tuyo fue espectacular)pero mi compañero que esta usando esta planilla tiene una comput.muy vieja y se hacia muuuuy lento en esa maquina el "recalculo"con el boton,por eso busque esta 2da opcion;mil gracias a ambos,son unos genios;espero poder ayudar yo tambien asi a la gente del foro
    • saludos @jeaa, baje el archivo para ver si entendía algo pero nada, de verdad si no explicas mejor que problemas tienes y das un ejemplo de cuando si lo hace bien y cuando no, va a ser difícil que recibas ayuda
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy