Jump to content

Search the Community

Showing results for tags 'macros y vba'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • First visit?
    • Presentaciones
  • Dudas y consultas sobre Excel
    • Excel General
    • Macros y programación VBA
    • Power BI
    • Comparte tus aportes
  • Sobre ayudaexcel.com
    • Solicitud proyectos
    • Blog
    • Plantillas
    • Productos de ayudaexcel
    • Megaguías
  • Otras aplicaciones de Microsoft Office
  • Variedades
    • Cafeteria Ayuda Excel
    • Temas resueltos
    • Temas Abandonados
  • ¿Eres nuevo? Lee las Normas y Reglas del Foro
    • Access, Word, Power Point, Outlook etc...
  • Archive
  • Resources
    • Ideas y aportes

Categories

  • Tools
  • Add-ins
  • Store
  • Finance
  • Dpto. Admin
  • Purchasing
  • Agendas
  • Data registry

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Skype


Facebook


Twitter


Localización:


Interests

Found 406 results

  1. Tengo un listbox donde cargo una lista de materiales que dependen de un filtro deseo seleccionarlos y cambiarles la cantidad, gracias a este y otros foros he podido realizar ambos procedimientos pero por separado, creo que mi problema radica aquí Private Sub cmd_Registrar_Click() pero no soy la experta por eso pido su ayuda. Gracias de antemano Ejemplo.xlsm
  2. hola, siempre he recurrido a esta pagina para solucionar cosas en excel, pero ahora no he logrado dar con alguna solución. Lo que necesito es lo siguiente, tengo una planilla con varias hojas (adjunto un documento para mas claridad, el original tiene mas hojas, son varios años), una de las hojas esta como formulario, necesito que me envíe la información a la hoja correspondiente según el mes. Por ejemplo, yo ingreso los datos correspondientes a un recibo del mes de agosto en la hoja de formulario, entonces al dar click en el botón me envíe la información a la hoja "08-16", cuando ingrese un recibo del mes de diciembre, me envíe la información a la hoja "12-16" y así respectivamente. Espero me puedan ayudar!!! Gracias control pagos prueba.rar
  3. Muy buenas a todos. Este es mi primer post en el foro. Llevo bastantes años trabajando con Excel para procesar datos de investigación y utilizarlo para estadística, pero ha llegado un momento en el que creo que necesito ir más allá. Os cuento un poco. Estamos preparando una programación con una producción de insectos bastante grande para hacer experimentos. Podrían ser cabras o gatos, pero son insectos . La programación está encaminada a conocer la cantidad de comida que tenemos que preveer dos semanas antes de necesitarla. Lo he intentado de varias maneras, pero todas poco transparentes y muy confusas, así que creo que el siguiente paso será trabajar con macros y VBA. Os escribo para pediros ayuda y orientación para comenzar a trabajar con la planificación, y entonces iré buscando tutoriales e información en el foro y sólo os volveré a molestar cuando tenga alguna duda . La información es esta: Cada jaula con adultos se inicia un día concreto. En esta jaula ponemos un número concreto de adultos, y tenemos una estimación del número de huevos que vamos a conseguir. Estos adultos ponen huevos durante 6 días. Cada día tiene una referencia de lote. Cada lote de huevos evoluciona a larva, y estas larvas tienen que ser alimentadas durante 20 días. Durante esos 20 días, tenemos que alimentar las larvas con una cantidad diferente de comida (por ejemplo, el 5% del alimento durante el primer día, el 12% durante el segundo día de desarrollo, etc.). Cuando las larvas terminan, se convierten en adultos y comienza el ciclo de nuevo. Por lo tanto, si tenemos una jaula al día durante 7 días, vamos a obtener 7x6=42 lotes funcionando a lo largo de 33 días. Si esos 42 lotes se convierten de nuevo en adultos, y los volvemos a meter en jaulas, vamos a tener 252 lotes funcionando en la próxima generación. Los datos de partida son, por lo tanto: Fecha de inicio de la jaula Seis fechas de lote para cada jaula (una por cada día que obtenemos huevos) El ciclo larvario es de 20 días, por lo que tenemos una fecha de finalización La cantidad de alimento que tenemos que proporcionar durante cada día Lo que necesitamos construir es: Una planificación de alimentación para que cuando tengamos 7 jaulas diferentes iniciadas, sepamos cuánta comida vamos a necesitar cada día, hasta que terminen. Que la planificación que recoja las fechas de finalización de los lotes obtenidos prepare la planificación de comida para la siguiente generación, o dos generaciones, o tres generaciones de adultos, por ejemplo. ¿Cómo tenemos que construir esta planificación? ¿Algún consejo para orientarme y comenzar a trabajar? ¡Muchísimas gracias de antemano por toda la ayuda! Y felicidades además por el foro. Es increíble la cantidad de información que puede encontrarse, y de una forma muy ordenada. ¡Un saludo! Alex.
  4. Buena noche, Saben a que se debe el error del sistema &H80004005 (-2147467259). Error no especificado. NO me deja guardar nada en ese libro, los de mas funcionan bien.
  5. Hola Amigos me encontré con una necesidad... espero alguien me ayude La cuestión es que a través de una macro quisiera mandar a guardar como PDF varias hojas (como un archivo único)..... Tengo en una hoja "Base" una lista con los nombres de hojas creadas... la lista puede ser larga (cantidad N).. (en la primera columna) cada hoja esta preparada como para ser guardada como PDF... Entonces donde estoy trabado es en seleccionar todas las hojas que necesito mandar a guardar como PDF.. Esto es lo que necesito Sheets(array("hoja1","hoja2","hoja3").select Sheets(Worksheets("Base").Cells(1, 1).Value).Activate pero necesito que lo de las "hoja1","hoja2".. etc sea flexible y tome los nombres de la columna 1 de la hoja "Base" Mas o menos esto es lo que necesito, pero cada select se va cancelando con el siguiente por lo que no me sirve... For i = 1 To N Sheets(Worksheets("Base").Cells(i, 1).Value).Select Next i Sheets(Worksheets("Base").Cells(1, 1).Value).Activate A ver si alguien me da una mano... Saludos
  6. Buenos dias para todos. les pido que por favor me ayuden por que un tema el cual no entiendo bien el cual seria por medio de un botón en excel poder exportar un reporte de access de todos lo registros que realizo el usuario que se coloque en la celda uno preferiblemente en un nuevo archivo de excel. se los agradecería mucho si me pudieran ayudar muachas gracias MAcro.xlsm Base de datos1.7z
  7. Buenos días, tardes, noches, Quiero molestarlos con otra consulta. Tengo esta UDF que hice para que me genere un borde al registrar datos: Public Function BordeDeFilas(Hoja As Worksheet, xFila As Long, xColumna As String, Color As Long) Dim Inicio As String Inicio = "A" With Hoja .Range(Inicio & xFila & ":" & xColumna & xFila).Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ThemeColor = Color .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ThemeColor = Color .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ThemeColor = Color .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ThemeColor = Color .Weight = xlThin End With .Range(Inicio & 1).Select End With End Function La verdad la hice para no estar haciendo haciendo el mismo código una y otra vez. Pero me está dando un pequeño inconveniente. Tengo varios forms, los cuales guardan y actualizan registros en diferentes hojas de un mismo Excel. Desde estos forms es que hago la llamada a esta función, para que agregue un borde de color dependiendo de la base de datos que necesito (es únicamente estética del proyecto), la cuestión es la siguiente: Tengo la hoja "Proveedores", y tengo la hoja "Menú", desde la hoja Menú hago la llamada al form para actualizar / registrar nuevos proveedores. Al momento de guardar la información me salta un error, el cuál ya detecté la causa, y es porque estoy haciendo una selección de un rango desde otra hoja, por lo que tengo que modificar el código de la función para darle un Activate a la hoja de proveedores. La cuestión es que al activar dicha hoja ya no me regresa a la hoja Menú, y es este mi inconveniente. Me podrían ayudar a modificar la UDF para que pueda regresar a la hoja menú, o si me pueden dar una nueva forma de hacer lo que necesito se los voy a agradecer. Liquidación Muestra.xlsm
  8. Hola buenas, primero de todo, decir que soy bastante nuevo en excel y mis conocimientos no son todos los que me gustaria que fueran. Bien, pues se me planteo un problema, es el siguiente, quiero que una macro me busque una palabra concreta en la fila A, una vez encontrada esa palabra, tanto la fila superior como la propia donde se encuentra dicha palabra, sean eliminadas, no se si me explique bien, primero buscar la palabra y despues eliminar la fila donde esta la palabra y la que esta justo encima de esta. Muchas gracias a todos, pude leer bastantes cosas del foro y sois increibles.
  9. Version 1.0.1

    62 downloads

    Para comenzar bien el año 2017 nada como tener a mano un buen Buscador de libros en Excel, en formato pdf, ppt, doc o xls.En la hoja "Navegador" se selecciona el tipo de archivo, el idioma, el número de resultados y los términos de búsqueda y se hace clic en el botón "Buscar", con lo que se mostrarán los resultados de la búsqueda, como enlaces a los libros.Para guardar los enlaces, se hace clic en el botón "Cargar archivos en la biblioteca". Biblioteca La hoja "Biblioteca" contiene los libros encontrados, con su descripción y enlace, tipo, idioma, término de búsqueda y se pueden añadir comentarios y valorar con 5 estrellas cada uno de los libros. Se puede descargar un libro seleccionándolo y haciendo clic en el botón "Descargar ahora".Se puede leer el libro descargado, o abrir uno en el navegador, haciendo clic en el botón "Read More". A poco que uses este buscador crecerá tu biblioteca de libros en Excel.¿Por qué no pruebas a buscar enlaces sin tipo de archivo?Te agradeceré que escribas un comentario diciendo cuáles son los mejores libros que has encontrado en Excel y adjunta su enlace para compartirlo.
  10. Hola, a todos y todas, soy Jomaru. He empezado a meterme en la elaboración de un sistema de facturación para mi pequeña empresa "Autónomo", como y como no está la cosa para ir comprando costosos programas, pues he decidido ponerme manos a la obra, e ir creando a medida mi propio sistema. Entre videotutoriales y ayuda, ya tengo algo echo, pero como mis conocimientos de las MACRO no son nada amplios, voy atascandome. Por eso he decidido registrarme y poder conversar con las personas que puedan ayudarme poco a poco. Bueno espero aprender mucho y por que no, una vez aprendido poder ayudar en la que se pueda. Saludos
  11. Muy buenos días, tardes, noches Se me está presentando un inconveniente con el guardado y actualización de registros en un nuevo proyecto que estoy haciendo. Al grabar nuevos registros no hay inconvenientes, el problema se me da al momento de querer actualizarlos, pues lo que está haciendo la macro es que actualiza el registro, pero a la vez me crea uno nuevo con los mismos datos. Esta es la macro que estoy haciendo para el registro y actualización, lo cual lo hago desde un mismo botón de comando. Private Sub cmd_Guardar_Click() Dim Final As Long Dim Fila As Long On Error Resume Next If ControlesVacios("datos_contribuyente", Me, MultiPage1.Pages(0), True) = True Then Exit Sub Final = nReg(Hoja2, 1, 1) With Hoja2 If MsgBox("¿Están correctos los datos?" & vbNewLine & _ "¿Desea proceder?", vbQuestion + vbYesNo) = vbYes Then For Fila = 2 To Final If Val(.Cells(Fila, 1)) = Val(Me.cmb_NitContribuyente.Value) Then .Cells(Fila, 2) = Me.txt_NombreContribuyente.Value .Cells(Fila, 3) = Me.txt_CalleContribuyente.Value .Cells(Fila, 4) = Me.txt_CasaContribuyente.Value .Cells(Fila, 5) = Me.txt_ApartamentoContribuyente.Value .Cells(Fila, 6) = Me.txt_ZonaContribuyente.Value .Cells(Fila, 7) = Me.txt_PostalContribuyente.Value .Cells(Fila, 8) = Me.txt_ColoniaContribuyente.Value .Cells(Fila, 9) = Me.txt_DepartamentoContribuyente.Value .Cells(Fila, 10) = Me.txt_MunicipioContribuyente.Value .Cells(Fila, 11) = Me.txt_TelefonoContribuyente.Value .Cells(Fila, 12) = Me.txt_CelularContribuyente.Value .Cells(Fila, 13) = Me.txt_FaxContribuyente.Value .Cells(Fila, 14) = Me.txt_CorreoContribuyente.Value .Cells(Fila, 15) = Me.txt_NitPatrono.Value .Cells(Fila, 16) = Me.txt_NombrePatrono.Value Else .Cells(Final, 1) = Me.cmb_NitContribuyente.Value .Cells(Final, 2) = Me.txt_NombreContribuyente.Value .Cells(Final, 3) = Me.txt_CalleContribuyente.Value .Cells(Final, 4) = Me.txt_CasaContribuyente.Value .Cells(Final, 5) = Me.txt_ApartamentoContribuyente.Value .Cells(Final, 6) = Me.txt_ZonaContribuyente.Value .Cells(Final, 7) = Me.txt_PostalContribuyente.Value .Cells(Final, 8) = Me.txt_ColoniaContribuyente.Value .Cells(Final, 9) = Me.txt_DepartamentoContribuyente.Value .Cells(Final, 10) = Me.txt_MunicipioContribuyente.Value .Cells(Final, 11) = Me.txt_TelefonoContribuyente.Value .Cells(Final, 12) = Me.txt_CelularContribuyente.Value .Cells(Final, 13) = Me.txt_FaxContribuyente.Value .Cells(Final, 14) = Me.txt_CorreoContribuyente.Value .Cells(Final, 15) = Me.txt_NitPatrono.Value .Cells(Final, 16) = Me.txt_NombrePatrono.Value End If Next Else Exit Sub End If End With Call ControlesFondoBlanco("datos_contribuyente", Me) Call LimpiarControles("datos_contribuyente", Me) LimpiarItems Me.cmb_NitContribuyente.SetFocus End Sub Igualmente dejo el archivo con lo que llevo avanzado hasta el momento para que me hagan el favor de verificar cuál es el problema o dónde es que estoy teniendo el fallo en la programación. De antemano muchas gracias por su ayuda. Plan IVA SAT 2017.xlsm
  12. Buenas Compañeros. Mi problema es el siguiente, tengo una tabla para insertar los gastos lo cual lo hago a través de un formulario, los datos a insertar en la tabla los tengo puestos para que se ordenen por fecha, y todo funciona correctamente bien, salvo las dos ultimas columnas de la tabla ("mes" y "año") que no las ordena, me las inserta en la ultima fila y me desplaza todos los datos de esas dos columnas hacia arriba, con lo que hace inservibles el resto de registros. He revisado los códigos pero no veo forma de encontrar el error. Gracias de Antemano. Gastos.xlsm
  13. Buenas, Me gustaría poder imprimir un formulario en Horizontal, es decir el formulario ocupa el tamaño A5 y se muestra en la pantalla de manera vertical, tengo un botón con el código: me.printform Hasta aquí todo perfecto, lo que yo quisiera es poder imprimir de manera horizontal para que me ocupe medio folio (cuartilla), he visto por otras pagina que hablan mucho de este tema pero las soluciones que han dado no me ha funcionado ninguna. Si alguien sabe como hacer esto agradezco cualquier idea. Muchas gracias
  14. Version 1.0 Beta

    78 downloads

    Libro de cálculo Excel Generador de Cartones para Bingo, este proyecto genera hojas con series de 5 cartones para bingo en cada hoja, en cada hoja hay 5 cartones (los 5 cartones son los mismos) para realizar 5 sorteos diferentes (vertical, horizontal, diagonal, L, cartón lleno), este bingo es para números del 1 al 75 el libro contiene 2 hojas iniciales, la hoja "calculo" que es donde se muestra la información principal y en donde el usuario puede realizar las siguientes operaciones: - introducir el numero de series de cartones que desea generar - generar la serie de cartones - imprimir la serie de cartones la segunda hoja corresponde a la "plantilla" de la serie de 5 cartones, allí usted puede personalizar la presentación, antes de realizar las operaciones en la hoja calculo. Nota: El proyecto se encuentra en versión BETA debido a lo siguiente: - hasta la presente fecha ha sido probado en office 2010, corriendo en un ordenador I3 con 8GB de ram. - lo he probado hasta la generación de 1000 cartones, teoricamente no debería haber limites salvo los impuestos por el paquete ofimático Microsoft Office y los recursos del ordenador. - los numeros que llenan los cartones de bingo, son generados de forma aleatoria, pero no se comprueba si hay cartones repetidos. No debería ocurrir, pero siempre existe la probabilidad. Me queda pendiente escribir el código que compruebe la existencia de cartones repetidos. Cualquier duda, comentario, criticas, bugs, mejoras pueden hacerlo por acá. NO soy un profesional en excel, soy un hobbista al que le encanta la automatización de excel para simplificar trabajos en contabilidad mediante el uso de Excel. Un saludo desde Venezuela.
  15. Ante todo un saludo, este es mi problema, he creado un botón y le he puesto código y hasta allí normal, pero la última parte del código es para quitar unos formatos pero de la siguiente hoja, pero allí es donde me manda el error 9, que se supone es que no existe esa hoja, he intentado con ponerle en español, inglés, con el nombre que le he puesto, pero nada. Adjunto el código y la imagen para que vean cuantas hojas tengo. El botón lo he puesto en la Hoja1 y quiero modificar en la Hoja3 con este código. También he probado usar Activate, pero igual siempre me manda error 9. Espero puedan ayudarme. Saludos Sheets("Hoja3").Range(Cells(NroFila, NroColumna + 1), Cells(NroFila, 8)).ClearContents Sheets("Hoja3").Range(Cells(NroFila, NroColumna + 1), Cells(NroFila, 8)).Validation.Delete Sheets("Hoja3").Range(Cells(NroFila, NroColumna + 1), Cells(NroFila, 8)).Font.Name = "Calibri"
  16. Hola Buenas Noches. Ante Todo quiero felicitar este sitio que está super y ofrece mucha información para resolver problemas en excel. tengo un libro en excel en el que mediante macros vba, genero 300 hojas. Luego investigando un poco, me conseguí que para imprimir mediante macros, se utiliza la siguiente línea de código Sheets(Array("hoja", "hoja (2)", "hoja (3)" )).PrintOut el problema radica en que habría que repetir "hoja (x)" 299 veces, y cuando intento pegar el texto, el editor de vba me arroja el error "Demasiadas continuaciones de lineas" he tratado de crear una matriz publica en un modulo, pero igual me arroja el mismo error, ¿habrá alguna manera de utilizar la función Array (o cualquier otra función) que permita aceptar grandes cantidades de variables? Saludos
  17. Estimados amigos del foro, no puedo resolver este problema. Tengo 3 hojas Docente, PAE y Autónomo En cada uno tengo una lista de estudiantes en orden numérico y notas según fecha y razón de la nota. Lo que quiero es que cuando escribo un número en el rango ALL1 hoja A3, identifico al estudiante y las notas de las tres hojas se muestran en la hoja ALL1 en el sitio correspondiente. Traté de mostrarlo, pero sólo puedo con la fila 8, es decir, con el estudiante número 1 ¿Podría ayudarme por favor en este caso? Nota: He diseñado dos modos para ALL1 horizontal y ALL2 Vertical Para presentar el resumen de las notas de cada alumno y poder imprimir Gracias https://drive.google.com/file/d/0B3_DtuouyRoycFRVRjkzb3Q4NjQ/view?usp=sharing
  18. Estimados, tengo una planilla con varias formulas, referencias absolutas y relativas, que las he bloqueado y ocultado y funciona perfecto, el rango en donde se ingresan los datos esta obviamente desbloqueado, pero cuando algún usuario accidentalmente mueve una de estas celdas, la planilla falla con el típico "#REF". Hay alguna forma de bloquear el desplazamiento de un rango de celdas en VBA? Gracias,
  19. Cordialmente solicito me brinde ayuda para una ListBox que captura perfectamente, pero necesito que multiplique 2 TextBox txtTotal=txtCantidad* txtPrecio Si quiero cambiar un Precio o una Cantidad, que lo pueda modificar Link de Drpbox: https://www.dropbox.com/home?preview=ListBox+Buscar%2C+Modificar+Presupuesto.xls
  20. Hola amigos tengo un form que carga datos en especial el No de Lote pero el objetivo es que si ingreso uno que ya se ingreso me salgo el mensaje "este lote ya existe" o algo así. Tengo el código pero no me funciona no se que me falta ponerle ojalá aguien me pueda dar una guía gracias. Envio el archivo y gracias por tomarse el tiempo para ayudarme. Lanzar MsgBox al intentar insertar dato repetido.xlsm
  21. Saludos amigos del foro Me gustaría preguntarles como se puede copiar un rango de una hoja a otra, pues ya me trabe en mi mente , el código que he puesto es este: Hoja30.Range("A8:Y8") = Hoja3.Range("A8:Y8") Normalmente asi me funcionaba para otras copias directa, ahora o se que pasa Gracias por su colaboraciones
  22. tengo esta formula pero no logror hacer que funciones en un boton para que saque por mes la cantidad =+SUMAPRODUCTO((MES(Sajo!F3:F9988)=7)*Sajo!E3:E9988) alguna manera de sacar esta funcion
  23. hola queridos amigo dejo este temita aqui para su gran ayuda le pido su ayuda como logro eliminar con el boton que tengo alli los datos que tengo alli en el listbox quiero selecionar el dato y luego eliminarlo espero me ayudaden con esto ViajeRealizadosEjem (1).xlsm
  24. alguna manera de hacer esto que solo divida que no sume Dim arr(1) As Double Dim ave As Double, std As Double arr(0) = CDbl(TextBox2.Value) arr(1) = CDbl(TextBox7.Value) ave = Application.WorksheetFunction.Sum(arr) TextBox8.Value = ave
  25. Hola amigos El 16/11/2016, pedí ayuda a este foro para codificar un procedimiento. Paralelamente, me di a la tarea de investigar para poco a poco ir escribiendo dicho código. A la fecha logré lo que buscaba con el código que abajo incluyo. No obstante, me gustaría saber si a ese código se le puede mejorar la eficiencia. Como pueden ver no hay variables declaradas, no encontré como hacerlo. Finalmente, necesito escribir un bucle (lo he intentado sin éxito) que abarque el código para que haga lo siguiente: 1. Abrir de una carpeta un archivo excel y ejecute el código (cada archivo esta identificado por fecha:dd-mm-yyyy). 2. Copiar la currentregion y pegarla en la hoja1 de otro libro excel 3. Abrir otro archivo excel correr el código 4. Copiar la currentregion y pegarla debajo de la última línea del paso 2. 5. Seguir con el procedimiento hasta que no haya libros en la carpeta Sub importdtkfrm() Workbooks.Open Filename:="D:\AZK\Dtk\DtkFrms\13_11-2016.xlsx" Windows("imprtdtk.xlsx").Activate Application.WindowState = xlNormal Windows("13_11-2016.xlsx").Activate Sheets.Add After:=ActiveSheet Application.WindowState = xlNormal Windows("imprtdtk.xlsx").Activate Sheets("Hoja1").Select Range("D2").Select Selection.Copy Sheets("Hoja2").Select Range("B2").Select ActiveSheet.Paste Range("E2").Select Range("E2").Value = 1 Sheets("Hoja1").Select Range("G2").Select Selection.Copy Sheets("Hoja2").Select Range("C2").Select ActiveSheet.Paste Sheets("Hoja1").Select Range("H2").Select Selection.Copy Sheets("Hoja2").Select Range("D2").Select ActiveSheet.Paste Sheets("Hoja1").Select Range("J2").Select Range("J2:CX2").Select Application.CutCopyMode = False Selection.Copy Sheets("Hoja2").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, transpose:=True Sheets("Hoja1").Select Range("DO2:DP2").Select Application.CutCopyMode = False Selection.Copy Sheets("Hoja2").Select Range("F2").Select ActiveSheet.Paste Sheets("Hoja1").Select Range("E4").Select Application.CutCopyMode = False Selection.Copy Sheets("Hoja2").Select Range("H2").Select ActiveSheet.Paste Hoja2.Columns.AutoFit Application.CutCopyMode = False Application.ScreenUpdating = True With ActiveSheet On Error Resume Next .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End With Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "hola" 'escribí hola para poder seleccionar el rango Selection.End(xlUp).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Range("A2").Select Range("B1").Select Range("A1").Select Selection.CurrentRegion.Select Selection.Cut Workbooks.Open Filename:="D:\AZK\Dtk\DtkFrms\Imp\imptbl.xlsx" Range("A2").Select ActiveSheet.Paste 'acá para el segundo archivo que correl el código, necesito que pegue lo copiado seguido de la última línea con datos del primer pegado. Windows("DatosFormulario13-11-2016.xlsm").Activate Range("E2").Select Range(Selection, Selection.End(xlDown)).HorizontalAlignment = xlCenter Cells.EntireColumn.AutoFit Application.CutCopyMode = False End Sub Agradezco la ayuda
×
×
  • Create New...

Important Information

Privacy Policy