Hola alguien sabrá con activar un botón oculto en un Userform donde tengo un ListBox en modo multiselect, anteriormente el ListBox lo tenia en modo single y con la siguiente instrucción funcionaba bien. Private Sub ListBox1_Click() CommandButton6.Visible = True End Sub

Hola a todos y muy buenos días. navegando por internet me he encontrado con un curioso generador de calendarios, y lo he estado modificando y adaptando para poder crear mis organigramas, sin embargo he intentado mil y una maneras de combinar y centrar las celdas en el proceso pero siempre me sale un error de codigo 1004 (Y diferentes explicaciones) pero no me sale ni a la de 3. ¿Se os ocurre alguna manera de conseguirlo? Aquí os dejor los archivos, uno es como funciona ahora y el final es el resultado que busco. PD: He intentado subir el archivo de varias maneras pero no me permite subirlo, aquí os dejo un enlace de mega con las dos documentos en un zip …

Mi estimados, a la hora que ejecuto la consulta que salta un error "Nombre no valido" Adjunto Imagen y la consulta que realizo estoy trabajando con un excel 2016, pero con otros archivos no he tenido problemas. Sub Reporte_Consolidado() Application.ScreenUpdating = False UfR = Resumen.Range("A" & Cells.Rows.Count).End(xlUp).Row + 1 Conexion.Abrir_Conexion Consulta = "SELECT H.Lote,H.Variedad,DatePart(yy,H.FechaAnalisis),H.Yema,H.Fertilidad,L.FechaPoda,H.FECHAANALISIS " & _ "FROM ([Fertil$] H INNER JOIN [Lotes$] L ON H.Lote=L.Lote)" Rst.Open Consulta, Cnx, , , adCmdText Resumen.Range("A2:H" & UfR).ClearContents Resumen.Range("A2").CopyF…

buena tarde alguien puede ayudar con una macros para transponer un texto que estas fila pasarlas a columnas mil gracias a este equipo de este foro saludos isidro ejemplo.xlsx

Buenos días tengo la siguiente macro. La idea es copiar rangos de todas las hojas a la Hoja1 una debajo de otra. ésta es la macro solo me funciona en la primera copia, estaré agradecido. Sub copiar() Set h1 = Sheets("Hoja1") ' hoja principal ' dato = Array("C1:D5", "A1:B5", "H1:I5") ' For Each h In ThisWorkbook.Sheets If h.Name <> h1.Name Then u = h1.Range("A" & Rows.Count).End(xlUp).Row For j = LBound(dato) To UBound(dato) h.Range(dato(j)).Copy h1.Range("A" & u) u = u + 1 Next j End If Next h End Sub MACRO COPIAR.xlsm

Amigos: Tengo un libro de excel el cual cree una macro para imprimir y otra para guardar los datos en una carpeta especifica. Actualmente al apretar guardar este lo realiza con el nombre que yo especifico de unas celdas y lo almacena en la carpeta especifica creando otro libro. Ahora lo que necesito es que los datos solo se guarden valores y formatos sin macros. al momento de apretar el command_Button de guardar. Las macros son: Private Sub CommandButton1_Click() Range("A1:H45").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$H$45" Application.Dialogs(xlDialogPrint).Show End Sub Private Sub CommandButton2_Click() Sub Convertir_a_valores() Dim wshHoja As Ex…

Buenos dias. Actualmente estoy haciendo una macro de facturación, la misma consiste en ingresar datos en un formulario y que luego se pasen a unas tabla en excel. El problema es que cada ves que facture(osea que llene un user form) quiero que se le coloque un total debajo y si quiero ingresar otra factura que se agregue de bajo de esta pero con otro total. osea serian cuadros diferentes. A su ves quisiera buscar la manera de consultar la misma en caso de modificación. Sinceramente estoy muy quedado con esto, gracias de ante mano. En estos casos pueden darle a Expansion BT que es la que esta algo mas adelantada. LO ANEXE EN DROPBOX PORQUE ME DIO ERR…

Buenas tardes todos Master del Excel... estimados es posible algun control de facturas ? la Idea es que el formulario me Alerte que el Numero de la factura del Proveedor ya fue ingresada (que No se repita en ingreso de una factura del prov.) desde ya gracias Totales.. para uds. atte Milton no se como subir el archivo ya que pesa 570 mb comprimido https://drive.google.com/drive/my-drive

