Buen dia En este libro tengo 3 hojas, las hojas 1 y 2 ocultan las filas segun la informacion de la celda A1, en la columna C debo calificar los valores de cumplimiento, lo que requiero en este caso, es que cuando C este vacio o sea cero, el valor de B se copie en la hoja3 en la columna A. Tengo inconveniente por que con el Macro3 intente hacerlo, pero me reune toda la informacion oculta y ademas lo copia en desorden y con espacios. Gracias por su ayuda Filtro.zip

Como puedo hacer para que mi fila insertada se copien las formulas de la celda superior o inferior. Saludos, Selecciona propuesta.xls

Buenas a todos. Desde antes gracias por su ayuda. Tengo un codigo para insertar una imagen cuando cambia la celda "E5" la imagen la inserta segun el valor de la celda "G3". Pero quisiera que me insertara la imagen que se llama "Imagen no encontrada" cuando la imagen no exista dentro del directorio. Private Sub Worksheet_Change(ByVal Target As Range) If Not Target.Address = "$E$5" Then Exit Sub On Error Resume Next 'Control de errores Me.Shapes("Foto").Delete ActiveSheet.Shapes.AddShape(msoShapeRectangle, 432.3077165354, 1, _ 118.8461417323, 105).Select Selection.ShapeRange.Name = "Foto" Selection.ShapeRange.Fill.Visible = msoFalse Se…

saludos. estoy ttrabajanndo en un treeview de un ejemplo que vi en internet pero me arroja un error Private Sub TreeView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer) With TreeView1.SelectedItem 'aqui una de las ventajas de tener bien definido el Tag. si este es 'distinto a marca , entonces es una caracteristica: If .Tag <> "marca" Then 'si la tecla presionada es la de borrar: If KeyCode = vbKeyDelete Then 'borro el dato en excel Range(.Tag).ClearContents ' 'y quito el nodo TreeView1.Nodes.Remove (.Index) ElseIf KeyCode = vbKeyReturn Then 'si presio…

Hola Amigos, Quiero ordenar unas cuantas columnas, en el fichero lo dejo explicado, el orden también. Creo que es algo sencillo pero soy demasiado novato y no he sido capaz. Gracias por estar siempre ayudando. un abrazo vic Ejemplo Ordenar Cumple.xls

Estimados necesito hacer un formulario de busqueda en excel que busque un dato ingresado en un textbox y al encontrarlo me de un msj con la informacion que esta ingresada en la misma fila pero 21 columnas mas a la derecha Tengo lo siguiente Private Sub CommandButton5_Click() If TextBox5 = "" Then MsgBox "Ingresar RUT" Else docid = TextBox5.Value With Worksheets("hoja1").Cells Set dato = .Find(docid) If Not dato Is Nothing Then MsgBox dato.Offset(0, 21) Else MsgBox "No se encontró registro" End If End With End If End Sub funciona, pero el problema es que si ese RUT se encuentra ingresado en…

Hola todos me he quedado en esta parte de mi proyecto explico lo que necesito hacer: bueno tengo clientes, productos y boletas en mi formulario listarfacturacion necesito filtrar las boletas por medio de codigos, cliente, producto o fecha pero que cuando me filtre me siga seleccionando la celda real del registro , en otras palabras si le hago clic en mi listbox debera seleccionarme la verdadera celda de mi hoja , adjunto ese fragmento de mi proyecto parte filtrado de boletas , bien funciona solo por Numero de boletas del combobox N° Boletas seleccionen una boleta del combobox y lo filtra perfectamente si dan click en al lista filtrada pues podran darse cuenta que si to…

amigos tengo la siguiente problematica como hacer que me imprima en hoja distinta por cada n°orden, respetando su encabezado para cada hoja ejemplo tener una hoja con un resumen de ordenes de trabajo asociados a productos y cantidades ej orden - producto -cantidad 10 a 3 10 b 1 10 d 7 20 r 5 aqui la idea es que cada orden puede ser rango variable , puede tener una linea o tb puede tener 1000 lineas entonces que imprima por cada orden y si la siguiente orden cambia copiarla a la siguiente hoja de impresion respetando su encabezado, para que imprima en forma ordenada…

Como puede hacer para que al mismo tiempo de agregar una fila me copie las formulas de la celda superior. Saludos Selecciona propuesta.xls

Esta es la macro que agrege para insertar una fila y agrega el valor de un combobox, pero como ago que mi valor acepte valores alfanumericos, Selecciona propuesta.xls

Tema cancelado

Hola tengo un inconveniente necesito realizar una macro que me cambie datos por ejemplo yo necesito revisar unas 1000 planillas con datos pero son muchas entonces necesito lo siguiente. Si la edad del beneficiario que esta en la celda D es menor a 18 que ponga en la celda E que tiene TI o sea tarjeta de identidad si hay otra dato allí diferente a ti que lo cambie si se cumple la condición o sea por ti si es mayor a 18 que ponga CC si es menor de 3 años qu en la celda E ponga RC si es mayor que ponga TI, Por otro lado necesito realizar las misma comparacion pero con otros datos pongo el ejemplo A B C ANDRES MASCUL…

Alguien tiene un modelo de un Dashboard (tablero de control) hecho utilizando éxcel VBA? Necesito para el modelado de uno utilizando controles. Gracias :05.18-flustered:

Hola, necesito hacer una Macro para sacar un reporte de una tabla plana que tiene muchas columnas y la ultima columna es el codigo, por lo que no puedo utilizar la función BUSCARV. agradezco mucho su ayuda. Saludos.

SAlduos: Es posible que al alctivar el valor de mi combobox ese valor, lo pueda colocar en una celda aleatoria. Me he roto la cabeza y en verdad no encuentro la manera de acerlo espero y si se pueda hacer.

Como puedo hacer que mi combobox agrege un valor aleatorio en una fila agregada. Selecciona.xls

Hola.Estoy intentando crear una macro que con una entrada como esta ( 01/01/2013) me diga a que mes hace referencia en una celda (enero, para este ejemplo) y en otra el año(2013). He intentando con sentencias como MONTH(), MONTHNAME(), pero no logre nada debido al formato en que lo ingresé (dd,mm,aaaa).Agradezco su colaboración

Muy buen dia para todos. Otra vez yo pidiendo ayuda; esta vez se trata de darle formato a un dato alfanumerico almacenado en un textbox. Asi funciona. Luego de una serie de eventos, un textbox me da como resultado unos caracteres, por ejemplo las letras ACC. De igual forma otro textbox me da un numero, 5 por ejemplo. Ahora al unir ambos datos en un textbox, necesito que el dato del numero tenga como formato 3 numeros, por ejemplo 005 y el resultado final seria ACC005. ¿Como le doy formato de tres digitos? Mil gracias.

Tengo varias macros en una misma hoja y el excel me bota un error y no me las deja ejecutar por favor me pueden colaborar. El código es el siguiente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$7" Then MostrarVentasFacturadas End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$8" Then MostrarVentasPerCapita End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$9" Then MostrarRotacionTotal End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$10" Then MostrarRotacionNeta End Sub Private Sub Worksheet_…

Buenos días a todos, de un recién llegado al foro y a la programación en VBA. Ando liado con una macro que me esta dando problemas, no en la ejecución sino en la velocidad. Se va volviendo progresivamente mas y mas lenta en su ejecución. La macro consiste en reunir en una sola tabla datos desde varias. Pero varían su numero de filas. Todo va bien hasta que empieza Buscarv. Este es el código que estoy utilizando para ello. 'para la busqueda Range("Q2").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC16, OFFSET(Hoja2!R2C20,0,0,COUNTA(Hoja2!C20),2),2,False)"[/CODE] 'para el autofill lastrow = Range("P2").End(xldown).Row range("Q2"). Autofill Destination:=…

Amigos para hacerles 1 consulta si se puede hacer . como dice el titulo crear temporal o copiar un libro original esta abierto. para poder trabajar con el resto del proyecto. Saludos, Muscaria

Buenas Noches, Tengo el archivo adjunto, el cual se completa y copia a las celdas debidamente, sin embargo quisiera que en vez que este el textbox18 (proveedor) sea un combobox el cual tenga los nombres de los proveedores de las pestañas (IMPORT1, IMPORT2, IMPORT3), los cuales al momento de selecionar se copie automaticamente a sus respectivas hojas, pero solo los datos de A9 hasta F9 que serian osea, N° de OC Cliente, Fecha OC, Trabajo N°, Cliente, Vta. Neta Local, Vta. Neta Directa del Userform6, claro y que se mantenga que se siga creandouno ensima debajo de otro caba vez que ingrese uno nuevo. Mus¿chisimas Gracias por su apoyo! EJEMPLO OC.zip

Saludos, soy muy nuevo, reciente, en la programacion con VBA de Excel, es muy apasionante, pero como todo que comienza debe ser investigado y aprendido, por favor, el codigo adjunto funciona bien, solo quisiera saber como resumirlo, Muchisimas gracias. Ademas, desearia saber como escribir texto en un textbox, al dar enter pasa a otro textbox, al enter otra vez pasar estos textos a la hoja de calculo y verlos tipo lista en un tercer textbox del mismo userform, me explico? introducir datos en dos textbox consecutivamente, al dar enter en el segundo pasaran los datos a la hoja de calculo y reflejados en el tercer textbox, se retorna al textbox 1 de nuevo y se repite la entr…

Buenas tardes, Navegando por la red encontré el siguiente código, el cual elimina la opción de unhide en excel, el problema es que yo puedo lograr que me aparezca, de antemano agradezco su ayuda. cabe mencionar que he intentado lo siguiente pero no funciona. cbControl.Delete.Reset 'Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ' Dim cb As CommandBar, cbControl As CommandBarControl, cbButton As CommandBarButton ' Set cb = Application.CommandBars("Column") ' For Each cbControl In cb.Controls ' If cbControl.Caption = "&Unhide" Then ' cbControl.Delete ' End If ' Next 'End Sub

Buenos Días. Me gustaría muchísimo que me pudiesen ayudar. Estoy realizando, se puede decir programa, que agregue compras, que reste inventarios a su vez de que pueda registrar actividades y que registre reservas de inventario donde no se si pueda conectar, de que a cada día que pase, se resten los días y si pasan 7 días, la cantidad se devuelva al inventario. Está ultima parte no es tan importante como a que si reste los inventarios. Para la parte de registrar actividades lo he podido lograr, pero para la parte de restar inventarios y que con cada vez que yo ingrese una nueva cantidad, el automáticamente se reste de la cantidad que había anteriormente. Ejemplo (había…