Buenas tardes con todos: En esta oportunidad les comparto una funcion udf la cual concatena varias celdas para formar una sentencia para SQL Server llamada Insert Into. Los funcion tiene la siguiente sintaxis: =GenerarSQL(Rango, Tabla) Rango: Rango de celdas que contienen datos la cual representara los valores de un campo. Tabla: Nombre de la tabla a la cual se le insertaran los registros. Luego que se haya generado la sentencia se puede pegar en el analizador de consulta del SQL y ejecutarlo. Espero me haya dejado entender. En este enlace pueden encontrarlo mas detallado. Saludos Funcion_Para_Generar_Sentencia_Insert_Into_SQL_Server.xls

Hola, He estado dándole vueltas mucho tiempo a esto, así que lo acabo de materializar tras descubrir la función ontime y os lo pongo para que le echéis un vistazo. Es un reloj de varilla. Hay por ahí ya intentos de reloj (que supongo funcionarán), pero para que funcionen hay que hacer mil historias, calcular senos, cosenos, ángulos, grados y muchas "cosillas" más, todo porque en Excel no se puede poner un punto de giro que no sea el central de una autoforma. Yo he tirado por el camino de enmedio: como una autoforma se puede rotar desde el centro, he hecho que el 50% de la autoforma que es la varilla quede transparente, así que puedo rotar "desde la base de la varilla", s…

Hola a todos... Desde hace unos meses que he estado buscando y probando nuevas herramientas que pueda utilizar en combinacion con Excel para poder ampliar mi caja de herramientas en programacion, al igual que ampliar mis horizontes y oportunidades... Pues hace poco me tope con Racket el cual es un lenguaje funcional, descendiente de Lisp (el cual crei que era un lenguaje obsoleto y que no tenia nada que ofrecer, que equivocado estaba...) el cual relamente me ha impresionado la forma en como se programa haciendo uso al 100% de puras funciones. Decidi incursionar en Racket, despues de haber visto un video, el cual me dejo muy impresionado, aqui les dejo un link donde det…

Hola buenas ¿Cómo han estado? Les dejo el siguiente enlace para ver un tutorial en donde se explica mediante el uso de algunas formulas de Excel como hacer un ranking en una lista de datos. Como hacer un ranking en Excel | Excellentias.com - Excel, Infovis & BI Magazine Espero sea de su utilidad. Saludos, JuanM

Yo aqui de nuevo contratacando a los macronianos (jeje son bromas;)), adjunto un archivo en el cual podran ver diferentes formas de buscar valores dentro de una BD, es decir cual es el primer valor, el ultimo valor, el mayor valor, el primer valor, el menor valor y la suma de ellos, segun un filtro dado por fecha... sin tanto que decir chequen el xls y si hay comentarios o agregados haganlos saber Espero pueda servir, que es lo mas seguro ( Importante todas las formulas no son matriciales, por aquello que para algunos es engorroso {} ) Saludos desde Honduras Buscando valores.zip

Hola: Respondiendo a este post: https://www.ayudaexcel.com/foro/threads/importar-xml-a-masiva-en-excel.40952/ Sub ExtraerFolioFiscal() Dim MiPc, Carpeta, Archivos, Archivo, Registro, Registros Dim y, Fila, FolioFiscal Dim Contador As Integer Dim cuenta As Integer Application.ScreenUpdating = False Fila = Range("A" & Rows.Count).End(xlUp).Row + 1 Set MiPc = CreateObject("Scripting.FileSystemObject") Set Carpeta = MiPc.GetFolder(Range("B1").Value) Set Registros = Carpeta.Files Set Archivos = Carpeta.Files '-------Cuenta la cantidad de archivos en la carpeta ---------------------------- For Each Registro…

