Macro insertar celdas



Como insertar celdas mediante macro, mostrar como se agregan celdas mediante macro, es el objeto de este post, en el anterior se mostró como se insertan columnas mediante macro, son códigos parecidos, no obstante tienen diferencias, se usa el mismo ejemplo adaptado, desde el link que se encuentra al final del post podrás descargar el ejemplo para que veas su funcionamiento y codificación.

Hemos presentado dos libros que pueden ser de utilidad uno trata sobre las distintas FORMAS DE SELECCIONAR O REFERENCIAR CELDAS CON VBA (Spanish Edition); el otro de gran ayuda para quienes trabajan con fechas y horas FORMATOS Y FUNCIONES DE FECHA Y HORA DE MICROSOFT EXCEL (Spanish Edition); recomendamos su lectura, estamos seguros que les será de utilidad, lo mejor es que los obtienes por una insignificante suma.



 

Siguiendo con el tema del post, se describen y analizas las macros para insertar celdas que se muestran a continuación; el primero de los tres códigos presentados permite seleccionar el rango B3 a C5 y luego inserta una celda desplazando las celdas hacia abajo.

El segundo código selecciona el rango B3 a C5 y posteriormente inserta, como en el caso anterior dos celdas y desplaza el contenido hacia la derecha, se debe notar que se insertan una cantidad de celdas idénticas a la seleccionada, si se desea insertar solamente una fila, se debe seleccionar una sola celdas.

El tercer ejemplo, permite insertar celdas cortadas, usando el comando "cut", también se puede insertar celdas copiadas con el comando "copy"; el código mostrado selecciona un rango en este caso B3 a C5 y lo corta; luego selecciona el rango donde se quiere pegar los datos cortados, una vez seleccionada la celda, pega los datos desplazando las celdas hacia la derecha.

Te recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.


Código que se debe ingresar en un módulo



Sub Inserceldad()
Range("B3:C5").Select
Selection.Insert Shift:=xlDown
End Sub

Sub Inserceldal()
Range("B3:C5").Select
Selection.Insert Shift:=xlToRight
End Sub

Sub Insertcel()
Range("B3:C5").Cut
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
End Sub




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro para Insertar Columnas




En este post voy a mostrar distintas maneras de insertar columnas mediante macros con VBA, es decir aprenderás a como crear una macro para insertar columnas en Excel, si bien es bastante sencillo es útil manejar las distintas formas de hacerlo.

Te recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

Con el código que se muestra a continuación   se está diciendo que inserte una columna delante de la columna A

Range("B:B").Columns.Insert

También se puede usar el código siguiente obteniendo el mismo resultado.

Range("B2").EntireColumn.Insert

Para insertar varias columnas a la vez se debe seleccionar o referenciar el rango donde se desea insertar las columnas, en este caso se insertan dos columnas ya que se seleccionaron las columnas B y C.

Range("B:C").Columns.Insert


Con el código siguiente lo que se hace es cortar las columnas B y C, seleccionado la Columna G e insertando las columnas cortadas

Range("B:C").Cut
Columns("G:G").Select
Selection.Insert Shift:=xlToRight

El código anterior se puede simplificar un poco obviando la selección quedando así:

Range("B:C").Cut
Columns("G:G"). Insert Shift:=xlToRight

Si estás usando macros para automatizar tu libro de Excel seguramente te es necesario saber seleccionar o referenciar celdas, en FORMAS DE SELECCIONAR O REFERENCIAR CELDAS CON VBA (Spanish Edition) encontrarás una excelente ayuda; si trabajas con fechas en Excel, fíjate en el siguiente link que te puede ser de utilidad FORMATOS Y FUNCIONES DE FECHA Y HORA DE MICROSOFT EXCEL (Spanish Edition)

 

Al final hay un link del cual podrás descargar el ejemplo y adaptarlo a tus necesidades, el código se encuentra abierto y sin ningún tipo de restricción, te recomiendo descargar el ejemplo y ver su codificación y funcionamiento.


Código que se inserta en un userform





Sub InserCol1()
Range("B:B").Columns.Insert
End Sub

Sub InserCol2()
Range("B2").EntireColumn.Insert
End Sub

Sub InserColran()
Range("B:C").Columns.Insert
End Sub

Sub InsColcorder()
Range("B:C").Cut
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro seleccionar o referenciar celdas




