Uso de procedimientos en excel

Mandar datos e incrementar columna en excel

Private x As Integer

Sub mandar()

    Sheets("Hoja1").Select

    Range("B1:B3").Select

    Selection.Copy

    Sheets("Hoja2").Select

    x = Cells(Rows.Count, 1).End(xlUp).Row

    Cells(x + 1, 1).Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=True

    Sheets("Hoja1").Select

    Range("B1:B3").ClearContents

    MsgBox "Los datos se han guardado en la Bitácora"

End Sub

Ejemplo

Más abajo esta un ejemplo donde se manda la información de una página a otra.

Ejemplo

Plan de evaluación cuarto semestre

Plan de evaluación primera parte

Actividades 302

Las actividades del grupo 302 se basarán en prácticas que se realizarán en el taller de: soporte y mantenimiento de equipo de cómputo.

Es importante traer las herramientas necesarias para las prácticas:

• Multimetro.
• Cautín
• Soldadura de 1.0 milímetro.
• USB.
• Desarmadores.
• Pinzas.
• Aire comprimido.
• Alcohol Isopropílico.
• Brochas de 1 pulgada.
• Limpiador de carcasas.
• Limpiador de pantallas.
• Pulsera Antiestática.
• Paño o franela.

Las actividades del inicio de recuperación serán los día:

8 al 19 de Enero de 2018.

Actividades para el grupo 101 y 102:

Entrega de las evidencias de:

• Blogger.
• Facebook.
• Skype.
• TeamViewer.
• Drive.

Fecha de entrega: miércoles 18 de diciembre.