Buena tarde, amigos del Foro .. alguien que me pueda asesorar sobre un código a traves de una macro que me permita concatenar los varias celdas con caracteres siempre y cuando se cumpla una condición con otras celdas con números. es decir si el las celdas de G51:G54, tienen valor numérico concatene la cadena de caracteres que tenga H1:H54, del archivo RO_SECHU a CONTROLROSECHU, Sub CopiarCeldas() Dim Orig, Dest, i&, uf& Dim wbDest As Workbook Dim wsOrigen As Worksheet, wsDest As Worksheet Application.ScreenUpdating = False Orig = Array("A37", "D5", "D7", "D17", "A23", "I13", "I15") Dest =…

Buenas tardes, Escribo para ver quien me puede ayudar, quiero hacer una macro que me permita enviar un email de Excel a Outlook con las siguientes características: - Archivo adjunto : que selecciones ciertos archivos que ya he adjuntado en un rango de celdas en forma de link. -Que el cuerpo del email sea un rango de celdas especifico que conteniente formato condicional. He encontrado una macro en una pagina de la web que ahora no recuerdo, pero el problema que tengo con esta macro es que no me adjunta los archivos y el otro problema es que el cuerpo del email me sale el rango de celdas visibles pero no salen las celdas que contienen formato con…

Gracias por atender mi pregunta. Voy a intentar explicar todo lo que hago. Yo recibo de un fabricante una tarifa en PDF. Esta tarifa en PDF me la transformo a Word con el programa "Solid Convert PDF" Una vez la tengo en word me lo paso copiando a excel con el formato que te adjunto. Tiene que ser de esta forma. Primero el código del artículo, que tipo de artículo es, si es ud ó ml, Descripción breve, casillas en blanco, unidad, precio/ud y finalmente lo que será el precio final. Llegados a este punto, tengo que insertar entre artículos una fila hasta el final de los artículos. Y una vez insertadas todas las filas, la celda "D1" la tengo que copiar de en la celd…

Buenas tardes Estoy creando una registro de informacion pero lo quiero realiar con una macro pero no se como puedo insertar esta informacion en una hoja de excel que yo diseñe e encontrado algunos codigos pero no los entien espero alguien sepa explicarme

Buenas noches, en el link https://www.ayudaexcel.com/foro/macros-programacion-vba-10/necesito-copiar-importes-hoja1-si-cumplen-criterio-mediante-macros-gracias-27923/ Disculpen si no es la manera de mostrar la referencia, hay algo parecido, a lo que necesito resolver. Se trata de que con una macro, pasar el resultado en valores de la hoja1 a la hoja2, al acumular los valores de las celdas en una columna, conforme a lo que muestro en el archivo adjunto. Aquí no se trata de cumplir criterios en las celdas, pero algunas de ellas pueden estar vacías, o tener por valor cero. Salvo estar equivocdo, en la macro utilizan la función SUMAPRODUCTO. Gracias de antemano por la a…

Estimados, Necesito una macro poder extraer los archivos de una carpeta especifica de Outlook a un directorio cualquiera C:/ por ejemplo. He buscado dentro del foro pero no he encontrado ninguna. Muchas gracias por su ayuda. Danie.

Hola buenas tardes: Tengo que realizar una base de datos en excel copiando datos de archivos de word, los archivos de word son iguales lo unico que cambia es el nombre y algunos otros datos, quiero extraer esos datos de word y pegarlos en excel en columnas separadas y en hojas separadas ya que tengo que hacerlo por años, no tengo idea de como hacer una macro para realizar este metodo. Los datos en word que estan subrayados con amarillo, son los que necesito copiar. Gracias Archivos.zip

Buenas, Actualmente estoy haciendo una macro, y estoy trabajando con su base de datos. Un amigo me mostro que podía hacer una base de datos con google drive pero la misma solo registra el tiempo y fecha en la cual se subieron los datos (esto lo hace solo). Quisiera saber si alguien tiene experiencia en el asunto y me ayuda con los códigos a ver qué hago mal. Gracias de ante mano. Dim resultado As String Dim url As String, datometodopost As String Dim winhttpsolicitud As Object Set winhttpsolicitud = CreateObject("WINHTTP.winhttprequest.5.1") url = "https://docs.google.com/forms/d/1PJ2RzhSLjli6VQthfnO_2W3ydw7qmc6KXI2N1bIRmFA/formResponse" d…