Seleccionar o hacer referencia a una celda, fila, columna, rango, hoja o libro se traduce en algo fundamental y unas de las cosas más necesarias cuando se realiza una macro con el objeto de automatizar nuestro trabajo, es por ello que he publicado este libro, el cual trata desde un punto de vista puramente práctico, la resolución del problema sobre como se selecciona o hace referencia una determinada celda, el fin es que el lector pueda tenerlo como material de consulta, ya que en la mayoría de los casos los usuarios de Excel crean sus propias macros, pero no se está continuamente realizando las mismas, es por ello que se olvida un poco el tema sobre como llevar a cabo una selección o referencia a celdas o rangos, siendo el motivo de este libro, el mismo contiene más de 100 formas de seleccionar o hacer referencia a celda, fila, columna, rango, hoja o libro de Excel.

El libro FORMAS DE SELECCIONAR O REFERENCIAR CELDAS CON VBA (Spanish Edition) se presenta en formato digital lo cual es bastante práctico ya que no necesita espacio y lo podemos tener en la PC, pendrive o celular; su lectura es ágil, se presenta el código que permite hacer la selección o referencia y una explicación de lo que realiza conjuntamente con un ejemplo  de como se vería visualmente el resultado en el monitor.

El libro se puede adquirir desde una de las plataformas más serias y grandes del mundo en lo que respecta a libros electrónicos, lo que garantiza que se encuentra libre de virus y completa seriedad en la transacción; a continuación se presentan impresiones de pantalla del libro.






Este material está publicado a un precio muy accesible de U$S 2,99, pudiéndose pagar de variadas formas, paypal, tarjetas de crédito, etc. siendo la descarga inmediata, es decir contarás en forma instantánea con el material una vez realizado el pago; desde el link siguiente podrás chequear las primeras páginas del mismo y acceder a este importante material.


 



Para los usuarios de Excel que constantemente trabajan con fechas, se presenta el libro FORMATOS Y FUNCIONES DE FECHA Y HORA DE MICROSOFT EXCEL (Spanish Edition) que trata sobre las funciones y formatos de Excel. Encontrarás una explicación detallada de la forma en que Excel trata las fechas y horas; como así también una explicación y ejemplo de como se usa cada una de las funciones de fecha y hora que trae incorporadas Excel.

La descarga se realiza desde la página de Amazon, unas de las plataformas más importantes en lo que respecta a libros electrónicos, es por ello que se garantiza que se encuentra libre de virus y completa seriedad en la transacción; el costo es de U$S 2,99.


 


Hanciendo click en el link siguiente accederás en forma gratuita a una gran cantidad de ejemplos de macros que permiten automatizar tus libros de Excel, existen ejemplos con formularios, búsqueda de datos, envío de mails con Excel, alarmas para que Excel avise un determinado evento, etc. te invito a recorrer la página, buscar el ejemplo que más se acerca a lo que requieres y descargarlo para que lo puedas modificar a tus requerimientos.



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Marcar celdas menor a cierto valor y vacías




El objeto de este ejemplo es presentar una macro que colorea o marca celdas menor a cierto valor ingresado mediante un inputbox y vacías, esta relacionado con el ejemplo de macro que colorea celdas vacías que fue publicado anteriormente.

MASTERCARD PAYONEER

Recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.

En el presente ejemplo de macro o código de VBA permite luego de detectar el rango seleccionado en forma automática, lo selecciona y recorre cada celda seleccionada determinando que celda está vacía, además de detectar que celda tiene un valor menor al ingresado en el inputbox que sale al inicio y que solicita ingrese el valor mínimo a los fines seleccionar que celdas colorear.

Te presento dos libros que te ayudarán a completar tu proyecto para automatizar tu libro de Excel mediante macros FORMAS DE SELECCIONAR O REFERENCIAR CELDAS CON VBA (Spanish Edition) y FORMATOS Y FUNCIONES DE FECHA Y HORA DE MICROSOFT EXCEL (Spanish Edition)

 


Desde el link del final podrás  bajar el archivo de ejemplo y adaptarlo a tus necesidades, el código se encuentra abierto y sin ningún tipo de restricción para su adaptación, recuerda que debes adaptar el rango, precisamente la columna que deseas que se seleccione.


Código que se inserta en un módulo



Sub MarcaEmpty()
Application.ScreenUpdating = False
On Error Resume Next
Dim pf, uf, num As Integer
Dim uc, wc, b As String
b = ActiveSheet.Name
pf = 2
uf = Sheets(b).Range("A" & Rows.Count).End(xlUp).Row
uc = Sheets(b).Cells(1, Columns.Count).End(xlToLeft).Address
wc = Mid(uc, InStr(uc, "$") + 1, InStr(2, uc, "$") - 2)
r = "C" & pf & ":" & wc & uf
ActiveSheet.Range(r).Select
Selection.Interior.Pattern = xlNone
num = InputBox("Ingrese valor mínimo")
  For Each cell In Selection
       If cell = "" Or cell < num Then
       cell.Interior.Color = 255
       End If
  Next cell
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro inserta gráfico en Excel




