Mejorar código de programación excel visual basic

Como puedo mejorar este código, ya que hice todo con un if, pero anide muchísimos, quiero saber con que puedo mejor todas esas filas de programación

2 Respuestas

Respuesta
2

Prueba la siguiente.

Macro: 

 'SEGUNDO NIVEL PARA F3 Y F4
  Select Case Range("F3") & Range("F4")
    Case BOLA, CADE, CECI, HERR, POSTA, LOMO, COGO & COG, ALET & ALE
      Range("I3") = "VERDADERO"
    Case Else
      Range("I3") = "FALSO"
  End Select

Nota: Procura poner el código utilizando el icono para insertar código, ya que de una imagen no lo podemos copiar.

Si señor, con el case se mejora bastante toda esa cantidad de código, enséñame por favor como le puedo añadir más condiciones, y como hago para que así como revisa F3 Y F4 y da el resultado en J3, hacer lo mismo con F5 y F6 con el resultado en J5, y así como 2000 celdas hacia abajo, en este código fije las variables inserte el case que me dio, pero fíjate que no me toma todas las deje como comentario

Sub Macro2()
'
' Macro2 Macro
'
'MERMA Macro codigo
        'SEGUNDO NIVEL PARA F3 Y F4
            Select Case Range("F3") & Range("F4")
              Case BOL, BOLA, CAD, CADE, CEC, CECI, HER, HERR, LOM, LOMO, POS, POSTA, COG, COGO, " & "
              'ALE, ALET, MUR, MURI, PAL, PALÉ, PEC, PECH, CHA, CHAT, PUN, PUNT, SON, SOBRE, CAL, CALLO, " &_"
              'HIG, HIGA, CHU, CHUN, HCG, HCOG, HCTE, HCTEG, MOLC, MOLCTE, MOLESP, MOLESPG, CAP, CAPO, TIR, TIRA
                Range("J3") = "VERDADERO"
              Case Else
                Range("J3") = "FALSO"
            End Select
            Range("J3").Select
End Sub

Hola dante, no le pude añadir todo el código como me indica ya que posee muchas mayuscuas y la plataforma no lo permite

Fíjate que necesito que recorra por un rango determinado y vaya dando las respuestas en J3, J5, J7, J9, y así hasta mínimo J2000

Sí, es un problema con el editor de este foro, continuamente me pasa, tengo que convertir fórmulas y textos a minúsculas.

Pero, podrías hacer un pequeño esfuerzo, lleva el código a un documento de word, lo conviertes a minúsculas o tipo título y después lo pegas aquí.

Otra opción es, intenta escribir al inicio de la respuesta, un largo párrafo en minúsculas y después pegas el código.

Qué son: bol, bola, cad, etc... ¿Son variables?

¿Puedes poner un ejemplo de lo que pueden tener?

¿Cómo llenas esas variables?

Responde cada duda y en ese orden.

Busca la manera de pegar aquí el código donde llenas esas variables (NO USES IMÁGENES).

R e c u e r d a, tú estás pidiendo ayuda.

Qué son: bol, bola, cad, etc... ¿Son variables?

Si señor son variables,

          bol = "corte pierna bola" & "corte de pierna     bola a granel"

          bola = "corte de pierna     bola a granel" & "corte pierna bola"

          cad = "corte pierna cadera" & "corte de pierna     cadera a granel"

          cade = "corte de pierna     cadera a granel" & "corte pierna cadera"

          cec = "corte pierna cecina" & "corte de pierna     cecina a granel"

          ceci = "corte de pierna     cecina a granel" & "corte pierna cecina"

¿Cómo llenas esas variables?

viene de un archivo que exporto en excel de una aplicación de mi trabajo

