Hola buenas, estoy intentando exportar una hoja de mi libro de excel a pdf con el siguiente código: ActiveSheet.ExportAsFixedFormat Type:=0, fileName:= _ "C:\Users\admin\Documents\Mis hojas de cálculo\14LCM00000.pdf" El problema es que me dice que el método no se reconoce, por lo que me imagino que no existe la opción de exportar por que algo le falta al excel. He revisado el Mismo excel y no veo por ninguna parte ninguna opción de exportar. Tengo instalados el Acrobat reader y el PDFCreator. Incluso si doy a "Guardar Como" no me aparece como opción en los tipos de fichero el .pdf. Que está pasando? PD: He puesto Type:=0 por que no me reconocía el xlTyp…

Buenas tardes, Estoy tratando de armar un archivo donde al escribir los códigos de ciertos productos este los busque en páginas web y me traiga los precios asociados, la macro funciona ahora como esta pero el problema ocurre cuando un código no lo encuentra en la página me escribe el precio del código anterior. Alguien me puede ayudar a que si no encuentra ese código en la página el valor quede en blanco? Este es el código que estoy usando. Sub test() Dim IE As New InternetExplorer Dim precio1, precio2 As Variant Dim doc As HTMLDocument Range("B2:C1000").Clear Cantfila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row For …

saludos a todos. esto es un ejemplo corto de una hoja . la original es mas grande tiene mas cuentas que consolidar. lo que ando buscando es lo siguiente. en la hoja control en la columna contabilidad debo ingresar datos que debo de obtener de la hoja balance este balance lo debo de bajar de una aplicacion una vez al mes. para poder consolidar las cuentas que estan en la hoja control. en la hoja balance me van a salir mas de 100 ctas. las cuales salen en orden de cuenta de menor a mayor. pero en la hoja control las cuentas son alrededor de unas 30 y van de menor a mayor. Le estos hablando de la hoja original. la que estoy subiendo es un ejemplo para que…

Hola a todos. De nuevo por aquí pidiendo ayuda. Nos han cambiado las licencias de Office a Office 365. He revisado las macros y las que me fallan tienen que ver con las que envío correos automatizados. He podido arreglar todas, cambiando el código porque de Office 2013 a Office 365 cambia el código, se usa el objeto CDO.Message. Pero se me resiste esta macro, que envía un correo e incluye como parte del cuerpo del correo un rango de celdas donde hay un gráfico. Os pego el código para ver si me podéis ayudar. Después de la instrucción "ActiveWorkbook.EnvelopeVisible = True" el programa ya no ejecuta nada más. He probado con F8 paso a paso y ahí se detiene. Necesi…

Hola, tengo una hoja de excel en la que voy registrando mis actividades en bici. Suelo ir añadiendo filas a la misma y muchas veces algunas están duplicadas. Estoy intentando hacer una macro que las elimine automáticamente pero no soy capaz de conseguirlo. Adjunto una hoja de ejemplo en la que me gustaría eliminar las filas 5 a 9 (las he señalado en amarillo) porque ya están incluidas en las filas 10 a 14. He conseguido hacer una macro pero me elimina las más antiguas, la adjunto también. La columna que utilizo para detectar los duplicados es la columna de fecha que incluye la hora y que por tanto nunca podría repetirse... ¿Puede alguien ayudarme? …

Espero se encuentren bien, estoy empezando en el mundo de Excel, en mi nuevo trabajo utilizamos AS400 para eliminar unos materiales, me gustaría crear una macro para realizar esta tarea, pero no se como se conecta Excel con AS400, alguien tiene algún vídeo o los pasos para realizarlo. Muchas gracias.