Una de las cosas más complicadas o requiere mayor trabajo, es insertar un gráfico o Chart mediante una macro o procedimiento de VBA, en este ejemplo se insertan dos gráficos, uno de Torta y otro de barra, todo mediante macros, a esto se le adiciona la determinación del rango de datos en forma automática, lo cual transforma el ejemplo más que interesante. 

Al final existe un link desde el cual podrás descargar el archivo de ejemplo y adaptarlo a lo que requieras, el ejemplo lo que hace es agregar mediante macro un gráfico de torta y otro de barras. 


Si quieres aprender o profundizar  sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.

Te presento dos libros que te ayudarán a completar tu proyecto para automatizar tu libro de Excel mediante macros FORMAS DE SELECCIONAR O REFERENCIAR CELDAS CON VBA (Spanish Edition) y FORMATOS Y FUNCIONES DE FECHA Y HORA DE MICROSOFT EXCEL (Spanish Edition)

 


Como se puede observar  el código empieza definiendo variables, para posteriormente determinar el rango en forma automática, una vez realizada estas operaciones procede a agregar el gráfico seleccionado; en el ejemplo de macro para insertar gráficos se agregan dos objetos chart. 




Código que se inserta en un userform



Sub InsertaGraf()
On Error Resume Next
Application.ScreenUpdating = False
MASTERCARD PAYONEER

Dim pf, uf As Integer
Dim wc, r, r1, uc As String
b = ActiveSheet.Name
pf = 2
uf = Sheets(b).Range("B" & Rows.Count).End(xlUp).Row
uc = Sheets(b).Cells(1, Columns.Count).End(xlToLeft).Address
wc = Mid(uc, InStr(uc, "$") + 1, InStr(2, uc, "$") - 2)
r = "B" & pf & ":" & wc & uf - 1
r1 = "B" & uf & ":" & wc & uf


Range(r1).Select

Set myChart = ActiveSheet.ChartObjects.Add(100, 200, 320, 200)
With myChart
    .Chart.SetSourceData Source:=Selection
    .Chart.ChartType = xlPie
    .Chart.SeriesCollection(1).XValues = Range("H2:H4")
    .Chart.ApplyLayout (2)
    .Chart.ChartTitle.Select
    .Chart.ChartTitle.Text = "Total de Ventas"
End With


Range(r).Select
Set myChart1 = ActiveSheet.ChartObjects.Add(500, 200, 320, 200)
With myChart1
    .Chart.SetSourceData Source:=Selection
    '.Chart.ChartType = xlPie
    .Chart.SeriesCollection(1).XValues = Range("H6:H7")
    '.Chart.ApplyLayout (3)
    '.Chart.ChartTitle.Select
    '.Chart.ChartTitle.Text = "Cód correctos vs. Cód con desviaciones"
End With
Application.ScreenUpdating = True
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



> If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro oculta y muestra hoja en base a criterio




La siguiente macro tiene por objeto ocultar y mostrar la hojas de un libro en base a criterios, en el post, buscar datos y listar hojas, se presenta un ejemplo relacionado con hojas de Excel, ya que busca un dato en todas las hojas del libro, una vez encontrado el dato lo trae a la primer hoja y lista la hoja, también se presenta otro ejemplo el cual recorre todas las hojas y extrae datos para resumen.

En el link a continuación encontrarás un libro que muestra las distintas formas de seleccionar o referenciar celdas, tema más que necesario si estás por confeccionar una macro para automatizar Excel.


Si quieres aprender o profundizar  sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.

MASTERCARD PAYONEER

El código de VBA o macro se agrega en Worksheet, si en la celda A2 se elige "Yes" oculta todas las hojas excepto la "Hoja1"; si se elige "No" muestra todas las hojas que pudieran estar ocultas.

Para ocultar o mostrar hojas se realiza un bucle, recorriendo todas las hojas del libro, determina si la hoja que se recorre en el bucle es distinta a "Hoja1", en caso positivo oculta o muestra la hoja dependiendo si se selecciona "Yes" o "No".

Desde el link del final podrás descargar el ejemplo y adaptarlo a tus necesidades.