sub macro2()
'
' macro2 macro
'
'merma macro codigo
          bol = "corte pierna bola" & "corte de pierna     bola a granel"
          bola = "corte de pierna     bola a granel" & "corte pierna bola"
          cad = "corte pierna cadera" & "corte de pierna     cadera a granel"
          cade = "corte de pierna     cadera a granel" & "corte pierna cadera"
          cec = "corte pierna cecina" & "corte de pierna     cecina a granel"
          ceci = "corte de pierna     cecina a granel" & "corte pierna cecina"
          her = "corte pierna herradero" & "corte de pierna     herradero a granel"
          herr = "corte de pierna     herradero a granel" & "corte pierna herradero"
          lom = "corte pierna lomo ancho cte" & "corte de pierna     lomo ancho a granel"
          lomo = "corte de pierna     lomo ancho a granel" & "corte pierna lomo ancho cte"
          pos = "corte pierna posta brazo" & "corte de pierna     posta brazo a granel"
          posta = "corte de pierna     posta brazo a granel" & "corte pierna posta brazo"
          cog = "corte b-c especial" & "corte b-c especial a granel"
          cogo = "corte b-c especial a granel" & "corte b-c especial"
          ale = "corte brazo aleta" & "corte brazo aleta a granel"
          alet = "corte brazo aleta a granel" & "corte brazo aleta"
          mor = "morrillo"
          mori = "morrillo2"
          mur = "corte brazo murillo" & "corte brazo murillo a granel"
          muri = "corte brazo murillo a granel" & "corte brazo murillo"
          pal = "corte brazo paletero" & "corte brazo paletero a granel"
          pale = "corte brazo paletero a granel" & "corte brazo paletero"
          pec = "corte brazo pecho" & "corte brazo pecho a granel"
          pech = "corte brazo pecho a granel" & "corte brazo pecho"
          cha = "chata premium" & "chata premium a granel"
          chat = "chata premium a granel" & "chata premium"
          pun = "punta anca  premium bloque" & "punta anca premium a granel"
          punt = "punta anca premium a granel" & "punta anca  premium bloque"
          sob = "sobrebarriga" & "sobrebarriga a granel"
          sobr = "sobrebarriga a granel" & "sobrebarriga"
          cal = "des.comes.callo" & "des.comes.callo a granel"
          callo = "des.comes.callo a granel" & "des.comes.callo"
          hig = "des.comes.higado" & "des.comes.higado a granel"
          higa = "des.comes.higado a granel" & "des.comes.higado"
          chu = "des.comes.chunchulla r" & "des.comes.chunchulla a granel"
          chun = "des.comes.chunchulla a granel" & "des.comes.chunchulla r"
          hcg = "des.comes.hueso cogote" & "des.comes.hueso cogote a granel"
          hcog = "des.comes.hueso cogote a granel" & "des.comes.hueso cogote"
          hcte = "des.comes. hueso cte" & "des.comes.hueso corriente a granel"
          hcteg = "des.comes.hueso corriente a granel" & "des.comes. hueso cte"
          molc = "molida de res 7" & "molida de res 7 a granel"
          molcte = "molida de res 7 a granel" & "molida de res 7"
          molesp = "molida especial 7" & "molida especial 7 a granel"
          molespg = "molida especial 7 a granel" & "molida especial 7"
          cap = "capon" & "capon a granel"
          capo = "capon a granel" & "capon"
          tir = "tira de asado" & "tira de asado a granel"
          tira = "tira de asado a granel" & "tira de asado"
        'segundo nivel para f3 y f4
            select case range("f3") & range("f4")
              case bol, bola, cad, cade, cec, ceci, her, herr, lom, lomo, pos, posta, cog, cogo, ale, alet, mur, muri, pal, pale, pec, pech, cha, chat, "_"
              pun , punt, sob, sobr, cal, callo, hig, higa, chu, chun, hcg, hcog, hcte, hcteg, molc, molcte, molesp, molespg, cap, capo, tir, tira
                range("j3") = "verdadero"
              case else
                range("j5") = "falso"
            end select
            range("j5").select
            select case range("f5") & range("f6")
              case bol, bola, cad, cade, cec, ceci, her, herr, lom, lomo, pos, posta, cog, cogo, ale, alet, mur, muri, pal, pale, pec, pech, cha, chat, "-"
              pun , punt, sob, sobr, cal, callo, hig, higa, chu, chun, hcg, hcog, hcte, hcteg, molc, molcte, molesp, molespg, cap, capo, tir, tira
                range("j5") = "verdadero"
              case else
                range("j5") = "falso"
            end select
            range("j3").select
            select case range("f7") & range("f8")
              case bol, bola, cad, cade, cec, ceci, her, herr, lom, lomo, pos, posta, cog, cogo, ale, alet, mur, muri, pal, pale, pec, pech, cha, chat, "-"
              pun , punt, sob, sobr, cal, callo, hig, higa, chu, chun, hcg, hcog, hcte, hcteg, molc, molcte, molesp, molespg, cap, capo, tir, tira
                range("j7") = "verdadero"
              case else
                range("j7") = "falso"
            end select
            range("j7").select
            select case range("f9") & range("f10")
              case bol, bola, cad, cade, cec, ceci, her, herr, lom, lomo, pos, posta, cog, cogo, ale, alet, mur, muri, pal, pale, pec, pech, cha, chat, "_"
              pun , punt, sob, sobr, cal, callo, hig, higa, chu, chun, hcg, hcog, hcte, hcteg, molc, molcte, molesp, molespg, cap, capo, tir, tira
                range("j9") = "verdadero"
              case else
                range("j9") = "falso"
            end select
            range("j3").select
end sub

este es todo el código que tengo, solo que existe varias cosas como las variables que estan en mayusculas

como esta imagen sale la hoja de excel

Esta es mi sugerencia para mejorar el código.

