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

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

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.

Buenos días, soy nuevo en el manejo de macros. quisiera que me ayudaran identificando donde esta el error en el procedimiento, ya que me saca el siguiente error: Se ha producido error "1004" en tiempo de ejecución. no se puede obtener la propiedad VLookup de la clase Worksheetfunction; sin embargo la macro se ejecuta correctamente. la instrucción es: Private Sub ComboBox4_Change() Dim Horacita As String Dim Rango As Range Set Rango = Sheets(5).Range("A2:B174") Horacita = Application.WorksheetFunction.VLookup(Me.ComboBox4.Value, Rango, 2, 0) HoraProgramada = Horacita End Sub Cuando le pido que depure me señala el texto resaltado en rojo, pero no encuentro el erro…

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

Buenas noche amigos me gustarian que me den una ayuda he encontrado en el internel un código para extraer imágenes a excel desde una carpeta pero quiero mejorar. La idea es; tengo una carpeta de imagenes y quiero desde excel digitar el código (código de la carpeta origen) en una celda "A2"que tiene un combobox y que la imágen aparezca en la "B2" con dimensiones predeterminadas y al digitar el siguiente código en la celda "A3" se cargue la imágen en "B3" y así sucesivamente porque quiero mandar esto por un correo. Le adjunto el archivo para que ayuden amigos. Gracias por su tiempo Demo2.0.xlsm

Buenas tardes, Es posible hacer que un combobox (combobox1) dependa del valor de un textbox (textbox1) y que a su vez otros textbox dependan del textbox 1 y del combobox1? Es decir si yo en el textbox1 pongo al socio 10728, que el combobox1 me recoja las entradas de este socio, “Un viaje inesperado” y “Hotel Transilvania 2” y que si elijo, por ejemplo “Hotel Transilvania 2”, me realice la búsqueda en el resto de textbox?. Muchísimas gracias. Saludos, Drosophila FORMULARIO.xls

Estimados, junto con saludar espero que puedan ayudarme a resolver esta planilla que estoy generando. Necesito una planilla para registrar el tiempo de una mantención, tengo una celda para ingresar el tiempo que durará la mantención. Tengo un temporizador que empieza a contar hacia atras cuando ejecuto la macro. Todo bien hasta ahi, lo que me falta y no he podido hacer es que una vez que el temporizador llegue a 00:00:00, siga registrando tiempo en otra celda que se llame tiempo extra. *Resumo: necesito que cuando la cuenta atrás de E4 llegue a 00:00:00, en la celda F4 se active un cronómetro(cuenta hacia adelante) que se pueda detener con un boton Stop, para deten…

buen dia. tengo una duda, en un archivo de excel como puedo programar para que al dar clic a un boton me pida usuario y contraseña ya tengo todo el desarrollo echo solo me falta esa parte. Alguien puede ayudarme??? muchisimas gracias....

hola alguien sabe como insertar calendario desplegable en excel 2013

Que tal, tengo un archivo con varias hojas y en cada hoja hay un rango (igual en todas) que quiero copiar a una hoja "matriz" pero que la informacion sea agregada en la fila vacia despues de la ultima fila con datos, quiero aprender mas como programar en excel porque me enredo con los metodos, modulos, que si es objeto, procedimiento, etc. espero su ayuda, gracias de antemano..! El rango a copiar es A4..P15 ¿como hacer que el nombre de las hoja se copie en una celda en especifico en esa y en otra hoja "matriz"? Anexo archivo ejemplo,.... gracias...! Ejemplo Macro Excel copiar datos.xls

Hola un placer saludarlos de nuevo a todos Antes que nada ofrezco una disculpa por postear este tema aquí pero no encontré en que foro colocar esta pregunta, quise hacerlo en el foro de otras aplicaciones de office pues necesito una pequeña orientación con macros en word, pero al parecer el foro esta cerrado, si alguien me puede ayudar o conozcan de algún foro donde me puedan orientar les agradecería mucho su respuesta Estoy trabajando con imágenes en word y necesito convertirlas de Inline a flotantes pero no encuentro como hacerlo he probado muchos códigos y comandos y no lo consigo se trata solo de seleccionar una imagen con el mouse y correr la macro y …

