Hola a Todos estoy tratando de enviar un mensaje de WhatsApp desde el Excel y todo funciona bien menos el ENTER... no lo acepta la intrucción ActiveWindow.Application.SendKeys "{ENTER}" no la ejecuta.. Alguna sugerencia? Gracias y Saludos !!

Buenas tardes a los foreros y en especial a los maestros que tanto nos reportan con sus conocimientos a los iniciados, el problema que se me representa con el formulario es que al cargar los datos estos los importa correctamente es a la hora de usar el filtro tanto el Control como la Fecha, la fila de Objetivo% (es numérico) no me respeta los dos decimales sino que este los amplía hasta llegar a 8 decimales he buscado por el foro y no visto nada al respecto, os agradecería cómo solucionar dicho inconveniente Gracias por adelantado .......no puedo adjuntar el archivo me dice que es demasiado grande, adjunto macro por si sirve de algo. Private Sub CommandButton3_Click(…

Hola chavales! Os comento mi GRAN problema y que me trae loco. Estoy trabajando con un libro de excel que tiene 'Código de Barras' y claramente hay código de barras que empiezan por 0. La cosa es que tengo un historial de bastantes código de barras y necesito contar cada EAN cuanta veces está repetido. Teniendo en cuenta que en la columna 'A' están todos los códigos de barras pues en la columna 'B' utilizo el famoso 'contar.si' Hasta aquí todo bien pero el problema es que los EAN que tiene 0 al principio no lo tiene en cuenta haciendo que me cuente dos codigo de barras totalmente distinto como si fuera el mismo. Adjunto foto para que me entendáis y también …

Hola a todos, soy un nuevo integrante de este genial foro, he podido aprender algo de los aportes de los participantes y he podido mejorar mi trabajo, Pero ahora quisiera una ayuda en esta publicacion, adjunto una lista de codigos (lo sombreado de amarillo) en el ejemplo he puesto 14 codigos , pero en realidad yo en mi trabajo manejo mas de 4500 codigos de diferentes productos y todos los dias me piden que saque un reporte con 5 codigos, 10 codigos, 2 codigos etc...y lo que hago es copiarlos y pegarlos en otra hoja nueva y guardarlo para finalmente enviarlo por correo. el objetivo es buscar los codigos mediante un combox y con un boton comando agregarlos al listbox para …

Hola, estoy incursionando en los macros de vb para excel y he encontrado este foro que me resulto muy interesante. Me gustaria que me dieran un ayuda en lo siguiente, partiendo de una grilla de datos en excel con su respectivo encabezado (por ejmplo A11:H20), necesito mostrarlas en un form. Como puedo realizar esto?? Muchas gracias y saludos Carlos

Hola! He intentado realizar una consulta a la base de datos como lo muestra la macro de éste archivo como se describe en ésta página, sin embargo el sistema me muestra el mensaje de error "Compilation error User defined type not defined". ¿Podrían ayudarme a solucionar ésto? ¡Muchas gracias!

Buenas tardes espero que me puedan ayudar no se mucho de programación, y por eso solicito de su ayuda. tengo una macro que al cambiar de celda en un rango especifico me muestra una imagen que esta en una carpeta de mi computadora, mediante un control de imagen, lo que necesito es saber como puedo hacer para que me muestre una imagen pero de Internet, esto es porque necesito que cualquier persona que quiera abrir el archivo, pueda ver las imágenes. continuación colo el código que estoy usando Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Dir As String On Error Resume Next If Not Intersect(Target, Range("Q11:Q30")) Is Nothing Then Dir = ActiveCel…

Buena tardes, si me pudieran ayudar con el código para una Macro que permita abrir un correo nuevo en Outlook Office 365 y enviar un mail automático desde Excel 2010. En mi trabajo tengo una lista de clientes en las cuales cada determinado tiempo vence su contrato, me interesa que con la fecha de vencimiento se pueda enviar un correo a la persona asignada para recordarle que se termina el contrato y que en ese e-mail se adjunte una hoja del mismo excel, en formato de archivo excel de la hoja sola. Subject: Recordatorio de Fin de Contrato. Body text: Apreciado " Celda A2" su contrato finaliza " Celda E2", se envía recordatorio del fin de contrato para renovar. El nombr…

hola necesito hacer un excel en donde extraiga datos de varias web y poder actualizarlo cuando yo quiera así como una consulta web pero en estas paginas no se puede por lo que tendría que hacer una macro pero no se como hacerlo si alguien me puede ayudar (no quiero hacer un web scraping siento que sera mas fácil con excel ) trate de hacer un proyecto por esta pagina pero no me han respondido, de antemano muchas gracias comúnmente siempre responden las dudas si que se agradece pueden usar esta cuenta para ingresar (antes ya había hecho una pregunta pero sigo sin poder solucionarlo) https://www.standardandpoors.com/en_US/web/guest/ratings/entity/-/org-details/sectorCo…

Buenas tardes a los integrantes de este foro, en esta ocasión recurro a Uds, para que me brinden su ayuda en como se puede mostrar el resultado de la pestaña PLANILLA los valores que están en la celdas I3 y J3, para lo cual describo su procedimiento: *Al presionar el botón MENU nos envía al formulario Cálculos de las Jornadas (Userform9) y tras presionar realiza los cálculos que contiene la pestaña PLANILLA y genera los resultados que se encuentran en la celda I3 y J3 y hasta el momento he podido lograr que el resultado se muestre digitando el valor cero (0) en cada TextBox para visualizar el resultado o saliendo del formulario y volviendo a ejecutarlo para obtener l…

hola muy buen dia a todos y feliz inicio de semana, y muchas gracias de antemano al foro y a todos los que de alguna forma me han ayudado. ya tengo mi archivo terminado con macros ya todo funcional ahora mi pregunta es la siguiente: como puedo usarlo como una plantilla ya que lo mismo que le hice al archivo es repetitivo o sea cada semana hay que hacerle lo mismo pero con diferentes datos en las filas a veces pueden ser 100 casos y a veces 500 mas o menos. saludos a todos

Hola amigos, he estado utilizando este código de "EXCELeINFO – Excel vba e información - Otro sitio más de ITpro Blogs" para listar archivos de una carpeta: Sub ListFiles() iRow = 11 Call ListMyFiles(Range("C7"), Range("C8")) End Sub ' Sub ListMyFiles(mySourcePath, IncludeSubfolders) Set MyObject = New Scripting.FileSystemObject Set mySource = MyObject.GetFolder(mySourcePath) On Error Resume Next For Each myFile In mySource.Files If Right(myFile.Name, 3) = "mp3" Then iCol = 2 Cells(iRow, iCol).Value = myFile.path iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.Name …

Hola buen día, disculpen, tengo una macro la cual son 2 combo box y segun lo que se escoja en la que se llama filtro te arrojara valores en la llamada "Valor", lo que no puedo hacer es que en el combo box me arroje todos los valores que estan segun el filtro y valor seleccionado, por ejemplo si escogieron "carrerra" y luego "II", que me arroje todas los nombre de las personas en el listbox que estudian II, la verdad es que no se como hacerle, gracias por todo, saludos. Filtros.rar

Buenos días, estoy haciendo una aplicación en la cual me gustaría que al iniciarse el archivo de excel, saliera la animación que tengo y cuando terminara saltase a una hoja llamada "inicio". Gracias

Estimados amigos, tengo un sistema contable que seguí por internet del profesor Otto González y no puedo adaptar a los valores de Chile; le he escrito al profesor y no me contesta; es posible que alguno de ustedes me ayude para solucionar el tema? ingreso un valor de 15.000,00; me escribe en el formulario 1.500.000,00 y me envía al libro diario 1.500.00000 Desde ya les agradezco incidencias.docx Gestor de Contabilidad - Balance General.xlsm

Buenas tardes, soy nuevo en esto del visual basic, espero me puedan echar un cable, he conseguido una macro la cual la he ido adaptando a las necesidades, lo que requiero es que el rango que especifico, al pasar a la siguiente fila se mantenga el conteo, la macro funciona de la columna D9:J9 al repetir el valor "R" mas de 2 veces despliega el MsgBox y borra el ultimo valor Introducido limitandolo a 2 valores. Es una tabla que consta de los retardos de los trabajadores de lunes a domingo, el primer trabajador se ubica en D9 : J9, el siguiente en D10 : J10 el tercer trabajador de D11: J11 Y así sucesivamente, la macro solo me funciona con el primer trabajador, que al introd…

Hola: Os explico mis necesidades, a ver que se puede hacer. Tengo tres maquinas a las que me puedo conectar por tres redes locales independientes entre si (que ademas son lentas). Tienen unos datos que me interesa comparar. No es conveniente abrir los archivos mientras trabaja pues causa errores en el proceso. Si intento importar datos directamente desde su ubicación no me deja. Lo que hago ahora es tener un hipervínculo a la carpeta en red, otro al destino y abrirlos para copiar los archivos a pico y pala arrastrándolo. Son ciento ochenta archivos de texto en total pero con la extensión entre .C16 y .C24. Como la intranet es lenta seria fantástico que solo copiase…

Buenas tengo una macro la cual utilizo para recolectar ciertos datos especificos. Donde los muestro en un listbox por medio de un boton de consulta(esto esta bien). El problema es que tengo un boton para pegar la misma informacion en otro libro que creo, cuando oprimo el boton. Lo que sucede es que no se como capturar la informacion de la hoja en la que estoy y enviarla a la hoja del nuevo libro. aqui esta el codigo de los 2 botones. Private Sub btnConsultaExis_Click() Hoja3.Activate 'Activa la hoja 3 Range("F2").Select Do If (ActiveCell <> ("")) Then ActiveCell.Offset(1, 0).Select 'Baja una celda If (ActiveCell.Value > 1) …

Estoy tratando de crear una macro para ir almacenando datos en otro libro de excel sin sobreescribir los datos. Estoy utilizando esta rutina y no lo logro. No se cual es el error. Sub CopiarCeldas() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino Set wbDestino = Workbooks.Open("C:\JORGE\PEDIDOS DE QUIMICOS\DATOS.xlsx") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Analysis") Set wsDesti…

Buenas, me ha servido mucho esta pagina, les comento que he logrado desarrollar un proyecto para el cual he logrado que dado un formulario pueda cargar una planilla para utilizarla como base de datos, poder imprimir el formulario, dado el boton cancelar que me limpie el formulario, pero lo que no puedo lograr es que mediante el boton buscar dado un dato me vuelva a cargar el formulario con el que trabaje, dejo el archivo para quien pueda me brinde una mano, desde ya muchas gracias y espero que se entienda lo que pido. La busqueda podria estar dada por responsable o por nombre de la empresa y que me permita elegir cual formulario imprimir.- Microsoft SkyDrive - Access fil…

Hola a todos tengo un inconveniente con una formula. Private Sub cmdcantidad_exit(ByVal Cancel As MSForms.ReturnBoolean) On Error Resume Next cmdCostoTotal.Value = cmdcantidad.Value * cmdCostoUnidad.Value Aquí estoy hallando el valor de del costo total, multiplicando cantidad por el costo unitario lo que sucede es q al ingresar el dato de cantidad al multiplicarlo me arroja el valor con "," ejem 9,45 y en el Excel esto lo toma como texto y no suma todos los valores, e intentado que el valor sea con punto "." pero no hallo la formula para hacerlo, adjunto mi archivo espero m puedan ayudar. Gracias CRONOGRAMA DE ALMUERZOS, CENAS Y BOCADITOS ACTUALIZADO BAGDAD - NOV. F…

Buen dia; En una hoja tengo desde el rango A2 hasta A100 nombres de Maquinarias y del rango B1 hasta AF1 fecha del 01-ene-2013 al 31-ene-2013. La intencion es que mediante un userform seleccionando la fecha con un DTPicker, en un ComboBox seleccionar la maquina y en un Texbox1 escribir un valor x. seleccionar celda intersectada por ambos valores buscados y colorcar el dato introducido en el Texbox 1. He intentado con el metodo Cells.Find pero no obtengo resultado. Espero Ayuda de su parte. Saludos...

Multiplicar y Dividir celdas e Imprimir solo algunas columnas Estimados, quiero pedirles la siguiente ayuda. tengo un Formulario de consulta en el cual necesito modificar la Formula destacada con amarillo, para que multiplique la Columna “Cantidad” * ” Columna Valor” y luego dividir por la Columna “Gasto Promedio” With Sheets("hoja3") ' Tomamos última fila usada en hoja 2 para crear el rango a cargar i = .Range("A" & Rows.Count).End(xlUp).Row If i < 2 Then i = 2 'colocamos subtotal por linea .Range("H1") = "Km/Litro" For x = 2 To i .Range("H" & x) = WorksheetFunction.Sum(.Range("F" & x…

Muy buenas tardes, Normalmente mis macros son relativamente sencillas y luego, poco a poco voy puliendo detalles para hacerlas más rápidas y más cómodas. En el trabajo manejo un fichero con muchas rutinas: desde seleccionar un fichero txt y pasarlo a una hoja hasta seleccionar varios ficheros, recorrer uno a uno y realizar diferentes operaciones con ellos. Poco a poco la cantidad de cosas y subrutinas que he ido añadiendo (por necesidades de mi trabajo) han hecho que el tiempo que tardo en ejecutar todas las macros vaya incrementándose. No es excesivo aún, ronda el minuto y medio, pero se que trabajando con arrays o creando diccionarios (un compi que está de va…

Hola a todos de la comunidad de AYUDA EXCEL, felicitarles a todos por sus valiosos aportes, en esta ocasión quisiera pedirles apoyo en el siguiente tema, para mi seria una gran herramienta que simplificaria mis labores diarias. gracias amigos.... NUMERACION AUTOMATICA.xlsx