Crea una hoja y la llamas "Cortes"

En la hoja "Cortes" en la columna "A" pones la "Desc Item 1", en la columna "B" pones la "Desc Item 2" y en la columna "C" pones esta fórmula:

=A2&B2

Tal como se muestra en la siguiente imagen:

Ahora, todo el código queda reducido a esto:

Sub Macro1()
  Dim sh1 As Worksheet, rng As Range, f As Range
  Dim i As Long, existe As Boolean
  '
  Set sh1 = Sheets("Hoja1")
  Set rng = Sheets("Cortes").Range("C:C")
  '
  For i = 3 To sh1.Range("F" & Rows.Count).End(3).Row Step 2
    existe = False
    Set f = rng.Find(sh1.Range("F" & i) & sh1.Range("F" & i + 1), , xlValues, xlWhole, , , False, , False)
    If Not f Is Nothing Then existe = True
    Set f = rng.Find(sh1.Range("F" & i + 1) & sh1.Range("F" & i), , xlValues, xlWhole, , , False, , False)
    If Not f Is Nothing Then existe = True
    sh1.Range("J" & i).Value = existe
  Next
End Sub

No importa si las descripciones están en mayúsculas o minúsculas , con el método Find y con un parámetro se específica que no coincidan mayúsculas y minúsculas.

La macro realiza las dos búsquedas desc1 & desc2 y también desc2 & desc1.

Si encuentra alguna de las 2 entonces pone "VERDADERO" de lo contrario pone "FALSO"

Cambia en la macro "Hoja1" y "Cortes" por los nombres de hojas que desees.

Déjame saber si tienes alguna duda.

Hola buenos días Dante, déjeme decirle que su código de programación es muy bueno, permita me sugerir, con el Select case que enviaste corre como debiera, ese esta bien, solo es reducirlo con ese for que el empiece evaluando y contando y asu vez avanzando de fila en fila, resulta que cuando lo separo como me lo indico, pierdo la perspectiva ya que el va amarrado alas cifras que lleva en la fila G y H, entonces, yo pienso que si logro hacerlo correr con un for, podemos reducir toda la cantidad de código que antes le mencionaba, la verdad no se como manejar esos for, eh buscado en Internet, ah mirado cursos y muchos temas al respecto pero no hago que funcione, es decir, no se como programar el for, no obstante tome el ultimo código que me envió he tratado de acomodarlo pero me sigue arrojando errores, es mas esto eslo que le hice a su codigo

Dim i As Long, existe As Boolean, f As Range
Range("j3").Select
For i = 3 To Range("F" & Rows.Count).End(3).Row Step 2 'aca fija contador y le dice que recorra toda la columna f desde la fila 3 hasta el final de dos en dos
existe = False 'variable
Set f = Rng.Find(Range("F" & i) & Range("F" & i + 1), , xlValues, xlWhole, , , False, , False) 'se que busca las dos filas pero me aroja error
If Not f Is Nothing Then existe = True
Set f3 = Rng.Find(Range("F4" & i + 1) & Range("F3" & i), , xlValues, xlWhole, , , False, , False)
If Not f Is Nothing Then existe = True
Range("J3" & i).Value = existe
Next

Perdón no tome en cuenta la fijación de las variables de las hojas, sin embargo me sale este error

Solamente copia la macro (no la modifiques) y revisa el ejemplo que puse en la imagen.

Las mejores prácticas indican poner los datos en una base de datos, en este caso en una hoja, y NO poner datos en el código.

Es más fácil hacer cambios o agregar registros en una hoja que dentro del código.

Prueba con mi ejemplo y me comentas.

Hola buenos días, no logro copiar los datos de la columna F, en el orden que están, es decir, deben quedar en la columna A, F3,F5,F7... y en la  columna B, F4,F6,F8... me indicas como se hace.

No los copies. Captura uno por uno. Eso hice yo y no es mi trabajo.

Ya los tienes en esta hoja, solamente copia F3 en A2, luego copias F4 en B2, y así uno por uno.

O toma el dato de la macro, ahí ya lo tienes en prácticamente 2 columnas:

          bol = "corte pierna bola" & "corte de pierna     bola a granel"
          bola = "corte de pierna     bola a granel" & "corte pierna bola"
          cad = "corte pierna cadera" & "corte de pierna cadera a granel"

Lo copias de tu macro y lo pegas en la hoja y lo separas en columnas, hasta que tengas los valores de A y B. Es un trabajo pesado, pero solamente lo vas a hacer una vez, y será más práctico tenerlo en la hoja que estar adecuando muchas veces la macro.

¡Gracias! 

