Buenas buenaaaas, alguien podría explicarme como programar un monthview para que la fecha seleccionada se vea en una celda de la planilla de excel determinada? desde ya muchas gracias

Hola Vengo en busca de Diego9019 una vez que el mismo crió esta macro para que: Diego9019, quisiera pedirte para que a tu macro; 1º- Agregues también para que guarde en PDF (además de xlsx que ya lo hace). 2º- Que guarde la hoja protegida TOTALMENTE con el mismo passw de la hoja original 3º Que guarde la hoja sin botones, sin formulas, sin shaps ni imágenes (si las hubiera) Subo 2 libros y 1 PDF, un libro para que me hagas eso ya con un boton en la hoja que se guardará, y 2 como ejemplo de la hoja ya guardada como (xlsx y PDF) Agradecido si puedes echarle mano a mi solicitud. Cuanto a esta linea, estoy indeciso si usarla o no Application.Dialogs(xlDialogSave…

Hola amigos buenos días, Resulta que deseo usar el método FIND RANGE como alternativa para búsqueda, antes de usar un ciclo for, pues realmente pensaba se me hacia más fácil usar el método FIND . Adjunto un ejemplo, la intención de la macro es que me busque el numero de la celda D4 en la lista de números, y me indique con una mensaje en que fila esta, y la seleccione, pero resulta que al colocar el número 1 me ubica la fila de donde esta el 10 o el número 2 y ubica la fila donde esta el 12 así sucesivamente como que me hace falta algo en la sintaxis para que busque el dato exacto. https://docs.google.com/spreadsheets/d/12M2MlCV6zr5OkZEaMk0v-N6_iP7Wxhjv/edi…

Hola a todos, Por favor, necesitaría crear una macro que me trasladara unas fechas de una hoja de excel al calendario de outlook para cuando llegue la fecha me salte el aviso. Las fechas las tengo en las columnas I, J, K. Gracias, Webanoia VENCIMIENTOS CLIENTES prueba.xls

Que tal buenas tardes a todos!!! Para consultar y pedir apoyo si alguien me puede ayudar en este documento tengo una macro que se ejecuta con convinacion de teclas Ctrl+T dicha macro quiero eliminar la después de un cierto tiempo para que ya no se pueda ejecutar espero alguien me pueda ayudar y darme una propuesta Existencias_productos.xls.xlsm

BUENAS,este es mi primer post en este foro. Lo primero felicitaros por la gran labor realizada. vamos por trabajo,me explico mi problema es el siguiente he realizado un libro con un par de macros para filtrar datos extraidos de una base de datos externa a excel y hasta ahora iba bien la cosa pero como siempre pasa cuando crees que lo tienes controlado te surgen los problemas,pues bien el mio es el siguiente necesito que despues de filtrar todos los datos de la pestalla "para la macro" queda una tabla, la cual podreis observar en la plantilla que adjunto.bien dicha plantilla me gustaria que se copiara y pegara en la plantilla datos coincidiendo con la fecha de la plant…

Buenas tardes, Nuevamente solicitando su ayuda, ahora ocupo una macro que me traiga datos basado en un solo criterio, me quite duplicados y hagas la suma total con un suma.si. Nota: Hace poco me ayudaron hacer una parecida, pero esa traía con rango de fecha, pero la quise adaptar a otro libro y no me dejó, me pueden decir por favor qué estoy haciendo mal? De antemano gracias Saludos Julio González Compras.xls

Buen día a todos, un cordial saludo. En primer lugar me gustaría mencionar que no soy un experto de la programación en Visual Basic, y espero lograr explicar la consulta y/o ayuda que necesito con respecto a una macro y su respectiva programación en VBA. Para entrar en contexto, los archivos que voy a anexar corresponden a una encuesta sobre el lanzamiento de un producto al mercado. Dicha encuesta se va a realizar dentro de la compañía, y se hará por supuesto en Excel. El libro contiene dos hojas, la primera denominada "ENCUESTA", la cual es muy sencilla de responder: las personas indicarán con una X la o las respuestas que consideren correctas en cada pregunta.…

¡Hola a todos! Llevo unas cuantas semanas descubriendo lo que excel puede ofrecer y ahora mismo estoy metido en el tema de los complementos. He buscado algunos ejemplos de aplicación en Internet pero son muy básicos, de una sola pestaña o sub-menú. Yo quisiera elaborar un menú que me permita entrar en distintos apartados. A continuación adjunto la imagen deun complemento para que os hagáis una idea. Este complemento dispone de varias pestañas y funciones y dentro de cada pestaña se puede acceder a otra, y de esta a otra, etc. [ATTACH]34882.vB[/ATTACH] ¿Alguien podría ayudarme? Gracias!

Hola, como están totos ? Mi consulta es la siguiente. En un userform en el hay un listview; cuando imprimo el userform el listview sale blanco (sin datos en la impresión.) como hago para ver estos datos en la hoja impresa? Saludos Sabatb.

Estimados: Queria compartir una solución que encontré, respecto a los que trabajan con conexiones ADO y bd access: Cuando creamos una consulta access y el nombre de la tabla es compuesto por lo general nos VBA nos reconoce solo la primera palabra de la tabla ejemplo si la tabla se llama "Factura uno" la consulta que hacemos en vba solo reconoce la palabra "Factura" por lo que arroja el error de que no encuentra la tabla indicada. La solucion para este problema es más simple de lo que se piensa (no se si ya lo habian posteado aqui en este foro), basta con que en la consulta SQL que hacemos en vba encerremos entre corchetes el nombre de la tabla Sql = "select num,clien…

Hola a todos! tengo esta macro: Sub loco() Dim CompareRange As Variant, x As Variant, y As Variant, contador As Double Dim RANGES As Range Set CompareRange = Sheets("PRECIOS").Range("B1:B1000") Set RANGES = Sheets("COMPRAS").Range("B1:B1000") Application.ScreenUpdating = False Sheets("PRECIOS").Select Range("A1").FormulaLocal = "=CONTARA(B1:B1000)" For Each x In RANGES For Each y In CompareRange If x = y Then contador = 1 Next y If contador = 1 Then contador = 0 Else Cells(Cells(1, 1…

Hola panas , les cuento , estoy haciendo una macro que toma dos libros , uno se llama control (lleva las horas de ingreso de los empleados) y el otro es libro tiene como nombre el numero del dia (1.xls, 2.xls, etc) Tengo una macro hecha , pero no me funciona, la idea es la siguiente , en el libro control , al estar sobre la celda del dia (fila dos) , la macro debe obtener el valor de la celda , cargar y activar el libro correspondiente (ahi no funka ) ; estando en el libro activo numero 13 por ejemplo , hay tres filas, la macro inserta una formula en la columna 4 ve si la columna tres dice inventario , si es asi toma l hora que corresponde , si no toma otra decision , et…

Buenas noches tengo este problema, tengo un archivo Excel con conexión a una base de datos Access, que funciona bien solo, le adicione un visor de archivo pdf que encontré en la web. Al implementarlo en un solo archivo al ejecutar la macro para ingresar información a Access funciona bien; llamo al visor de pdf y visualizo correctamente, cierro el formulario. El Problema: se origina al ingresar información por segunda vez a Access. saliendo el siguiente error Microsoft Excel dejo de funcionar: Firma con problemas: nombre del evento de problema: BEX64 Nombre de la aplicación: EXCEL.EXE Versión de la aplicación: 16.0.12228.20364 Marca de …

Hola a todos de antemano gracias , quiero perdirles ayuda, ya que quiero crear , un filtro avanzado , para buscar ciertos criterios , en una hoja de productos, y quiero que cuando se ejecute el filtro con vba , si no encuentra el criterio buscado me diga que no encontro dato con un mensaje box. pero no hallo como meterle el mensaje box para que me digo ese mensaje. Gracias

Hola, quiero pedir de su ayuda una vez más con el siguiente código, lo que sucede es que me marca error 91 en la 4ta linea "buscar.Activate", no tengo idea de como solucionarlo Private Sub BAgregar_Click() Dim buscar As Range Set buscar = Cells.Find(What:=TbPaciente) buscar.Activate b = ActiveCell.Row TbIMC.Text = Sheets("Pacientes_Cb").Range("Y" & .Text TbGrasaK.Text = Sheets("Pacientes_Cb").Range("AC" & .Text TbGrasaP.Text = Sheets("Pacientes_Cb").Range("AD" & .Text TbMusculoK.Text = Sheets("Pacientes_Cb").Range("AE" & .Text TbMusculoP.Text = Sheets("Pacientes_Cb").Range("AF" & .Text End Sub [/PHP] De antemano gracias

Saludos amigos Estoy obligado a desarrollar algo conVB de E-2007, y comencé a chocar con algunas cosas que me obliga a molestarlos para intentar resolverlos. La máquina que uso para el desarrollo, tiene WXP y sólo E-2007, ni rastros del 2003. Caso 1 Estaba probando y salió un enorme cartel que comenzaba diciendo, “Microsoft Office Excel detectó un problema y debe cerrarse…”,… se cerró y se activó la restauración del libro. El mismo cartel salió en otras ocasiones donde yo no estaba haciendo pruebas, tan sólo estaba mirando la pantalla pensando en como resolver algo. También apareció en la PC donde correrá lo que estoy haciendo,… apareció solito, no se estaba usando…

Hola tengo esta macro si me funciona pero me pregunto si hay manera de modificarla y no repita las lineas de código ya que necesito que se haga la búsqueda hasta la columna DL Tengo una serie de datos mas o menos asi: A__M__N__DK__DL 1__4__5__2___3 3__6__7__6___1 3__2__6__12__11 4__1__1__4___9 7__3__2__13__32 9__3__5__7___5 9__2__4__3___90 DP_DQ_DR_DS_DT 1__4__9__11_14 3__8__21_39_51 4__1__2__6__15 7__3__5__18_50 9__5__14_24_119 Sub sumarsi() Application.ScreenUpdating = False Dim uf As Long, uf2 As Long Dim rangocriterio As Range Dim rangosuma1 As Range Dim rangosuma2 As Range Dim rangosuma3 …

Buenas tardes, Cordial saludo, espero se encuentren muy bien. Tengo el siguiente problema con una macros y quisiera saber como solucionarlo: Estoy construyendo un lector de textos que agregue "carácteres especiales" cuando se dectecta en el texto una palabra con formato bold (Negrita). Igualmente me gustaría para Subrayado (Underline) pero no puedo continuar de este paso. Tengo marcado como comentario la parte del codigo que me manda error. Actualmente la macro lee bien el texto pero no reconoce el formato bold. Anexo el documento, captures y el código por si alguien tiene alguna idea para solucionar el problema. Muchas gracias a todos! …

Hola. Tengo hecha una macro muy sencilla cuyo objetivo es mostrar en otra hoja aquellas celdas que están en blanco. Este es el código: Public Sub blancos() Dim f As Integer Dim f_max, c_max As Long ActiveWorkbook.Worksheets("Hoja1").Copy after:=Worksheets("Hoja2") 'Para saber cuantas filas y columnas hay como maximo rellenas f_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Row c_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Column 'Para situarse en la celda Range("AE").Select 'Cells(4, 10).Select 'Rows(4, 10).Select For f = 4 To f_max If ActiveCell.Value <> "" Then ActiveCell.EntireRow.Delete If ActiveCell.Value = "" Then ActiveCell.Offset(1,…

Tengo un archivo que no puedo subir pk contiene muchisimos datos y no procede pero os paso lo que pueda de capturas para que en el TextBox aparezca la fecha de hoy al darle userform.show

Buenos días para todos... Mi consulta es: Tengo un excel en donde esta conformado en la primera hoja una lista y n cantidad de hojas donde: n= personas que deben cumplir con ciertos criterios para pasar primera hoja= lista donde deben ir las personas que no cumplieron con ciertos criterios como mencione anteriormente en cada hoja se pone el nombre y cédula del individuo y se desglosa en los criterios que deben cumplir para pasar ejemplo: Experiencia certificada, realizacion de cursos etc... Cuando la persona no cumple con el requisito de terminar estudios se debe reportar en la lista (situada en la primera hoja) con su nombre y cédula... Realice una macro para que c…

Buenas noches, amigos he estado adaptando un macro a mis necesidades, lo que hace el macro es filtrar desde una base de datos (hoja3-RENT) en un listbox los valores coincidentes con la busqueda, pero tengo problemas para cargar el formulario porque cuando presiono el boton buscar desde la hoja factura me sale el siguiente error "se ha producido el error 13 en tiempo de ejecucion no coinciden los tipos". Por favor colaboremen con la solucion a este problema. Nota: Si paso el boton buscar a la hoja3 0 pestaña RENT en macro funciona sin problemas. Pero quisiera hacerlo funcionar desde la hoja8 o pestaña FACTURA. Borrador_1_2014_V1.1.rar

[info]La siguiente rutina me arroja el error:se ha producido el error '6' en tiempo de ejecucion desbordamiento[/info] tengo entendido que hay un valor declarado por fuera de rango o acumulado hasta el limite y no se cual es. me gustaria descargar todo de la memoria o descargar el valor de alguna variable para evitar el desbordamiento si es que asi se hace espero sus amables comentarios, el código funciona bien pero después de un mes de uso digamos se daña.... aqui la rutina aclaro: la base de datos va por 900 registros mas o menos hasta ahora nunca tuvo problemas simplemente arrojo el error y desde entonces no ha funcionado de nuevo Sub VERIFICADOR() D…

Hola amigos acudo austedes por el siguiente problema: tengo este codigo para poder acceder a MYSQL Set rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.CursorType = 3 rs.LockType = 3 dato = Sheets("Hoja1").Range("A1").Value rs.Source = "SELECT * FROM FOTOS " _ & "WHERE NOMBRE =" _ & Chr(34) & dato & Chr(34) & ";"[/CODE] mi problema es que donde dice sr.source es un string pero no puedo ponerlo como Dim rs.source as string porque me marca esa linea en rojo como puedo hacer para declararlo como un string. saludos