Como poner hora y fecha en otras celdas Buenas tardes, qusiera ver quien puede ayudarme con esta situacion, en la siguiente sentencia, estoy pidiendo que cuando se escriba algo en la celda B41:B90, en las celdas E y F, me ponga fecha y hora respectivamente, pero no se pone al menos que borre datos( aunque no los hay en la celda , yo quiero que al aparecer los datois que se ponen en la celda B41, automaticamente me aparescan los datos en las celdas E y F. Esta es la sentencia que yo estoy usando: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B41:B90"))" Is Nothing Then" Range("E" & Target.Row) = Date …

Private Sub CommandButton29_Click() With UserForm1 TextBox2 = TextBox2 - 1 Unload Me End With End Sub no logro que reste una vez que lo doy al boton! que puedo haccer!

Hola, necesito ayuda con un código que estoy haciendo para mandar un libro de excel por medio de excel (lo fui creando copiando de algunos códigos que encontré en internet). Les adjunto el código que estoy utilizando, ya logré que mande el archivo actual a un cuenta específica de mail pero lo que quiero agregar ahora, y que me produce el error, es que guarde temporalmente los cambios al archivo y eso sea lo que envie. Además necesito que el usuario pueda elegir la dirección de correo de la lista de contactos de outlook y que nos sea definida como en este ejemplo. Alguien podría ayudarme? LLevo un par de días intentandolo y no me sale (soy nueva en esto de la programació…

Estimados, Por favor podrían poyarme con este adjunto, no sé exactamente que está mal, estoy tratando de cuadrar ya que soy novato en VB. El tema es que lo que deseo es que cuando complete el formulario y seleccione el proveedor del combobox copie automáticamente de la hoja ORDENES los datos de las columnas J, I, A, C, F, G, H y estas deberán pegarse a la pestaña del proveedor elegido En el orden de las columnas A,B,C,D,E,F. Agradezco su gentil apoyo. Saludos, AYUDA 1.zip

Buen dia amigos aca saludandols de nuevo y enviandoles muchos abazos y bendiciones ya que ustedes ayudan mucha gente aca con sus problemas, me han ayudado bastante y se los agradesco. el tiempo nos come y aveces no me da tiempo d agradecerles. el dia de hoy tengo el problema d que quiero copial los valores de una formula y pegarlo a otra pero no me lo permite y pues ya no se como, me marcaba un error de worksheet.paste y la vdd ya me dsespere. las celdas que quiero copiar es la de municipio (g13) la de nombre de prsidente municipal (m15, t15, x15) y la de folio (x13, y13, z13) a la hoja 3 y ahi se queden ya que copiare muchos mas datos pero estos me estan dando problema…

Hola a todos, os mando un saludo desde Pamplona, España. Quiero consultaros una cosa que me gustaria hacer. Tengo en una hoja de càlculo, unos cuantos commandbutton activeX, que he insertado para que me abran unos determinados formularios. Los botones no tienen texto, he colocado unos iconos bastante intuitivos, que me indican lo que abro con ese botòn. Pero quiero rizar el rizo, y me gustarìa que cuando colocara el ratòn sobre el botòn, me saliera un comentario dàndome una ayuda sobre lo que hace ese botòn. En celdas se que se puede hacer, pero en controles activeX no lo se, y si se puede, serà con codigo vba, asì que vosotros que sabeis mucho de vba, echadme una mano y …

buenas, soy nuevo en este foro. queria pedirles el favor de darme unas pautas para poder crear una macro para organizar la informacion del archivo. consta de dos hojas. la primera hoja esta la informacion que se exporta de sistema y en la otra esta el ejemplo de como querria organizarla. como son demasiados datos manual es muy engorroso. agradezco me puedan dar una explicacion de como hacer lotes_produccion (16).xls

buenas tardes necesito de su ayuda nueva mente esta vez y ya me cicle le comento el porque, utilizando el grabador de macros realice una macro pero al momento de utilizar el bucle for esta me pone la misma formula en todas las hojas y esto es debido a que no me cambia las hojas conforme el bucle va cambiando de hoja, la función es la siguiente Range("L21").Select ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2],'B1 (1) '!RC[-2],'B2 (1)'!RC[-2])" Range("L22").Select esto es para sacar un promedio de dos hojas anteriores, pero esta formula iniciaria a correr a partir de la hoja tres, ojala y me pudieran orientar de como poder resolver esto. de antemano muchas gracias

Buenas tardes a todos los que se toman el tiempo para ayudarnos con sus conocimientos. Intento ser autodidacta con excel y las macros. En mi trabajo siempre necesito exportar informes en el que el titulo inicial y final son constantes dependiendo de la cuenta contable. Hice una macro en la cual en el espacio que siempre esta vacío (ver archivo) me escribe el nombre del titulo inicial; sin embargo cuando exporto nuevamente el mismo archivo y este tiene mas datos la macro solo me selecciona hasta el rango que estaba especificado inicialmente. Como hago para que seleccione el rango de todo el espacio vacío hasta la siguiente celda con título, he intentado hacerlo pero no lo…

