hola, necesitaria si se puede eliminar el excel que contiene la macro en uso. Si no se introduce bien la clave y para que no generen copia Lo que pense es que se cierre el libro y se elimine, puede ser con la instruccion: ThisWookbook.close y luego kill mas el Path en donde esta? pero no me lo toma, como podria hacerlo?

[h=2]Buscar 2 valores numericos digitados por el usuario y que arroje los encontrados[/h] Cordial saludo y buenas a todos Mi inquietud es la siguientes: Necesito hacer en VBA un formulario con dos campos numericos para digitar dos números y que al digitarlos me arroje los resultados de esos numeros digitados y sus correspondientes filas. Ejemplo del problema: Esta es la tabla con los datos: Campos: Numero de Documento, Nombre, Marca, Modelo, Placa. 1 10.48756.0 Pepito Mazda 1978 AB1205 2 XXXXXXXX XXXXX XXXX XXXX …

Estimados, os cuento que me he incorporado recientemente al foro por lo que seguramente me lleve algo de tiempo adaptarme a las costumbres del mismo. Hace poco me he topado con algunos problemas específicos que me sugirieron la posibilidad de resolverlos mediante la utilización de macros en excel, es así que decidí adentrarme en la programación a través de Visual Basic. He estado investigando hace ya algún tiempo sobre los detalles del lenguaje y su implementación para resolver situaciones habituales. Se da el caso de que me han ido surgiendo algunas dudas de fondo, es decir, dudas sobre el funcionamiento del programa y no de código. Lo que intento es saber como funcio…

Hice una macro en Excel 2007 que copia un rango de celdas, las pega y centra como metarchivo mejorado en una presentación de PowerPoint, esto lo repite varias veces y en varias presentaciones. Si ejecuto el código con F8 lo hace sin problemas, pero al momento de ejecutarlo con F5, me envía un error en la línea donde pega la selección, pero si depuro y presiono F8, sigue el código sin problemas, incluso si presiono F5 pega las tablas en todas las diapositivas. Ejecute el mismo código en Excel 2013, y se traba en la misma línea con el mensaje "se requiere un objeto", pero en esta ocasión no sigue el código incluso si depuro. En ambos casos aun con el error, siempre pega l…

hola que tal expertos tengo un problema espero me pueda apoyar mucho, verán tengo una hoja donde se insertan datos pero necesito validar los datos que se van a insertar dado antes de insertarlos debe buscarlos para compararlos si son o no iguales a los que se van a insertar mediante el form, la intensión es saber si el registro que se va a insertar existe o no, porque si existe quiero que los datos me los acumule después delos datos encontrados(al lado derecho) para que asi se vayan acumulando esos antescedentes . los criterios a comparar serán datos del tipo string donde se compara -nombre-, -fecha de nacimiento-,-nacionalidad-, -estado civil-. Les el archivo del avance…

Buenas tardes Tengo un libro de excel con varias hojas y en la última deseo que mensualmente se copien los últimos datos actualizados y que salte a la siguiente columna del siguiente mes, y así sucesivamente, esto con el objetivo de guardar el avance mensual para posteriormente realizar gráficas o análisis, espero haberme explicado correctamente. Hoja1 Hoja2 Hoja3 Hoja4 ResumenMensual, Ene Feb Mar Ab May Lo que necesio es que de las hojas 1 a 4 tome los datos y el total los copie en la columna en Ene, luego el siguiente mes cambian los datos y debe saltar al siguiente mes copia…

Saludos mis expertos, con la siguiente cuestión. En una hoja tengo varios objetos lo que quiero es pasar estos objetos a un userform para que estén disponible en cualquier momento. ___de antemano muchas gracias.

Hola estoy haciendo un programa el cual me abre otro libro("libro1"), y en una parte del programa me falta: una macro que me compruebe si "libro1" ya esta abierto, si esto es verdad que lo cierre y si no esta abierto que no haga nada Saludos!!!!