Primero que nada, agradezco a todas las personas que alimentan el foro, con dudas y soluciones, gracias a ustedes eh podido avanzar desde cero mi proyecto actual -el cual me genera una duda que no he podido encontrar en ningún lado- tengo un formulario, el cual necesito que ademas de registrar los datos en una base general - eso lo hace con éxito - , me permita llenar un formato con base a la selección de hoja de un combobox. anexo el formulario para mayor referencia. muchas gracias. - los que se tomaron el tiempo de descargar mi archivo y sacarme de duda agrego: 1.- necesito que si el formulario se selecciona Activo, los datos que c…

hola amigos necesito saber como hacer el codigo que me ejecute una macro al cambiar el valor de una celda que tiene una formula, graciassaludos

Hola Foristas buenos días. Colegas, acudo a ustedes para ver si pueden echarme una mano en este archivo. Es el mismo en el que he venido trabajando hace unos días y que ya algunos de ustedes me han ayudado, como DiegoPC y JasallBtn a los cuales agradezco su colaboración. ¿Qué estoy necesitando? En este proyecto estoy trabajando el Pago de los Choferes que, según la Categoría, los Km recorridos, el Tonelaje y los tipos de Equipo y Carga ellos devengan un Salario "X". Hasta aquí tengo conformado todo y funciona perfectamente, pero necesito además poder UNIR las HOJAS desde Kelvis hasta Jesús. Todas estas Hojas tiene el mismo formato, o sea, la misma cant…

Hola amigos, estoy en el trabajo y me han mandado realizar una serie de tablas pivot a partir de un monton de tablas de excel en distintos documentos. Abro el documento y hay tengo la tabla, y le doy a grabar macro, pongo el comando ctrol+q, acepto, selecciono todo la tabla, insertar, tabla pivot y por defecto me la selecciona, acepto y listo y parece que todo va bien. Pero cuando abro el siguiente excel y pulso ctrol+q para que se ejecute sobre esa nueva tabla, me da error. Si me pudierais ayudar seria fantastico porque me simplificaria mucho el curro. Un abrazo

Buenas tardes. Tengo una macro hecha para que copie los datos de una hoja y los pegue en otra. (nombrehoja1 es una variable que recibe el nombre de la hoja en la que se desea copiar los valores) Adjunto el código: Sub Copiar() Sheets(nombrehoja1).Range("G25").Copy Sheets("Hoja administrador2").Range("A2").PasteSpecial xlValues Application.CutCopyMode = False Sheets(nombrehoja1).Range("G42").Copy Sheets("Hoja administrador2").Range("A3").PasteSpecial xlValues Application.CutCopyMode = False Sheets(nombrehoja1).Range("G59").Copy Sheets("Hoja administrador2").Range("A4").PasteSpecial xlValues Application.CutCopyMode = False Sheets(nombrehoja1).Range("G76").Copy Sheet…

Buenas, Tengo una macro que es bastante larga en función del número de registros que se traten cada vez y con Application.StatusBar, por ejemplo: Application.StatusBar = "Realizando cálculos..." etc. Voy comentando el progreso de la macro hasta el final. El caso es que si tienes de tema de office el blanco, el texto sale en negro y el fondo verde, así que no se puede percibir bien el mensaje. Para poder verlo en condiciones, hay que cambiar el tema de office a negro, gris o multicolor. Estuve buscando para añadir alguna barra de progreso, pero no supe cómo hacerlo sin desactivar Application.ScreenUpdating ¿Se os ocurre alguna alternativa? G…

Hola amigos de Ayuda Excel. Nuevamente por aquí para pedirles un . He intentado hacerlo pero pero no logro el objetivo. Necesito copiar el rango A5:K5 (fila que estará siempre oculta) y deben ser insertadas 5 filas iguales en la primera celda vacía de la columna A. La macro se ejecutará a través de un botón. Agradecido de antemano por su valiosa colaboración. INSERTAR 5 FILAS AYUDA EXCEL 2.xlsm

Estimados del foro, Tengo una hoja a la cual cambia de estado: 1. Entregado 2. Revisado 3. Terminado La idea es insertar una imagen e identificarla: select case cells(1,1).imageMso case is isempty() msgbox "Activa" case is = "Spelling" msgbox "Entregado" case is = "FileStartWorkflow" end select [/CODE] Inicialmente debo inserta la imagenMso en la celda para clasificar: [CODE]cells(1,1).select with selection .sharpe="imageMso.Spelling" end with [/CODE] O algo asi. La pregunta maestros: Se puede hacer? Alguien me puede guiar? Muchas gracias.

SentenciaSQL.xls Hola , estoy intentando hacer consulta SQL con este archivo pero no consigo que funcione en OFFICE 365, sin embargo en la version office 2016 si funciona.