Buenas, Necesito ayuda, no domino mucho el excel y no doy con la macro que necesito. Lo único que necesito es crear archivos txt individuales con el nombre de cada celda, encontré una macro que me valía pero lo tenia que hacer celda a celda y necesitaría que lo hiciera por rangos. si se creara automáticamente al guardar nuevos datos sin necesidad de ejecutar la macro perfecto pero seria un add. Adjunto la macro que encontré por si sirve de ayuda. Sub GeneraMiniArchivoDeTexto() Dim myfile As String, mytexto As String myfile = ThisWorkbook.Path & "\" & _ Cells(Selection.Row, "a") & ".txt" If Dir(myfile) <> "" Then Kill myfile mytexto = Cells(Sel…

Hola tengo un gran problema En el excel de inventario necesito agregar una columna despues de la ultima empresa que se ingreso y despues copiar datos del excel de guia en esa misma columna y asi para cada empresa que tenga que agregar. ejemplo a mi me llegan varias guias de diferentes empresas entonces tengo una guia madre donde coloco las unidades de cada cosa que piden necesito una macro que en el excel de inventario me cree una nueva columna y que copie los valores en las casillas correspondientes. si no quedo muy claro me preguntan por favor. adjunto excel. ayuda.rar

Buenas noches, traigo un archivo para que me ayuden, si es posible: 1- En la hoja "Resumen" hay 3 cuadros del lado derecho del Listbox, en el cual al segundo cuadro le quiero agregar la información de la columna 251 hasta la 256 de la hoja "Base de datos" (Tal cual con los mismos requisitos del cuadro de arriba). Esto lo quise hacer agregando el "For...To" dentro de otro. Pero me tira el error de validación. 2-Hay un tercer cuadro mas chico en la hoja "Resumen" en el cual quiero que traiga información de la hoja "Base de datos", mas exactamente de la columna I a la L. Pero con una condición, que si alguien quiere cambiar esa información desde la hoja "Resumen" lo pueda …

No se mucho de Macros en VB pero encontre este archivo en Internet y no se como funciona tengo una base de 3500 filas por 66 columnas y necesito busar informacion para ir actualizando el registro y añadir mas pero en cuanto a la busqueda este aechivo esta muy bien, pero no se como crear la tabla y como se usan los datos que estan en la hoja "WORKING". Saludos Copia de Filter-ListBox.xls

Hola estóy intentando con un botón que una gráfica cambie la fuente de datos, si lo hago de forma manual me lo realiza sin problema, pero cuando grabo una macro y la voy a utilizar me lanza un error. Gracias CAMBIO LEYENDAS GRAFICOS.xls

buenas tardes mi consulta es la siguiente alguien tendra algun ejemplo de consultar un registro en un formulario excel ,y devolver los datos de una database en access, al formulario de excel. saludos,

Estimados: Me gustaría que me ayudaran a resumir la información del siguiente archivo mediante una macro. Para empezar es un que contiene los mensajes swift de donde trabajo, son siempre entre 30,000 y 35,000 filas de información (yo adjunto solo un extracto). Como pueden ver el archivo no se puede manipular debido a que existe mucha basura de información. Les explico un poco de como se estructuran los mensajes swift. Un mensaje swift MT950 y MT940 son como estados de cuenta donde se reflejan todos tus movimientos de un determinado número de cuenta. Siempre se componen de máximo 18 movimientos, con un saldo inicial y un saldo final, en caso de haber mas movimientos se m…

