Hola, Estoy intentando hacer una rutina que me haga lo siguiente: Tengo un textbox multilínea y quisiera que al pulsar un botón se me insertara en el textbox, justo en el punto donde está el cursor, un separador de listas muy simple, por ejemplo *--------------*, pero no lo consigo. El problema que tengo es que al hallar la posición del cursor NO me tiene en cuenta los saltos de línea que tiene el texto original del textbox hasta esa posición del cursor Os paso un ejemplo muy simple de lo que quiero, es parte de un programa más complejo, pero con este pequeño fragmento de código es suficiente Muy agradecido de antemano separador.xlsm

Sencillo para los Maestros, la situacion es la siguiente Se requiere desactivar Textobox al seleccionar "NO" en un combobox" y al seleccionar "SI" que se activen Agradezco el apoyo de todos. Saludos!! Formulario.xls

Buenos días!! He realizado una plantilla excel para poder cuadrar las cajas diarias, la del almacén y las liquidaciones de los vendedores. Hay datos que coge del programa con el que trabajamos SAP, mediante una consulta SQL, (el saldo actual, el saldo inicial y el flujo de caja del día), el resto se rellena a medida que se van contado monedas. He intentado hacerlo lo mas automático posible, pero hay dos cosas que hay que hacer antes de cerrar el documento que si no se hacen, no vale para nada... que son: Actualizar datos y rellenar la columna G de la hoja 2, y a veces se olvida... Mi idea es: 1-Una macro que actualice los datos de la consulta SQL que se ejecute cuando v…

Buenos dias a todos, Tengo una macro la cual hace lo siguiente: 1. Selecciona registros de la fila 321 a la 470 y los copia desde la fila 500 en adelante, esto con el fin de poderlos trabajar. 2. Rutina para borrar los registros en blanco, o sea tomar los registros de la posición 500 a la 649. Problema: No me borra los registros o filas en blanco, ya que no se como definir el rango y me lo pueda tomar la rutina que tengo. Relaciono la Macro: Sub Macro4() ' ' Macro4 Macro ' ' Desabilita los campos de Nombre Px y Tratamiento Application.EnableEvents = False Application.ScreenUpdating = False ActiveSheet.Unprotect Cells.…

Buenos días, Amigos del foro hace unos días JSDJSD me comentaba sobre la herramienta libre llamada Custom UI Editor for Microsoft Office la cual me di a la tarea de investigar un poco el tema, compartiendo el esquema creado hasta el momento: <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTab" label="FacturacionJB" insertBeforeMso="TabInsert"> <group id="customGroup" label="NN Holding Solutions"> <button id="customButton1" label="Buscar" size="large" onAction="MI MACRO" image="images" screentip="permite buscar la cantidad …

Hola: Estoy trajando con una hoja de calculo que quisiera que en el rango de c6 : s54 , si hubiera alguna modificación, la celda modificada en su fondo se vuelva de color amarillo. Gracias Jesús Hojamodificada.rar

Buenas tardes, me gustaría que pudierais ayudarme, con una macro, me explico: Tengo muy poca experiencia con las macros e hice una que todos los días me crea una hoja nueva y le pone la fecha actual, pero mi problema empieza cuando intento pegar en la celda M14 de el día de hoy la celda M14 del día anterior. Lo que hice es lo siguiente: Sub copiardatos() ' ' dim fechaactual as date Dim fechaanterior As Date fechaactual = "dd-mm-yy" fechaanterior = Format(Date - 1, "dd-mmm-yy") fechaactual = Worksheet fechaanterior = Worksheet activeworksheet = ("fecha anterior") Range("M14").Select Selection.Copy …

Buenas tardes; Estoy intentando sacar por vba la fecha de captura o la fecha que aparece en un explorador ( Windows ) de unas fotos pero no lo consigo. Los datos que saco son: La fecha de creación. ( .DateCreated ) La fecha de modificación. ( .DateLastModified. ) La fecha del ultimo acceso. ( DateLastAccessed ) y ninguna de esas fechas es ( adjunto pantallazo en el Excel adjunto de las fechas que salen en el explorador ). alguien sabe como lo puedo sacar??. muchísimas gracias. Libro2.xlsx