Hola a todos.Estoy realizando un formulario donde pueda hacer mantenimiento a pedidos, productos, clientes entre otros. Ya encontré la solución para el listado, pero para agregar, editar y eliminar datos tengo una idea poca clara debido a que si se agrega uno o mas datos se debería hacerse consecutivamente(1 a n datos), si se edita debería editarse solo con los datos editados(1 a n datos) asimismo al eliminar debería hacerse solo con los datos que quisiera eliminar(1 a n datos) en mi formulario.Lo que deseo es que se optimice en rapidez y tamaño de archivo excel los mas que se pueda si se llega a utilizar una gran cantidad de datos.Les dejo el comprimido donde esta el arc…

Buenos días. Estoy intentando aplicar un formato determinado a tres texbox distintos en mi formulario de Alta Proveedores. Utilizo el siguiente código: TextBox2 = Format("# - ##.###.###") ' aplica formato C.I.F. X - 00.000.000 TextBox3 = Format("# - ##.###.### - #") ' aplica formato N.I.E. X - 00.000.000 - X TextBox4 = Format("##.###.### - #") ' aplica formato D.N.I./N.I.F 00.000.000 - X Pero no lo hace, alguien podría aclararme un poco. También me hago la pregunta de si el hecho de que los formatos lleven letras influye a la hora de realizar el código. Un saludo IVA.rar

