Hola a todos como podria hacer que este codigo busque tambien el nombre la celda en las subcarpetas despues de la carpeta "lista" Sub copiar_jpg() Dim Celda As Excel.Range With CreateObject("Scripting.FileSystemObject") For Each Celda In Range("b4:b13") .CopyFile ThisWorkbook.Path & "\lista\" & Celda, ThisWorkbook.Path & "\proyeccion\" & Celda End With End Sub[/CODE] gracias

amigo gracias ayudaexcel por dejarme forma parte de su equipo amigos quería q me colaboren como introducir una clave tengo el usuario al ejecutar la macro pero quiero añadir una clave a cada usuario la siguiente sentencia la tengo especificada de la siguiente manera Private Sub CommandButton1_Click() If Usuario = "" Then MsgBox "Seleccione un usuario": Exit Sub MsgBox "Bienvenido " & Usuario Sheets(2).[b49].Value = Usuario Unload Me End Sub Private Sub UserForm_Activate() Usuario.AddItem "pedro" Usuario.AddItem "mario" End Sub

deseo ingresarle a un textbox un calendario que me permita escoger una fecha para luego llevarla a una hoja de excel

hola alguien sabe como insertar calendario desplegable en excel 2013

Cordial saludo, he visto lo temas de como insertar imágenes animadas en una hoja de excel, pero lo que deseo es insertarla en un formulario (Macro).

Necesito ayuda, quisiera saber como insertar una imagen desde un sitio web en un cuadro de imagen del UserForm, he intentado de todo y no logro hacerlo, intente con este código que lo inserta en la hoja de excel y funciona de maravilla, pero no logro hacer que se incruste en un UserForm, he intentando modificarlo pero no funciona, AUXILIO!!! Private Sub UserForm_Initialize() Dim URL As String URL = "https://petsbioforestal.es/wp-content/uploads/2020/05/porque-mi-conejo-estornuda.jpg" Range("C5").Select Hoja1.Pictures.Insert(URL).Select 'End Sub Tambien probe con un WebBroser y si unfiona muy bien pero no logro adecuar e…