Código que se ingresa en Worksheet



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim she As Worksheet
If Cells(2, 1) = "Yes" Then
For Each she In Worksheets
b = she.Name
If Sheets(b).Name <> "Hoja1" Then Sheets(b).Visible = False
Next
Else
For Each she In Worksheets
b = she.Name
If Sheets(b).Name <> "Hoja1" Then Sheets(b).Visible = True
Next
End If
Application.ScreenUpdating = True
End Sub





Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Diferencia entre Select y Activate




Me preguntan en un foro la diferencia entre Select y Activate, ya que aparentemente se obtiene el mismo resultado, es así siempre y cuando nos estemos refiriendo a una sola hoja, este simple pos intenta aclarar la diferencia que existe, pero la misma parece muy delgada; la respuesta sobre cual es la diferencia entre Select y Activate, cuando se usa Select o Activate o bien Select vs Activate la encontrarás en las siguientes lineas.


Si quieres aprender o profundizar  sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.

MASTERCARD PAYONEER

Como se mencionó al inicio, para muchos es un dilema si utilizar Select o Activate, lo ideal es no usar ninguno de los dos ya que consume recursos y ralentiza la macro, pero en muchas ocasiones es necesario seleccionar o activar la celda u hoja, la diferencia que radica entre ambos conceptos es la cantidad.

Con Activate se puede seleccionar solamente una celda u hoja, en cambio con Select se pueden seleccionar varias celdas u hojas.

Veamos un par de ejemplos, si quisiéramos seleccionar la Hoja1 se podría usar el siguiente código

Sheets("Hoja1").Select

También para ello se puede utilizar Activate en vez de Select

Sheets("Hoja1").Activate

Lo anterior es lo que presta a la confusión y crea el dilema sobre cual es la diferencia entre ambos conceptos ya que de las dos formas se logra exactamente lo mismo; como ya adelantara la diferencia, es la cantidad, con el comando Activate se puede activar una celda u hoja a la vez solamente; en cambio con Select se pueden seleccionar varias celdas u hojas al mismo tiempo. 

Los códigos anteriores hacen referencia a una sola hoja por ende los dos métodos llevan al mismo resultado; la diferencia se presenta cuando se pretende o se requiere seleccionar más celdas u hojas a la vez, para ello se utiliza el siguiente código:

Sheets(Array("Hoja1", "Hoja2", "Hoja3")).Select

Si quisiéramos utilizar el código que se muestra a continuación, nos daría un error '438' en tiempo de ejecución, que menciona que el objeto no admite esta propiedad o método.

Sheets(Array("Hoja1", "Hoja2", "Hoja3")).Activate

Al principio se mencionó que utilizar Select o Activate ralentiza la macro y consume recursos, para copiar y pegar datos no es necesario recurrir a estos comandos ya que se puede simplificar el código y con ello hacer que la macro corra más rápido y consuma menos recursos, veamos un ejemplo de como copiar y pegar utilizando Select o Activate y otro evitando estos comandos, pero logrando el mismo resultado que es copiar un dato de una hoja en otra hoja del mismo libro.

Sub copia ()
Sheets("Hoja1").Select
Range("B2").Copy
Sheets("Hoja2").Select
Range("B2").PasteSpecial
End Sub

Si hiciéramos el copiado con la grabadora de macros el código generado es el siguiente:
Sub Macro1()
Sheets("Hoja1").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("B2").Select
ActiveSheet.Paste
End Sub

Todo el código anterior se puede simplificar en un solo código, se copian los datos de la celda B2 de la Hoja 1 en la celda B2 de la Hoja2, sin necesidad de activar o seleccionar la hoja, lo que redunda en menor cantidad de código y por ende acelerar la ejecución de la macro.

Sub copia ()
Sheets("Hoja1").Range("B2").Copy Sheets("Hoja2").Range("B2")
End Sub



Concluyendo la respuesta a cual es la diferencia entre Activate o Select, o bien cuando usar Activate o Select, la solución viene dada por la cantidad de celdas u hojas que requerimos seleccionar para la macro, si es una, es indistinto usar Activate o Select, pero si se necesita seleccionar o activar varias hojas se utiliza Select, resumiendo muchas celdas pueden ser seleccionadas, pero activa puede estar una sola.



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Como copiar cortar y pegar en VBA




Cuando nos iniciamos en el mundo de las macros de VBA, nos damos cuenta que algo básico es saber como se copia y pegan datos de una celda a otra, un rango a otro, una celda o otra de otro libro, etc., en definitiva como se copian, corta y pegan datos con VBA de un lugar a otro; aunque también es muy útil saber seleccionar o referenciar libros, hojas, celdas, rangos, filas, columnas;  en este post voy a mostrar algunas de las formas que existen de copiar datos con macros o las distintas maneras de copiar y pegar con VBA.