Quitar espacios de cada celda de toda la hoja Buenas tardes amigos Por favor quisiera que me ayuden, busque en google pero no he encontrado alguien que me pueda ayudar. Quiero una macro o algún truco quizás para quitar los espacios de varias columnas, ya que lo que tengo que hacer es agregar una columna al costado y poner =espacios(celda) y jalarlo para abajo. y asi para todas las columnas para que son muchas columnas y todas la mayoría están con espacios al final.

Hola a todos y muchas gracias de antemano. mi problema es el siguiente: Quiero fitlrar una tabla dinamica por fechas en funcion del valor que contienen dos celdas: Adjunto un fichero como ejemplo El campo a filtrar se llama Dia2 y las celdas b1 y b2. Esto es lo que he intentado: Sub filtrarfecha() Sheets("td").Select ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Dia2").ClearAllFilters ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh a = Range("b2").Value b = Range("b3").Value ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Dia2").PivotFilters.Add _ Type:=xlDateBetween, Value1:="a", Value2:="b" End Sub Buscando por google he en…

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…

Que tal, de antemano agradezco el apoyo que se pueda brindar sobre esta duda, aclarando que ya he buscado en Google (lo que me llevo hasta este foro de expertos, donde también llevo algunos días buscando pero nada parecido a mi necesidad), de las búsquedas realizadas ya tengo una macro que copia un rango y lo pega como HTML en el cuerpo del Mail, mi duda es ¿Cómo puedo pegar ese rango seleccionado como imagen (png, jpeg, bmp, etc) en el cuerpo de un Mail?... Claro mediante una macro...

Buenas tardes, Agradesco a todas las personas que colaboran en el foro para la mejora de muchas cosas, mi motivo es el siguiente, tengo unos datos filtrados, pero necesito de que el filtro zona dependa de lo que se escoja en la lista superior e igualmente con el alimentador, muchas gracias. ARCHIVO GABRIEL.xls

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…

Hola a todos No se como hacer para que al abrir un libro cualquiera, pida una contraseña, entonces, si la contraseña es correcta, el archivo se puede editar y modificar como quieras, pero si la contraseña no es correcta, que se abra solo como lectura. No se si esto sea posible o no, o si alguien tiene otra idea que crea que me pueda servir, se los agradeceria. Saludos Sebastian.-

Buenos días, no se si esta pregunta ya se ha formulado he buscado y no he visto nada, mi pregunta es la siguiente, Cuando insertas una columna o una fila, excel automáticamente cambia la celda de suma o formula que esta utilizando, ¿ pero VB no la cambia?, ha y alguna opción para que VB también lo haga perdonad si esta pregunta no esta en su sitio adecuado, de no ser así trasladarla Atentamente Antonio (Lince1950)

Buen dia Deseo me ayude alguien con una macro siguiente: Deseo que me guarde los adjuntos de un correo de outlook guardado en una carpeta (archivos .msg en carpeta en mi pc) y los guarde en otra carpeta sus archivos adjuntos (pdf y XML), sin tener que estar abriendo uno por uno. Agradezco su ayuda, ya que me marca el siguiente error "User-Defined type not defined" y no entiendo porque. Sub SaveMSGAttachments() Dim olItem As MailItem Dim SH As Object Dim msgFolder Dim saveFolder Dim strFilesFldr As String Dim strSaveFldr As String Dim objAtt As Outlook.Attachment Dim strFilename As String On Error GoTo Cleanup Set SH = CreateObject("SHell.Application") Se…

Buenos días, Después de estar intentando solucionar este tema por mi cuenta no me queda más salida que pedir ayuda. Caso: Tengo una base de datos que contiene unas sección donde refleja con "X" o "!" errores de cumplimentación de datos. Necesito un macro que permita eliminar de forma automática aquellas filas que no contengan ni X ni ! (está todo correcto). para poder aislar las que tengan errores. Digo eliminar ya que es la única manera que se me ocurre pero quizá uds conocen otra manera de llegar al mismo resultado. A B C D 1 ! 2 3 X ! 4 X Adjunto un archivo a modo de ejemplo que también contie…

