Hola a todos, me encuentro realizando la automatización de una plantilla; sin embargo, soy algo nueva en esto de extraer números y porcentajes de cadena. El problema es el siguiente: la plantilla actual debo hacerla a mano y dividirlos para asignar un factor. Quisiera saber si hay la manera que mediante macros pueda hacerlo de manera automática y se detenga si no es escalar, así como calcular los porcentajes correspondientes en caso cumpla la condición (Siento que es bastante amplio pero agradecería mucho puedan ayudarme en algunas cosas). Adjunto ejemplo. Factores-dscto.xlsx

Saludos amigos tengo un formato el cual he hido adjuntando varias macro con diferntes instrucciones y necesito adjuntar una nueva que haga lo siguiente, al Imprimir una o varias de las hojas del libro se vaya creando un archivo en PDF con el mismo nombre del libro, en la hoja DATOS hay una celda (C16) que le da el nombre del libro que generalmente es un numero, he revisado varios proyectos pero ninguno se adapta a mi requerimiento, tambien en el editor de vb en la hoja ThisWorkBook hay una macro que se ejecuta antes de imprimir intente usar esta instruccion pero no me funciono Sub GuardaPDF() Dim rutaarchivo As String rutaarchivo = "C:\PDFs\" ActiveSheet.Expor…

hola buenas noches estoy desesperado ya que no se trabajar con macros, pero tengo que hacer un proyecto de una grafica de gant en macro ya la realize pero en la macro no grabe la grafica por que al ejecutarla me daba error y la duplicaba primero hice la grafica y luego empeze a grabar mi base, mi duda es que en la hoja que esta la macro le doy ejecutar no me da error, pero si la habro en la segunda hoja me da erro y no me copia la grafica me pueden ayudar es para mañana mi proyecto saludos

Necesito por favor si me pueden ayudar con la siguiente macro. Tengo un archivo con varias celdas de información climática pero debe ir colocando a cada columna la información de medida al final de cada celda ejemplo Temperatura exterior viene original 20.3 y debo colocarle 20.3 °C y así con las demás columnas envío el archivo en Excel como ejemplo agradezco me puedan ayudar.

Hola a todos, estoy nuevamente trabada en algo que pareciera facil pero me ha estado complicando la vida absoluta... tengo el siguiente codigo, que lo que DEBERIA HACER, es por cada celda que este vacia "celda.Offset(0, 36)= empty" me ejecute = hD.Cells(ufo, 36) = celda.Offset(0, 4) + celda.Offset(0, 5). Lo unico que LOGRE es que me haga esa funcion en la ultima fila... no se como hacerlo para cada celda vacia ?. Porque la idea es que la hoja se va a ir cargando con nuevos valores, y las celdas que estan vacias significa que aun no hice el proceso fechaJuliana...Perdonen mi igorancia total pero probe varias formulas. y la unica que me ha funcionado parcial…

Estoy haciendo una macro y al colocar esta formula =COINCIDIR(DERECHA(C8,1),Tabla!$F$2:$F$6,0) me sale error pero no entiendo porqueee alguien porfavor que me responda

