Saludos a todos. Tengo un listbox con un filtrado de datos, pero los datos quiero transponerlo. Os pongo un pequeño ejemplo: Celda a Celda B Celda C Celda D NUMERO NOMBRE 13-02-13 13-03-13 122 COMUNIDAD VISITADO CONTACTADO 124 JOSE TELEFONEADO RESPONDIDIO Quiero que salga para el primer número: 13-02-13 VISITADO 13-03-13 CONTACTADO. Adjunto fichero excel con el listbox creado, lo único que me falta es transponer los datos y a ser posible con una cabecera FECHA GESTION REALIZADA. Gracias por vuesta lectura. Se me olvidaba el listbox s…

Hola foreros Necesito un pequeño cable que no consigo hacer con un formulario que he creado os lo muestro en la imagen. Bien de momento todo me funciona ok, pero os pongo en contexto el botón "nuevo" crea una nueva hoja en ella inserto los datos dándole a botón guardar pero cuando clicko me gustaría que esa hoja se llamase igual que el campo "nombre más apellido". Por último en cuadro imagen tambien me gustaría clikar y que me dirija a una carpeta donde tengo las fotos almacenadas de cada cliente. No consigo dar con lo programación de suso dichos. Os agradecería que me pudierais dar un poco de luz. Gracias antemano y saludo.

tengo unas macros creadas depende de la info que tengo corro una u otra. pero quiero que si por error preciono la que no necesitaba, la macro no corra gracias por la ayuda Tavo09 ejemplo1.zip

Hola a todos: Estoy trabajando un Userform quiero exportarlo a PDF y utilizo el siguiente código: Private Sub CommandButton1_Click() Sheets("Tabla de Resultados").Activate ActiveSheet.ExportAsFixedFormat Type:= xlTypePDF , Filename:="C:\Users\daffne\desktop\INFORME.PDF", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintareas:=False, OpenAfterPublish:=True Me.Hide end sub El principal problema es que cuando ejecuto me marca un error de compilación y me pide un identificador, justo en Type:=... soy nueva en esto y no he encontrado aún cómo resolverlo, les agradecería muchísimo su ayuda. Saludos

Hola necesito ayuda para copiar datos de un libro a otro, el libro matriz que se llama matriz pcs es el fijo que tengo que se alimenta de diferentes libros los cuales pueden variar nombre de hoja y de libro. Por ellos realice el siguiente comando.Sub LLENADO()ActiveWorkbook.ActivateActiveSheet.SelectFor a = 0 To 68Workbooks("MATRIZ PCS").Sheets("J3D133").[t11].Offset(a, 0) = [t11].Offset(a, 0)NextEnd Subpero me sale error no se si alguien podria ayudarme, prueben con cualquier hoja solo son pegar datos de una hoja y libro a otro pero usando el active shett

MTV-PPP-001 MTV-PPP-001 MTV-PPP-001 MTV-PPP-001 MTV-PPP-002 MTV-PPP-002 MTV-PPP-002 MTV-PPP-003 MTV-PPP-003 MTV-PPP-003 MTV-PPP-003 MTV-PPP-003 MTV-PPP-004 MTV-PPP-004 Estos datos los tengo en la columna A y sigue consecutivamente hasta un num. N pero yo los voy ingresando cada día, puedo ingresar 5 o 10 o solo 1 registro, y lo que deseo es cada vez que ingrese solo me cree en una direccion X una carpeta MTV-PPP-001 y solo una y despues solo una carpeta MTV-PPP-002 y asi sucesivamente. FAVOR AYUDENME como lo puedo hacer. Muchas Gracias, Slds,

Buenas noches, En el correo adjunto podéis ver el módulo para el envío de una selección de celdas de excel en el cuerpo de un mensaje enviado por Outlook. La información está recogida de la página de Ron de Bruin. Tengo un problema: Lo incluido en el cuerpo del mensaje no sé cómo hacer para que pueda imprimirse por el receptor, ya que queda cortada la parte dcha del cuerpo del mensaje, tal como se ve en la imagen que he pegado en la hoja. ¿Alguien sabe cómo manejar la conversión en HTML para que quede dentro de la zona de impresión del mensaje? Gracias, Juan. PD: Necesito hacerlo en esta modalidad´, no como pdf u hoja excel adjunta. Email de selección pegada en el m…

Hola, tengo el siguiente código que tiene por función copiar todos los datos de la hoja activa y pegarlos en una nueva, siempre que se utilice un filtro, entonces copia solo los datos del filtro. El problema es que no se esta iniciando automáticamente y tengo que ir a Ejecutar Macro cada vez que quiero que copie y pegue los datos la idea era que automáticamente se colocase el filtro se realice la acción, por otro lado me gustaría que copiara los datos en una hoja que se encuentra en otro archivo que tengo en el escritorio ya que le tengo que agregar columnas a los datos copiados pero no se como hacerlo. Muchas gracias por la atención y ayuda copiar y pegar segun filtro.…

