Hola. A raíz de ver una macro (ver abajo) que abre determinados documentos (doc, txt,...), me ha surgido una pregunta: ¿Hay alguna manera de listar las rutas de todos los programas ejecutables (o al menos los más habituales) que tenga en el ordenador (notepad, winword, excel , etc)? Sub abreDoc() Dim Archivo As String Archivo = Application.GetOpenFilename() Shell "winword.exe " & Archivo, 1 End Sub[/PHP] Saludos.

Saludos a todos los foreros de esta comunidad, por sus conocimientos y ayuda que nos proporcionan a los iniciados al tema de las macros, haber si podeis aclararme que estoy haciendo mal. Si en el textbox9 introduzco la cantidad de 2566,45 en textbox13 debería dar la cantidad de 231,00 y no es así, me devuelve la cantidad de 0,23 (adjunto macro) Gracias por adelantado Private Sub TextBox9_Change() With Me.TextBox9 .Value = TextBox9.Value .Value = Format(.Value, "#,##0.00") End With TextBox13 = Format(Val(TextBox9.Value) * (0.090009), "#,##0.00") End Sub

Hola amigos tengo mi reporte que agregue activeprinter.show que me muestra la caja con las impresoras en red el cual al momento de imprimir lo hace, el problema es que cuando doy cancelar no lo hace y me manda la impresión, en el adjunto les detallo mas el problema que tengo es lo ultimo que me falta y solo es una parte de todo el sistema Se les agradecería cualquier ayuda Gracias... Formato Final.xlsm

Estoy iniciándome con las macros y tengo unos apuntes con las siguientes macros que no consigo hacerlas funcionar, no veo ningún fallo. Do While... Loop Instrucción que repite las instrucciones mientras una condición es TRUE/VERDADERO. Ejemplo Excel tiene valores en las celdas B1:B100. Quieres buscar la primera celda que tenga un valor más alto/igual que 1,50. i = 1 Do While Cells(i, 2) <> "" if Cells(i, 1) >= 1.5 Then Exit Do i = i + 1 Loop MsgBox "El valor se encontró en fila no. " & i For i... Next Esta instrucción se repite el número de veces (i) que tú indicas. Ejemplo Creamos un bucle sencillo. Queremos que se repita 4 veces, y que la va…

estoy haciendo una hoja de calculo que sera utilizada por otros usuarios y en la parte que se introducirán los datos tiene un formato de celda especifico .. el problema es que cuando se pegan de otro lado el formato de esa celda también se copia... intente con una macro que haga pegado especial pero no funciona si el pegado se hace desde el menu . así que se me ocurrió que talvez se podría hacer una macro que bloquee el formato de estas celdas donde se introducirán valores de manera que se puedan pegar datos de cualquier lado sin hacer pegado especial. pero no se me ocurre ninguna forma de hacerlo. as que espero que tengan alguna solución para ayudarme.

HOLA NECESITO SEPARAR TEXTO Y NUMERO A PARTIR DEL PRIMER NUMERO Q ENCUENTRE POR EJEMPLO KETOROLACO DE 10MG SEPARAR 10MG EN OTRA CELDA

Tengo esta Macro que guarda la hoja, pero quiero que lo haga igual para todo el Libro. Muchas Gracias Option Explicit ' Sub EXCELeINFOGuardarHojaComoArchivoNuevo() ' Dim VentanasProtegidas As Boolean Dim EstructuraProtegida As Boolean Dim NombreHoja As String Dim Confirmacion As String Dim NombreArchivo As String Dim GuardarComo As Variant Dim Extension As String ' On Error GoTo ErrorHandler ' VentanasProtegidas = ActiveWorkbook.ProtectWindows EstructuraProtegida = ActiveWorkbook.ProtectStructure ' If VentanasProtegidas = True Or EstructuraProtegida = True Then MsgBox "No se puede ejecutar el comando cuando la estructura del archivo está protegida.",…

Estimada red, espero me puedan ayudar con esto: Tengo un formulario desde el cual puedo agregar datos a una hoja de Excel se compara la celda Nombre "Hoja14.Cells(j, 2)" con el TextCLIENTE. Si cliente NO esta registrado, lo registra y agrega los datos. Pero si el cliente ya esta registrado quiero que lo modifique con los nuevos datos asignados El código que tengo funciona para registrar un nuevo cliente. EL PROBLEMA SURGE AL MOMENTO DE MODIFICARLO (SI SE MODIFICA) PERO TAMBIEN LO AGREGA. Este es el código que tengo: Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim Final As Integer Dim F…

Este simple problema, al parecer, me ha vuelto loco jajaja la cosa es esta tengo en excel una hoja con 4 columnas A -------- B -------- C -------- D MOTOR -- BOMBA -- INYECTOR MOTOR --CARTER FRENOS --BANDAS FRENOS --VALVULA --RACOR --TORNILLO FRENOS --VALVULA -- SIS. T CAJA --CONJ. VAL CAJA -- DISCOS tengo un userform con 4 combobox Combobox1 Combobox2 Combobox3 Combobox4 Lo que necesito es que al elegir, por ejemplo, en el combobox1 FRENOS, en el combobox2 muestre "BANDAS Y VALVULA" y si elijo "VALVULA" del combobox2 muestre en el combobox3 "RACOR Y SIS. T" y el mismo proceso para el combobox4 No he dado aun con la form…