Hola, Tengo que crear Frame con OptionButton dentro, como no se la cantidad de Frame que tengo que crear, lo configure con el bucle For "i", el problema es que, al querer crearlos no me deja, me tira un error. este es el codigo: [FONT=Courier New]For n = 1 To i : t = t + 1 : g = g + 1 With Me.Controls.Add("Forms.Frame.1") .Name = "Name" & t: .Name = t .Top = 82.5 + ((n - 1) * 60): .Height = 49.5 .Left = 12: .Width = 246 .Add ("Forms.OptionButton.1") .Name = "Value" & g: .Value = False .Top = 18: .Height = 17.25 .Left = 12: .Width = 57 End With[/FONT] next[/CODE…

Buenos dias Tengo un formulario con un boton y dos cuadros de texto que empleo para abrir un libro excel. El primer cuadro de texto es para indicar el nombre del archivo y el segundo cuadro de texto es para indicar la hoja del archivo que quiero abrir. Lo que busco es si el archivo no existe genera un error y con la instruccion de on error coloco un Msgbox diciendo que el archivo no existe y se detiene la instruccion. Ejemplo: Private Sub CommandButton8_Click() On Error GoTo error1 Dim nombrearchivo As String nombrearchivo = "\\SERVER\Users\Administrador.SERVER\Documents\PEPE\PEPE\Dpto. Comercial\Presupuestos\Ofertas\Excel\Ofertas " & TextBox2.Value &…

Buenos dias, necesito para poder ver en portatil, el libro de facturacion, cambiar a resolucionde pantalla 1024x600.

Buenas noches Tengo un problema con una macro para extraer datos de paginas web, desde ya agradezco nuevamente a los miembros del foro por su ayuda en la solución. Gracias Comisiones-Y-Primas-De-Seguro-Por-Afp-Desde-Excel.rar

Hola Amigos, soy nuevo aquí pero aprendo un montón de sus respuestas. Queria consultarles si pueden ayudarme con el siguiente tema. Deseo traspasar un rango de datos de una columna definida, de varios archivos, que se van nombrando de distinta manera, y traspasarlos a un excel común, uno al lado del otro (de acuerdo a un numero de reporte correlativo) para lograr hacer un estadistico con dichos datos. Adicionalmente a esto, vale comentar que la columna de donde saco la informacion (de cada reporte con distinto nombre), es una columna que tiene una formula y que debo colocar en el estadistico como valor absoluto. Desde ya les agradezco.

Hola! Tengo el siguiente codigo VBA asociado a una macro y no he logrado agregar una linea para saltar todas las celdas que se encuentren en blanco sin terminar mi macro, me pueden ayudar por favor? Basicamente busco que al correr la siguiente linea, el codigo sepa que cuenado la celda esta vacia, se debe pasar a la siguiente celda sin enviar un 0 ni otro valor. Set valueCell = Worksheets("WritePI").Cells(i + 2, 2) Codigo: Sub put_data3() Dim i As Integer Dim numoftags As Integer 'The following four variables are arguments to PIPutVal() Dim sTagname As String 'Tagname Dim stime As String 'Timestamp …

hola buenas, he estado hace un tiempo aprendiendo y desarrollando macros en vba para realizar scraping en paginas web, en una de las paginas que utilizo apareció esta protección del sitio, el posible bypasear con vba? he leído que se puede hacer con phyton pero no conozco ese lenguaje el mensaje que dice es Cheking your browser before accessing "sitio" dejo pantallazo https://ibb.co/wp4mwzP en caso de no ser posible, quizás ya sea momento de aprender otro tipo de lenguaje agradezco mucho la ayuda

hola amigos estoy pretendiendo:frog: hacer un especie de semaforo de actividades, es decir; que por ejemplo en determinada fecha se registró una actividad pero al transcurrir el tiempo:uncomfortableness: necesito que el sistema me de el indicador de "*******" (rojo), "prevenirse" (amarillo), "sin problema" (verde):cold:...esto lo quiero hacer obteniendo la informacion de las celdas de excel y que cuando abra el formulario de esa celda activa me muestre dicho semaforo...¿creen poderme ayudar almenos con las ideas?:concern: gracias y saludos conteodediasmesesyaños.xls

Un saludo a todos y de antemano, gracias Tengo una hoja (Detalle) que es mi base de datos pero tengo que realizar con macro un Resumen en donde por periodo me de los días que visitaron una tienda, ya realice una macro que lo hace solo que lo hace por cada registro por separado que tengo en la base de datos Y lo que quiero es que cada registro (representante, promovendedora, ciudad, farmacia) saque la fecha de trabajo y ponga sus datos en las diferentes semanas pero en el mismo renglón por registro que sea igual. en el archivo esta un ejemplo de como debe de quedar basándose en la hoja Detalle y en resultado en la hoja Resumen. ojala y me puedan ayudar a definir …

Buenas Tardes amigos: Los molesto nuevamente, esta vez necesito que mi formulario, imprima varias veces unas label. Me explico mejor: En el userform2, ingreso unos datos, como fecha, chofer, placa, etc En el userform3, aparecen esos mismos datos que ingrese en el userform2, pero como label. Lo que quiero es que cuando le de a imprimir(grabar) en el userform3, me imprima las lineas en la hoja, pero que mantenga los datos de las labels que aparecen en el userform3, siempre y cuando no le de click a atras, que quiere decir volver a ingresar datos en el userform2. Ayudenme Es el 3er tema que abro y nadie me ayuda, se los ruego por favor. Se los agradezco Les adjunto…