amigos tengo una duda......... tengo la siguiente macro. Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False On Error Resume Next foto = Range("b1").Value ActiveSheet.Image1.Picture = LoadPicture("D:\FOTOS SISTEMA\" & foto & ".jpg") With ActiveWindow.VisibleRange Image1.Top = .Top + 5 Image1.Left = .Left + .Width - Image1.Width - 45 End With End Sub me ejecuta muy bien........ solo que cuando no esta la foto...... me carga la anterior...... lo que quiero es que cuando no este la foto me muestre el cuadro gris..... ... que se puede hacer...... mil gracias......

Hola amigos tengo ya un buen de tiempo tratando de solucionar este detalle que tengo con una macro que busca datos por fecha y texto, les dejo el archivo con las instrucciones necesarias para su análisis y espero contar con su ayuda. gracias https://mega.nz/#!XMRR0KwJ!XTEuNYjMjwzv79l1OmOn9P9PSi_bPx8U8fSAevHrxyw

Buenas tardes gente. Tengo una consulta que hacerles, estoy creando un libro, en el cual una hoja A se llena a partir de una hoja B. Mi problema es el siguiente, yo lleno una celda A11 en la hoja B, en una celda de la hoja A he colocado ='hojaB'!A11 a una celda para que asuma de manera automática dicho valor (A11 de la hoja , el problema que tengo es que cuando borro la fila 11 en la hoja B, la celda donde se encuentre la referencia ='hojaB'!A11 asume un valor de error REF, lo que busco es que dicha celda asuma el valor de la nueva celda A11, la cual fue A12 antes de que borrara la fila 11.

Estimados amigos buenos días, Por favor, alguien me puede dar una mano la siguiente cuestión: Tengo un xml que tiene el campo nodo llamado <adicionales> </adicionales> mismo que tiene campos nodo hijos <tagadicionales nombre"Apellido"> </tagadicionales> <tagadicionales nombre"Nombre"> </tagadicionales> <tagadicionales nombre"Numero"> </tagadicionales> Mas o menos así: <adicionales> <tagadicionales nombre="Apellido">Turanga</tagadicionales> <tagadicionales nombre="Nombre">Leyla</tagadicionales> <tagadicionales nombre="Numero">172349…

Hola, Tengo un libro que uso como base de datos en un hotel. En la Hoja1 registro todos los datos relativos a reservas, entradas, salidas, facturación, etc., y en diferentes hojas resumo algunos datos de la BD conforme a determinados criterios para obtener distintos tipos de estadísticas. Inicialmente usé fórmulas para los resúmenes, pero el proceso de cálculo ralentizaba el funcionamiento del libro, por ejemplo al abrirlo. Entonces decidí grabar las fórmulas en una macro en combinación con el evento Worksheet_SelectionChange(ByVal Target As Range), lo cual agilizó considerablemente el proceso pero me obliga a clickar/seleccionar la fecha en el calendario para que l…

Cuando ingreso el siguiente código html en el diseño de mi pagina web obtengo un Boton de Enviar (coloco datos de ejemplo), lo que quiero es replicar ese funcionamiento pero en excel, es decir insertar un botón en excel y que al dar clic me abra la url tal cual lo hace el boton insertado en mi pagina. <form method="post" action="https://sandbox.checkout.payulatam.com/ppp-web-gateway-payu/"> <input name="merchantId" type="hidden" value="508029" > <input name="accountId" type="hidden" value="512321" > <input name="description" type="hidden" value="Test Pago" > <input name="referenceCode" type="hidden" value="TestPago" &…

Estimados del foro. Tengo un requerimiento puntual y estoy empantanado en el proceso del tipo importación de datos. Para el caso debo importar los datos desde unas tablas Paradox 5, y estos datos luego clasificarlos y graficarlos. el una planilla dependiendo el cliente seleccionado, todo con macros y automatico. La idea es conectar las tablas, generar la consulta y extraer los datos resultados, que es como indique, el proceso a resolver.. ¿Alguien puede guiar a este humilde servidor?. Muchas gracias

Buenos dias Quisiera saber si alguien me puede explicar la razon por la cual aparece el sigiente error cuando ejecuto una macro de userform: Run time - Error '457': this key is already associated with an element of this collection. Como lo mencione el problema surge es en formularios, pero no me dice a cual linea pertenece el error, y por lo que logro evidenciar es que existe un conflicto entre estos dos formularios ya que al ejecutar uno de estos, el otro ya no se puede ejecutar y la unica forma de que vuelvan a funcionar es desde el codigo.

Hola de nuevo compañeros, ¿Cómo puedo hacer para mostrar toda la información contenida dentro de un array en un sólo cuadro MsgBox? Tengo el siguiente código de pruebas con dos opciones disponibles, pero ninguna de las dos funciona: Sub pruebas() ' Declaramos las variables... Dim miArray() As Variant miArray = Range(Cells(2, 1), Cells(2, 8)) ' Opción 1: ' MsgBox Join(miArray(1, 3), vbCr) ' Opción 2: For i = 0 To UBound(miArray) msgString = miArray(i) & vbCr Next i ' Mostramos el contenido del array... MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString End Sub

Buenas, Tengo una macro, la cual me envía los correos y su adjunto, pero a la hora de adjuntar el archivo, tengo que ir uno por uno. Hay un botón que me lleva a la carpeta y selecciono el pdf, luego en la casilla de alado se escribe la ruta del archivo. Como podría hacer para traerme cada documento a la persona que corresponde con macro? Copio la macro '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0) dam.To = Range("B" & i) 'Destinatarios dam.CC = Range("C" & i) 'Co…

Hola! Necesito crear alrededor de 120 libros, los cuales deben contener dos hojas cada uno. Dichas hojas son extraídas de dos libros diferentes. Lo que estaba haciendo era crear, a partir del "libro 1", un archivo por cada hoja que contiene dicho libro, usando una macro. Luego, abría cada uno de esos archivos y movía, manualmente, la hoja que les correspondía del "libro 2". Es importante mencionar, que tanto el "libro 1", como el "libro 2" contienen 120 hojas, las cuales pertenecen a cada nuevo archivo. ¿Existe alguna forma de crear los 120 archivos de forma automática? Desde ya agradezco cualquier información que me puedan aportar.