Macros

1.- Necesito realizar una macro que permita lo siguiente
Que inserte información en otra hoja en la celda a2 después de insertar N veces se salte un reglón (fila) y siga insertando
ejemplo:
Reglón 1 los títulos de columnas
Desde el reglón 2 la información
Reglón 10 en blanco
Reglón 12 títulos de columnas
Desde el reglón 13 la información
Y así sucesivamente cada N que se salte un reglón
2.- Donde puedo sacar códigos de visual basic para Excel.

1 Respuesta

Respuesta
1
Bueno lo que tu pides se puede hacer pero me gustaría saber que tipo de información es... y ¿Quieres hacer la macro en un formulario y que los datos que vas ingresando se inserten a Excel? ¿O una macro que inserte datos desde una hoja a otra?
Bueno tengo esas dos dudas, ojala que me las puedas aclarar para poder ayudarte...
Ahora con respecto a tu segunda pregunta, a continuación te doy unas páginas:
http://www.vbalym.netfirms.com/excel/excel.html
http://cursos.uexternado.edu.co/~ffexc/
http://www.geocities.com/gorita_2000/
http://www.portalvb.com/
http://www.arrakis.es/~soria/desarrollo/index.htm
Tambien puedes buscar manuales con respecto al tema en las siguientes paginas:
http://www.manualesgratis.com/
http://www.infotutoriales.com/
Las informaciones digitalizada en una o hoja
Solo información desde esa hoja (hoja1) es pasada a otra (hoja2) con copiar pegar.
Después de pegar 15 se debe saltar un reglón pegar los títulos que e encuentran en el primer reglón de la hoja2
Así sucesivamente.
Gracias por tu paciencia y tu voluntad.
Aquí hice un código el cual copia y pega los valores de una columna de una hoja a la columna de otra hoja...
Debes previamente seleccionar lo que debes copiar y luego ejecutas la macro. Esta te preguntara a que hoja deseas copiar y luego a que celda, por ejemplo la hoja hoja3 y celda A1. Entonces la macro copiara lo seleccionado de la hoja1 a la hoja3 y en la celda A1...
Este es el código:
Public Sub CopiarCeldas()
Dim Hoja, Celdas As String
Hoja = InputBox("Ingrese Nombre de la hoja", "Hoja")
Celdas = InputBox("Ingrese celda inicial para el pegado", "Celda")
Selection.Copy
Worksheets(Hoja).Range(Celdas).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas