Estimados, Muy buenas noches, por favor alguien que me pueda ayudar cómo podría traer datos de la web mediante consulta, es decir, estando en la web ingreso un dato y me arroja información sobre dicho dato consultado. La cuestión es que tengo ya armada una base que me toca consultar en una página web, y para no estarla digitando en dicha página quisiera que pueda obtener esos datos y ponerlos en dicho archivo, hace un par de días vi algo parecido en otra web y supe que si se podía realizar, talvez alguien me pueda orientar sobre como podría simplificar mi trabajo. La página web es esta. Sistema de Autorización de Documentos Y en mi archivo tengo todos los datos que s…

Hola, me aparece este error en un formulario, cuando hago click en volver al formulario anterior. cuando coloco depurar me envía a este código. cb_codigos.Value = Application.VLookup(Me.cb_idespecialidades_oc.Value, Sheets("archivocobro").Range("E12:J31"), 6, 0) Pero yo se que se soluciona el problema si borro el cb_idespecialidades_oc.Clear (ubicado en el botón para volver al formulario anterior) Pero tiene que estar lo último porque asi se limpia el combobox Ojalá puedan ayudarme, muchas gracias

Buenas tardes. Tengo el siguiente código en una macro: Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then MsgBox ("haz esto") ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then MsgBox ("haz esto otro") Else MsgBox ("No se cumple") End If End Sub Sin embargo, siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If. Adjunto el excel de prueba. ¿Alguna idea del por qué no entra en el If ni en el ElseIf? Gracias Prueba.xlsm

Buenas tardes. Estimados necesito de su ayuda con lo siguiente: tengo una macro que guarda un PDF cada vez que encuentra un salto de Pagina (ActiveSheet.HPageBreaks). Le agregué Subtotales al archivo con el cual estoy trabajando y hay clientes cuyo reporte solo es de 1 página y la macro guarda un PDF con los datos de ese cliente, pero otros tienen reportes que van desde 2 hasta x cantidad de páginas y la macro me guarda tantos PDF como páginas tiene ese cliente. La idea es modificar la macro para que pueda guardar el PDF con la cantidad de hojas que tenga al encontrar un Subtotal (Ubicados en la columna "B") y no al encontrar un salto de página. Acá el código que ten…

soy nuevo en esto de la programacion por excel y el vba, entonces estaba haciendo unas pruebas para ayudar ami amiga en su sus tareas, mi problema es que no puedo cambiar la hoja de calculo cada vez que acciono el boton para cambiar de formulario y escogr la hoja donde vaciar los datos y ocultar las demas, ademas copie y adapete un procedimiento para hacwer una consulta pero no funciono, quiero que cuando hacga la consulta de un vehiculo sus datos de bitacora de serv,. aparezcan en una grid, pero mi pc no me dio las grid, asi que intente en textbox, pero no se ve muy bien, alguien podria indicarme que me fallo o podrian orientarme en mi modelo? CONTROL.rar

Necesito en EXCEL (o de no ser posible, en otro programa) de los números enteros positivos eliminar series lineales. Ejemplo: eliminar los múltiplos de 3 -2 entonces elimina el 1, 4, 7, 10.. , eliminar los múltiplos de 7-2 elimina 5, 12, 19 ..... poder eliminar varias series de ese mismo tipo y que después el programa me entregue los primeros 100 números no eliminados, para el ejemplo que di quedarían el 2,3,6,8,9,11... es muy importante. gracias

hola muy buenas, antes que todos muchas gracias a todos ustedes quiero que me ayuden a interpretar la siguiente macro: Public Function clave(ByVal Serie As String) As Double Dim resultado As Double resultado = 0 For I = 1 To Len(Serie) resultado = resultado + Mid(Serie, I, 1) * Mid(Serie, I, 1) Next I resultado = (resultado * resultado) - (resultado * 2) + Len(Serie) clave = resultado End Function atte. oscar

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

Buen día; Tengo el siguiente código: Private Sub CommandButton19_Click() Application.ScreenUpdating = False Sheets("Resmar").Visible = True Call Send_Range_Or_Whole_Worksheet_with_MailEnvelope Sheets("Resmar").Visible = False Application.ScreenUpdating = False End Sub[/CODE] El cuál me envía a un mail designado cierto rango de una hoja de excel en el cuerpo del correo. Funciona muy bien el código,, si ven incluyo que no se visualicen las actualizaciones de pantalla, pero sólo funcionan la de Excel, se ve la ejecución en el Outlook. Se puede incuir algo en el código, para que no se vea la ejecución del Outlook? Posi sirve de algo dejo tam…

Buenas tardes Amigos... Necesito si alguien me puede orientar... Quiero realizar una macro que me ayude a copiar información de un programa que utilizo en mi trabajo para crear una base datos que pueda manipular en excel y asi poder llevar unas estadisticas que necesito, el problema esta en que desconozco si existe alguna instrucción en especifico que me ayude a entrar a otros programas o alguna rutina que me ayude a entrar al programa y copiar la información. O si me pueden ayudar en donde me puedo documentar para poder encontrar la solución... De antemano les agradezco la ayuda que me puedan brindar... Saludos...

Hola a tod@s. Agradezco de antemano su tiempo y respuesta a los siguiente. En la hoja "RESUMEN" se encuentran los códigos de clientes y en las siguientes hojas se nombran cada código de cliente. Entonces lo que se requiere es que, por ejemplo, que en la hoja "A 030-028" se crea un hipervínculo hacia la hoja "RESUMEN", PERO con dirección hacia la celda A4 ya que es el nombre de la hoja "A 030-028". Y así sucesivamente con las demás hojas. Lo haría manualmente pero son mas de 800 hojas. Creo que esto solo se puede lograr con Macros, pero si hay la posibilidad de realizar sin ello estaría perfecto. Saludos PRUEBA.xlsx

Buenas tardes Me podrian ayudar con esto. Me pidieron que hiciera un consolidado de varias hojas(6) de varios archivos en uno solo para realizar un grafica consolidada. El consolidado se llama Diagnostico zona 1 y los otros es de donde tomo la información. Lo hice manualmente mediante suma, esto se puede hacer mediante un macro? y que quede para una numero indeterminado de archivos . Anexo el ejercicio.( no me deja por el peso) http://www.mediafire.com/file/l6c4c6wiw9kbbc6/Grafica+consolidada.rar Muchas gracias por su ayuda.

Combinar celdas iguales en fila - macro Hola, tengo una necesidad, que llevo varios días buscando solución pero no he logrado encontrar en la web ninguna macro que me pueda ayudar. Ya estoy algo desesperado, ojalá me podáis ayudar. Tengo una Carta GANTT con los días en una fila, las semanas en otra fila y el mes en otra fila. Para poder automatizarlo he puesto en cada celda de la semana o mes, una fórmula. Lo que necesito es que cuando clique en un botón se unan todas las celdas, tanto de la fila semana como de la fila mes, que estén seguidas y sean iguales (es posible que haya semana 23 de distintos años, por eso necesito que una solamente las celdas que están s…

Buenas Noches a todos, He comenzado con vba hace muy poco y estoy generando codigo para el manejo de bases de datos, deseo que me filtre la base de datos por dias que pasaron desde ultimo contacto, ejemplo ( si se registro hace una semana serian siete dias), y habria un conjunto de datos que entre en esa clasificacion. El problema radica en que no se como filtar , puesto que hablo de selecciones que incluyen a varios registros, he utilizado el metodo FIND para registros por numero de identificacion y me ha funcionado por que son unicos pero cuando son repetidos no me funciona, ademas deseo que solo las personas que he incluido en el rango de dias me aparezcan en una li…

Buenas tardes Encontre en el foro esta macro para un calendario automático Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range): On Error GoTo Sal Unload Calendario If UCase(Sh.Cells(5, Target.Row)) Like "*FECHA*" And _ Target.Row > 1 And _ Target.Cells.Count = 1 And _ IsEmpty(Target.Offset(-1, 0)) = False Then Calendario.Top = ActiveCell.Top + 160 Calendario.Left = ActiveCell.Left + 18 Calendario.Show End If Sal: End Sub Necesito modificarla para que solo se aplica ciertas celdas y filas Por ej en la columna C y fila 4 Y en mi planilla l…

SALUDOS AMIGOS DEL FORO HABER SI ME HECHAN UNA MANITO NO PUEDO VALIDAR AL BUSCAR UN DATO NO ENCONTRADO AL INTRODUCIR CODIGO EN TextBox1 ME LANZA UN ERROR 1004 EN LUGAR QUE ME LANCE UNA ADVERTENCIA "Producto no Encontrado" AYUDENME A SOLUCIONAR mi MsgBox PORFA LES ADJUNTO EL ARCHIVO ayuda_MsgBox.rar

hola comunidad necesito de su ayuda vba hace mas o meno lo q estoy tratando de hacer pero como yo quiero no. lo que quiero es filtrar los datos y después q estén filtrados hay si enviarlo a la plantilla, pero si al momento de enviarlos si hay mas de lo esperado cree fila similares a las a donde lo estoy metiendo, si es a lo contrario q los introduzca pero q no me dañe el formato de la hoja. espero q me entiendas hay te dejo el código. gracias por su apoyo.. Private Sub CommandButton1_Click() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino…

Un saludo para todos los foristas. Solicito ayuda con un tema que no he podido resolver. Tengo una rutina que me permite crear una tabla de Excel y en ella, guardar los datos de ciertas personas. La rutina se ejecuta bien a excepción de que, si ya existe la identificación de una de esas personas, se muestra un Msgbox que así lo indica. Luego, al pulsar el botón Aceptar de dicho mensaje, se sale de la rutina pero antes, debe seleccionarse la celda E6. Aquí está mi problema, que no se ejecuta esta instrucción, por ello, acudo a ustedes para lograr la solución de esto. Adjunto un block de notas con el código utilizado. Mil gracias por la ayuda que puedan prestarme. Rutina…

Hola buenos dias, TENGO LA SIGUIENTE MACRO: Sub ValuacionJJG1() ' ' ValuacionJJG1 Macro ' 'Replace "VALUACION (23)" with the name of the sheet to be copied. ActiveWorkbook.Sheets("VALUACION (23)").Copy _ after:=ActiveWorkbook.Sheets("VALUACION (23)") ' End Sub Duda, quisiera modificarla de tal manera que la proxima vez que la utilice en vez de copiar VALUACION 23 copie la valuacion 24 con datos ya modificados y asi sucesivamente. Espero que me ayuden, y les sea interesante el tema. Gracias de antemano.

hola quiero hacer una macro, en la cual pueda aplicar una formula CONCATENAR varios registros. a b c 1--- pedro martinez rodriguez =concatenar (a1;b1;c1) Como lo puedo hacerlo en una macro ya que son muchos registros. Gracias.

Buenos dias a todos, Os cuento mi problemática: Estoy generando un libro de excel para hacer un seguimiento de los gastos realizados en dos obras de construcción en función de un presupuesto general (Hoja 1: GENERAL) que se subdivide en dos presupuestos (Hoja 2: OBRA A y Hoja 3: OBRA B ). La idea es que solo se manipule la Hoja 1: GENERAL, insertando filas de gasto en el capítulo del presupuesto que corresponda y que según el valor de "% gasto por obra" que se asigne a cada obra, genere una fila en cada Hoja correspondiente. Por ejemplo: Inserto Fila 10 en la Hoja 1: GENERAL e introduzco los datos de "nº factura", "concepto", "total gastado" y "% gas…

Hola, estoy haciendo una macro para hacer un filtro en base a un listado en un rango pero veo que esta algo lento el proceso, sera que alguien tiene una mejor idea o un codigo ya probado que sea menos lento, adjunto archivo con macro de ejemplo. Salu2 FILTROBASE.xlsm

Hola! escribo porque necesito de su ayuda. Quisiera que al seleccionar un botón de opción, se habiliten ciertos cuadros combinados. Por ejemplo, en el archivo adjunto, quisiera que, al elegir "Medio Día" solo se habiliten dos cuadros combinados (Desayuno y Almuerzo); mientras que al elegir Día completo, se habiliten los cuatro. Es posible?? Gracias! Libro.xls

Buenos dias, mi consulta es: tengo una Base de Datos (de planetas del sistema solar) en Excel, cuando actualizo los datos del excel tambien quiero que se actualize los datos de esa tabla en Power Point, es eso posible?. Que se creen tantas diapositivas como planetas agrege en la bd con las mismas caracteristicas. Gracias. BD_Sist_Solar.zip

Buenas tardes, Les comento que mi conocimiento de excel es poco y no he podido dar con lo siguiente: Necesito copiar los datos de las columnas de la hoja Casos a la Hoja Errores siempre y cuando el estado que se encuentra en las columnas K L M N sea igual a Fallido. Teniendo en cuenta: Que debe colocar X en el cliclo correspondiente en la hoja Casos. En el Archivo Adjunto existe un ejemplo de lo que necesito. De antemano muchisisismas Gracias. Reportes.zip