Buenas tardes a todos, lo primero es disculparme por si mi duda no debería de ir en este grupo. Tengo una duda si se puede realizar o no (sin VBA o con), intentaré explicarme lo mejor posible. Digamos que trabajo con un fichero de txt de unas 2000 palabras, mi objetivo es importarlo y que salga columnas de 50 filas. Se restringir la tabla en la fila 50 pero se corta ahí. Mi duda es puedo programar (con VBA o sin) de alguna manera para que una vez llegue a la fila 50 salte de columna y así sucesivamente y siga añadiendo las palabras? Un saludo a todos, gracias.

Buenas, tengo el siguiente código: Private Sub CommandButton106_Click() Hoja2.Select Hoja2.Range("B1").Select While ActiveCell.Offset(0, 6) <> Empty ActiveCell.Offset(1, 0).Select boton = ActiveCell.Offset(0, 6) <======= En ésta linea de código obtengo el nombre de un botón que se encuentra digitado en una celda. (Ejemplo: "CommandButton6") y es almacenado en la variable boton, tal como se muestra. If Hoja1.txtcodigo.Text = ActiveCell Then boton.BackColor = &HFF& <======= Aquí está el problema, cuando quiero hacer referencia a ese nombre como un botón, no lo reconoce (Ejemplo: CommandButton6.Backcolor=&HFF…

Hola, buenos dias, como estan? Les comento que soy nuevo tanto en el foro como en el uso de Macros. Mi inconveniente es este, tengo la siguiente Macro: Sub Definitiva_Posta() Definitiva_Posta Macro Range("B1:B10").Select Selection.Copy Sheets("Hoja2").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Rows("3:3").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Hoja1").Select Range("B2:B10").Select Selection.ClearContents End Sub Lo q…

Hola favor necesito de vuestra ayuda!!! mi problema es que quiero adjuntar un solo archivo (ya creados en pdf) a cada dirección de correo que esta en la columna 14 y filas 1 en adelante; y desde el segundo correo me va adjunto el archivo anterior más el correspondiente de fila 2; en el tercero, los dos anteriores, más el de la tercera fila y así sucesivamente. Favor vuestra ayuda en .AddAttachment Les dejo todo el código: Sub SendMail_Gmail() Dim Email As CDO.Message Set Email = New CDO.Message correo = "xxxxxxxxxxx@gmail.com" passwd = "123456789" mensaje = Range("A1") cuerpo = Range("B1") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail…

hola he creado un a aplicacion y en uno de los modulos abre y cierra otro libro de excel dependiendo los cambios que se le hagan guarda y cierra pero al terminar de usar la aplicacion quedan muchas ventanas vacias abiertas tantas como capturas o modificaciones que hice este es mi codigo Private Sub MultiPage2_Click(ByVal Index As Long) If MultiPage2.Value = 0 Then Application.Visible = False Application.ScreenUpdating = False Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "server.xlsx" Worksheets("MATERIALES").Activate Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Clear Worksheets("MATERIALES").AutoFilte…

Okayy, uhm, ¿alguien por favor me podría ayudar con una tarea, por favor? No sé nada de macros, lo único que tengo hecho fue por ayuda de una amiga, pero ella ya no sabe como hacer lo siguiente: Mi tarea es hacer una ficha de búsqueda de "biblioteca". Y lo que tengo que hacer es que en la hoja uno (inicio) escribiendo en las casillas de a lado o el autor, color, código, título, fecha (alguno de ellos, no escribir en todas), presione botón "buscar" y me dirija a la hoja 2 (base de datos), y seleccione lo que haya pedido. Estoy demasiado perdida. infooo..xlsm

ActiveSheet.Shapes("foto").Fill.UserPicture (rutaimagen)

Buenos dias maestros del excel, Tengo un userform con varios ComboBox y ellos hagan las consultas de distintas tablas del access (datos constantemente actualizándose) con la acción del UserForm_Initialize. Con este codigo puedo consultar en el combobox desde access: Private Sub UserForm_Initialize() Dim cn As Object Dim datos As Object Dim consultaSQL As String Dim conexion As String Set cn = CreateObject("ADODB.Connection") conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\Users\JULIO CESAR\Desktop\Prueba_V01.accdb" 'Aqui va la ruta de tu base de datos consultaSQ…

Buenas noches estimados Si son tan amables y me colaboran. Necesito crear una plantilla que me permita cargar una Base de datos de 1.000 o más registros con sus diversas características. De modo que pueda posteriormente comunicarme vía Whatsapp web haciéndoles llegar información a todos estos Clientes, cada vez que tengamos promociones en el Concesionario.

Buen día. Tengo este archivo en excel con un ejemplo de pasar datos en tiempo real con programación VBA, este ejemplo me lo creo una persona de aquí mismo de este foro y estuve interactuando con el código del ejemplo. Mi duda es, en el archivo viene explicado lo que busco lograr pero no sé como, tengo datos aleatorios de la columna A a la columna F, al hacer doble click en cualquier dato lo posiciona automáticamente en la columna K a partir de la fila 2 y de ahí cualquier dato lo va colocando hacía abajo. Mi duda es ¿Como puedo posicionar estos datos en cualquier fila ya sea a partir de la fila 10 y así hacia abajo, de la fila 2 hacia abajo o de cualquier fila q…

Intento abrir un archivo CSV con una macro y quiero cambiar los paramentros de TextFileColumnDataTypes. hice una macro con la que a través de las caracteristicas de cada columna puedo incluir en una variable los parematros que necesito, pero al abrir la QueryTables.Add, no se como suplir el array. Los datos que incluye la variable son: MyVariable = "4,2,2,2,1,2,1,1" With ActiveSheet.QueryTables.Add(Connection:= _ ImpFile, Destination:=Range("$A$1")) ' .CommandType = 1 .Name = "salidas_merc" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True …

Estoy generando macro para actualizar automáticamente pero al tratar de ejecutar el codigo me arroja un error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto. El código que estoy utilizando es el siguiente: ActiveSheet. PivotTables("resumen"). PivotCache. Refresh Gracias por una respuesta que me ayude a solucionar este error

muy buenas tardes alguien me podría ayudar con mi formulario por favor, tengo un formulario que contiene un listbox en el cual me muestra todos los datos de una tabla, también tiene 4 combobox con los cuale quisiera hacer filtros con cada uno, pero buscando he buscado en Internet filtros con conbobox y solo he hallado 1 que me pareció que funcionaria, pero no lo hizo, el combobox que filtra fechas solo me deja el listbox vacio los combobox filtran fecha, sección , detectado y el ultimo por hora, pero ese ultimo no lo necesito por el momento solo los otros 3 que mencione primero espero que que me puedan ayudar y gracias de ante mano PRUEBA3.0.xlsm

HOLA BUEN DIA, QUISIERA SABER SI ALGUIEN CONOCE ALGUNA SOLUCIÓN PARA EL PROBLEMA QUE ESTOY PRESENTANDO resulta que estoy redireccionando con algunas teclas a celdas especificas en mi hoja de trabajo, para ello uso el sgte cod vba cuando la hoja este activa Private Sub Worksheet_Activate() Worksheets("COMPRAS").PivotTables("TablaDinámica2").PivotCache.Refresh Application.OnKey "{ESC}", "IR_A" Application.OnKey "{ENTER}", "introLIQ" Application.OnKey "~", "introLIQ" Application.OnKey "{TAB}", "tabuladorLIQ" End Sub y cuando se desactiva la hoja vuelvo todas las teclas a su funcionamiento normal con este cod …

Buenos dias, tengo una tabla que en la columna A tiene datos de metrajes que se en algunas ocasiones se repiten correlativamente ya que es una tabla normalizada. Necesito recorrer la columna A y cuando encuentre varias filas con igual metraje, en la columna C empiece a llenar desde 0 a más, dependiendo el número de filas con igual metraje. En caso no se repita el metraje deberia llenarlo con O automaticamente. Adjunto excel para mayor claridad. Muchas gracias por su ayuda. MarielaLilianEjmDatos.xlsx

Buen día compañeros, acabo de entrar a un nuevo trabajo y me pusieron temporalmente a programar en vba ya lo he hecho antes pero no soy un programador como ta por lo que me he topado con algunos problemas. En esta imagen utilice el grabador para general mi tabla dinámica mi problema es que me pone esa referencia especifica, como yo requiero una plantilla en la que los usuarios pegaran datos y ejecutaran la macro necesito que ese rango sea variable, pero ya utilice range y cells y no me funciona. Algún otra idea

Necesito transformar una planilla de registro de servicios bajo selección automática,algun prototipo porfavor,gracias!!! Adjunto mi planilla para convertirla Precios 2020 HP.xlsx

Buenos Dias. Mi nombre es David, y soy nuevo en esto, necesito me ayuden tengo una macro que depende el usuario que se ingrese se activan las celdas para ese usuario, adicional a esto tengo un optionbutton donde escojo varias opciones, pero lo que necesito que el optionbutton se active o sea visible dependiendo el usuario ingresado, espero me pueda colaborar. Saludos

Hola a Tod@s. Necesito ver si me podéis ayudar, la idea es hacer una Macros donde me pueda Borrar los dos últimos Rangos ocupados a partir de la Fila 218 de la Hoja1, según el ejemplo, los primeros son CA218:CB424 para ya después dar clic en la Macros5. He adaptado una Macros que tiempo atrás me facilito el Amigo @Gerson Pineda pero no se ejecuta, supongo que he trasladado algo mal a esa Macros, pero no le encuentro el error. En el ejemplo que subo muy pequeño está sombreado en Amarillo ese primer Rango a Borrar en la Hoja1. Agradecido de antemano por sus respuestas. Un Saludo. Lázaro PRUEBA-1.rar

Hola Quiero saber cómo puedo hacer una macro para el siguiente problema que se me presenta. Estoy tele trabajando desde casa y no tengo otra posibilidad de ayuda que la vuestra. Tengo Hoja 1 y Hoja 2 En la hoja 1 tengo los datos ejemplo en B2,B3,B4,B5,B6,B7 En la hoja 2 tengo fórmulas que son recogidas desde la Hoja 1 es decir de B1 y genera 6 líneas de datos en esta con esa serie de datos. ( cada dato de la hoja 1 genera 6 líneas en Hoja 2 ) Necesitaría que copiaría estas 6 líneas, tantas veces como datos tenga en B la hoja 1. Si hago un copiar, no me funciona ya que la tener 6 líneas del las formulas en el que esta B2 me va al B7…

Hola. Estoy haciendo un macro para copiar 4 datos de 500 ficheros pdf editable, siempre en la misma posición del pdf, y pegarlos en un excel. El problema que estoy teniendo es moverme por el pdf. Lo estoy haciendo con SendKeys mediante "+^F" buscando el texto anterior a la cadena de datos que quiero y me funciona el buscar, pero no soy capaz de seleccionar el dato que necesito para poder copiarlo. ¿Alguien puede darme alguna pista?

Hola a todos, Tengo una excel con varias lineas que voy rellenando con los consumos de carburante de cada usuario y con su dirección de mail para enviarles un correo copiando su línea que aparece en el cuerpo del mensaje, me ha estado funcionando pero de repente me da un error, "Se ha producido el error '1004' en tiempo de ejecución: Fallo en el método 'EnvelopeVisible' de objeto '_Workbook' Adjunto la macro que utilizo Muchas gracias por la ayuda

Hola, tengo una consulta relacionada con la numeración de Botones. Al crear un Botón (al que luego asigno un Macro), este asume el nombre "Botón 1", el siguiente "Botón 2", etc ..... Por la estructura de de mi hoja, una macro borra estos botones y luego los vuelve a crear. El problema es que los nuevos botones tienen el nombre "Botón 3", "Botón 4", etc. Como esta operación la repito muchas veces, luego de un par de semanas, el nombre de los botones llega a "Botón 65536", etc., luego de esto, me arroja error, me imagino por que llegó a número máximo de botones. Existe alguna forma de "Resetear" o Limpiar esta numeración en algún momento, para …

Hola estoy organizando un torneo de futbol y tengo claro como quiero, el problema que tengo es pasarlo a excel, para que se automatize. ME podríam ayudar, dejo el archivo de lo que quiero. Primero hay una fase regular y luego hay otra de eliminatoria y que permite poner des del primero asta el último. Gracias plantilla lliga.xlsx

buenos días, no sé si será posible crear una macro para que a una hora determinada proteja una hoja y a otra hora la desproteja? gracias anticipadas.