hola amigos de ForoExcel. soy un usuario nuevo en el foro, y me gustaría poder aprender mas sobre macros para hacer mas eficiente mi trabajo. les dejo un cordial saludo y espero que me puedan ayudar con mi tema. "necesito ayuda para crear un código macro para crear archivos excel e importar datos de las celdas especificas al archivo nuevo." poseo este código que me ha compartido mi jefe y me gustaría poder entenderlo y aplicarlo en mi planilla que he creado. la idea, es que cada campo correspondiente a las lineas en uso. se copien en el nuevo documento excel y en los campos correspondientes. un cordial saludo y muchas gracias por su ayuda... *nota: como podrán ver, abre una archivo existente, copia los datos luego guarda asignando nombre a docu y finaliza cerrando el archivo, todo en segundo plano y mostrando un mensaje indicando que los archivos ya están creados y lo que no aparece es el lugar donde lo guardo (los documentos) **nota: las columnas, contienen los mismos nombres de los cuadros a rellenar (SIA.xlsx) espero hacer sido claro en mi duda. para que me puedan ayudar. cualquier cosa por favor preguntar para poder hacer mas clara mi pregunta. CÓDIGO: Private Sub cmbCrear_Click() 'Application.DisplayAlerts = False Application.ScreenUpdating = False Dim maincaminho As String Dim generador As String Dim file_in As String Dim file_out As String Dim band As String maincaminho = CStr(ThisWorkbook.Path) & "\" generador = ThisWorkbook.Name Dim wbNew As Workbook 'dia = Format(Date, "yymmdd") 'hora = Format(Now(), "hhmmss") file_in = Cells(3, 1) fname = Left(file_in, Len(file_in) - 4) lin = 8 ager = 1 band = Cells(8, 2) sitios = Cells (lin, 1) While Cells(lin, 3) <> "" Workbooks.Open Filename:=file_in, UpdateLinks:=xlUpdateLinksNever template = ActiveWorkbook.Name ThisWorkbook.Activate file_out = fname & "_SIA_3G_" & band & "_NewSite" & ".xls" fname_out = Left(template, Len(template) - 4) & "_SIA_3G_" & band & "_NewSite" & Cells(lin, 3) & ".xls" col = 3 While Cells(11, col) <> "" pos_col = Cells(11, col) valor = Cells(lin, col) ' realiza cambio Windows(template).Activate Range(pos_col) = valor ThisWorkbook.Activate col = col + 1 Wend Workbooks(template).SaveAs Filename:=file_out Workbooks(fname_out).Close lin = lin + 1 ager = ager + 1 Wend Application.ScreenUpdating = True MsgBox "APF's Generadas" End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

ayuda para crear archivo excel e importar datos

Autor del tema kaede
Fecha de inicio 4 Oct 2013

kaede

New member

4 Oct 2013

hola amigos de ForoExcel.

soy un usuario nuevo en el foro, y me gustaría poder aprender mas sobre macros para hacer mas eficiente mi trabajo. les dejo un cordial saludo y espero que me puedan...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Ayuda, necesito crear una tabla de registro

Respuestas: 4

27 Abr 2026

JSD

Pregunta

Ayuda - Macro para crear filas segun multiplicidad

Respuestas: 4

10 May 2022

tinchofo

Pregunta

Necesito ayuda para crear un macro para filtrar datos

Respuestas: 5

19 Feb 2022

Macro Antonio

Pregunta

Ayuda con Macro para crear objeto con hipervínculo

Respuestas: 13

10 Mar 2021

Cris329

Pregunta

AYUDA MACRO CREAR COPIA CON UNA CLAVE Y NUMERO SECUENCIAL

Respuestas: 2

1 Abr 2019

everde

Pregunta

Ayuda para crear un macro

Respuestas: 1

8 Dic 2018

Macro Antonio

Pregunta

como crear ayuda y autocompletar en una función en macros

Respuestas: 4

15 Nov 2016

Héctor Miguel

Resuelto

Macro para crear mensaje de ayuda

Respuestas: 2

24 Jun 2016

Taveg

Pregunta

Ayuda al crear macro para informes

Respuestas: 0

29 Feb 2016

sitodonosti

Pregunta

Ayuda para crear botón

Respuestas: 2

21 Nov 2015

prokits28

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba