Como gran cantidad de usuarios copian y pegan códigos encontrados en la web, veamos a continuación algunas situaciones donde es mejor desecharlo y buscar otras macros mejores.
1- Mirar la fecha de la publicación, del video o la respuesta en algún foro.
En ocasiones he recibido solicitud para ajustar alguna macro que dejé en alguna respuesta de años anteriores como, algunas del año 2004 !
Pero ya estamos en el 2018 y seguramente hoy habrá otro modo mejor de resolverlo.
La fecha nos da una idea de si se trata de códigos desarrollados para versiones xls.
Cuando Excel no contaba con alguna herramienta para resolver una situación recurríamos a una macro. Un caso concreto es el de 'eliminar duplicados' . Se necesitaban varias líneas de programación. Hoy encontramos esa herramienta en menú Datos.
Por lo que programar esta tarea ahora solo requiere de una instrucción, donde se indica el rango y la (o las) columnas a analizar:
ActiveSheet.Range("$A$2:$F$5").RemoveDuplicates Columns:=1, Header:=xlYes
Como mucho le indicaré con una variable el fin de rango si se trata de una tabla de largo variable:
Sub sinDuplica()
x = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$2:$F$" & x).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
2 - Observar cómo se busca el final de rango.
Todavía se encuentran ejemplos donde para encontrar la primer fila libre o última celda ocupada se recurre a un bucle del tipo:
fila = 2
Do While Hoja5.Cells(fila, 1) <> ""
fila = fila + 1
Loop
Aquí se está recorriendo la col A desde la fila 2 controlando si la celda está vacía o no. Si consideramos que hoy una hoja Excel puede contener datos hasta fila más allá del millón, evidentemente no es el mejor modo de encontrar el fin de rango.... mejor desechar este código.
Algunas instrucciones posibles:
Range("A" & Rows.Count).End(xlup).Row 'devolverá la última celda con texto en col A
Range("B" & Rows.Count).End(xlup).Row + 1 'devolverá la primer celda vacía en col B
Range("A2").CurrentRegion.Rows.Count 'devolverá la última fila del rango.
3 - Observar cómo se nombran las hojas.
Si toman parte de alguna aplicación (propia o ajena) pero la misma menciona a las hojas como Hoja1, Hoja3, etc presentará bastante dificultad la adaptación de esas macros a nuestro proyecto.
Por ejemplo, teníamos una aplicación con varias hojas y de allí tomamos algunas macros de este tipo:
Observamos que el código hace mención al indice de hojas (no a su nombre) y nuestro libro no tiene esa cantidad de hojas lo que lleva a realizar un seguimiento y muchas correcciones.
Para que un código pueda ser utilizado en varios proyectos lo conveniente es declarar las hojas en alguna variable. Así con solo modifcar esa instrucción ya nos servirá no importa como se llamen nuestras hojas en otros libros.
Private Sub UserForm_Initialize()
Set hop = Sheets("Productos")
Set hoe = Sheets("Existencias")
Set hom = Sheets("Movimientos")
End Sub
Nota: Estas variables se declaran al inicio del Userform.
4 - No seleccionar-copiar..... seleccionar -pegar.
Cuando creamos una macro con la grabadora, ésta registra cada una de nuestras acciones: seleccionar una celda, copiarla, avanzar con el scroll o pasar a otra hoja, seleccionar la celda y pegar.
Sheets("Compras").Select
Range("R2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Productos").Select
Range("B2").Select
ActiveSheet.Paste
Si esta tarea la tenemos que realizar con gran cantidad de información que iremos moviendo nos llevará muchas líneas innecesarias de código, pudiendo simplificarlo del siguiente modo:
Range("R2:R" & Range("R" & Rows.Count).End(xlUp).Row).Copy
Sheets("Productos").[B2].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
5 - Que las macros vengan con explicaciones.
Un código explicado siempre será más fácil de ajustar y adaptar a nuestro requerimiento.
Ver VIDEO N° 11,
No hay comentarios.:
Publicar un comentario