adjuto les dejo un complemento que he encontrado por la red. Gracias a Gustavin_11, espero les guste. Incluye: Unir Textos: es un procedimiento que une texto, si ya se que se usa concatenar , pero esto es mucho mas facil solo seleccionas y usas la función. Mayusculas: Convierte a Mayusculas, sin usar funcion y en la misma celda asi me evito el rollo del copia pega y mueve: aaa->AAA Minusculas: Convierte a minusculas, sin usar funcion y en la misma celda asi me evito el rollo del copia pega y mueve: AAA | Aaa ->aaa Tipo Oracion: Convierte la primera letra del texto a Mayusculas el resto a minusculas, sin usar funcion y en la misma celda asi me evito el rollo del…

Hola foreros: Hoy algo sencillo, cada vez vez que seleccionemos una celda, y esta contenga una fórmula, saltará a la de al lado, y de esta forma indirecta evitaremos que una manipulación errónea nos borre las fórmulas. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then _ ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select End Sub [/CODE] Pues nada, nos vemos y tomamos unas copas. Salu2. a todos, todos....Antoni

Buenas tardes Este es el archivo para la duda respecto del uso del listview. Mis respetos. Listview.zip Listview1.zip

Hola compañeros Acompaño archivo que puede resultar de utilidad para controlar la proximidad de vencimientos (contratos, efectos girados, plazos...) Un saludo Edito: Sustituyo el archivo inicial por otro más completo. VENCIMTOS CON PREAVISO.zip

Veo con cierta frecuencia en los foros consultas para determinar la fecha del último día hábil resultante de añadir cierto número de días hábiles (laborables) a una fecha inicial. He compendiado en el archivo adjunto distintas situaciones que se pueden presentar. - Con conteo a partir del mismo día inicial. - Con conteo a partir del día siguiente. - Con semana laboral de Lunes a Viernes. - Con semana laboral de Lunes a Sábados - Etc. Deseando pueda ser de utilidad a todos. Un saludo DÍAS_HÁBILES.xls

Es muy fácil obtener el listado de los formatos de celdas personalizadas con el botón derecho del ratón y click en "Formato de celdas..." como se ve en la imagen: Lo que no es tan fácil es que ese listado se obtenga en Excel. Lo único que he encontrado en la Web es: [DBOX]http://www.j-walk.com/ss/excel/eee/eee007.txt[/DBOX] Basándome en la idea expuesta en el texto del enlace, por Leo Heuser, he conseguido la siguiente macro que proporciona una solución para la falta flagrante de accesibilidad en VBA para manipular los formatos de número personalizados. Para ello, se hackea el cuadro de diálogo "Formato de celdas" con la función SendKeys. Espero que os guste. …

. Anteayer se planteó una consulta en el foro de Microsoft Excel for Developers sobre como rotar una imagen en un formulario, cosa que no es nada fácil. Nada que ver con Girar o voltear una imagen, forma, cuadro de texto o WordArt - Excel - Office.com [DBOX]rotate a picture on a form[/DBOX] Al final Andreas Killer la resolvió en este foro: [DBOX]rotate a picture on a form - Microsoft Community[/DBOX] Se basó en un foro alemán de Visual Basic: [DBOX]VB 5/6-Tipp 0659: Grafik mittels GDI+ drehen und spiegeln - ActiveVB[/DBOX] Y yo he copiado la idea y adjunto mi aporte sin haber analizado la API de Windows GDI+ La tengo como tarea pendiente y me lleva de cabe…

Este es mi primer pequeño aporte, de una solución que necesitaba por la que llegué a este foro. Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorTarget If Target.Cells.Count > 1 Then Target.Interior.Color = xlNone Target.ClearComments Exit Sub End If If Target.Value = "" Then Target.Interior.Color = xlNone Target.ClearComments Exit Sub End If If Intersect([A1:P10000], Target) Is Nothing Then Exit Sub For r = 2 To 10 If Target.Value = Sheets("Codigo").Cells(r, 1).Value Then Target.Interior.Color = RGB(192, 192, 192) …

Hola Sigan este enlace, esta muy bueno y animos para los que aun no comienzan! Macros en Microsoft Excel | Juan Garcés Saludos

He aprovechado una consulta de kakomil para escribir un artículo en mi blog sobre la factorización prima en potencias, los números primos, la criptografía computerizada, la ruptura de claves secretas, la seguridad informática en la red y los actuales programas de vigilancia de las agencias de inteligencia. [DBOX]Descomposición factorial en números primos | Pedro Wave for Excel Guys[/DBOX] En dicho artículo he incluido una hoja de descomposición factorial, subida a mi SkyDrive, lo que es un recurso muy útil para la enseñanza en escuelas, institutos y universidades, que no disponen de licencias de Excel, pudiendo practicar con hojas de cálculo computadas en la nube, ten…

Representación gráfica de una función. Grafica_funcion_generica_2D_3D.rar

