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

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 soy nuevo en este de la programacion, necesitaba que alguien me pudiera guiar con una duda que tengo: Actualmente estoy trabajando en un formulario, este va a tener 2 combobox, de los cuales necesita seleccionar informacion dependiendo de lo seleccionado en el combobox anterior. Por ejemplo en el combobox 1 va a estar relacionado con una lista que definire en la columna A, digamos que la lista dice vehiculos y dice automovil, avion y barco, por ejemplo. Pero que el combobox 2 me permita selecionar datos dependiendo de lo que seleccione del combobox1, por ejemplo en la columna B defino las caracteristicas de un automovil, en la columna C las caracteristicas del avi…

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.…

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

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 …

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…

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 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. 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 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…

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 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…

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…

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

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.

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

Hola compañeros, Me gustaría dejar desactivadas (o quitar, si es posible) las opciones que están marcadas dentro del cuadro rojo de la imagen adjunta, y dejarlas desactivadas tal y como aparecen en el cuadro azul. No he realizado nunca nada así, y toda la información que encuentro por Internet me aconseja realizarlo desde código XML. Pero estoy convencido de que debe de existir una sentencia algo parecido a la siguiente: ... Application.CommandBars.Controls("Eliminar").Enabled = False ... Un saludo, y muchas gracias por vuestro tiempo.

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 …

Hola de nuevo, quería saber si en la instrucción CopyToRange habría la posibilidad que copiara sólo valores y mantuviera el formato de la hoja destino siempre igual. Gracias

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, 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…

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

Estimados amigos del foro, con el apoyo de los expertos de Ayuda Excel he podido avanzar a realizar un formulario para seleccionar preguntas manualmente y luego de escogidas poder enviar a la hoja para realizar la prueba de examen. Esta ultima parte no he podido hacer que me Funcione. Por lo tanto acudo nuevamente a sus nobles conocimientos. Expongo el funcionamiento del archivo que subo. Al activar el formulario se escogerá las preguntas que se desea aplicar en el examen Luego pinchamos en el botón seleccionar, y se observara que otro formulario nos muestra lo seleccionado y también las opciones A, B, C y D ademas de la Respuesta Correcta que están en listboxes . El b…