Dante muchas gracias por todo lo que me has colaborado, ultimo detalle, esto lo debo hacer todos los días, es decir sale un archivo diario mas o menos con unos tres mil registros, y debo hacerle este tratamiento, ya que es un software que captura los movimientos de estos productos y yo debo revidar si el operario se equivoca en su proceso ya que el software no tiene como hacerlo, bueno mil gracias, voy a seguir dándole, por ahora no me doy por vencido, nuevamente gracias  

Ultimo detalle

¿Y cuál es el último detalle?

Si pones la macro en un botón, solamente le das click al botón y se actualiza la columna.

Se debe tener en cuenta en el momento que yo llevo los datos a otra hoja puede perderse la trasabilidad de la información, entonces, cuando yo quiera saber que salio un error por allá en la casilla 1.056 como se yo a cual numero de documento a cual bodega,

fíjate que el select case funciona bien, el dilema es la cantidad de código que se debe hacer, por eso pensaba que con un for se reduce bastante

El código sustituye al case, solamente debes poner los datos correctamente en las columnas A y B.

O muéstrame cuál dato en a y b no te funciona y te digo cuál es el error.

El case no es funcional. Si te lo mostré era por la pregunta que hiciste, pero revisando tu información la mejor opción es la que te envié.

Si te equivoca con los datos en las columnas a y b es más probable que te equivoques al capturar los datos en el código.

Pero ahí tienes la opción tú decides si la quieres utilizar.

Si me muestras en dónde no funciona la macro te ayudo a encontrar la solución.

Pero sigues pidiendo el case, pero no me dices cuál es el problema con los datos en a y b.

Para eso es la bandera en la columna j para saber cuál es verdadero y cual falso, solamente filtrar por falso y sabrás cuales datos tienen problema.

Respuesta
1

Si explicas la lógica detrás del procedimiento, que significa cada cosa y cual es el objetivo que deseas conseguir, tal vez sea mejor para nosotros confeccionar un código más limpio.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo modificar macro?

Esta macro lo que hace es básicamente copiar datos de una hoja a las otras dos hojas en un libro excel, pero cuando hay una formula copia la formula, ¿Cómo puedo hacer para que en lugar de copiar la formula, sólo copie los datos?. Gracias por su...
1 respuesta

Eliminar filas en excel con macro

Para Dante Amor Buen día. Solicito ayuda con este código, quiero eliminar las filas que no necesito pero solo me las deja en blanco. Private Sub ELIMINAR_Click() Dim I, aa, bb, cc, dd, ee As Single Dim num_fila_loc As Single bb = 2 For I = 0 To...
1 respuesta

Función excel por intervalos

Necesitaría conocer una fórmula que me devuelva un porcentaje relacionado a un intervalo para un valor concreto como en el ejemplo que os pongo: Intervalo: 0-1000 1% 1001-2000 2% 2001-3000 3% 3001-4000 4% Valor a buscar = 2554 Necesito una fórmula...
1 respuesta

Asociar teclas a eventos

¿Cómo estas? Necesito que me eches una mano, quiero abrir formularios o ejecutar eventos presionando solo una tecla por ejemplo F2 - F3 F4 etc..., he visto algo creando una macro llamada autokeys pero me dice cuando la guardo que la sintaxis de la...
2 respuestas

Función sumar.si en Visual Basic

Tengo la siguiente tabla Necesito en la columna Peso Total sumar el total de peso de cada línea tomando como condición el número de Pedido, así en la primera fila el valor de la celda en la columna peso total tiene que ser ocho, en las dos siguientes...
1 respuesta

Ctrl+g en formulario

Necesito que al estar posicionado en cualquier parte de un formulario, al presionar Control+G este haga alguna accion (en este caso Guardar)... Me imagino que puede hacerse llamando a un procedimiento en cada uno de los text y combos del formulario...
1 respuesta

¿Es bueno nadar con aletas?

Hago todo mi entrenamiento de natación con aletas. He mejorado la postura, afinado las piernas y aumentado considerablemente la cantidad de metros. ¿Debería dejarlas?
3 respuestas

Macro excel que copie de hoja 1 a hoja 2*

* Este es el código que tengo, pero en la hoja 1 hay formulas y quiero que se mantengan activas, que al momento de ejecutar la macro, solo se copie el valor y me deje la formula activa en la hoja 1, espero me haya explicado bien, y agradecería de...
1 respuesta

Llenar datos en hoja de excel a través de formulario Userform!

He creado un userform tipo formulario (en base a tutoriales y autoaprendizaje XD) este formulario consta de diversos textbox, combobox y optionbutton, bueno dicho formulario debiese llenar datos de una tabla de 1 fila y 16 columnas contenida en una...
1 respuesta

Ejecutar macro según el valor de la celda

Que tal necesito de su valiosa ayuda tengo que ejecutar una macro en automático esto depende del valor de la celda. Estoy utilizando la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$S$1" And...
1 respuesta