Hola Estimados, pues bien, un gran favor, tengo este archivo con una macro, la cual no está funcionando muy bien, ya Que lo que necesito es que cada vez que ponga la palabra “ok” desde el rango E 2 hacia abajo de la hoja PROCESO se copie toda la celda hacia la hoja PENDIENTE, pero una debajo de otra cada vez que ponga “ok” en la celdas de la fila E. les adjunto el ejemplo. Muchas Gracias, Seguimientos 2.xls O COMPRa.xls Seguimientos 4.xls

Mi problema es el siguiente en una hoja de excel llamada concentrado debo guardar los datos originales de cada uno de los conceptos que columna por columna ponga en cada fila ,y despues mandar esa fila ingresada a otra hoja especifica ( llamese cualquier nombre) pero sin afectar el concentrado. El concentrado se queda para consulta general y los datos copiados de cada hoja para saber las cosas por una zona especifica, tal vez con un boton que me genere el registro. La fila lleva un consecutivo hacia abajo con una condicion que identifique a que hoja copiara la informacion Ojala puedan ayudarme ya que mis conocimientos no son los idoneos y aunque hay programas ya hec…

buenos días, bendiciones ! serian tan amables de aconsejarme para poder organizar la información de una manera mas rápido, ya que todos los días tengo que hacerlo manual y me gasto mucho tiempo organizando. les agradezco mucho su consejo como quiero que quede : así se exporta el informe: informe empaque.xlsx

Hola a todos, Necesito saber que código utilizar para insertar una forma agrupada. Es decir, me he hecho con las formas básica de office un "bloques" y lo he agrupado. Ahora necesito ir insertándolo según unas coordenadas que tengo en otra hoja. Sé como hacerlo si tuviera que insertar formas normales, pero sobre esto estoy muy perdido y no encuentro nada. Alguien podría echarme una mano?? Saludos y gracias.

Muy buenas noches amigos soy nuevo en lo que concierne a Excel y Access, la consulta es la siguiente tengo una base de datos con tres tablas (LISTTABLAS, PROFESIONES, USUARIO). Y bueno hice una consulta en la base de datos para que me muestras el nombre de las tablas de dicha BASE y que lo guardara en la tabla LISTTABLAS y todo bien el detalle es que quiero ejecutar dicha consulta que hice en Access desde Excel y me sale un mensaje de error: “No tiene permiso para READ en MsysObjects” que es lo que tengo que hacer tmp_21172-prueba190521887.rar

Estimados Expertos buenas tardes: Estuve trabajando en una tabla dinámica que se actualiza mes a mes, según le indico en la segmentación de datos. Pero quisiera que se ejecute una macro al actualizar esta tabla dinámica, ¿con que evento puedo actualizarla? He usado el Evento Worksheet_SelectionChange(ByVal Target As Range) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim NomBRE As Workbook, AUx As Integer If Not Intersect(Target, Range("R9")) Is Nothing Then AUx = ContarNPC(Month(Range("O3"))) Range("S9").FormulaR1C1 = "= " & [AUx] & " / R[3]C[1]" End If End Sub Pero a pesar que la celda R…