Buenos Dias a todos espero que puedan ayudarme y orientarme en un problemilla que tengo: Problema Tengo un archivo de excel con macros el cual lo tengo instalado en 34 instituciones diferentes, es posible que se pueda hacer un programa en vba que actualice el codigo vba, ejemplo: En el archivo de excel instalado tengo el siguiente codigo: Private Sub BuscarContra() Buscar = Buscar + 1 End Sub Pero debo de reemplazarlo por: Private Sub BuscarContra() Buscar = Buscar + 5 Buscar= Buscar +7 End Sub Es posible hacer una función o programa para que lo modifique automaticamente y no volver a copiar el archivo de excel en t…

hola amigos de ayudaexcel. me encanta el excel, es una herramienta valiosa, sin embargo quiero pasar a poder escribir mis macros, actualmente puedo modificar y adaptar ciertas macros a mis necesidades, pero lo que quiero es poder escribirlas, poder entenderles, alguien sería tan amable de facilitarme algun manual que me enseñe de la "a" la "z" lo referente al vba. gracias merojas

Hola a todos de nuevo!! Vengo de nuevo esta vez para solicitar una ayuda más. Tengo 6 columnas (C hasta H) con información de una sola palabra, lo que busco es que por medio de una macro pueda concatenar todas las descripciones posibles, es decir lograr que me forme las descripciones de izquierda a derecha a modo de utilizar toda la información posible. Pongo un ejemplo corto: Al crear la macro estaría como que quedando así: ETIQUETA DE FOLEO AMARILLO #12 T.L. ETIQUETA DE FOLEO AMARILLO #12 T.F. ETIQUETA DE FOLEO AMARILLO #12 OT.L. ETIQUETA DE FOLEO AMARILLO #12 OT.F. ETIQUETA DE FOLEO AMARILLO #12 OTM.L. ETIQUETA DE FOLEO AMARILLO #12 OTM.F. Si se darán cuent…

Hola a todos los que me puedan ayudar a resolver este problema. Buscando encontré este un código que lee archivos xml de un directorio seleccionado para luego pasarlo a una hoja de excel, el problema surgió cuando quise copiar todo el código en un archivo nuevo y proceder a testear, ya he revisado que tenga estén habilitadas las mismas referencias de las librerías, pero nada que encuentro el detalle. Una parte del código me daba interrupción en esta línea "ruta = LCase(CreateObject([explorador]).BrowseForFolder(0, "selecciona la carpeta a procesar", 0, "").items.Item.Path)" y luego consultando hice este cambio "ruta = LCase(CreateObject("shell.application").…

Buenos días, En el archivo adjunto tengo un listview que en las columnas respectivas C, F que corresponden a los € necesito que se muestren en el listview los importes con dos decimales. ¿Alguien me podría ayudar a definirlo?. He encontrado varias formas por internet pero ninguna soy capaz d e adaptarla a mi código... Muchas gracias de anteamano. BUSCADOR PRECIOS SUBCONTRATAS.xlsm