Hola Es casi seguro que hay algo similar por el foro, pero de igual modo adjunto lo siguiente Colorear facilmente una fila Private Sub Worksheet_SelectionChange(ByVal Target As Range) Rem conseguimos la ultima celda ocupada de la columna A uf = Range("A" & Rows.Count).End(xlUp).Row Rem trabajaremos con Target/Objetivo With Target Rem si la columna activa se localiza despues de la columna E Rem si la fila activa es menor que 5 Rem si la fila activa es mayor que uf (ultima fila ocupada) Rem >>> entonces salir de la rutina If .Column > 5 Or .Row < 5 Or .Row > uf Then Exit Sub Rem trabajando con el rango Range("A5:E" & uf…

Hola Aqui les dejo un aporte (no esta muy trabajado, ya que lo hice en un ratito de ocio que tengo jejejeje), en este caso lo que estamos haciendo es vigilar (bueno cuidar para que no vayan a 'pensar' en espiar) una instancia de excel desde otra instancia de excel. Cuando abran el archivo y ejecuten la macro automaticamente creara otra instancia de excel y hara oculta la instancia donde esta la macro, de tal forma que si vamos al edito de VBA del excel de la instancia creada visible no hay codigo, ya que los eventos los estamos manejando desde la otra instancia. Al cerrar el excel, se cierra la otra instancia donde esta la macro, como posibles aplicaciones, pues las …

Hola: A raíz de la respuesta a este post, se me ha ocurrido que podría ser interesante. https://www.ayudaexcel.com/foro/showthread.php?t=16247 En el adjunto encontrareis un formulario en el que destaca un control Web Browsser. En el visualizaremos los archivos .pdf escogidos de una lista (listview) seleccionada a través de un cuadro de dialogo para la elección de carpetas. Vereis que hay un botón, con el abrimos el cuadro de dialogo de selección de las carpetas. Se pueden escoger todas las que se necesiten. Una vez cerrado el cuadro de dialogo, aparecerán los .pdf en la lista. Con un doble-click en cualquiera de ellos, se visualizará en el control Web Browsser E…

Hola a todos222222: Se trata de un par de formularios y una hoja para llevar un control de presencia, pagos, medicamentos. Vuestra imaginación es el límite. En el adjunto encontrareis 2 hojas fijas , "Menú" y "Resumen mensual". A continuación vienen 3 hojas a modo de ejemplo, son 3 como podrían ser 300 y tienen los nombres que tienen, pero podrían tener cualquier otro. Todas esas hojas tienen el mismo formato: La columna A para fechas correlativas y la fila 1 para personas, 1 en cada columna. Se pueden añadir, eliminar fechas a voluntad, incluso con saltos entre ellas. Una vez creadas pueden se ocultadas sin problemas. Al abrir el archivo se visualiza la hoja "…

El autor es John Walkenbach ([email protected]), que por lo que he leído es uno de los gurús de Excel. Los aficionados a la guitarra le sacarán mucho partido. Saludos cordiales. Edito: Inserto archivo sin comprimir escalas-modos para guitarra.zip xlguitar.xls

Hola: La posibilidad de visualizar información mientras se ejecuta una macro es mas bien escasa, o utilizamos la barra de estado de Excel o utilizamos celdas. ¿ Porque no utilizar un formulario VBA ? En principio por dos motivos 1) Los resultado en un formulario se visualizan al terminar el procedimiento que provoca los cambios 2) Una vez visualizado el formulario, se requiere la intervención del usuario para continuar. Ambos inconvenientes se pueden subsanar, el primero con la instrucción DoEvents. Cuando se detecta esta instrucción, se completan todos los cambios efectuados hasta el momento. Si ponemos el código de nuestra macro dentro del evento Activate del fo…

Hola: Aquí os dejo una de esas cosas que tiene Excel por ahí, y que a veces puede ser útil Crear un formulario de edición de los datos de cualquier hoja de un libro con una sola instrcución: ActiveSheet.ShowDataForm Saludos EditarHojas.zip

Hola Es muy sencillo y espero sea de utilidad Saludos desde Honduras Mostrar Lista Desplegable Sin Presionar La Flecha.zip

Saludos. A raiz de una cosulta que se hizo en el foro de si se podian mostrar asteriscos en un inputbox, me quedo la inquietud de si realmente se podia hacer, investigando en la red encontre un excelente codigo del Maestro Juan M Afán de Ribera que permite hacerlo, subo el presente ejemplo que condiciona tres intentos de acceso, espero sea de utilidad. Atte. joshua Inputbox asteriscos.zip

Bueno a raiz de este tema https://www.ayudaexcel.com/foro/threads/como-convertir-a-letras-minutos-y-segundos.36817/ , hice esta función que dejo por si a alguien le es de utilidad Salu2 convertir hora en letras.zip convertir hora en letras.xls

Hola Si! podra ser algo contradictorio el titulo del tema, pero es algo asi:) Suponiendo que somos digitadores de algun inventario y que ciertos codigos/numeros (de materia prima o prendas terminadas o lo que sea...), comienzan con el mismo caracter o caracteres, pues bien elabore (se me ocurrio) esta pequeña macro de evento para que puedan probarla y pues hacer cambios a conveniencia y uso Se puede usar en todo el libro o una hoja en especifico Para todo un libro Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next 'If Target.Column = 3 Then If Not Intersect(Target, Range("A3:A12")) Is Nothing Then If VBA.Is…