Hola. Necesito eliminar todos los objetos de todas las hojas de un libro. Tengo una macro que elimina todos los objetos de la hoja activa, pero necesito que lo haga para todas las hojas. Podría ir hoja por hoja, pero mejor en una macro. El código que tengo para la hoja activa Sub BorraObjetos() Dim n As Integer Dim Objeto As Object n = 0 For Each Objeto In ActiveSheet.Shapes Objeto.Delete n = n + 1 Next Objeto MsgBox n & " objetos eliminados.", vbInformation, "Hojas" End Sub [/CODE] Agradezco la ayuda. Gracias.

Hola a todos! Espero alguien me pueda ayudar. Tengo el siguiente código pero al ejecutarlo coloca la formula con referencias fijas (con signo $) si quisiera que fuera relativa para poder copiar y pegar ¿cómo puedo cambiar el código para que la celda sea relativa o fija? ¿Alguna idea? fil = ActiveCell.Rows.Row Selection.FormulaR1C1 = "=(R" + Trim(Str(fil)) + "C4*8)" Muchas gracias.

Estimados, ante todo muchas gracias. Soy nuevo en este mundo tan interezante de los Macros y estoy teniando algunos problemas a la hora de escribir uno para realizar la tarea siguiente: Tengo en un mismo libro las hojas: Hoja1, Hoja2 y Hoja3 En Hoja1 tengo 3 columnas (A,B y C). La columna A y B estan completas (todas sus celdas tienen valores-nombres) pero la columna C posee solo algunas celdas con información. Entonces, necesito un macro que busque en la columna C las celdas que continen valores (omitiendo las celdas sin valores)y los pegue en la Hoja2 en conjunto con la informacion de las celdas B y A correspondientes. Alguna solucion sencilla por ahi? Muchas grac…

buen dia el problema que tengo es el siguiente: ocupó este código para registrar información en una base de datos de excel, el problema que tengo es que a la hora de hacer funcionar el código por medio de un botón, tarda mucho en registrar porque la base de datos ya tiene 5,345 registros. quiero suponer que el problema está a la hora que busca la ultima fila vacía, hasta que la encuentra registra. Dim ifila As Long Dim ws As Worksheet Set ws = Sheets("BDPAGOS") ifila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(ifila, 1).Value = Me.NOFACTURA.Value ws.Cells(ifila, 2).Value = VBA.CDate(Me.FECHAPAGO.Value) ws.Cells(ifila, 3).Value = Me.BANC…

Hola Colegas Me preguntaba si me pudieran ayudar con un problema que tengo y es que ya me quebre mucho la cabeza y no se por donde empezar Como podria hacer que excel reproducierse un sonido tipo "Beep" al colorear un celda de un color (no importando el color que se elija) Alguien que me pudiera ayudar Saludos y mucha gracias

Buenos días amigos, espero esten muy bien :congratulatory: Mi problema es el siguiente: tengo un reporte el cual quisiera optimizar con macros ya que está creado totalmente con formulas, trayendo como consecuencia que el archivo sea muy lento al momento de ejecutar algun filtro o consulta debido a su gran cantidad de información. En el archivo adjunto coloco un ejemplo de lo que mas o menos quisisera lograr, especificamente en la hoja "Presentacion", acompañado con una pequeña base de datos. Mi objetivo es lograr que al momento de yo cambiar el pais en mi reporte a traves de un combo box, me traiga información a la matriz, sujeto a las condiciones tipo de producto y pre…

hola a todos y todas soy nuevo en el foro y cree la cuenta por varias consultas pero por sobre todo por el siguiente: he visto en otros temas relacionados posibles soluciones a que no se pueden ver los controles adicionales en excel y digo excel en general porque lo he intentado con el 2003 2007 y el 2010; aun no con el 2013, de instalar por ejemplo MSCAL.OCX o de hacer clic derecho en la sección blanca sin control en la sección de formulario , también están marcadas todas las primeras 5 opciones en herramientas-referencias, ademas como dije antes lo hice con todas las versiones de office y ninguna funcionó. ademas hice que se ejecutara todo desde el PC reinstalando ca…

Buenos días, espero que como siempre me puedan ayudar. Tengo un Textbox que quisiera que mostrara en Negrilla parte del texto. Para hacerme entender les dejo un ejemplo de cómo quisiera que trabajara en código: Dim X As String Dim Y As Boolean X = "" If Y = True Then X = "Carlos Flores" ElseIf Y = False Then X = "Sebastian Celeita" End If Me.TextBox.Value = "mi nombre es: " & X mi inquietud es: ¿Puedo hacer que X se muestre dentro del TextBox en Negrilla, o darle cualquier tipo de formato (Subrayado, cambio de tamaño, color, etc)? Espero sea clara la explicación, cualquier duda o inquietud que necesiten aclarar, po…