Hola a todos, mi nombre es Maurizio E incluso si entiendo que para muchos de ustedes esta solicitud mía no tiene mucho sentido; Para mí programáticamente mucho. Dicho esto, mi solicitud es esta: En un formulario de usuario, inserté un objeto (Calendar1) y 6 (TextBox) Ahora, el propósito de todo esto sería seleccionar uno de estos (cuadro de texto) y al hacer clic en (Calendario) ingrese la (Fecha seleccionada eso es todo ! Gracias como siempre desde ahora por toda la ayuda que me des al respecto. Un saludo desde Maurizio ################################ Hi everyone, my name is Maurizio And even if I understand that for many of you this request o…

Hola Gerson. Saludos hacia Honduras y para ti en especial Referente a tu turbo-filtro En el numérico (Consecutivo, cantidad y movimiento) hay que insertar TODO (número completo) pero, en movimiento no me filtra (no acepta) más de 4 caracteres (números) y la columna contiene 8. Pudría ir hasta 14 números el movimiento A prtir del 4º, al introducir el 5º me dice que; Se ha producido error 6 en tiempo de ejecución Desbordamiento Por ejemplo me acepta 9154 pero no 91547048 La opción Private Sub destinogp_Exit(ByVal Cancel As MSForms.ReturnBoolean) no me funciona (nada filtra,) no sé si al amigo si También si coloco 37500 filas (lineas) con datos, al tratar de abrir…

Buenas a todos. Tengo un libro con 13 hojas, de las cuales me gustaría poder guardar SOLO LA PRIMERA en otro libro, que esta lleve los valores de celda y no las fórmulas, y que guarde en una ruta determinada (y sobrescriba al anterior). Todo esto que se hiciera en automatico cada vez que yo guarde el libro original... Es posible? Alguien que me pueda ayudar? Gracias de antemano, les envío saludos. - - - - - Mensaje combinado - - - - - Me puse a leer varias respuestas en este foro, y armé una solución, en base a muchas, me funcionó, y se las comparto: Sub NuevoLibroConValores() Sheets("NATIVO").Copy Cells.Select Selection.Copy Selection.PasteSpecial P…

Hola a tod@s, he buscado en el foro pero no encuentro exactamente lo que necesito. Tengo en una columna grupos de celdas del mismo color y me gustaría obtener el resultado de cuántas seguidas hay y su número, en una misma columna. Ejemplo: si hay 3 celdas seguidas de color, obtener un 3, si hay 4 obtener un 4, etc Adjunto un excel con el ejemplo por si es más fácil. Muchas gracias de antemano por vuestro tiempo y sabiduría!! Ejercicio contar celdas consecutivas mismo color.xlsx

Hola, espero me podáis ayudar. Adjunto un Excel con dos hojas, llamadas Ventas y Resumen. En Ventas debo introducir varios datos relativos a una venta: Código Producto, Cantidad y Precio Udad. El resto de datos (IVA, Total y Fecha) se rellenan automaticamente una vez introduzco los tres datos anteriormente indicados. A la hoja Resumen quiero traspasar algunos datos que tengan su origen en la hoja Ventas. Para ello he insertado un botón (Grabar) que llama a tres macros: una para traspasar los datos y pegarlos en la última fila vacía (macro CopiarPegar); otra para limpiar celdas de la hoja Ventas y que quede preparada para volver a meter datos de más ventas (macro Limpia…

Hola.. Espero me puedan ayudar, necesito una macro de búsqueda, que al ingresar un dato me genere lo que busco o datos parecidos. En mi archivo de datos la 1ra columna contiene hipervinculos de hojas en pdf, la 2da columna contiene el titulo de lo que contiene la hoja de pdf y en la 3ra el resumen. Lo que necesito es una busqueda rapida sin que necesita abrir cada hiperviculo, cabe mencionar que mi base de datos consta de 2 hojas. Espero su ayuda, gracias.

Estimada(o) Junto con saludar y deseando que todos esten bien junto a los suyos pasa a exponer mi consulta (sencilla quizas pero no logro dar con la solución) Tengo un libro (caso ejemplo en adjunto) con algunas hojas, quiero copiar desde la Hoja1, cada columna o rango completo de celdas; a la Hoja2, a partir de una celda que yo decida como en el ejemplo (me refiero a que no necesariamente la misma ubicación que tiene en Hoja1). Worksheets("Cubo").Columns(colu).Copy Destination:=Worksheets(Mid(cractual, 1, 18)).Columns(columnacr) este codigo me funciona pero me copia la columna completa, pero lo que esté en cractual en la misma columna (celdas a…

buenas expertos tengo este libro y en el tengo un formulario llamado verform que lo que hace es comparar dos hojas cualquiera y marcar las celdas coincidentes entre ambas con color amarillo y mi problema es el siguiente comparo la hoja programa4cifras con la hoja chance y me marca las celdas coincidentes en hoja programa4cifras en amarillo, pero quisiera hacer lo siguiente que al comparar la hoja programa4cifras con hoja semana me marcara las celdas con otro color diferente dejando el primer proceso de celdas marcadas en amarillo intacto porque necesito hacer un analisis mas profundo de estos numeros prueba1.xlsm

Hola de nuevo, tengo una macro que intenta guardar una carpeta de mi C:\ en una carpeta de un servidor, la ejecuto pero no hace nada, está mal evidentemente pero ¿Qué está mal? Sub Mueve_fotos() Dim carpeta As String Dim fecha As Date fecha = Now(Format("dd-mm-yyyy")) carpeta = "\\179.29.84.35\Pub-Water-Jet\REGISTRO VISUAL\" Call Shell("explorer.exe " & carpeta, vbNormalFocus) Name "C:\Seat\Historico\" As carpeta & fecha End Sub[/CODE]

Buenas tardes, Tengo una macro creada con el botón para grabar. Me ha funcionado bien pero hay un pequeño error que salta en algunas ocasiones. Como se ve, tengo una formula extensa, y al llegar a la parte que citare abajo, si es que la formula para buscar no encuentra el dato "Original" manda un error. ¿Cual seria la forma de decirle que si no encuentra ese "Original" simplemente continúe con la formula?, saltándose esa orden de buscar. Cells.Find(What:="Original", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.…

Hola tengo muchos problemas para gestionar un reporte al cual acceden varios usuarios, necesito de su valioso apoyo para crear un código que impida modificar los datos ya ingresados en dicho reporte. [TABLE=width: 500] [TR] [TD]esta columna recibe datos[/TD] [TD]esta columna recibe datos 5 minutos después[/TD] [TD]estacolumnarecibedatos[/TD] [/TR] [TR] [TD]lo que necesito es:[/TD] [TD][/TD] [TD][/TD] [/TR] [TR] [TD]ingresa datos/se bloquee[/TD] [TD]ingresa datos/se bloquee[/TD] [TD]etc...[/TD] [/TR] [TR] [TD][/TD] [TD][/TD] [TD][/TD] [/TR] [/TABLE] Y no se como anlzarala a este otro codigo que las columna ya tienen para ingresar fechas: Private Su…