Estando de vacaciones comparto fórmulas con los ingleses y me gusta traducirlas al vuelo con una pequeña macro: Sub Traduce_Formulas() ' Escribe en las celdas de la columna A un signo de apóstrofo (') seguido ' por la fórmula en ingles o en el idioma local (por ejemplo: en español) ' y con formato de VBA y selecciona esas celdas. Dim celda As Range On Error Resume Next For Each celda In Selection.Cells celda.Offset(0, 3).Formula = celda.Formula If Err.Number <> 0 Then Err.Clear celda.Offset(0, 3).FormulaLocal = celda.Formula End If If Err.Number <> 0 Then …

Buenas a todos, Esto es para el tema [sOLUCIONADO] Ordenar números en una sola celda que esta ya cerrado como solucionado donde German abrio una pregunta, cuando me puse a hacer la funcion no me di cuenta que el tema estaba cerrado asi que lo pongo aqui como aporte general. Se trata de dos UDF, una ordena de forma ascendente y otra de forma descendente usando el metodo burbuja. Unicamente has de usar las formulas =aorden(A1) para ordenar ascendentemente y =dorden(A1) para ordenar descendentemente, tambien puedes combinarlas en una sola, =dorden(A1)-aorden(A1). Quizas con esto te resulte mas comodo realizar tu estudio. Adjunto el archivo, y una lastima que no deje esc…

Buenos días comunidad, estoy pensando además de responder las consultas por aquí presentadas, en escribir posts sobre temas diversos pero útiles que por ejemplo a mí me han surgido en trabajos realizados con anterioridad. Esperando dichos recursos puedan serle útiles a alguien más o incluso profundizar en el estudio de ellos (hay bastantes en VBA). En esta ocasión quiero presentar un ListBox (o más precisamente DropDown) que se rellena "inteligentemente". El problema es básicamente el siguiente: tenemos un conjunto de datos en una hoja de Excel, y queremos que al escribir en una celda de otra hoja, los datos puedan ser seleccionados de entre el conjunto definido en l…

Buenas tardes por aca dejare un aporte debido a que en algunos foros he visto que buscan lo siguiente: 1) Envía correos a Outlook desde Excel tomando un rango estipulado tanto celdas como imágenes que se encuentren dentro del mismo (recopilación de macro tomadas de internet)2) Envía correos a Outlook desde Excel tomando un rango estipulado tanto celdas como imágenes que se encuentren dentro del mismo envía el correo en formato HTML y la imagen en cuerpo de mensaje y como adjunto. (macro elaborada por @logroastur en tema: Enviar correo desde Excel) enviar correo excel nuevo.rar

Hola a todos, me quisiera unir a los aportes y para esto les doy este código que puede ser de gran utilidad. Supongamos que tenemos un texbox en el que introducimos textos pero deseamos que estos sean introducidos solo en mayuscula sin tener que tener el caps lock presionado. Haremos lo siguiente: Private Sub Textbox1_Change() Dim I As Integer Textbox1.Text = UCase(Textbox1.Text) I = Len(Textbox1.Text) Textbox1.SelStart = I End Sub[/PHP] Si lo desean les subo un archivo con varios texbox programados con este codigo y asi puedan verlo trabajando. Espero les sirva. Saludos,

Hola; En unos días, subire los archivos de ejemplo que estoy utilizando para este curso para que a la vez que se utilice el manual se puedan usar los ejemplos. El tema 1 y 3 son los que mas me gustan. El tema uno por la parte de la in-seguridad de excel y el tres por el ultimo ejercicio, creo que esta muy logrado. El temario me salia algo mas extenso pero lo he tenido que dejar asi porque es para un curso de 25 horas, no podia poner mas cosas porque no me daria tiempo a verlo todo. Espero que os sirva. Indice Temario Tema 1.- Repaso de conceptos básicos para optimizar la construcción de Modelos en Excel Tema 2.- Funciones Avanzadas Tema 3.- Administracion y manej…

____________________________________________________________________ Hola: Alguna que otra vez habreis tenido problemas a la hora de encontrar un texto por culpa de un punto, una coma un acento, un espacio, etc..., bueno pues aquí os dejo esta pequeña función que permite homogeneizar un texto para poder tener mas éxito en las comparaciones, sobre todo en nombres y apellidos. Private Function Textificar(Text0 As Variant) Textificar = LCase(Text0) Do Until InStr(Textificar, " ") = 0: Textificar = Replace(Textificar, " ", Empty): Loop Do Until InStr(Textificar, ",") = 0: Textificar = Replace(Textificar, ",", Empty): Loop Do Until InStr(Textificar, ";") = 0: Textific…

En este vídeo vemos un ejemplo de lo poderosa que es la técnica denominada Web Scraping. ¿La conocías? Un consejo: "Aprende VBA, ¡no te arrepentirás!" Saludos. José Santos