Copiar un libro sin fórmulas ¡ Ave ! Copiar la macro en un libro nuevo y ejecutar la macro. Sub GuardarComoLibroSinFórmulas() If Not Application.Dialogs([COLOR=#0000ff][B]xlDialogOpen[/B][/COLOR]).Show = False Then For Each hoja In Sheets hoja.Activate hoja.UsedRange.Value = hoja.UsedRange.Value Next Application.Dialogs([B][COLOR=#0000ff]xlDialogSaveAs[/COLOR][/B]).Show End If End Sub [/CODE] Solo para el libro activo, copiar la macro en un módulo y ejecutarla. [CODE]Sub GuardarComoLibroSinFórmulas() For Each hoja In Sheets hoja.Activate hoja.UsedRange.Value = hoja.UsedRange.Valu…

Hola: Pues nada mas que eso, una nueva versión del índice actualizada a 07/07/2013. El formulario es nuevo, mucho mas sencillo y rápido gracias a la utilización de AdvancedFilter (Que ha medida que lo voy usando, cada vez entiendo menos como funciona). Se puede buscar por tema y por autor. El texto de búsqueda actúa a partir del tercer carácter. Un saludo para todos Nuevo Índice de Aportes.rar

Buen dia La presente es para adjuntar un nuevo archivo el cual fué solicitado por el señor HERMESC para su tema de Traspasar Nombres Repetidos. No obstante, está a la orden de quien lo necesite y desee tomar algunos codigos que crea necesario. Mis respetos para todos. checarantescedente-2.zip

Les presento remusoft...una aplicación hecha con macros excel combinadas con conexiones ADO y base de datos Access, es muy intuitivo... saludos https://t.co/7ihQ8HCgxh

A peticion de muchos amigos que solicitan los programas que realice hace años atras, y viendo que los enlaces de megaupload fueron eliminadas, me tome el tiempo para buscar los programas y subirlos nuevamente, para que ustedes puedan estudiarlos o utilizarlos. Espero les se de mucha utilidad. Saludos Control de pagos Control de Pagos.rar - 4shared.com - online file sharing and storage - download Emergencias Clave: De acuerdo a los usuarios, las claves son 1,2,3,4 respectivamente Emergencias.rar - 4shared.com - online file sharing and storage - download Hospital Clave: Lo mismo que el anterior Hospital.rar - 4shared.com - online file sharing and storage - download …

En un foro de desarrolladores Excel en inglés se planteó la siguiente pregunta. Using VBA find all the duplicate values from Column-A and print them in Column-B. Note: 1. Even if the value has been repeated more than twice, still it should be printed only once. 2. Use of worksheet functions is not allowed. 3. Sorting is not allowed. 4. Printed column should not have any blank cells between two printed cells. Usando VBA encontrar todos los valores duplicados de la columna A e imprimirlos en la columna B. Nota: 1. Incluso si los valores se repiten más de dos veces, deben ser imprimidos una única vez. 2. No se permite el uso de las funciones de la hoja de c…

Hola: Me he tomado la libertad de subir la solución de esta consulta como aporte: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pendiente-potencias-formato-real-por-macro-udf-20916/ Los méritos corresponden a jrgces, autor de la descomposición, a shadowjuan, por haberlo dado a conocer, y a mjrofra que aporta la función que lo expresa con superíndices, yo he hecho de mero escribano. Saludos Descomponer en factores primos.xls

Hola Sres: Se trata del clásico juego de emparejamiento, primero pulsas en una posición, luego en otra, y si las imágenes coincides, ganas, de lo contrario pierdes. Es evidente que su utilidad, aparte de la del juego, es nula. Sin embargo, creo que el aporte, aporta, y valga la redundancia, algo más. Se trata de un ejercicio de manipulación de controles, botones e imágenes, que ocupan las celdas a las que se referencia. Se puede ver la asignación de una macro a cada botón y su posterior ejecución al pulsar sobre cada uno de ellos. Espero que les guste. Desde el punto de vista del juego, se permite cualquier número de premios y su cantidad. Lo mejor es probarlo par…

Hola boys: El título lo dice todo. Sub TodosLosAtributos() Application.FileDialog(msoFileDialogFolderPicker).Show Directorio = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) Set oShell = CreateObject("Shell.Application") Set oDir = oShell.Namespace(Directorio) Application.ScreenUpdating = False Cells.ClearContents For y = 0 To 40 Cells(1, y + 1) = oDir.GetDetailsOf(oDir.Items, y) Next x = 2 For Each sFile In oDir.Items For y = 0 To 40 Cells(x, y + 1) = oDir.GetDetailsOf(sFile, y) Next x = x + 1 Next Cells.EntireColumn.AutoFit End Sub [/CODE]

Que tal, como es muy común utilizar la función Buscarv y que nos busca de izquierda derecha y ahora que algunos queremos utilizar esta función pero de derecha a izquierda aquí les comparto esta... donde el 1 es la celda columna a buscar =INDICE(Hoja1!A2:D100,COINCIDIR(A2,Hoja1!D2:D100,0),1)

Buenas tardes Ruego me disculpen por el teimpo ausente. Pero con el trabajo y con problemas de la vista no he hecho los trabajos que mas me divierten como lo es trabajar con excel y access bajo conexiones ADO. No obstante, siempre existen un pequeño momento en que todo "Se ve Claro" y lo puedo aprovechar. A continuacion un pequeño archivo de Control de Almacenes que estoy trabajando. Claro que no está completo en su totalidad por el tema del peso y ademas que no he avanzado mucho en su diseño, pero con lo que tiene, quizas pueda servir de ayuda para quienes les guste el tema de control de inventario. Este puede ser de varios almacenes y es la idea que tengo que mas se…

Aunque ya existe el método de seleccionar todas las hojas y dar el comando control+b, les comparto esta forma.. podemos crear un botón en nuestra hoja de calculo para no entrar hasta el código. Sub Macro1() Dim x As String, Hoja As Worksheet, Nombre As String, msg As String Nombre = InputBox("Introduce el nombre o dato a buscar:") For Each Hoja In ThisWorkbook.Worksheets On Error Resume Next If Nombre <> "" Then x = Hoja.Cells.Find(What:=Nombre, _ After:=Hoja.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ Se…

="Ventas del "&TEXTO(B12,"dd/mm/aaaa")&" por región." ="Ventas de "&TEXTO(B12,"mmmm")&" por región." B12 es donde se coloca la fecha Quedaria asi.. Ventas de Diciembre por region saludos

Hola En el enlace siguiente pueden obtener el archivo .: Unicos en Combobox ActiveX Espero sea útil! Saludos