Buen día, Espero alguien me pueda apoyar, tengo un libro de Excel con dos hojas, en la hoja llamada "Datos" viene capturada la información (marca, modelo, # de serie) de diversos equipos electrónicos proporcionados por el vendedor. En la Hoja 1 de igual manera viene capturada la información de los mismos equipos electrónicos capturada por gente en oficina. Se supone que todos los números de serie presentes en la "Hoja 1" deben coincidir con los números de serie de la hoja "Datos", ya realice la comparativa aplicando la función BuscarV en la columna G de la "Hoja 1", pero cerca de la mitad no encuentran coincidencia exacta. Pienso que puede existir errores d…

Estimados espero que se encuentren bien, para solicitar su valiosa ayuda en complementar la macro que necesito, les explico al cargar los xml a la hoja de excel requiero que en la celda de CFDI Relacionado en la celda "AD" tenga todos UUID y no solo 1, ya que en diversos mxl hace referencia a mas de 2 asi Tambien que extraiga el importe pagado Celda "AE". anexo ejemplo en la hoja si pueden apoyarme se los voy a gradecer mucho. PD. la macros la tome de este foro y estoy intentando adecuarlo a mi necesidad. Saludos Cordiales cfdi.rar

Buenas tardes, comento tengo un mini sistema desarrollado en el cual formate mi maquina y ahora me tira un error de compilacion..y hace como 4 años que hice este programa y no me acuerdo como solucionar este error.. el cartel dice Compile error: Variable not defined..y me selecciona una variable picker.width=72.. que estimo que es un datepicker que abre usado pero no se como agregar ese componente o libreria si alguien puede guiarme. muchas gracias

Saludos, tengo una macro que genera un archivo nuevo desde la hoja activa, como puyedo adaptarala para que por ejem. en un archivo de 10 hojas me genere archivos en la misma carpeta del archivo original, para las hojas 1, Hoja,2, Hoja 3, Hoja 4, Hoja5. Gracias Sub Libros_de_Hoja() Dim nombre As String nombre = ActiveSheet.Name ActiveSheet.Cells.Copy Workbooks.Add [A1].PasteSpecial xlAll Application.CutCopyMode = False ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nombre ActiveWindow.Close End Sub

Buenas tardes Tengo tres hojas: P01, P02 y P03 y 150 hojas numeradas de F001 á F150. Necesito copiar el Rango B21:J55 de P01 y pegarlo, por ejemplo, en la F001 y para ello uso la macro siguiente: Sub Inserta_1_F001 () Sheets("P01").Range("B21:J55").Copy Destination:=Sheets("F001").Range("B21") Sheets("F001").Select Range("L10").Select End Sub Esto lo hago con las macros correspondientes para la 150 hojas . Lo mismo con P02 y con P03 por lo que tengo 450 macros y que funcionan correctamente. Mi pregunta es: habría alguna forma de crear una macro que haga lo mismo pero desde …

Buenas con todos Soy nuevo en el tema de programar en visual basic por medio de excel Tengo planeado hacer un formulario que busque el tipo de equipo(hojas de excel) mediante un combobox y luego en un textbox me arroja un valor de una columna de la hoja seleccionada para luego en un listbox mostrar la información del valor de la columna. Aparte de ello el registro de equipos en base a las hojas de excel creadas( notebooks, desktop, impresoras) Las columnas o los campos de texto que tiene el formulario es Modelo , serie , usuario, observacion ( texbox) Tipo de equipo, caracteristicas, contenido, sistema operativo ( combobox) En tipo de equipo debe aparecer las hoja…

Hola Comunidad Un gusto saludarlos Adjunto archivo que en el cual requiero que al rellenar filas de la hoja -Seguimiento Pendientes 2014- en la hoja BDGeneral se haga como un buscarv múltiple para cada mes y cada área esto con el fin de luego crear listas despegables dependientes. Quedo atento y muchas gracias Saludos Ejemplo.rar

Hola buenas. Necesitaria crear una macro en una hoja distinta a las demas y que esta ejecute a las otras macros que hay en diferentes hojas del mismo libro. ejemplo: para unas macros con sus botones en hoja2,3,4 y desde hoja1 desde otro botón que se ejecuten las anteriores. Salud2.

Buenas tardes tengo mi código, que entra en la pagina se loguea con usuario y contraseña, pero no he podido ingresar datos en el siguiente form, este es un extracto de la pagina de internet que deseo llamar y ingresar datos y darle .submit <td> <form name="form1" method="post" action="/samenlace/Enlace/enlaceMig/LoginServlet?opcion=1"> <input name="token" type="password" size="8" maxlength="8" autocomplete="off"> Espero que me puedan ayudar. Saludos.

Hola, de apoco he avanzado con lo que es VBA, ya que no es de mi total dominio, quería ver si alguien me podría ayudar... Por fin cree una macro que me expulsa un archivo que se edita desde excel, y me expulsa 2 tablas desde el mismo excel.. todos son archivos separados ( en total son 3 archivos base, ya que puede variar.. lo mínimo son 3 y lo máximo hasta ahora son 22 archivos) Si alguien me pudiera ayudar, estoy en 0% de esto ya que VBA en Word recién lo estoy viendo y no hay mucha info.. Necesito que desde el primer archivo que es una plantilla con texto se añadan los 2 otros archivos que también expulso la macro, explico.. los otros 2 archivos s…

Hola, Tengo una macro que pone las lineas de un listbox a varias lineas de excel. El problema es que esas lineas las tengo minimizadas y la intención es combinar esas celdas, pero entonces solo me poone la primera linea del Listbox. Como puedo hacerlo para que se pongan todas en la celda combinada. Ahora tengo esto. Worksheets("Formato Comunicación PRC").Select Y = 27 a = ListBox1.ListCount For i = 0 To a - 1 Hoja2.Cells(Y, 1) = ListBox1.List(i, 0) Y = Y + 1 Next i Gracias

Deseo enviar varios correos a diferentes destinatarios de Gmail a través de Excel. No se nada de macros y he visto tutoriales pero salí más confundido. Tendrían algún ejemplo que me sirva? O tal vez un gestor de correos? Les doy un ejemplo de mi drama. Todos los meses tengo que enviar unos informes a más de 400 personas, y a cada mes vuelvo repetir lo mismo. Es agotador. Muy agradecido.

Estimados del foro, Buenos días!. Estoy creando una cinta personalizada en la cual debo desplegar gráficos por clientes. La estadística se mide por los meses del año. Tengo un Combobox en el cual debo realizar la selección del año a evaluar. El caso es que para seleccionar desde este Combobox estoy usando la función RibbonControl que usa para el llenado y despliegue la instrucción: label = Choose(Index + 1, "Select from list", "Macro 1", "Macro 2", "Macro 3") La idea, es cambiar la lista de opciones fijas a una dinámica con una matriz: label = Choose(Evaluate(arrayAnos)) Pero lamentablemente no resuelve. ¿Alguien me puede guiar por favor? …

Buenos días y agradecer de antemano la atención Tengo dos pestañas y necesito el código para que cuando no encuentre un dato en la pestaña 1 lo pase directamente a la ultima fila de la pestaña dos. En el fichero adjunto, sería buscar en la pestaña " Original" la columna B (Nº expediente ) y cuando no lo encuentres, pasa los datos a la pestaña "Copia" en la siguiente fila disponible. Gracias de antemano y un saludo PLANTILLA CONTROL CMRS2.rar

Hola buenas noches reciban un gran saludo!!!! quisiera ver si me pueden ayudar o orientar a resolver este error que me marca esta macro ke empeze a revisar y mi poco conocimiento de excel y progrogramacion VBA que la verdad me gusta mucho pero me trabo mucho y con este error no se por donde resolverlo. el Error es este (se a producido el error 13 en tiempo de ejecucion) esto me lo marca al abrir un formulario. la vdd no se por donde es si alguien me hecha la mano se lo agradeceria mucho y me explique donde estaba el error por favor. muchas gracias por su tiempo FACTURA HOSPEDAJE EMPORIO.rar

Un saludos a los miembros del grupo Requiero que me ayuden con el siguiente Macro. Cuando se ejecuta debe buscar en la base de datos "Registro.accdb" y devolver los datos que coinciden las columna estado con ingreso y la columna nombre con "Carlos" He intentado con el siguiente macro pero me da error Application.ScreenUpdating = True NumId = "ingreso" NomId = "Carlos" Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\Registro.accdb" .Open End With Set Rs = New ADODB.Recordset Sql = "SELECT cedula, nombre, fecha1, Fecha2, origen, carpeta …

Te dejo la imagen del tema del que hemos hablado por privado:

Buenos dias, Estoy tratando de crear una macro que me produzca un indice que me linkee ubicaciones diferentes en una misma hoja. No logro que funcione y en internet encuentro ejemplos pero solo linkeando una misma ubicacion en diferentes hojas. En base a un ejemplo que crea un indice de diferentes hojas he estado tratando de realizar la macro pero no lo puedo lograr. El codigo es el siguiente: Sub Crear_Indice_Hojas() Fila = 1 For Each Hoja In Worksheets ' Agregar vinculo a cada hoja del mes If Hoja.Name <> "Indice" Then With Worksheets("Indice") .Hyperlinks.Add Anchor:=.Cells(Fila, 1), Address:="", _ SubAddress:=H…

Buenas. noches , nesecito copiar datos de excel a acces. como lo hago ?