Buen día a todos los que visitan este foro, que al igual que yo estan mas que fascinados con la gran ayuda que brindan, en esta ocacion, tengo una duda en cuanto a 2 formulas. Tengo una macro donde quisiera que estas formulas se optimizara y se aplicaran a las columnas que quiero. Esta formula aplica a la columna P: esto es para calcular la edad, por ejemplo en la columna O tengo este dato [TABLE=width: 121] [TR] [TD]R.F.C.[/TD] [/TR] [TR] [TD]SORL790406636 [/TD] [/TR] [/TABLE] =(2012-(EXTRAE(O2,5,2)+1900))[/PHP] y en base a esa formula aplica esta formula en la columna Q [PHP]=SI(P2<24,"De 18 a 24 años",SI(P2<29,"de 25 a 29 años",SI(P2<34,"de…

Hola a todos de nuevo. Tengo un problema con un autofiltro. Necesito filtrar 3 columnas, de "F" a "K" y el criterio se encuentra en la columna "K" que es la columna 3 del criterio. Lo que necesito es copiar los datos filtrados pero solo de las dos primeras columnas, no las 3 columnas, y llevármelas a otra hoja. Por ahora lo que consigo es llevarme las 3 columnas y no se llevarme solo las 2 columnas primeras del autofiltro. Este es el código que tengo. Sub ExportarTecnicos() Application.ScreenUpdating = False: Application.DisplayAlerts = False ' Dim wsPxA As Worksheet, wsGrupos As Worksheet Dim rngData As Range Set wsPxA = Sheets("PxA"): Set wsGrupos = S…

Hola a todos amigos, agradecer de antemano las innumerables veces que he obtenido ayuda a través de este foro y agradecer el esfuerzo de todos. En esta ocasicón me estoy encontrando con un problema a la hora de crear una dll para agregarla a Excel como Add-in. Hace poco hice el mismo proceso para MS Project y no tuve ningún problema, pero en este caso me ocurre lo siguiente que no deja de ser curioso. Al crear la DLL desde Visual Studio 6, seleccionando Addin Project, y despues de hacer las modificiaciónes en el Designer compilo la dll y para probar la agrego a Excel con un msgbox. Hasta aquí todo ok, al pulsar el botón puedo ver el msgbox de prueba. Pero mis proble…

tablas dinámicas con VBA -Mostrar valores: % por filas Saludos Estimados Mi interrogante es la siguiente: cuento con una base de datos ("reporte24"-archivo excel) y quiero aplicar una tabla dinámica, cuando deseo que los valores aparezcan como: mostrar como % por fila, solo aparece el campo que selecciona como % por fila mas no la tabla dinámica como valor de % por fila . Para una mejor comprensión adjunto un archivo excel en el cuál esta la base de datos y el reporte que debe de emitir. Muchas gracia​s anticipadas por ayudarme con este inconveniente. reporte24.xls

Hola amigos, tengo un código que lo que hace es al hace es entre dos fechas buscar en una base de datos los cumpleaños que hay entre esas dos fechas. El problema creo que el código esta poco optimizado y en algún lado he metido la pata ya que tengo tres problemas os lo enumero a continuación: 1- Para seleccionar la fecha hago click en una nube y me sale un calendario y selecciono la fecha, el problema es que la fecha me sale según donde esté la celda seccionada y no en B2 que es donde me gustaría. Lo mismo me pasa con la segunda fecha de hasta, la fecha no me aparece en B8 2- Cuando abro el formulario del a fecha no me aparece un botón que he creado de cerrar el calen…

Buen día a todos. Tengo un cuadro treeview, en vba de excel, y deseo insertar varias actividades pero tengo la cabeza muy enredada que no he podido lograrlo. La idea es colocar en el treeview lo siguiente: 1. Actividad 1 1.1 Actividad 11 1.1.1 Actividad 111 1.2 Actividad 12 1.3 Actividad 13 2. Actividad 2 2.1 Actividad 21 3. Actividad 3 3.1 Actividad 31 3.2 Actividad 32 . . . etc Adjunto el programa que hace cierta parte pero me enreda en la nivelación. Agradezco cualquier colaboración PDT.zip

Como poner hora y fecha en otras celdas Buenas tardes, qusiera ver quien puede ayudarme con esta situacion, en la siguiente sentencia, estoy pidiendo que cuando se escriba algo en la celda B41:B90, en las celdas E y F, me ponga fecha y hora respectivamente, pero no se pone al menos que borre datos( aunque no los hay en la celda , yo quiero que al aparecer los datois que se ponen en la celda B41, automaticamente me aparescan los datos en las celdas E y F. Esta es la sentencia que yo estoy usando: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B41:B90"))" Is Nothing Then" Range("E" & Target.Row) = Date …

Deseo enviar los datos de la hoja "Datos" a tantas hojas "Muestra" como filas estén llenas. Se deben crear las hojas nombradas en función de la columna B de la hoja "Datos", P0403 en el ejemplo. Se copian los datos en los lugares oscurecidos de la hoja "Muestra", atención que al final también hay algunas, como también dejé en el ejemplo de la hoja "P0403". Tan solo dejar una macro, ya colocaré el botón. Puede ser complejo al final de la hoja, con los datos de años anteriores, columnas N,O,P, ... de la hoja "Datos", porque cada año se añade una columna. Cojo el año del análisis de la casilla A1. Gracias de antemano. Evaluacion mensual.xls

Hola! Tengo un excel para el manejo de préstamos, y con el tiempo lo he ido mejorando porque me divierte y me gusta intentar automatizarlo tanto como se pueda. Si bien la hoja tiene varias columnas, para el tema en cuestión sólo es necesario mencionar 2. En la columna A pongo la referencia (con este dato hago la mayoría de fórmulas), y en la F se pone el saldo que queda por pagar. Ahora bien, llevo varios días intentando lograr "predecir" la referencia que sigue al añadir otra fila. Mi mejor éxito es esta fórmula (que corresponde a la celda A9): =INDICE(DESREF(BUSCARX($A8,$A$2:DESREF($A8,-1,0),$A$2:DESREF($A8,-1,0),,0,-1),1,0):$A8,COINCIDIR(VERDADERO,DESR…

Hola a Todos Tengo 2 preguntas acerca de excel. el primero corresponde al querer actualizar el una tabla dinámica esto lo hago programando en un botón de comando pero veo que se deshabilita el botón deshacer y rehacer es decir se borra los pasos anteriores antes hechos. ¿como podría con un código en vba no "toca" estas funciones. La segunda es algo mas fácil creo, como podría hacer mediante una macro , en listbox cargar solo los últimos 13 meses y el valor seleccionado que se copie a una celda. le dejo este reto. Saludos Marco Castillo A,