Buen Día! Tengo una pequeña duda con un macro. Tengo estas condiciones a registrar Orden de pedido en el mes Pedido Aceptacion (%) Responsable Causa 1 Causa 2 Causa 3 Causa 4 Ahora bien, categorizo la aceptación de acuerdo a excelente regular y baja con 3 colores verde, naranja y rojo. El problema es que quiero hacer un resumen de cuál fue la orden de pedido en el mes que tuvo mejor de aceptación y cuales son las peores de regular y baja, que me diga el responsable, el pedido, las causas... todos los datos de la orden digamos. Adjunto el archivo para explicarme mejor y dejar la referencia, saludos. Resultados resumidos.xls

Buenas tardes: ADjunto un archivo donde he añadido un combo box activex a una hoja excel, donde he ingresado un listado, cuando cierro el archivo y lo abro nuevamente ya no me aparece el listado, como puedo hacer para que siempre al abrir el archivo me aparezca el listado sin que se repitan las opciones, por otro lado, si mi listado aumenta mes a mes, como puedo hacer que mi combo box se incremente sin que tenga que modificar la programación. Combobox.zip

keridos amigos de ayuda exel agradeceria de su ayuda tengo que descargar archivos de SAP, el cual me entrega datos en exel pero de forma desordenada cree una macro para ordenarlos de la forma que yo necesito y me borre lo que no uso todo bien hasta ahi. ahora me gustaria que desde otro libro "extraer_ficheros" pasar toda la informacion de los diferentes archivos descargados de sap y y me ejecute la misma macro pegandolos hacia abajo, adjunto archivo "extraer_ficheros" y la carpeta con los otros archivos de ante mano muchas gracias saludos coordiales 4600011528 4501373170.XLS 4600012021 4501373173.XLS Extraer_ficheros.rar MACRO PARA TERCEROS.txt

buenas noches gustantes del vba tengo una duda espero me puedan ayudar o guiar, tengo un formulario que abre la ventana de explorador para poder poner una imagen, mi pregunta es como se podria hacer para que jale el codigo de un escaner?¿se necesitan controladores como tal? ¿como podria ser?, en el formulario al darle click en el cuadro de imagen abre la ventana de explorador para poder poner una imagen, quiero que en vez de eso me pida el controlador o escaner o camara que esté conectado a la maquina en ese momento. ilustrenme porfavor Baseconimagenes - copia.rar