Hola a todos, Estoy creando una macro en la que se modifican/agregan datos a una base que ya fue cargada con anterioridad. Les explico la idea general y lo que necesito hacer, que no estoy logrando. 1. Cargo datos de fallas de equipos (desde Hoja "Carga de Fallas"), en una hoja llamada "Base de Datos". En la columna A deja guardado un código único asignado al equipo. Esta macro, deja información de cada equipo en filas, desde la columna A hasta la columna J, y luego en las columnas N y columna O. 2. Necesito una macro que busque el código único ingresado en la celda C4 de la hoja "Reparación", en la columna A de la Hoja "Base de datos" para identificar en q…

Hola a todos! ... desde que inicie mi proyecto he encontrado mucha ayuda en su foro, por lo que les agradezco infinitamente tanta disponibilidad de todos para ayudar! El tema que no he encontrado ahorita y que la verdad me ha urgido un poco es el de filtrar una columna en especifico cuyo valor sea seleccionado en un combobox. Les comento un poco de mi proyecto: Es un registro de capacitación la cual mis macros hacen un análisis y operación del mismo, esta información es jalada de un input y puesta en mi libro de excel en donde estan mis macros. Pero requiero que esta información sea clasificada en un periodo de tiempo solamente (por lo que mi columna de SEMANA) debe s…

Buenas tardes tengo la siguiente duda, tengo un formulario de tipo facturación, lo que desearia es que los datos que ingrese al formulario se almacenen en un libro diferente(1 libro especifico), gracias - - - - - Mensaje combinado - - - - - este es el codigo que usa para guardar en una hoja distinta, pero quisiera que lo hiciera en el libro resumen. Private Sub guardarFactura()Dim i As Integer, Fila As Long Sheets("facturas").Activate For i = 0 To Me.lstCantidad.ListCount - 1 Fila = Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A" & Fila) = Me.txtNoFactura.Text Range("B" & Fila) = Me.txtFecha.Text Range("D" & Fila) = Me.txtRazon.…

Hola, estoy realizando el traspaso de una tabla de excel a word, con un formato establecido y que contenga todos los valores de la hoja.. sin embargo he tenido problemas con poder guardarla donde deseo ya que solo me expulsa finaliza la macro pero no lo guarda donde se necesita y ahora ultimo me lanza el "error 4602": No se puede activar la aplicación, en la fila: .Activate ' Leí por ahí que hay que habilitar referencias, tengo windows10 y la verdad mi conocimiento de vba es básico, ya que he aprendido por mi cuenta estos últimos meses.. si alguien me pudiera ayudar con que referencias habilitar o deshabilitar se lo agradecería mucho. Por otro lado si …

Buenas, tengo una duda/problema Tengo la necesidad de un macro(o tal vez 2) donde la función principal sea el copiar una celda seleccionada o actual al portapapeles, ejemplo: copiar A1(que contiene una formula) aqui tengo: SELECTION.COPY pero luego, tal vez el 2do macro, quiero que al momento de pegar sea: =A1 ejemplo de lo que he imaginado: NoSeQuePonerOSiVayaAFuncionar.PASTE "=" & (no se que poner para pegar/vincular? la celda A1) En resumen... Copiar una celda, no su informacion y pegar agregando un "=" por delante para poder vincularla o ideas de como simplicarlo? Muchisimas Gracias de antemano

Buenas tardes, expertos necesito una ayuda por favor si seria posible necesito sumar las cantidaddes en una e importante total de ventas y eliminar el resto, por favor si se puede me podrian ayudar. Adjunto el archivo REPORTE TOTAL 1 MES.xlsx

Buenas a todos, acudo a su ayuda para intentar terminar una macro en la que llevo comiéndome la cabeza bastante tiempo. Resumiendo, lo que intento es hacer una hoja de firmas de profesores, en la que según los horarios de cada profesor, donde tienen clase o alguna actividad la casilla quede en blanco con la intención de que firmen y donde en su horario no tengan clase pues aparezca una X para no firmar. Por tanto, la planilla sería diaria, para firmar cada día de la semana, de manera que según el día seleccionado en la lista desplegable de la hoja "HOJA" del Archivo principal "MACRO FIRMAS", la macro abra los archivos de los horarios de los profesores, que se en…

Hola a todos, les comento mi problema. Mi libro de excel tiene muchas hojas, una de las cuales se llama caja y el resto de las hojas es la ficha de cada empleado, pero cada vez que sale efectivo de la caja tengo que copiar y pegar en la hoja que corresponde a cada empleado. Pregunto hay alguna macro o formula que me copie los datos en la hoja que corresponda a medida que paso los datos en la hoja caja??