Buenas Tardes Tengo una macro que me envía de forma masiva correos a una lista en Excel que ya tengo predeterminada (empresas y Usuarios), pero requiero enviarle a cada uno de las empresas que se encuentren en esta lista una información especifica que tengo en una tabla (encabezados e información) pero no queremos enviarla en tipo texto sino tal cual esta en la tabla de Excel Adjunto código que utilizo para el envío de los correos Sub envio_mailprueba() Application.ScreenUpdating = False Dim outlookOBJ As Object Dim mitem As Object Dim OutMail As Object Dim fso As Object Dim ts As Object Dim strbody As String Dim Ruta As String Dim Firma As String Range("E2…

Estimados, para partir decir que he aprendido bastante navegando por los distintos temas del foro y le agradezco a todos los aportes. Ahora vamos con mi problema, estoy creando un formulario para agilizar la captura de distintos report en una base de datos. Hasta ahora me a ido bien, pero me encontré con el problema con el uso de CheckBox. Mi idea es que al guardar todos los datos ingresados y tener marcado un CheckBox, las casillas que estén marcadas agreguen el texto "A DESCUENTO" en una celda designada. No sé si me explico bien, me gustaría poder enviar mi planilla pero por razones de seguridad no puedo hacerlo ya que los datos son privados de la empresa. Más o men…

Buenos días, quisiera saber cómo insertar en un form una grilla que me permita en primer lugar mostrar los datos agrupados que se extraen desde un listado de Excel. Posteriormente, luego de mostrarlos agrupados que me permita asociar a cada dato de esta grilla un valor que se seleccionará desde datos de una tabla de Access (esto ultimo lo sé hacer). Mi problema es que en mi office por ejemplo no tengo el control Igrid y no sé cómo instalarlo si es que esa es la solución por lo que he leído. Adjunto un ejemplo de lo que quiero. CONSULTA_DE _GRID.xlsx

Hola Estimados del foro , estoy buscando información y a la vez tratar de solucionar un inconveniente con mostrar una imagen donde detalle mi problema: tengo un formulario: (controles listbox,image)y una carpeta donde están todas las imagenes (miles de imagenes).,cuando yo selecciono en el listbox un codigo concatenado ejemplo ("200085-41257"), deseo que me muestre la imagen que esta alojada en la carpeta "imagenes2021" ,pero aqui viene el problema las imagenes que estan en la carpeta no tienen el mismo nombre del listbox la imagen se extrae de una web y viene de la siguiente forma : codigo+zona+fecha ejemplo "200085-41257-20210215.PNG" mi pregunta es como po…

Como puedo ubicar la carpeta personal no encuentro mis mcaros?

Buenas Tardes: Estoy tratando de realizar un ciclo que me calcule una formula para 26000 filas aproximadamente. He echo el intento con 3 ciclos distintos pero al ejecutar la macro se me colapsa el excel (No responde) y se demora mucho tiempo la ejecución. (Macro_1, Macro_2 y Macro_3) Acudo a ustedes para que me guíen y me digan que error estoy cometiendo o cual puede ser la mejor forma de realizar el procedimiento. De antemano muchas gracias. Julio Cesar Sanguino L. Option Explicit Dim Fila, I As Long Dim StarTime As Double Dim Endtime As Double Dim A As Integer Sub Macro_1() AgilizarExcel StarTime = (Now - Int(Now)) * 24 'Tiempo Inicio Fila = Cells(Rows.…

Buenas tardes Estoy bastante atascado en el siguiente formulario, y por más vueltas que le doy no logro modificarlo correctamente para poder rellenar una tabla de datos seleccionados en un Listbox. Así mismo necesitaría poder eliminar la fila de encabezamiento que aparece en el Listbox. ¿Me podrían ayudar? Mi gratitud hacia todos ustedes que me están ayudando y que sin ella no podría avanzar. Gracias y un saludo AndrMax FormularioB.rar

Buenos días a todos; No me deja adjuntar la macro y por eso os pongo un enlace de un video. La macro consta de dos formularios con el siguiente código para el ComandButton1 del Form1. Private Sub CommandButton1_Click() UserForm2.Show UserForm2.CommandButton2.Visible = True End Sub Al ComadButton2 en el Form2 tiene la propiedad visible como false. Como se ve en el video cuando ejecuto la macro la primera vez no me muestra el botón "Mostrar" en cambio si la vuelvo a ejecutar si lo hace. ¿No se porqué? Siento no poder subir la macro para mayor entendimiento. Un cordial saludo. Video

buenas tardes al abrir el fichero que adjunto oculta el libro excel por el codigo : ubPrivate Sub Workbook_Open()inicio.ShowEnd Sub como puedo entrar en la hoja de calculo para seguir incluyendo codigo en el formulario? gracias. Claves_CESS.xlsm

Hola estimados buenas tardes, tengo un problema, estoy haciendo un sistema de facturación en macros y cuando hago Click en el botón Buscar Articulo me sale una lista de mis productos pero al costado quiero que salga la imagen que esta guardada en una carpeta espero su ayuda, gracias

Hola amigos tengo un userform con 4 texbox, en el texbox1 coloco un numero entero , en el texbox2 un numero decimal y en el texbox3 un numero en fracción, algo parecido a esto: 2 x 1.5 x 1/2 y cuyo resultado lo debe dar en el texbox4 (el resultado seria en este caso 1.5) estoy usando esta macro pero me marca error. Alguien podra ayudarme de favor. Private Sub CommandButton1_Click() TextBox4.Value = CDbl(TextBox1) * CDbl(TextBox2) * CDbl(TextBox3) End Sub

Buenas noches aqui estoy otra vez con el mismo tema: Esto sigue sin funcionar Mientras que tengo el libro abierto funciona muy bien pero cuando abro de nuevo el libro y le doy a habilitar macros automaticamente se coloca la fecha y hora actual El amigo GATOCARIÑOSO me paso esto Public Function nfecha() nfecha = Date End Function Public Function nhora() nhora = Now - Date End Function Y eso es lo que he puesto en un modulo y en las celdas a1=SI(E1="";"";nfecha()) b1=SI(E1="";"";nhora())[/php] Pero sigue actualizandome la hora Saludos

Pretendo crear una tabla para hacer un seguimiento de documentos, de dónde vienen y dónde están. Los documentos son ingresados a la tabla con anterioridad (en una primera etapa), junto con otros. Luego de un tiempo estos documentos tienen destinos diferentes. Mi problema esta en la segunda etapa, al momento de registra el destino de esos documentos. Mi idea es por medio de un USEFORM: Textbox1: Ingresar el Nº del documento. (Buscaría en datos ya cargados) Textbox2: Fecha de Endoso. => COLUMNA (J) Textbox3: Endosado a. => COLUMNA (K) Textbox4: Obs. => COLUMNA (L) Lo que quisiera lograr es: Buscar en la Tabla, el dato ingresado en el Textbox1, a partir de …

Hola a todos, mi nombre es A.Maurizio y tengo una nueva solicitud que me gustaría compartir con ustedes. Mi pregunta es esta: en una hoja de Excel con Microsoft Office 2007 ¡En la Columna (A) ingreso códigos que pueden variar del Número "1 - 100 - 135", etc.! Mientras estoy en la Columna (B), ingreso otros números y estos también pueden variar del Número "1 - 100 - 135 - 2 - 0" Etc ...! Ahora mi pregunta es la siguiente: existiría la posibilidad de extrapolar siempre utilizando el VBA Todos los números superiores a (0) que encuentro en la Columna (B) Y cópielos exactamente como están en la columna (J) Asegurarse de que todos los códigos correspondientes que…

Hola a todos de Maurizio Mi problema es este: Con la hoja de Excel de Microsoft Office 2019 Estoy tratando de crear un calendario bastante simple. ¡Siempre que haya utilizado su formato condicional, etc.! Pero como nunca estoy satisfecho cuando se trata de explotar la programación en su conjunto, he llegado a un punto en que mi calendario funciona bien; Con el único defecto que consiste en el hecho: Tener que ocultar los números que no pertenecen al mes seleccionado. De hecho, actualmente, si lo dejo en el mes actual, mi calendario funciona de maravilla. Pero si intento mover el número del mes posicionado en la celda (D1) mi Calendario me posiciona los valor…

Buenas tardes, estoy tratando de ver de que manera puedo ocultar una columna bajo la condición de una celda, no doy con la respuesta y quisiera saber si habrá alguna forma con Macro o VBA Ej; E12=administracion turistica, se oculte la columna D. Gracias anticipadas

Hola, no se si es posible, pero llevo unos días pensando en esto y no doy con la tecla. El tema sería que al pulsar una de las pestañas de la cinta de opciones en este caso Frutería que me ocultara la Hoja2 y cuando pulse en Frutería1 me oculte Hoja1 y haga visible Hoja2. Lo de ocultar y hacer visible no es el problema, el problema es como hago referencia a si están o no activas las pestañas cuando pulso sobre una de ellas. pRUEBA1.xlsm

Hola a todos Espero no haberlos confundido con el titulo , pero dejo lo que estoy avanzando de repente para ustedes es algo simple pero necesito ideas para seguir en mi proyecto que se me presento. Estoy intentando hacer una base de datos para saber quienes participaron o ayudaron en la carga de productos a una unidad movil. la idea es tener informacion de que facturas se cargo en la unidad movil y el personal que participo. mi problema es que hay alrededor de 30 auxiliares que al azar se les llama para cargar la movilidad. en una movilidad necesitan saber las facturas que ingreso a esa movilidad el copiloto que ira y lo mas importante los que ayudar…

Buenas tengo una macro la cual utilizo para recolectar ciertos datos especificos. Donde los muestro en un listbox por medio de un boton de consulta(esto esta bien). El problema es que tengo un boton para pegar la misma informacion en otro libro que creo, cuando oprimo el boton. Lo que sucede es que no se como capturar la informacion de la hoja en la que estoy y enviarla a la hoja del nuevo libro. aqui esta el codigo de los 2 botones. Private Sub btnConsultaExis_Click() Hoja3.Activate 'Activa la hoja 3 Range("F2").Select Do If (ActiveCell <> ("")) Then ActiveCell.Offset(1, 0).Select 'Baja una celda If (ActiveCell.Value > 1) …