Es preciso que antes de introducirse más en el tema de copiado y pegado de datos sepas o manejes bien el tema de seleccionar o referenciar celdas en VBA, ya que copiar y pegar datos van de la mano con el tema de saber como referenciar o seleccionar una celda, rango de datos, una hoja, un libro, por lo tanto es preciso saber como se selecciona o hace referencia  a cierta dirección de copiado y pegado de datos.

Si quieres aprender o profundizar  sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.






  


MASTERCARD PAYONEER

Al fnal de este post existe un link del cual podrás bajar el archivo de ejemplo, examinarlo, estudiarlo y modificarlo de acuerdo a nuestras necesidades; el ejemplo consta de diez macros distintas que establecen como se copia y pegan distintos datos de la hoja de cálculo de Excel.

El comando que se utiliza para copiar normalmente es Copy, para cortar Cut y para pegar Paste, si se quiere pegar todo se utiliza .PasteSpecial xlAll, si se requiere pegar el formato se utiliza .PasteSpecial xlFormats; si se quieren pegar los números solamente con independencia de formatos se utiliza .PasteSpecial xlValues.

Si queremos desabilitar el modo cortar y copiar utilizaremos el siguiente código application.cutcopymode=false

Las distintas formas en que se pueden pegar los datos en forma especial son:


Range("F5").PasteSpecial xlPasteAll
Range("F5").PasteSpecial xlPasteAllExceptBorders
Range("F5").PasteSpecial xlPasteAllMergingConditionalFormats
Range("F5").PasteSpecial xlPasteAllUsingSourceTheme
Range("F5").PasteSpecial xlPasteColumnWidths
Range("F5").PasteSpecial xlPasteComments
Range("F5").PasteSpecial xlPasteFormats
Range("F5").PasteSpecial xlPasteFormulas
Range("F5").PasteSpecial xlPasteFormulasAndNumberFormats
Range("F5").PasteSpecial xlPasteValidation
Range("F5").PasteSpecial xlPasteValues
Range("F5").PasteSpecial xlPasteValuesAndNumberFormats


Código que se inserta en un módulo




Sub copia0()
'Copia la celda B2 en la celda F2 usando cell
Cells(2, 6) = Cells(2, 2)
End Sub

Sub copia01()
'Copia la celda B2 en la celda F3 usando cell
Cells(3, "F") = Cells(2, "B")
End Sub

Sub ccopia02()
'Copia la celda B2 en la celda F4 usando range
Range("F4") = Range("B2")
End Sub

Sub ccopia03()
'Copia la celda A2:C2 en la celda F5 usando range copia todo
Range("A2:C2").Copy
Range("F5").PasteSpecial xlPasteAll
End Sub

Sub ccopia04()
'Copia la celda B2:B2 en la celda F6 usando range copia formato
Range("A3:C3").Copy
Range("F6").PasteSpecial xlFormats
End Sub

Sub ccopia05()
'Copia la celda B2:B2 en la celda F6 usando range copia formato
Range("A3:C3").Copy
Range("F7").PasteSpecial xlPasteValues
End Sub

Sub ccopia06()
'Copia toda la columna B en la columna I
Range("B:B").Copy
ActiveSheet.Paste Destination:=ActiveSheet.Range("I1")
End Sub

Sub ccopia07()
'Otra forma de copiar datos
Range(Cells(2, "A"), Cells(2, "C")).Copy Destination:=Cells(7, "F")
End Sub

Sub ccopia08()
'Corta la columna B entera y la pega en la columna G reemplazando los datos de la columna G
Range("B:B").Cut
ActiveSheet.Paste Destination:=ActiveSheet.Range("G1")
End Sub

Sub ccopia09()
'Corta la columna B entera y la pega en la columna F insertando las columnas copiadas
Range("C:C").Cut
Columns("H:H").Insert Shift:=xlToRight
End Sub

Sub vuelve()
Range("F:G").Copy
ActiveSheet.Paste Destination:=ActiveSheet.Range("B1")
Range("E1:I20").Clear
End Sub

Sub copia1()
Worksheets("Hoja1").Range("A5").Copy Worksheets("Hoja2").Range("A5")
End Sub

Sub copia2 ()
Sheets("Hoja1").Range("A5").Copy Sheets("Hoja2").Range("A5")
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends