Buenas tardes. Estoy con un pequeño dilema aqui, bueno para mi no es tan pequeño jaja si no no los tendria que molestar. Mi caso es el siguiente Tengo que actualizar semanalmente una presentación con 50 filminas dentro de las cuales vienen dos graficas en cada una y cada 10 filminas de graficas 1 tabla, todo esto tomando como base un archivo que se me envia en excel. Como veran es mucho trabajo que da pie a errores manuales. El archivo de excel que me envian sigue la misma estructura todo el tiempo solo cambia la informacion. entonces se me ocurrio hacer la grafica en excel y pegarla en la PPT para qeu se actualice cuando modifique el archivo, pero tengo problemas y qu…

Hola a todos nesecito de su ayuda, antes esta funcion de estas 2 formulas me corrian, esta macro convierte la celda en mayuscula y a la vez incresas 2 veces datos y automaticamente se bloquea la celda. -------------------------------------------------------------------- Esta es la formula la que antes me corria bien: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, [d33:f33]) Is Nothing Then Target.Value = UCase(Target.Value) Hoja6.[a1] = Hoja6.[a1] + 1 Application.EnableEvents = True If Hoja6.[a1] >= 3 Then ActiveSheet.Unprotect "colorbol54321.-" …

buenas noches, necesito de sus experiencias para este pequeño problema como podría hacer para que esta rutina me permita leer archivo pdf. Private Sub APELLIDOS_Y_NOMBRES_Click() Dim Fila As Long On Error Resume Next Fila = APELLIDOS_Y_NOMBRES.ListIndex + 4 Imagen.Picture = LoadPicture("") Imagen.Picture = LoadPicture(Sheets("Hoja3").Range("M" & Fila)) End Sub agradezco desde su gentil aporte.

Ayuda con Llenado de reporte (Rango Dinamico) Amigos necesito su valiosa colaboracion!!! Bien el detalle es este. En hoja Report tengo los articulos de los cuales necesito la informacion, que se encuentra en la hoja base. He generado una macro la cual me copia la informacion para la hoja report. pero si agrego una fila (Nuevo Item) en cualquier categoria tengo que cambiar el codigo para modificar los rangos, esto es tedioso cuando son alrededor de 30 categorias me entenderan :miserable:. Habria alguna manera de hacerlo dinamico? y de esta manera no tener que cambiar los rangos cada vez que se agrege un nuevo Intem , espero que puedan ayudarme al respecto. Anexo archi…

Seleccionar entre dos productos iguales el de mayor fecha la idea es la siguiente al seleccionar el producto en el macro me tome el precio del producto con la fecha mas actual osea el precio actualizado Sub detecta_producto() If CmBProductos.Value <> Empty Then Call calcula_importe Else End If End Sub Sub calcula_importe() If txtCantidad.Value = Empty Or cmbClave.Value = Empty Then Else Importefi.Text = CCur(txtPrecio.Text) * CCur(txtCantidad.Text) End If End Sub Sub busca_art_precio() Private Sub cmbClave_Change() If Me.cmbClave.Value = "" Then Exit Sub Dim sUltimaCelda As String Me.txtDescripcion.Text = "" Me.txtPrecio.Text = "" If…

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").…

Estimados, ojalá y me puedan ayudar a solucionar este error que anexo.... y les platico... Resulta que este archivo trabaja muy bien en mi máquina y en la de todas donde trabajo, pero cuando se lo mandamos al cliente les manda este error solo a ellos, ya lo revisó el cliente con su gente de sistemas pero ahora piden que si se puede compilar a 64 bits. Me pueden ayudar a solucionarles este problema que solo a ellos les arroja? De antemano, muchas gracias y saludos. error compi.zip

Buenas tardes tengo un form que que desde ahi ingreso datos pero en algunas ocaciones ingreso mal los datos con con un boton buscar ubico los datos hago la modificación y con un boton "modificar" quiero que se grabe los cambios hechos que hice estos se graban en una hoja de excell "BBDD" que viene a ser la base de datos. Tengo el código pero no puedo programarlo bien para dicho objetivo a ver si me puedes ayudar. Muchas gracias amigos App'Demo.xlsb

Hola, escribi pero creo que se ha borrado, así que vuelvo a escribir haber si alguien pudiera ayudarme. necesito un macro para que al cerrar el libro se desactiven todos los rangos de modificación activos y al abrir se activen los rangos que yo desee. Soy algo novato en estoy y he podido con otras macros pero esta me supera. Un saludo

Buenas comunidad, tengo este problema en el que necesito que si en columna A existe un valor repetido y se cumple cierta condición (que el valor de la celda original en columna F sea distinto de "si") se pinte de un color la fila entera de todos los valores repetidos y este no se pueda modificar. En el archivo adjunto, por ejemplo me gustaría que si ingreso el valor 10 en columna A no pase nada debido a que en columna F el valor es "si" pero en cambio si ingreso el valor 3 en columna A debería ambos marcarse de algún color y ese debería ser inmodificable. Gracias de antemano! comp.rar

Hola!! Necesito armar un cuadro de lista dependientes, digamos que dos cuadro de lista. En uno quiero que salga las marcar de autos (Ford, Fiat, BMW, Etc) y dependiente de la selección de la marca en el otro aparezcan los modelos de las diferentes marcas. Gracias

Hola, tengo hecho en excel una especie de formulario( no se como llamarlo) y me gustaria hacerlo en visual. El excel lo que hace es utilizar la formula de coincidir y devuelve el valor, segun haya elegido en una un valor de una lista despegable. Gracias.

hola buenas, he estado hace un tiempo aprendiendo y desarrollando macros en vba para realizar scraping en paginas web, en una de las paginas que utilizo apareció esta protección del sitio, el posible bypasear con vba? he leído que se puede hacer con phyton pero no conozco ese lenguaje el mensaje que dice es Cheking your browser before accessing "sitio" dejo pantallazo https://ibb.co/wp4mwzP en caso de no ser posible, quizás ya sea momento de aprender otro tipo de lenguaje agradezco mucho la ayuda

Buenos dias, expertos tengo un formulario que registro, modifica, elimina datos a la vez muestra un listado de datos en en listview la pregunta es si por medio de un combobox seleccione los encabezados de cada columna de datos y escribir en un textbox para lugo filtrarlos y asi cada vez que escoja del combobox y escriba en la caja de texto me filtre los datos. Muchas gracias a todos... por favor adjunto el archivo. Control Protocolos.xlsm

tengo una planilla de ejmplo con unos datos de una factura, pueden ser datos de personas o cualquier dato que se utilizen los campos horizontalmente etc. - se ve en otra hoja esta misma planilla pero organizado de otra manera. la idea seria que auque la lista se siga llenando en la planilla en la hoja organizada al arrastrar las celdas que se han definido en la primera vez, salga el mismo formato pero en cada campo los datos siguientes de la planilla que esta horizontal. No se si eso seria automatico o arrastrar las celdas del diseño ya organizado. adjunto ejemplo.

Hola amigos como estan? Tengo una situacion el cual me doy por vencido porque no encuentro la forma de solucionar, es por eso me acudo con ustedes. Bueno mi situacion es lo siguiente. Tengo un archivo de excel que se llama Cotizaciones, el cual quiero crear una copia de la hoja y guardar con el nombre de la celda D11 en automatico (pero que me de la opción de poder guardar en la carpeta que yo quiera), y al mismo tiempo quiero guardar en PDF con el mismo nombre de la celda D11. El archivo original tiene encabezado y pie de pagina y quisiera que solo se crea la copia sin perder el diseño. En la hoja original Tambien tengo 3 botones y los códigos programados y en la co…

Necesito colocar el calendario en 10 columnas intercaladas y la forma que conozco no me sirve ya que puedo solo en dos favor vuestra ayuda Muchas Gracias El código que coloco en la hoja en cuestión es el siguiente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngFechas As Range Set rngFechas = Range("a:a,b:b") If Union(Target, rngFechas).Address = rngFechas.Address Then _ Call abrir_calendario End Sub

buenas tardes me gustaría saber si existe alguna macro que me cree en una celda especifica la fecha en el siguiente formado : si es 01/05/2014 que la macro la convierta en " Caracas al 01 de Mayo del 2014" o si es 20/05/2014 la exprese en " Caracas a los 20 días del mes de Mayo del 2014"

Hola de nuevo. Hace tiempo que no molestaba pero he retomado algun proyecto que tenía aparcado y ya tengo problemas. Creo que es fácil, pero no logro salvar el error. Es con la combinación de Range y Cells. .Sheets("RES_Origen").Range(Cells(61, Val(mMes) + 2), Cells(84, Val(mMes) + 2)).Copy wdatos.Cells(5, col + 2).PasteSpecial xlPasteValues Con este código me salta un error. Sin embargo si lo hiciera con Range no da error. .Sheets("RES_Origen").Range("G61:G84").Copy wdatos.Cells(5, col + 2).PasteSpecial xlPasteValues He de usar la combinación con Cells porque está dentro de un bucle que va copiando diversas coumnas y no puedo fijar el Range. …

Hola que tal, como estan espero que esten bien... requiero ayuda con una macro para filtro avanzado... lo que me pasa es q tengo una macro para un filtro avanzado que me funciona correctamente, pero deseo automatizar un poco mas las cosas y he creado unos botones de opciones para ingresar el rango de criterios mas facilmente... pero al asinarle la macro no me funciona... y no me genera la tabla que deseo..... muchas gracias por su ayuda.... anexo un archivo donde tengo las 2 macros, y donde solo me funciona una.... bendiones, cuidense Formulava.xls

Hola a todos! Tengo solo una parte del archivo pues el archivo original tiene más de 200 hojas nombradas con los “códigos ciiu”, todos los nombres de las hojas se encuentran en la hoja nombrada “códigos ciiu” . Me gustaría primero poder digitar en el input box solo los “códigos ciiu” que se describen en la hoja “códigos ciiu” pero que al mismo tiempo si el numero digitado no coincide con los “códigos ciiu” o por error digito otro carácter alfanumérico. Me aparezca el error un msg box diciendo “El código ciiu no existe” en vez del error 9 en tiempo de ejecución. (Creo que eso pasa porque no he dimensionado las variables?). Y segundo en el momento de que no haya ningún va…

Tengo este evento el cual quisiera aplicarlo en varios eventos de varios formularios Sub Limpia(nameform As String) 'para TextBox y ComboBox en formulario 'Dim Ctrl As Object ''Aqui la rutina para Ejecucion 'For Each Ctrl In nameform 'Entrada.Controls 'If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = Empty 'If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl = Empty 'Next Ctrl 'MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpiesa" End Sub[/CODE] Tal como esta no funciona, funciona si si le quito nameform As String y nameform y le dejo Entrada.Controls (Entrada es nombre de uno de los formularios) Para ello tendria que repetir el mismo codigo con solo …

Hola como están, una pregunta para los capos de Macros Bueno yo estoy trabajando con una tabla con formulas(que es mi objeto) y tengo una macro que busca insertar/eliminar filas y columnas de este objeto dependiendo de ciertos valores Declaro lo siguiente: Sub ActualizarTabla() Dim f&, c&, oldRows&, newRows&, oldColumns&, newColumns& f = Range("H1") c = Range("H2") With ListObjects(1) oldRows = .Range.Rows.Count oldColumns = .Range.Columns.Count newRows = f + 1 newColumns = c + 1 newRows = Application.Max(3, newRows) .Resize .Range.Resize(newRows, newColumns) If newRows < oldRows Then .Range.Offset(newRows).Resize…

Buenas tardes, tengo el siguiente código, pero no sé qué instrucción necesito agregar para que pegue solo los valores de la celda copiada. Ya que me manda error de compilación, de antemano, gracias por la ayuda Sub FirstVisibleCell() With Worksheets("Seguimiento").AutoFilter.Range ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2 Selection.CurrentRegion.Select Selection.SpecialCells(xlCellTypeVisible).Select ActiveCell.Copy Destination:=Range("F1").PasteSpecial xlPasteValues End With End Sub

Buenas Tardes necesitaria terminar el siguiente formulario , el cual al ingresar los datos en los label me devuelva automaticamente el valor encontrado en la hoja procesos y al registrarlo me lo ingrese al registro , tambien necesitaria un cuadro de consulta , todo lo que se pueda agregar al formulario bienvenido sea , desde ya se agradece , igualmente trato de seguir buscando . NOVEDADES.xls