CREACIÓN DE UNA BASE DE DATOS EN EXCEL
1. Crea tu documento
Crea un archivo de Excel y guárdalo como «Libro de Excel habilitado para macros».
Identificar las tablas de la base de datos
Nuestro primer paso en el diseño de una base de datos en Excel será identificar las
tablas que ocuparemos para organizar la información. Para nuestro ejemplo de la
librería podemos mencionar las siguientes tablas:
Para identificar adecuadamente las tablas de una base de datos debes poner atención en
las agrupaciones naturales de la información, es decir, en los sujetos que interactúan en
la problemática analizada. En este caso los sujetos principales son los libros, los clientes
y las órdenes.
Paso 2: Determinar los campos de las tablas
Una vez que hemos identificado las tablas debemos indicar el nombre de cada una de
sus columnas (campos). El nombre del campo deberá ser descriptivo y nos ayudará a
identificar cada una de las propiedades de un elemento de la tabla.
Por ejemplo, para cada libro en venta en la librería guardaremos su código ISBN, el
título, el autor y el precio por lo que dicha tabla quedará definida de la siguiente
manera:
Los campos de cada tabla dependerán de la información que está a tu disposición para
ser ingresada en la base de datos. Por ejemplo, algunas empresas o negocios tendrán
interés en capturar más información sobre sus clientes lo cual hará que su tabla de
Clientes tenga más campos que los mostrados en el ejemplo anterior.
Paso 3: Identificar la llave primaria de cada tabla
Una llave primaria nos permitirá identificar de manera única cada uno de los registros
de las tablas. En el caso de la tabla Libros, el ISBN será la llave primaria ya que es un
código único internacional para cada libro publicado por lo que dicho número jamás se
repetirá.
En el caso de las tablas para Órdenes y Clientes crearemos un número consecutivo que
identificará de manera única cada una de las filas.
Paso 4: Identificar las relaciones entre tablas
Este paso es de utilidad para asegurarnos que podremos vincular la información de las
tablas a través de la relación que existe entre dos de sus campos. Por ejemplo, si para
una determinada orden de compra quiero saber el título del libro que ha sido vendido,
bastará con relacionar la columna ISBN de la tabla Órdenes con la columna ISBN de la
tabla Libros para conocer el título.
De manera similar, si deseo conocer el cliente para una determinada orden de compra,
solo deberé seguir la relación indicada por el campo IDCliente en ambas tablas.
Paso 5: Identificar datos repetidos en tablas
Aun cuando pensemos que hemos terminado con el diseño de nuestra base de datos, es
importante hacer un breve ejercicio con algunos datos reales para identificar la posible
existencia de datos repetidos y tomar las decisiones adecuadas para evitarlos.
Por ejemplo, considera el caso de la tabla Libros donde podríamos tener uno o más
títulos escritos por el mismo autor. En ese caso, estaríamos repitiendo el nombre y
apellido del autor en varios registros de la tabla.
Para evitar la repetición de datos lo recomendable es crear una nueva tabla que
almacene la información de los autores y hacer referencia a dicha tabla a través de su
campo llave tal como se muestra en la siguiente imagen:
De esta manera evitaremos la repetición en el nombre de los autores y también se
evitará la captura de un sin número de variantes del mismo. Para seguir con nuestro
análisis, haremos una captura de datos de prueba de una orden, por ejemplo:
Estos son los datos de la orden de compra número 1 donde el cliente ha comprado 3
libros, siendo dos de esas copias del mismo título. El problema con estos datos es que se
repite el número de orden y eso no sería posible ya que esa es nuestra llave primaria en
la tabla y no puede repetirse. Además para cada registro se repite la Fecha, así como las
columnas ID Cliente y Tipo Pago. Para resolver este problema debemos crear una tabla
adicional que almacenará los libros de cada orden de compra de la siguiente manera:
Es así como el haber identificado datos repetidos en las tablas nos ha hecho tomar la
decisión de agregar tablas adicionales a nuestro diseño para minimizar el espacio
utilizado por nuestra base de datos que será de gran importancia al momento de que los
datos crezcan. De esta manera nuestro diseño final queda de la siguiente manera:
Crear la base de datos en Excel
Una vez que tenemos el diseño de la base de datos podemos crearla fácilmente en Excel
siguiendo dos recomendaciones:
Cada tabla del diseño será una tabla de Excel.
Colocar cada tabla en su propia hoja de Excel.
El motivo para utilizar tablas de Excel es que existen múltiples beneficios de utilizar
tablas entre los cuales están los filtros y el reconocimiento automático de nuevas filas y
columnas. Por otro lado, la razón por la cual colocar cada tabla en su propia hoja de
Excel es para facilitar el crecimiento de los datos ya que si colocas varias tablas en una
misma hoja probablemente tendrás que moverlas o redefinirlas cada vez que alguna de
ellas aumente de tamaño y se sobrepongan entre sí. Consultar la base de datos en Excel
Una vez que se ha creado la base de datos en Excel y comiencen a crecer los datos,
seguramente te encontrarás con la necesidad de relacionar la información de diferentes
tablas para obtener datos complementarios. Por ejemplo, considera las siguientes dos
tablas:
La Hoja.Ordenes contiene una tabla llamada Ordenes y la Hoja.Clientes contiene la
tabla Clientes. Si al consultar la tabla Ordenes deseo conocer el Email del cliente que ha
efectuado dicha compra, puedo utilizar funciones de Excel para obtener dicha
información. Ya que estoy utilizando tablas de Excel, puedo hacer uso de las referencias
estructuradas, por ejemplo:
=BUSCARV(Ordenes[IDCliente], Clientes, 5,FALSO)
Esta fórmula buscará el valor de la columna IDCliente, que pertenece a la tabla
Ordenes, dentro de la tabla Clientes y devolverá la columna 5 de esta última tabla.
Observa el resultado de la fórmula:
El resultado de la fórmula es correcto ya que la orden número 1 fue hecha por el cliente
con un IDCliente igual a 5 y que corresponde a Luis cuyo Email es el mostrado en la
celda F2. De esta manera puedes relacionar la información de las diferentes tablas en tu
base de datos en Excel, ya sea utilizando la función BUSCARV o la combinación de
funciones INDICE/COINCIDIR ya que ambas nos permite crear fórmulas para buscar
datos.
EXTRACCION DE DATOS EN EXCEL Y VISUAL
Extraer datos de Excel a partir de una cadena de texto
Para extraer datos de Excel a partir de una cadena de Texto, se requiere identificar la
posición de uno o varias caracteres que servirán como referencia para la extracción de
los datos en Excel, es por ello que en el artículo se explica detalladamente a través de la
implementación de dos funciones.
Las funciones que se utilizaran para extraer los datos de Excel serán ENCONTRAR y
EXTRAE, teniendo en cuenta que la primera permite encontrar la posición de un
carácter y la segunda permite extraer la información basándose en la posición de ese
carácter.
Sintaxis de la función ENCONTRAR: =ENCONTRAR(texto_buscado,
dentro_del_texto, [núm_inicial])
Donde texto_buscado: es el dato que se desea consultar
dentro_del_texto: es la cadena de donde se requiere encontrar la posición
núm_inicial: A partir de que posición se requiere buscar el carácter en la cadena
Sintaxis de la función EXTRAE: EXTRAE(texto, posición_inicial, núm_de_caracteres)
Donde texto: es la cadena de texto que tiene la información
posición_inicial: Posición desde donde se desea comenzar la extracción
núm_de_caracteres: Cantidad de caracteres que se deben extraer a partir de la posición
inicial.
Por ejemplo, para referirse a las celdas A1: A10 en la Hoja2, escriba Sheet2! A1: A10.
Al escribir una fórmula que hace referencia a celdas en otra hoja de trabajo, puedes, por
supuesto, escribir ese otro nombre de hoja seguido de un signo de exclamación y una
referencia de celda manualmente, pero esta sería una forma lenta y propensa a errores.
Una mejor manera es señalar las celdas de otra hoja a la que desea que se refiera la
fórmula y dejar que Excel se encargue de la sintaxis correcta de su referencia de hoja.
Para que Excel inserte una referencia a otra hoja en su fórmula, debes hacer lo siguiente:
- Comienza a escribir una fórmula en una celda de destino o en la barra de fórmulas.
- Cuando se trata de agregar una referencia a otra hoja de trabajo, cambia a esa hoja y
selecciona una celda o un rango de celdas a las que desees hacer referencia.
- Termina de escribir la fórmula y presiona la tecla Enter para completarla.
Por ejemplo, si tienes una lista de cifras de ventas en Ventas de hojas y deseas calcular
el Impuesto sobre el valor agregado (19%) para cada producto en otra hoja llamada
IVA, procede de la siguiente manera:
Comienza a escribir la fórmula = 19% * en la celda B2 en la hoja IVA.
Cambia a la hoja Ventas, y haz clic en la celda B2 allí. Excel insertará inmediatamente
una referencia externa a esa celda.
COMO REFERENCIAR ENTRE DIFERENTES HOJAS DE DATOS DE EXCEL
Y VISUAL
Referencias absolutas en Excel
Hay ocasiones en las que necesitamos “fijar” la referencia a una celda de manera que
permanezca igual aún después de ser copiada. Si queremos impedir que Excel
modifique las referencias de una celda al momento de copiar la fórmula, entonces
debemos convertir una referencia relativa en absoluta y eso lo podemos hacer
anteponiendo el símbolo “$” a la letra de la columna y al número de la fila de la
siguiente manera:
Si queremos fijar solamente la columna, anteponemos el símbolo “$” a la letra de la
columna y dejamos la fila sin dicho símbolo. Si por el contrario deseamos fijar
solamente la fila, entonces anteponemos el símbolo “$”al número de la fila. En la
siguiente imagen podrás ver un resumen de los tipos de referencias que hemos revisado
hasta ahora:
Cómo cambiar entre tipos de referencia
Un consejo muy útil para hacer más eficiente el tiempo invertido al ingresar cualquier
referencia en una fórmula es el uso de la tecla F4 cuando nos encontramos en el modo
de edición. Cuando el cursor de edición se encuentra sobre una referencia y pulsamos la
tecla F4, Excel cambiará el tipo de referencia sin la necesidad de que ingresemos
manualmente el símbolo “$”.
Referencias a celdas en otra hoja
La única regla que debemos seguir es utilizar el nombre de la hoja donde se encuentra la
celda de nuestro interés e inmediatamente colocar el signo de exclamación (¡) seguido
de la referencia a la celda. De esta manera, si queremos referirnos a la celda C5 de la
Hoja2, debemos hacerlo de la siguiente manera:
Una práctica que es altamente recomendable en las referencias a celdas de otra hoja, es
rodear el nombre de la hoja con comillas simples (‘) ya que eso evitará cualquier error
en caso de que el nombre de la hoja tenga un espacio en blanco, por ejemplo:
Referencias a celdas en otro libro
Si la celda que necesitas acceder se encuentra en otro libro, entonces deberás indicar el
nombre del libro encerrado entre corchetes [] antes del nombre de la hoja de la siguiente
manera:
Este tipo de referencia funcionará solamente si el libro especificado está abierto y
además está guardado en la misma ubicación que el libro actual. En caso contrario será
necesario indicar la ruta completa donde se encuentra dicho libro:
Observa que en este último ejemplo el nombre del libro y la hoja, así como la ruta, están
encerrados entre comillas sencillas lo cual es ampliamente recomendable en caso de
tener espacios en blanco en los nombres de las carpetas de la ruta, o en el nombre del
libro u hoja.
Referencias 3D
Las referencias 3D son útiles cuando necesitamos hacer operaciones con las mismas
celdas en diferentes hojas. Por ejemplo, si vamos a sumar la celda A1 de la Hoja1,
Hoja2 y Hoja3, normalmente utilizaríamos la siguiente fórmula:
=SUMA(Hoja1!A1, Hoja2!A1, Hoja3!A1)
A diferencia de esta nomenclatura, las referencias 3D nos permiten indicar las mismas
referencias de una manera abreviada:
=SUMA(Hoja1:Hoja3!A1)
Es muy importante mencionar que no es posible utilizar este tipo de referencias con
cualquier función de Excel. Las funciones matemáticas y estadísticas son las que
permitirán su uso pero no podrás utilizar este tipo de referencias en funciones de
búsqueda como BUSCARV o COINCIDIR.
Además de acceder una sola celda en varias hojas utilizando las Referencias 3D,
también puedes crear una referencia a un rango de celdas de la siguiente manera:
=SUMA(Hoja1:Hoja3!A1:C25)
EXTRACCIÓN DE DATOS EN CELDAS
En el caso concreto de BUSCARV la sintaxis requerida por Excel es la siguiente:
BUSCARV(valor_buscado;matriz_buscar_en;indicador_columnas;[ordenado])
valor_buscado: Es el valor que deseas encontrar en la tabla. Como indiqué antes es
aconsejable que esté en la primera columna de la misma. Aquí puedes colocar
directamente el valor que deseas encontrar, o bien puedes poner la referencia de una
celda en la que se encuentre el dato.
matriz_buscar_en: Es el rango de datos que comprende todas las columnas y filas de la
tabla. Por ejemplo, si el rango fuera C5:E9, el valor_buscado debe estar en la columna
C. Facilita mucho el trabajo si previamente le asignas un nombre al rango de celdas.
indicador_columnas: El número de la columna que contiene el dato que quieres obtener.
Para ello, enumerarás secuencialmente y empezando por 1 las columnas incluidas en el
rango matriz_buscar_en.
ordenado: Este argumento es opcional. Por eso en la definición de la sintaxis viene entre
corchetes. Se trata de un valor que indica si quieres que BUSCARV te encuentre una
coincidencia exacta o por el contrario te vale que se trate de una aproximación. Tiene
dos posibles valores:
VERDADERO: Busca el valor más próximo al introducido en el primer argumento.
Dos consideraciones a tener en cuenta. La primera, para que funcione correctamente, la
tabla debe estar ordenada por esta columna. La segunda, esta es la opción
predeterminada por lo que si no pones este argumento en la función, ésta será la
búsqueda que realizará.
FALSO: Busca el valor exacto en la primera columna.
CODIFICACIÓN PARA BASE DE DATOS EN EXCEL
FORMULAS DE STRING A NÚMERO Y VICEVERSA EN EXCEL Y VISUAL
Al hacer clic sobre el ícono se mostrará un menú desplegable con las posibles opciones
para corregir el error y entre ellas tendremos la opción “Convertir en número”, solo que
antes de aplicar la corrección debes asegurarte de seleccionar todo el rango de celdas de
manera que el cambio se aplique a todas ellas con un solo clic.
Después de seleccionar la opción “Convertir a número”, los valores de las celdas se
alinearán a la derecha indicándonos que su formato se ha cambiado a un formato
numérico y ahora podremos utilizarlos dentro de nuestros cálculos sin temor a obtener
resultados erróneos.
Convertir texto a número con el pegado especial
Este método es útil cuando las celdas no muestran el mensaje de error y por lo tanto no
es posible utilizar el método de la comprobación de errores.
Este segundo método radica en utilizar el pegado especial para convertir los valores de
texto a números y el primer paso es rellenar un rango con números uno. Este rango
deberá ser del mismo tamaño que el rango donde se encuentran los números originales,
por ejemplo:
El siguiente paso es copiar el rango con los valores originales (B1:B2), seleccionar la
primera celda destino (C1) y hacer clic en Pegar > Pegado especial lo cual abrirá el
siguiente cuadro de diálogo:
Será de suma importancia seleccionar la opción Valores y la opción Multiplicar lo cual
ocasionará que los valores copiados se multipliquen por los valores contenidos en las
celdas destino, y ya que dichos valores son números uno, la multiplicación no tendrá
efecto alguno más que el convertir el texto a número. Observa el resultado después de
pulsar el botón Aceptar.
Ahora los valores de la columna C están alineados a la derecha lo cual nos indica que
Excel los ha reconocido como valores numéricos.
VBA: CÓDIGOS MÁS COMUNES
Trasladarse a una Celda
Range("A1").Select
Escribir en una Celda
Activecell.FormulaR1C1="TEXTO"
Letra Negrita
Selection.Font.Bold = True
Letra Cursiva
Selection.Font.Italic = True
Letra Subrayada
Selection.Font.Underline = xlUnderlineStyleSingle
Centrar Texto
With Selection
.HorizontalAlignment = xlCenter
End With
Alinear a la izquierda
With Selection
.HorizontalAlignment = xlLeft
End With
Alinear a la Derecha
With Selection
.HorizontalAlignment = xlRight
End With
Tipo de Letra (Fuente)
With Selection .Font
.Name = "AGaramond"
End With
Tamaño de Letra (Tamaño de Fuente)
With Selection.Font
.Size = 15
End With
Copiar
Selection.Copy
Pegar
ActiveSheet.Paste
Cortar
Selection.Cut
Ordenar Ascendente
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Orden Descendente
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Buscar
Cells.Find(What:="TEXTO", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Insertar Fila
Selection.EntireRow.Insert
Eliminar Fila
Selection.EntireRow.Delete
Insertar Columna
Selection.EntireColumn.Insert
Eliminar Columna
Selection.EntireColumn.Delete
Abrir un Libro
Workbooks.Open Filename:="C:\Mis documentos\miarchivo.xls"
Grabar un Libro
ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\tauro.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
EXTRACCIÓN DE DATOS VISUAL
Para poder trabajar con visual en la aplicación de Excel primero se debe activar la
pestaña programador o desarrollador para esto elegimos Archivo > Opciones >
Personalizar cinta de opciones y activamos la pestaña desarrollador > Aceptar y así se
habilita las herramientas necesarias en base a Visual Basic para poder crear nuestras
automatizaciones.
CÓDIGO VBA
'Name macro
Sub ExtractAddresses()
'Dimension variables and declare data types
Dim sht As Worksheet
Dim CurCell As Range
Dim Adr As New Collection
Dim c As Single
Dim Value As Variant
Dim result As String, delch As String
'Show inputbox and ask for a delimiting character, save to variable
delch
delch = InputBox("Delimiting character:")
'The SET statement allows you to save an object reference to a
variable
Set CurCell = ActiveSheet.Range("A1")
'Iterate from 1 to the number of columns in your workbook using the
FOR NEXT statement
For c = 1 To Columns.Count - 1
'The SET statement allows you to save an object reference to a
variable, in this case it is next populated cell in column A. It
returns the last cell if column A has no populated cells.
Set CurCell = CurCell.End(xlDown)
'Loop through following lines as long as cell saved to CurCell is
not empty.
Do While CurCell.Value <> ""
'Check if the length of the address of object CurCell with
currentregion property is larger than 0 (zero)
If Len(CurCell.CurrentRegion.Address) > 0 Then
'Enable error handling, an error occurs if a cell
reference already exists in the collection variable
On Error Resume Next
'Save address of currentregion property based on object
CurCell to collection variable Adr
Adr.Add CurCell.CurrentRegion.Address,
CStr(CurCell.CurrentRegion.Address)
'Disable error handling
On Error GoTo 0
End If
'Check if the CurCell row number equals the last row number in
workbbok, if so stop Loop
If CurCell.Row = Rows.Count Then Exit Do
'The SET statement allows you to save an object reference to a
variable, in this case it is the last cell in column A.
Set CurCell = CurCell.End(xlDown)
Loop
'Save an object reference to the next cell to the right based
on variable c to variable CurCell
Set CurCell = Range("A1").Offset(0, c)
'Continue with next number
Next c
'Iterate through each value saved in collection variable Adr
For Each Value In Adr
'Add value to string variable result using variable delch as a
delimiting character
result = result & delch & Value
'Continue with next value in collection
Next Value
'Add a new sheet and save a reference to variable sht
Set sht = Sheets.Add
'Save text in string result to cell A1
sht.Range("A1") = Right(result, Len(result) - 1)
End Sub
Sub y End Sub indican el inicio y el final del procedimiento de la macro.
Todo lo que aparece con un apóstrofe ́ indica que no se tomara en cuenta que es solo
texto o comentarios y ese texto aparece en color verde.
Ejemplo: https://www.youtube.com/watch?v=230S5BfhyxU min: 3:40 en adelante
CONVERSIÓN DE DATOS STRING
FUNCIÓN VAL
La función VAL en VBA es utilizada para convertir una cadena de texto que contiene
números en datos del tipo numérico. Esto es importante ya que una vez que VBA
reconoce los datos como números se pueden realizar las operaciones correspondientes.
FUNCIÓN PARA FECHAS Y NÚMEROS – FORMAT
Esta función tomara una expresión ya sea en fecha o valor numérico y lo devolverá
como una cadena con formato, es muy útil.
Sintaxis: FORMAT (Expression, format)
Expression: es el valor ya sea en número o fecha para dar formato
Format: es el formato que se desea aplicar a la expresión
Para número
GENERAL NUMBER: muestra un número sin separador de miles y con todos los
decimales (444309943.34779)
CURRENCY: muestra y redondea a dos dígitos a la derecha de decimal.
(444309943.35)
STANDARD: muestra los separadores de miles, y redondea a dos dígitos a la derecha
de decimal. (444,309,943.35)
PERCENT muestra un valor en términos porcentuales (multiplicado por 100) y muestra
2 dígitos a la derecha del decimal. (44430994334.78%)
SCIENTIFIC muestra el numero en notación científica (4.44E+08)
Para fecha
LONG DATE: Permite obtener la fecha en formato escrito totalmente completo.
(sábado, 27 de enero de 2001)
MEDIUM DATE: Permite obtener la fecha en formato completo (27-ene-01)
D : Permite obtener el número del día (27)
SHORT DATE fecha en formato corto (27/01/2001)
LONG TIME: permite obtener la hora actual en formato largo completo (17:04:23)
SHORT TIME: hora en formato completo(17:04)
FUNCIÓN PARA PRESENTAR MENSAJES – MSGBOX
Esta función es importante porque nos ayudara a mostrar mensajes en un cuadro de
dialogo
Sintaxis: MSGBOX(prompt, buttons, title, helpfile, context)
Prompt(obligatoria): es el mensaje de cadena que se mostrara como mensaje en el
cuadro de dialogo.
Buttons (opcional): es la suma de los valores que especifican el número y tipo de
botones para mostrar, el estilo de icono a utilizar, la identidad del botón predeterminado,
y la modalidad del cuadro del mensaje.
Title (opcional): es la expresión que se mostrara en la barra de título del cuadro de
dialogo.
Helpfile (opcional): identifica el archivo de Ayuda d usar para proporcionar ayuda
contextual para el cuadro de dialogo.
Context (opcional): expresión numérica que es el número de contexto de Ayuda
FUNCIÓN PARA NÚMEROS - ROUND
Una de las principales funciones para números es la Función Round, la cual se usa para
poder redondear un número con decimales. Si el valor a redondear tiene parte decimal
menor a 0.5 el valor obtenido será igual a la parte entera del número ingresado, pero si
el valor a redondear tiene parte decimal mayor o igual a 0.5 el valor obtenido será igual
al entero inmediato superior del numero ingresado.
Sintaxis: ROUND(number, NumDigitsAfterDecimalAsLong)
Number: la expresión numérica que deseamos redondear (Obligatorio)
NumDigitsAfterDecimalAsLong: Cantidad de decimales a las que deseamos redondear
(opcional)
FUNCIÓN PARA TEXTO LCASE-UCASE
Estas funciones de cadena nos van ayudar a trabajar y a tratar cadenas de caracteres.
Función LcASE y UcasEstas dos funciones se utilizan para convertir cadenas de texto a
minúscula y mayúscula.
En el caso de Lcase, cambia o convierte una cadena de texto a minúscula.
Ucase funciona de la misma manera solo que en vez de convertir la cadena a minúscula,
convierte todo el texto a mayúscula.
Ordenar datos, considerando tres campos diferentes.
Sub proFilter()
Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _
"B2"), Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, _
Header:=xlYes
End Sub
ORDENAR DATOS
Sub Macro1( )
'Allows you to write shorter code by referring to an object only once instead of using it
with each property.
With ActiveWorkbook.Worksheets("VBA").Sort
'Clear previous sort conditions
.SortFields.Clear
'Apply sorting from A to Z to cell range B3:B8
.SortFields.Add2 Key:=Range("B3:B8"), SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption:=xlSortNormal
'Apply sorting from A to Z to cell range C3:C8
.SortFields.Add2 Key:=Range("C3:C8"), SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption:=xlSortNormal
'Apply sorting from A to Z to cell range D3:D8
.SortFields.Add2 Key:=Range("D3:D8"), SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption:=xlSortNormal
'Set range to B2:D8
.SetRange Range("B2:D8")
'Column names exists
.Header = xlYes
'No case sensitivity
.MatchCase = False
'Sort orientation xlTopToBottom vs xlLeftToRight
.Orientation = xlTopToBottom
'Apply sorting to range
.Apply
End With
End Sub
Use Automation to transfer data cell by cell
With Automation, you can transfer data to a worksheet one cell at a time:
Transferring data cell by cell can be a perfectly acceptable approach if the amount of
data is small. You have the flexibility to place data anywhere in the workbook and can
format the cells conditionally at run time. However, this approach is not recommended
if you have a large amount of data to transfer to an Excel workbook. Each Range object
that you acquire at run time results in an interface request so that transferring data in this
manner can be slow.
Use automation to transfer an array of data to a range on a worksheet
An array of data can be transferred to a range of multiple cells at once:
