Hola buenos días y Feliz año a tod@s A ver si alguien me puede ayudar con esto. Tengo un UserFrom el cual me realiza entradas, edita, elimina, etc. Las entradas generales siempre se hacen el pagina 1 del Multilistbox, y estas en tienen una condición de que si por ejemplo en la columna de observaciones pongo "HANGAR", entonces debe realizar el registro en la pagina 1 (Principal) y la pagina 2 (Hangar). Todo esto funciona perfecto, el problema que tengo es que cuando elimino o edito un registro, estas acciones solo me las hace en la pagina principal (hoja1 del Multilistbox) Es posible editar y eliminar registros y que según el numero de Tracking haga l…

SOY NUEVO EN ESTE GRUPO, POR FAVOR ALGUIEN ME PODRIA AYUDAR CON LOS CODIGOS; NO PUEDO GUARDAR EN UN FORMULARIO DATOS DE UN TEXTBOX Y LA VEZ DATOS DEL LISTBOX A LA BASE DE DATOS ACCESS DESDE UN FORMULARIO MACRO EXCEL ESTE CODIGO ESTOY UTILIZANDO: ME GRABA ESTOS DATOS, LO QUE NO SE QUE CODIGOS INGRESAR PARA GUARDAR LOS DATOS DE UN LISTBOX TAMBIEN. ALGUIEN ME PUEDA AYUDAR POR FAVOR Sub GrabarReg1() Dim conn As ADODB.Connection Dim MiConexion Dim Rs As ADODB.Recordset Dim MiBase As String If frmFORMULARIO.ComboBox5 = "" Then MsgBox "Campo Vacio, Ingrese una ORDEN", vbExclamation, "Mensaje" 'frmFORMULARIO.ComboBox5.BackColor = &HFF& …

Hola buenas tardes, necesito me ayuden a completar este desarrollo por favor. Tengo una Macro que me genera el codigo QR y la pone en la celda correcta sin problema. El detalle esta en que si no estoy conectado a internet y abro el archivo de excel la imagen no se visualiza solo dice "No se puede mostrar la imagen vinculada". Lo que necesito es que al bajar la imagen se salve en C:\ y despues jalarla a la hoja de Excel como imagen para que siempre que abra el archivo de Excel se pueda visualizar. Gracias y espero se pueda hacer. 'recorre la columna B hacia abajo hasta el final donde encuetra datos. Sub Test2e() 'Seleccionar celda B2, *primera línea de datos*…

Hola a todos. Estoy intentando hacer que cada vez que yo ponga una incidencia (Libranza, permiso...) a un trabajador en la hoja del mes correspondiente, me la copie en otra hoja en una columna, nostrando unicamente si se ha introducido una incidencia, omitiendo las celdas en blanco. No tengo mucha idea de macros, he intentado hacer una, grabando y los resultados no han sido buenos. Os adjunto un archivo, con el mes de Enero y la hoja de incidencias de Enero, colocando como debería quedar. Gracias por vuestra ayuda. Pcuadrante.xls

Buenos días, gusto saludarles. Tengo el siguiente código: Private Sub cmb_tipo_persona_Change() Dim valor, rango1, celda1, rango2, celda2, rango3, celda3, rango4, celda4, rango5, celda5 As Range Set rango1 = Hoja2.[Personas_Físicas] Set rango2 = Hoja2.[Sistema_de_Banca_de_Desarrollo] Set rango3 = Hoja2.[Empresarial] Set rango4 = Hoja2.[Corporativo] Set rango5 = Hoja2.[Sector_Público] valor = cmb_tipo_persona.Value cmb_tipo_cartera.Clear lbl_tipo_cartera.Caption = "" Select Case valor Case Is = "Personas_Físicas" For Each celda1 In rango1 cmb_tipo_cartera.AddItem celda1.Value Next celda1 …

Hola Buenos días Quisiera por favor que me colaboraran con un inconveniente, estoy programando en vba excel y necesito hacer el siguiente ejercicio: tengo la siguiente tabla [TABLE=class: grid, width: 500] [TR] [TD][/TD] [TD]A[/TD] [TD]B[/TD] [/TR] [TR] [TD]FILA 1[/TD] [TD]CASA[/TD] [TD][/TD] [/TR] [TR] [TD]FILA 2[/TD] [TD]PERRO[/TD] [TD][/TD] [/TR] [TR] [TD]FILA 3[/TD] [TD]ARBOL[/TD] [TD][/TD] [/TR] [/TABLE] lo que necesito hacer es lo siguiente: si yo busco la palabra casa me deje colocar un dato en la celda contigua eso seria en la cells(1,2)(fila1, columna , si yo busco la palabra perro me deje colocar el dato en la celda contigua a la palabra…

buenas tardes amigos , agradezco de su ayuda con el siguiente caso , necesito ingresar a la pagina web que se encuentra en el código diligenciar el password (ya logrado) y dar click en el botón para ver el documento (no logrado), lo he intentado pero no logro identificar el id del boton para efectuar el click, he tratado con IE.document.getElementByClassName("button").Click o con IE.document.getElementByTagname("button")(0).Click pero no funciona , quedo atento a su ayuda gracias codigo: Sub CARGAR_DATOS_WEB() Dim IE As Object Application.ScreenUpdating = False 'Creamos objeto internet explorer Set IE = CreateObject("InternetExplorer.Application") 'ab…

Tengo un libre en donde hay varias celdas con contenido alternado, es sobre equipos de futbol. Necesito un macro (o quizas se puede hacer mediante alguna función) en donde me convierta determinado texto en determinado hipervinculo. Ejemplo tengo celda a20 q dice "Futbol". Al activar el macro esa celda "Futbol" que sea un hipervinculo a una url

Buenos días; A ver si me podéis ayudar. Tengo una consulta SQL en Excel que me cuenta las fechas por número de semana, todo funcionaba bien hasta este año. Buscando por internet he encontrado la solución ( [vbMonday],[vbFirstFourDays] ) pero no me funciona, no sé qué pongo mal. Esta era la consulta que funcionaba hasta este año ( ahora en la semana 8 me cuenta lo de la 7 ). Query = "Select count (Columna1) from [Hoja1] where Columna1 In" & Datos & "And DatePart('ww',Columna2)=" & SemanaActual & "And DatePart('yyyy', Columna2)=" & AñoActual & "And (Not tipo_Columna3='No' or Columna3 is null)" Esta es con la solución qu…

Buenas noches a todos, Necesito ayuda, estoy haciendo un excel en VB para hacer presupuestos y me quedado encallado en lo siguiente... Estoy metiendo unos CODIGOS, DESCRIPCIONES, CANTIDADES, PRECIO COSTE, MARGEN, PRECIO DE VENTA, ETC.. en un ListBox. Cada cierto tiempo he de ir sumando (Con un Boton) en otra fila el total hasta ese punto (TOTAL PARTIDA), luego sigo añadiendo artículos y le vuelvo a dar en añadir PARTIDA, pero no consigo sumar desde la ultima fila que ponia TOTAL PARTIDA hasta la ultima que añadi. OS adjunto una imagen para que os hagais una idea y el código. Gracias Un saludo. Private Sub CommandButton7_Click() Dim i As Byte, tot As Currency For …

al ejecuar la siguiente macro, quiero que la hoja1 del libro DATOS, se agregue en el libro ORIGEN, pero no lo hace Sub copiar_Datos() ORIGEN = Application.GetOpenFilename(Title:="Selecciona el archivo ORIGEN", filefilter:="Excel files (*.xls*), *.xls*") DATOS = Application.GetOpenFilename(Title:="Selecciona el archivo DATOS", filefilter:="Excel files (*.xls*), *.xls*") Workbooks.Open DATOS Workbooks.Open ORIGEN info = Excel.ActiveWorkbook.Name Workbooks(info).Worksheets(1).Copy After:=Workbooks(DATOS).Sheets(1) Windows(info).Activate ActiveWindow.Close End Sub alguien que me pueda ayudar para corregir lo que no que …

Buenas Tardes:Soy nueva en esto de las macros. quisiera que me ayudaran para crear una macro donde me concatene 3 columnas A B C D E F 43020963 43146540 23/05/2012 VACIO 1 492114960Lo que quiero es concatenar primero B2&A2&F2 y el resultado lo ponga en la columna D donde esta vacia esa columna Espero me puedan ayudar .Gracias.

Quiero copiar un rango de una hoja y pegarlo en otra, todo va bien hasta la instruccion paste, que da "error en el método paste de la clase Woksheet". Alguien me puede ayudar? Gracias. Sub CargaCCH2() Dim dia1 As Date Dim dia2 As Date dia1 = #1/2/2013# dia2 = #1/3/2013# Worksheets("CHT").Select uf = Range("a1000000").End(xlUp).Row Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia1) fi = busco.Row Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia2) ff = busco.Row ff = ff + 23 Range("a" & fi, "d" & ff).Copy Worksheets("CH").Activate uf2 = Range("a1000000").End(xlUp).Row Range("a1", "d" & uf2).ClearContents Cells(1, 1).Select …

Buen día, Me pueden ayudar por favor con la siguiente inquietud. Tengo una macro que me unifica varios libros csv en uno solo, el csv original esta separado por este carácter (¤), pero en alguno de los campos están separados por comas ejemplo (0,00), entonces al momento de ejecutar la macro, me lo separa en otras columnas y requiero que todo quede en una sola columna. Quedo atento a su ayuda, anexo la macro y el resultado de la macro. Gracias BASE DE DATOS UNICA.zip

Estimados, buenos días Me comunico con ustedes ya que estoy con un problema de programación. Tengo idea de como sería la estructura pero no de como es el código ya que yo programaba en pascal / delphi. La planilla es para evaluar ofertas de equipos médicos con una puntuación que está en la hoja 2 llamada listas. Eso lo solucioné y anda bien, hace la suma y todo eso. Lo que pretendo ahora es poder borrar los ítems que los oferentes no presentan. Si bajan la planilla, en la hoja 1 llamada Evaluación por ítems vemos que hay columnas que agrupan a las empresas y filas que agrupan los equipos ofrecidos. La idea sería que el programa busque dentro de las columnas de con dato…

Buenos dias a todos, primero que todo quiero agradecer a todos por su ayuda que me puedan brindar, y segundos pues necesito una macro la cual yo tengo una un listado en la pagina 1, donde tengo un listado tal como podrán ver en el documento que adjunto, lo que necesito es una macro la cual del listado que hay donde aparece nombres y luego debajo aparecen varios datos por cada fila, pues que en la Hoja2 se peguen los datos de cada nombre que aparece en vez de un listado en conjunto, que sera un listado por cada nombre que aparece, generando así columnas nuevas. Una cosa mas, se tienen varios nombres y los datos que tiene cada nombre puede variar y en algunos pueden s…

Saludos a todos Tengo una macro en la cual se inicia con la pestaña "formulario", esta macro permite el ingreso y salida de materiales. [ATTACH]31030.vB[/ATTACH] Requiero el apoyo en lo siguiente; no e podido idear la formula para realizar los reportes por mes (entradas y salidas) asi como por Ce. costo ( cada salida de material se deriva a un centro de costo) [ATTACH]31031.vB[/ATTACH] Gracias de antemano pro su apoyo. Saludos....... Macro_Excel_Stocks.zip

Buena Tardes, Les escribo en esta oportunidad, debido a que estoy teniendo problemas con una macro de intersección de rangos de fechas el cual realice para que cumpliese con mis necesidades, el cual es que me diga si chocan en sus periodos de vacaciones el supervisor y el tablerista, así como los turbinista_1 y turbinista_2 entre si y con el tablerista; y por ultimo los turbinaista_1, turbinista_2 y Operador Auxiliar de Turbina (op. aux. tur.). El problema que estoy teniendo es que haga lo que haga siempre me aparece la ventana que dice: "Coinciden Tus Vacaciones Con la Segunda Fracción del Tablerista" o "Coinciden Tus Vacaciones Con la Segunda Fracción del Supervisor…

Hola, Tengo una matriz y lo que deseo es unir mediante macro con un color en la celda dos puntos dados de la misma matriz 4 1 2 3 4 5 6 7 8 1 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 2 3 0 0 0 0 0 0 0 0 3 3 4 0 0 0 0 0 0 0 0 4 2 5 0 0 0 0 0 0 0 0 5 6 0 0 0 0 0 0 0 0 6 7 0 0 0 0 0 0 0 0 7 8 0 0 0 0 0 0 0 0 8 1 2 3 4 5 6 7 8 1 ejemplo introduciento 4 datos como: 3 ( se refiere a la columna de la Izq) 2 ( se refiera a la columna de la Izq del bloque 3) 1 ( se refiera a la fila de abajo) 6 ( se refiera a la fila de abajo del bloque del 1 ) * = Celda coloreada 0 = celda vacia muchas gracias

Necesito una macro que busque un producto (hoja productos) en el ejemplo estan los productos del 1 al 100 los productos 1 y 2 han cambiado de estado. Lo que requiero es que la macro me permita elegir un producto y preguntar si desea cambiarlo de estado (los estados estan en la hoja de estados) a otro de mayor nivel. Que al preguntar lo hago por un option button y que me traiga los mismos datos del producto solo que le cambie el estado, gracias

hola amigos, le squeria pedir el codigo para desahibitar la rueda del mouse en la hoja activa, gracias es que quiero que cuando la presionen o la hagan rodar no haga nada

Hola amigos: quisiera su ayuda con lo siguiente: tengo datos en la columna A pero no de forma consecutiva sino con algunas celdas vacias algo Asi: COLUMNA A Peras Manzanas Duraznos Higos Lo que quiero hacer es reacomodar las celdas para que no queden espacios vacios pero no con eliminar las filas vacias sino acomodando en las celdas vacias las siguientes llenas para que queden celdas llenas corridas sin celdas vacias, en el archivo tengo este código que me encontré en internet y funciona exepto que me elimina la primera fila si esta, está llena y lo que quiero es que queden todas las celdas que contienen información, asi mismo que reacomode también las columas …

Hola amigos/as. Vengo a titulo de solicitar información o alguna solucion mejor que la mia para lo sigueinte: Linea a linea via AyudaExcel fui construyendo este codigo; Sub EsconderMenu() On Error Resume Next Application.ScreenUpdating = False ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False ' Barra de fórmulas ActiveWindow.DisplayHeadings = False ' Nombre de Filas y Columnas For Each barras In Application.CommandBars: barras.Enabled = False: Next Application.ScreenUpdating = True End Sub[/CODE] No hace falta describirlo pues se que los expertos saben de que se trata. Para lo in…

Estimado amigos, Tengo sobre el tema que se indica en el asunto. Paso a plantearla Tengo una celdas con datos en columna como: Inicio Fin 03/01/2002 07/03/2002 16/04/2003 29/05/2003 20/08/2002 11/11/2002 15/10/2002 06/02/2003 07/02/2002 09/06/2002 Como pueden notar, en cada fila existe un periodo de tiempo indicado por fechas, los cuales tienen un numero de días. Estos periodos no están en orden cronológico tampoco. Lo que requiero es que calcule la superposición (traslape) de los periodos de cada fila y me de los días efectivos trabajados, y si fuera posible el periodo vacíos (no laborados). Espero sus comentarios y ayuda. …

Hola a todos, tengo una macro que inserta imágenes la cual me funciona excelente, lo que hace es que en la columna B tengo el nombre de un modelo y si existe pone la imagen en la columna A que la jala de una carpeta y cuando no exista la imagen se salta a la que sigue. La duda que tengo es cómo decirle a la macro que cuando no exista la imagen no se salte a la que sigue sino que me ponga una imagen titulada "no hay imagen" que está dentro de la misma carpeta. Esta macro funciona con un On Error Resume Next. Cuál sería el código fuente para que en vez que se salte a la que sigue me ponga esa imagen llamada "no hay imagen"? Agradezco mucho su apoyo.