Cordial saludo. Estoy tratando de crear una macro (buscando ejemplos, soy un poco novato en el mundo VBA) que tome dos hojas de un libro, estas poseen casi los mismo encabezados. La idea seria utilizar los campos C/S Boleta, Observacion (OTR), Cruce Acdo (Exclusivo Hoja ") y Cruce Alcdo (Exclusivo Hoja1) para realizar un filtrado y dicretizar el numero de visitas que existen por Revizor y por zona. He generado un ejemplo de lo que estoy tratando de conseguir. Los campos Cruce Acdo y Cruce Alcdo los utilizo para identificar los campos repetidos en cada hoja, existen trabajo en los cuales se desarrollan dos actividades en la misma ubicacion y tienen por lo tanto un mismo …

Tema nuevo borrado tema nuevo borrado

Buenos días a todos los expertos: Siguiendo las indicaciones de Macro Antonio he encontrado esta macro a través del google, pero mis conocimientos no llegan a entedender como adaptarla a mis necesidades. La macro es esta: Public Function sendEmail(ByVal senderAddress As String, _ ByVal destinataryAddress As String, _ Optional ByVal subject As String = "", _ Optional ByVal body As String = "", _ Optional ByVal CC As String = "", _ Optional ByVal BCC As String = "", _ Optional ByVal…

Buen día a todos antes que nada, gracias a este foro que me ha ayudado ya en varias ocasiones, esta vex tengo un problema con un combobox, al cambiar el valor no cambia los textbox a los que esta vinculado. Private Sub CbPaciente_Change() 'Encabezado CbSesión = "" TbDisciplina.Value = "" TbEdad.Value = "" TbSexo.Value = "" TbFecha.Value = "" TbSesión.Value = "" End sub Private Sub CbSesión_Change() If CbSesión = "" Then Exit Sub Application.ScreenUpdating = False Hoja = CbPaciente.Value Valor = CbSesión.Value Set busca = Sheets(Hoja).Range("A5:FH34").Find(Valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Noth…

Hola a todos. Siempre he importado datos desde web y siempre ha sido en páginas planas pero ahora me he encontrado con una página que tiene las tablas metidas en un contenedor javascript. ¿Se puede importar web que tengan alguna tabla con javascript con vba? LLevo dias mirando y mirando pero no hay manera de sacar nada en claro. Alguien podría ponerme un ejemplo Esta es la web, hay 3 tablas insertadas en 3 pestañas. La Liga - under over, total goals, top scores Gracias

Hola, soy nuevo en el foro y queria compartir esta inquietud que me ha surgido a ver si alguien me puede ayudar. Tengo la siguiente plantilla en la que he logrado que al ingresar un dato en columna "A" se genere automaticamente fecha y hora actuales en columnas "B" y "C", bien pues ahora lo que necesito es que en columna "E" si la opcion seleccionada es "si" que se generen en columna "F" y "G" fecha y hora actuales respectivamente. A su vez me interesa que una vez ingresado los datos no se puedan modificar y que el dato numerico que se ingresa en columna "A" no se pueda volver a ingresar (que no se repita) a menos que tenga la opcion "si" seleccionada en columna "E". …

Hola como estan? Espero me puedan ayudar. Quisiera saber si es posible crear una macro que busque en un rango de celdas una palabra especifica y que si encuentra esta palabra me abra automaticamente una hoja precreada del mismo libro. Por ejemplo: Yo puedo insertar datos en el rango de celdas A1 a A100,la idea es que si yo ingreso en la celda A24 o cualquier otra en ese rango la palabra "EVEN" automaticamente al detectar la palabra en esa celda me envie un mensaje solicitandome llenar un formato especifico ubicado en otra hoja del mismo libro y que me abra la hoja automaticamente. No se si sea posible hacer esto por medio de macros, espero alguien me pueda ayudar. Mu…

Buenas noches, En un archivo excel tengo una columna de fechas con la función HOY(), sin embargo cuando vinculo a través de un formulario con VBA esa información a una plantilla en word me arroja la fecha con este formato 30/05/2014, y la necesito así: 30 de mayo de 2014. ¿Hay alguna opción con macro que se actualice automáticamente sin necesidad de ejecutarlo que se le pueda añadir a dicha función para lograrlo? La idea es que el excel me de la hora actual siempre que lo abra y obviamente luego pasarla al archivo word con el formato solicitado...

he conseguido , que se pongan la fecha y la hora automatica , ahora quiero que se active la columna D y al introducir un dato se active la columna A , asi sucesivamente. Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Range("B" & Target.Row) = Date Range("C" & Target.Row) = Format(Now, "hh:mm") ActiveSheet.Range("D").Select f Not Application.Intersect(Target, Range("D:D")) Is Nothing Then ActiveSheet.Range("A").Select End If End Sub lo rojo esta mal . EJEMPLO TABLA.rar

Buenas, antes que nada quiero decir que busqué en el foro algun ejemplo relacionado, y no me ayudó mucho... los veía muy diferentes, entonces.. aqui estoy :S Bueno el problema es el siguiente, tengo 2 hojas (Equipos y Ubicación), que me sirven como mi base de datos. En una 3era hoja tengo el tag a identificar; es en esta hoja que quiero que se copie la información de las hojas ya mencionadas. Ej: 3TO-1520, donde: 3 : Industria T: Torre 12: Planta_2 01: Número del Equipo Dejo en anexo un archivo que estaba intentando hacer, pero que no salió muy bien que digamos. Muchas Gracias de antemano. Tags_Equipamientos1.rar

Amigos míos, tengo una duda. Existe una manera de mostrar y/o ocultar los objetos (control ActiveX, controles de formulario, comentarios, etc.) en la hoja activa ?¿ Se como ocultar los objetos en el libro, pero hacerlo en la hoja activa no doy con la solucionen. Agradecido de antemano por vuestra ayuda. Saludos.

Estos son los requerimientos para crear la macro: Procesar la información de diferentes archivos como el que se encuentra en la carpeta Informes. La información de los archivos que se encuentra en la carpeta informes debe ser copiada y pegada en el archivo InformeConsolidado teniendo en cuenta lo siguiente: El documento no debe tener registros repetidos y en la columna Ingreso solo se debe manejar dos estados: Ingreso, No ha ingresado, la macro debe basarse en la información de la columna Ingreso de cada archivo para asignar en el archivo InformeConsolidado cualquiera de los estados mencionados. Si el valor de la columna Ingreso es diferente a Nunca el valor será Ingre…

Hola, tengo un problema con un archivo(error 9.xlsm), obtiene datos desde un bd y le llegan a la celda C5, copia la celda C5 y lo inserta en otra hoja, funciona bien pero al momento de ejecutar otro archivo XXX.xlsm paralelamente me da error el archivo error9.xlsm ,esto sucede con cualquier archivo que tenga macros, siempre me da errar el archivo error9.xlsm, pero al ejecutarlo solo, funciona sin problemas. Este es el error que me da y adjunto el archivo erro9.xlsm . Espero sus comentarios. Error 9.rar