Saludos amigos del foro, ahora me he puesto a pensar que puede simplificarse un código que uso para borrar el contenido de ciertas columnas. Si en el texbox1 coloco el 5 se borra todo el contenido de esa columna, en el rango indicado. Pero me parece que todo ese código es muy largo. Tengo 20 columnas en cada uno lleva informacion que en cierto tiempo puedo decidir borrar todo el contenido de una de las columnas. Expongo el código para saber si es posible encontrar un código mas corto que haga los mismo. Pro ejemplo veo que el mensaje puede ser solo 1 y cada vez lo que cambia es el numero de columna igualmente ocurre cuando se decide cancelar el borrado, y así p…

Hola Hice una macro que me filtra lo que contiene "ATO" en la columna H; si hay, se borran las filas el problema es que cuando bajo mi reporte y no hay "ATO" la macro me borra el titulo, es el mismo caso para la parte donde borra lo que contenga "DUMMY". Si alguien me puede ayudar a solucionar este error estare muy agradecido. Adjunto una porcion del archivo para mejor referencia. Sub MacroPrueba() strArchivo = Application.GetOpenFilename( _ FileFilter:="Excel Files (*.xlsx), *.xlsx", _ FilterIndex:=1, _ Title:="Select: rptProductionCTO") If strArchivo = False Then Exit Sub Workbooks.OpenText Filename:=strArchivo …

Buenas Tardes Grupo, necesito la ayuda para organizar un archivo txt, tengo una macro la cual en idas pasados me ayudaron a realizarla y pues funciona, pero si la ejecuto para otro archivo lo separa pero no como lo necesito y pues no se si alguien me pueda ayudar poniendo comentarios a la macro que ya tengo para entender el código o si tienen otra opción se los agradezco, para que me logren entender esta macro separa inventarios, pero si la utilizo para separar ventas no me sirve por que me corta la información. Gracias. MAcro Extraer.rar

Buenas, un favor, tengo un problema con la ejecución de una macro donde quiero que un libro luego de rellenarlo se guarde con otro nombre y se cierre pero cuando ejecuto la macro no se ejecutan esos dos pasos Windows(Lname).Activate Range("D17:F51").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("CARATULA").Activate ActiveWorkbook.SaveAs Filename:= KName & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Workbooks(KName).Close …

Buenas tardes. Tengo una tabla la cual tengo las celdas protegidas con este código: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C3:G2500")) Is Nothing Then Exit Sub On Error GoTo ExitPoint Application.EnableEvents = False If Not IsDate(Target(1)) Then Application.Undo MsgBox "No se puede borrar el contenido de esta celda" _ , vbCritical, " Borrar celda" End If ExitPoint: Application.EnableEvents = True End Sub El problema es que, si accidentalmente añado una fila nueva a esa tabla y luego la quiero borrar, me sigue saliendo el error. Me gustaría que cuando se borre una fila te pregunte si quieres que se borre con un MsgBox, …

Buenos dias Tengo una hoja con unas condiciones en una de las celdas, y con una macro quiero que al ejecutarla, se copie las conficiones de la celda F2 al resto de celdas de la columna, pero no hasta el final si no hasta la ultima celda con datos. Tengo este codigo y funciona, pero me aplica con la condicion de la celda F2, es decir Si f2 es menor que E2 ponte rojo, y en la siguiente fila queria que si F3 es menor que E3 ponte rojo, o si es mayor ponte verde, Adjunto el codigo Sub Condicionar() Range("F2").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$F$2=$E$2" Selection.FormatConditions(Sel…

Saludos: Gracias de antemano por su ayuda cada vez que me tranco. En esta ocasión tengo unos informes que se alimentan de una Tabla Master la cual reside en el mismo Workbook. Las fórmulas de estos informes están en cada celda (vlookup, countifs, sumifs, etc.). De esta manera todo funciona correctamente. Pero ahora queremos mover la Tabla Master a Access y que Excel se alimente de esa Tabla Master desde Access. Esto lo logré con este código: Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim l As ListObject Dim q As QueryTable Dim s As String hojUsr_TablaMaster.Cells.Delete 'CONEXION A LA BASE DE DATOS s = "OLEDB;Pro…