Buenas necesito su ayuda ya busque en varios temas de cronometros en este foro y no he logrado encontrar uno que me funcione en mi problema. les explicare las necesidades de mi hoja: es para una competencia de bicicletas quisiera colocarle un cronometro con milesimas de segundos para cuando inicie la carrera y un boton a la par de la celda de "min de llegada 1" y "min llegada 2" que al precionarlo me coloque en la casilla "min de llegada" 1 y 2 el tiempo en el ke a llegado cada corredor sin parar el cronometro general para los demas competidores. en minuto de salida cada corredor sale con un minuto de diferencia no he logrado conseguir que me coloque minutos, segundos …

Buena Tardes les escribo por la siguiente duda. Estoy construyendo una macros, para enviar datos de UserForm en excel a word, todo funciona perfectamente. excepto la validación de un texbox en el formulario, los cuales estan agrupado en unos frame. al precionar la tecla enter, en un texto en blanco lanza un mensaje de error, pero al ir al ultimo texbox de cada frame, no realiza la validación y simplemente pasa al otro texbox les adjunto mi archivo para dejarlo todo mas claro prototipo_luminaria.rar

Buenas tardes; soy nueva trabajando con macros y tengo una hoja llamada Buscar datos (hoja1)que tiene el combobox1 y necesito que al darle click al combo me cargue los datos de la hoja cooperativas (hoja2) del rango a7;a30 sin repetirme datos o mostrar espacios en blanco ya que en esta columna existen varias veces los mismos nombres o hay celdas vacias. Agradeceria de antemano su ayuda! Copia de Control de Cooperativas.xls

Hola a todos, si alguien me puede ayudar con lo siguiente:Tengo una hoja con varias boletas de pago, la cual su rango es variable y lo que necesito es establecer el rango de impresión, tal como se muestra en el archivo adjunto. Muchas gracias. BOLETAS.xls

Hola, quisiera saber si pueden ayudarme hacer una macro que cree una carpeta con el nombre del cliente (celda C6) y dentro de esta carpeta que guarde la hoja (NOTA_DE_TRABAJO) con el numero de la (celda F2) y la fecha del día, quisiera que se guardara en el disco duro "E" en la carpeta "Notas", y al guardar quedarme en la hoja activa (CALCULADOR). Esta macro la copie de internet pero no se modificarla. EJEMPLO: Sub guardar_Click() Range("A1").Columns.Hidden = Not Range("A1").Columns.Hidden Dim wb Dim ruta, carpeta, libro, texto As String ruta = InputBox("E:\notas") 'ruta = "E:\notas" carpeta = ActiveSheet.Range("C6").Value libro = ActiveSheet.Range("F2").Value…

Buenas noches quisiera pedir su ayuda ya que tengo un archivo de excel con aproximadamente 1000 registros. En la columna "C" tengo datos los cuales deberían estar concatenados, sin embargo, estan dispersos, por ejemplo, la celda C1 dice HOLA, la celda C2 dice SOY y la celda C3 dice JUANITO, el resultado que quiero lograr es HOLA SOY JUANITO en una sola celda a partir de donde empieza la palabra HOLA. No importa que queden celdas vacias debajo de cada cadena concatenada. Adjunto un archivo donde se puede ver un ejemplo de los datos que tengo. Agradezco su apoyo. Prueba.xls

Buenos Días, Como puedo hacer para limpiar mi tabla dinámica sin necesidad de hacerlo uno por uno. ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Producto").Orientation _ = xlHidden ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Mes").Orientation = _ xlHidden ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Departamento"). _ Orientation = xlHidden ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Promedio de ISRed"). _ Orientation = xlHidden[/CODE] Espero su ayuda Gracias.

Hola, quisiera que me ayudaran diciendome como o cual es el codigo para imprimir un formulario de visual basic con los datos ya escritos, la idea es que de la instruccion de imprimir y la persona que llene el formulario escoja la impresora. Espero que me puedan ayudar ya que no soy muy experta en esto Muchas gracias

Quisiera saber como puedo hacer para que en un userform me aparezca en una casilla tres valores hallados en la hoja excel y además que grafique una gráfica de barras de dos de esos valores. macrocontar.xls