Hola!! Necesito unir tablas de distintas hojas de calculo y crear una nueva hoja, para esto he estado utilizando la siguiente macro (Adjunta) pero me entrega los valores que estan en la celda con formula y los necesito solo como valores. ¿Que puedo hacer en este caso? ¿Qué me recomiendan? Sub Extraer_Datos() Dim shDestino As Worksheet Dim ufo As Integer, ufd As Integer Set shDestino = Worksheets.Add(After:=Sheets(Sheets.Count)) shDestino.Name = "d" For I = 1 To Sheets.Count - 1 If Sheets(I).Name = "ESCUELAS" Then Else ufo = Sheets(I).Range("A" & Cells.Rows.CountLarge).End(xlUp).Row ufd = shDestino.Range("A" & Cells…

Buen día compañeros, espero que estén bien. Quiero molestarlos, ya que no logro encontrar solución a lo que necesito. Lo que no logro encontrar es cómo crear una lista validada en Excel, pero que tenga datos consecutivos, es decir, colocar en la lista los números del 1 al 1000 (por ejemplo), pero sin necesidad de estar escribiendo los números dentro de la lista. Sé que muchos dirán que con hacer una lista en una hoja vacía del 1 al 1000 se logra el cometido, pero no es lo que necesito, ya que no quiero llenar el archivo de hojas inútiles y que en algún futuro pueda ser manipulado. Entendería que no es necesario un archivo, puesto que no solicito macro o sim…

Tengo un cuadro cuyas dimensiones cambiarán tanto en columnas como en filas. No sé cuál será finalmente su tamaño y necesito hacer mención a ese cuadro desde fórmulas. Quiero una fórmula que me devuelva la dirección de todo el cuadro. Así tal como lo estoy planteando, se podría con tablas pero el caso real es más complejo y las tablas no funcionan ya que las clonaré y las fórmulas cruzadas de cada tabla deberían apuntar al nuevo clon y no se está funcionando así. En el adjunto muestro que el código funciona correctamente dentro de un SUB pero no dentro de un FUNCTION. ¿Alguien me puede ayudar para lograrlo desde una función? FuncionDireccionCuadro.xls

Estimados: Estos datos salen de una tabla dinamica (por cuestiones de peso del archivo, he pegado los datos como valores). Los mismos son extraidos de una tabla de mas o menos 15000 registros, donde cada valor de la columna A puede tener varios registros en la columna B, sin duplicar los de la columna B, pero si los de la A. Lo que necesito hacer es lo siguiente: Extraer de todos estos datos, los que cumplan con ciertos criterios, verificando otros criterios. Es decir: necesitaria que el sistema verifique todos los registros que sean NN. Siendo NN = Verdadero, que seleccione aquellos registros de la columna A, la columna E, la mas alta, y el valor de la column…

Hola espero que se las hayan pasado muy bien en compañia de su seres queridos en las pasadas fetividades queridos master la siguiente es para ver si alguien me podria hechar la mano con este problemita el cual adjunto archivo con la explicacion espero que si me entiendan que es lo que deceo lograr Sample.rar

Hola buenas tardes! La siguiente macro la quiero utilizar para que me sume valores que voy capturando en determinadas celdas y los acumule en una especifica celda. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A2:K10"), Target) Is Nothing Then Hoja4.[A1] = Hoja4.[A1] + Target End If End Sub El problema donde me atore es que necesito que solo sume los valores que estoy capturando y no adicione los que ya estaban con anterioridad. por ejemplo: suponiendo que inicio todo de cero y la primer captura es de 100 en la celda "A2" y en la celda "K10" capturo 50 lo que da un total de 150 que es lo que aparecerá en la celda "A…

Hola, estoy haciendo un programa en el cual realizo 3 mediciones Serie1, Serie2 y Serie3. Dependiendo si hago dos o 3 mediciones realizo el desvío estándar de dichas series(en este caso estoy mostrando la medición del Peso Corporal) y luego la media o mediana (dependiendo si es 2 media y si es 3 mediana), una vez que realizo eso calculo el Error Técnico de Medición: If lbPesoCorporal.Caption <> "" And txtPesoCorporalS3.Text <> "" Then PesoCorporalDS = WorksheetFunction.StDev_S(txtPesoCorporalS1.Text, txtPesoCorporalS2.Text, txtPesoCorporalS3.Text) PesoCorporalETM = PesoCorporalDS / CDbl(lbPesoCorporal.Caption) lbPesoCorporalET…

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.

Buenos días, Lo primero que esteis bien junto con vuestras familias. La siguiente macro funcionaba en excel 2016 y ha dejado de funcionar en excel 365. Lo curioso es que si lo ejecuto paso a paso (PF8) funciona pero si se jecuta la macro de corrido no exporta las imagenes y necesito exportar mas 500. Heprobado a poner un delay hasta de 10 sg ¿Podríais ayudadme por favor? Muchísimas gracias y un cordial saludo. ---------------------------------------- Sub CopiaCeldasGrabaImagen(ruta) Dim RangoC As Range Dim Archivo As String Dim Imagen As Chart Dim Result As Boolean Archivo = ruta & ".gif" Set Rango…

Hola que tal compañeros, bien lo que necesito hacer es una macro que cada vez que se ejecute filtre segun el dato principal de una columna, por ejemplo tengo una columna que se llama clase, esa columna divide todos los datos en clases, ya sea en 10, 20 o cualquier cantidad de clases, hacer aqui una macro que filtre de uno por uno no se me hizo tan complicado ya que las clases avanzan de uno en uno, pero por ejemplo si tengo otra columna con datos diferentes y no corridos, como le hago para caturar los datos que contiene esa columna y asi cada vez que ejecute la macro se vaya filtrando el siguiente valor. se que se escucha muy confuso asi que pondre el codigo de lo qu…

Hola estoy intentando conectar Excel a SQLITE pero no hay manera. Mi sistema: Excel 365 y Windows 10- 64 bits Lo que tengo es lo siguiente: With cnn .Provider = "msoledbsql" .ConnectionString = "DRIVER=" & Driver & ";DataBase=" & Ruta & Fichero '& ";": c_error = True .Open End With Está instalado el driver "SQLite3 ODBC Driver" y la referencia Microsoft ActiveX Data Objects 6.0 Library. Pero me da el error "invalid connection string attribute" ¿Alguien me puede echar una mano con esto? Muchas gracias por anticipado.

como agrego un scrollbar al listbox? saludos

Modificar Código Macro Numeros a Texto. Amigos, hace ya un tiempo consulte por una macro que muestra el texto de un número determinado. ( en ingles, Dolar ), me enviaron un ejemplo, el cual a la fecha no lo he podido modificar para mejorarlo de acuerdo a los requerimientos de mi trabajo. Por esta razón es que nuevamente le solicito a ustedes puedan ayudarme con esta macro. Adjunto planilla de ejemplo, donde se muestra como lo escriben (texto) manualmente y como muestra con la macro. de ante mano muchas gracias por vuestra ayuda. Winnerclip macro_num_a_texto_en_Ingles.xls macro_num_a_texto_en_Ingles.xls

He creado 10 botones en una hoja de excel que quiero que hagan lo siguiente: Cuando pulse el 1, me gustaría que abriera un documento de word y me colocara en la página 1 de ese documento, cuando pulse el 5 que me coloque en la página 5 ¿es eso posible? A ver si podeis ayudarme.

Buenos días a todos; -Tengo una macro empezada que no se terminar porque desconozco que función debo usar. Explico: En una hoja hay una macro que al pulsar sobre la celda activa llama a un condicional que según su valor pues cambia de valor e incluso de color. Lo que no sé conseguir es como recuperar el estado inicial. Adjunto macro para mayor comprensión- Saludos y buenos días a todos. MCeldaActiva.xlsm

Buenas tardes Resulta que ya aprendi a manejar combos, labels y textbox; sin embargo no se manejar listbox, asi que recurro a ustedes a ver si alguien me puede ayudar. En el adjunto hay un archivo que carga existencias, posiciones nombres etc. El problema es que en el userform3 necesito que en un listbox se carguen las posiciones (hoja2 columna f) y cantidades (hoja2 columna i) del codigo buscado por el combo. Y luego que en un label me diga cuanto hay en total. Les agradezco la atencion. Edwin Alexander Galeano I CONTROL 1.3.rar

Buenas a todos, soy nuevo acá así que no estoy seguro si es por acá donde debo poner mis dudas, tengo un problema y es que tengo un archivo pdf con varias hojas con datos diferentes, de este archivo quiero extraer una sola hoja que sea traída a partir de la búsqueda de un dato único en todo el documento pdf y pegada en excel. Seré mas explicito tengo un documento con información por cédula en cada hoja del pdf, quiero hacer un macro que busque una cédula en el archivo pdf y traiga la hoja completa y la pegue en una hoja de excel. Les agradezco inmensamente su colaboración.

Que tal buenos dias soy nuevo en el manejo de excel pero lo tengo que aprender a usar por mi trabajo tengo conocimiento basico pero me gustaria que me ayudaran con algo en especial que necesito en un reporte que trabajo diario en si lo que me seria de mucha ayuda es que si pudieran decirme algun codigo VB para que cuente los correos de MS Outlook pero solo de ciertas carpetas las cuales son originarias de reglas que aplique en MS Outlook pra que me separe los correos entrantes de cada usuario y bueno de este conteo lo plasme en una celda en el archivo adjunto en la hoja 1 hay una columna que dice TOTAL DE NOTIFICACIONES en esta celda por columna es donde necesito que me …

Buenos días, de nuevo molestando, tengo un formulario VBA y esta trabajado en resolución de 1440*990, mi pregunta es saber si hay alguna manera de que el formulario se adapte de acuerdo a la resolución de pantalla de la computadora en donde se ejecute el formulario. Gracias de antemano por la ayuda