BUENOS DÍAS, UN CORDIAL SALUDO Y MUCHAS GRACIAS DE ANTEMANO POR SU AYUDA. EN LA HOJA = "Proy.-Comer", TENGO DOS COLUMNAS EN AMARILLO UNA ES LA VARIEDAD Y LA OTRA ES LA RECETA, EL TEMA ES QUE LAS RECETAS SE DUPLICAN EN ALGUNOS CASO Y SEGÚN LA VARIEDAD, CREE EN EL ADMINISTRADOR DE NOMBRES, RANGOS DE TODAS LAS VARIEDADES; POR EJEMPLO "BLACK SEEDLESS" = "BS" (RANGO ='Proy.-Comer'!$L$11:$L$20) "COTTON CANDY" = "CC" (RANGO ='Proy.-Comer'!$L$41:$L$55) "CANDY SNAPS" = "CS" (RANGO ='Proy.-Comer'!$L$23:$L$38) ...--------Y ASÍ SUCESIVAMENTE LA IDEA ES COPIAR LOS DATOS ÚNICOS DE LAS RECETAS EN LA HOJA = BD_Recetas EN EL RANGO C9:C43 (DE COLOR AMARILL…

Buenas tardes. Acudo a Uds. para resolver una pequeña duda. tengo un rango de celdas con nombre en el administrador el cual quiero copiar en la celda activa que yo seleccione, sea en la misma hoja ó en otra hoja del mismo libro. Este es el código que uso para copiarlo en la celda "A62".Agradecido de antemano!! Sub CopiarEncabezado3() Sheets("encabezados").Range("identificacion_de_la_factura").Copy Sheets("encabezados").Range("a62").PasteSpecial End Sub

Buen dia. Compañeros del foro, en esta ocasión tengo un problema en un formulario con un DTPicker. Tengo un formulario con Multipage donde en una página tengo un ComboBox y un DTPicker en otra página. El detalle es que le di un formato de hora (HH:mm) al DTpicker, pero cuando selecciono algún dato en el ComboBox, el formato del DTPicker se cambia a Fecha, lo cual no es correcto para mi. Adjunto archivo con el ejemplo mencionado. Me podrían orientar para solucionar este detalle. Gracias Antonio Dtpicker.rar

Buenas tardes. Tengo un ListBox creado con un rango actual seleccionado de RowSource = 'Hoja'!'A1:C20 Dicho rango es una base de datos que irá aumentando en filas, como puedo hacer que dicho rango se adapte a la ultima fila con valores?? Por ejemplo si la ultima es la fila es la 25 que el rango sea 'Hoja'!'A1:C25 y así sucesivamente. Si pongo un rango muy grande me aparecen muchas filas vacias en el ListBox y queria evitarlo. Gracias Esta lista

Hola, tengo un formulario que he hecho, con lo que he averiguado, puedo agregar una imagen desde cualquier ruta externa, lo que no puedo hacer es que se inserte en una celda y que al insertar un nuevo miembro pase a otra celda como hace el texto insertado y que se quede del tamaño de la celda. Auxilio!!!!!!!!!!! jajajaja Miembros Pruebas.rar NO SIRVE EL OTRO SI SIRVE Miembros Pruebas.rar Miembros Pruebas EDITADO.rar

Nececito crear procedimiento VB para descargar los datos de una pagina de intranet y pasarlos a un archivo Excel en mi PC. Puntualmente mi duda es como estructuro del código para acceder a la url. De antemano, muchas gracias.

Buenas tardes y feliz año a todos, He creado la siguiente macro auto_open() en excel 2010: Sub auto_open() Application.DisplayFullScreen = True Application.DisplayStatusBar = False ActiveWindow.DisplayHeadings = False ActiveWindow.DisplayGridlines = False Application.DisplayFormulaBar = False ActiveSheet.EnableOutlining = True ActiveSheet.Protect Contents:=True, UserInterfaceOnly:=True End Function La coloco en modulo, tengo dos problemas: 1.-Al abrir el fichero excel sólo se ejecuta la macro en una hoja y no en todas como habría previsto. 2.-Al enviar este fichero a otros usuarios no se les ejecuta la macro auto_open, he observado que tienen una macro…

Estimados amigos soy nuevo en el foro y en la programación vba. Sobre el tema de ocultar hojas o como en mi caso es ocultar solamente una, no encuentro una respuesta facil, veo por aqui a grandes expertos y claro no llego a tanto. Os adjunto el fichero y si alguien pe puede ayudar se lo agradezco. muchas gracias de antemano. Por cierto un foro de excel extraordinario labora33333.xlsm

Buenos dias. Tengo un programa de gestion de almacen en VBa y Excel. El programa lee el archivo excel, mostrando Referencia, cantida y descripcion, y el usuario confirma que los datos son correctos o no. El problema que tengo es que en archivos con muchas referencias(mas de 75), al llegar a numero 75, se me cierra excel dandome el error de "MIcrosoft Excel ha detectado un problema y debe cerrarse" Como ya os he comentado, me pasa a partir de la linea 75. Si cierro el programa y vuelvo a abrirlo no da error, por lo que creo que es algo de memoria. Me podriais ayudar?? Muchas gracias.... p.d. He intentado adjuntar el programa pero no puedo, asi que si alguien piensa…

Hola amigos, ¿se puede autoajustar el alto de las filas en un listview o en un listbox?. Quiero mostrar unos datos tipo comentarios en un listbox o listview, y quiero que estos se vean completos, sin tener que modificar el ancho de las columnas. Adjunto archivo que encontre. no es mio, es solo de ejemplo para ver si es factible aumentar el alto de las filas gracias listview.rar

Hola soy nuevo en esto de los macros, intento guardar facturas y que su nombre dependa de 2 campos el problema es que cuando utilizo el macro creado a partir de una grabación funciona ahora cuando lo quiero modificar ya deja de funcionar, dejo el macro inicial para que me puedan ayudar, Sub Macro3() ' ' Macro3 Macro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\gonwana\789.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub yo necesitaría que el nombre que se guardara dependiera de la celda C8 y que ademas le colocara el día y hora …

Estimados: Tengo una planilla donde diariamente cargo certificados medicos y necesito una macro que me filtre diariamente las personas que se encuentran enfermas siempre y cuando la fecha actual (Hoy) se encuentre entre las fechas desde y hasta. Por ejemplo: Miguel esta con certificado médicos desde el 12 de Dic. hasta el 31 de Dic. entonces lo que necesito es que la macro se fije si la fecha actual (HOY) está comprendida entre el 12 y el 31 de Dic. y si es asi, que me muestre las personas que estan enfermas HOY., es decir que desde el 12 al 31 de dic yo deberia ver a Miguel en este listado. No se si me explico pero adjunto la planilla libro1.rar Libro1.rar

Buen dia expertos recurro a ustedes con esta consulta que espero no les quite mucho de su valioso tiempo y en espera me puedan ayudar, y es que requiero que un textbox acepte solo caracteres que yo quiera como en este caso requiero el textbox solo acepte letras mayusculas y minusculas, y los caracteres exceptuados son el guion bajo, el espacio y los dos puntos ":" y tengo el siguiente codigo pero no logro adecuarlo Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ' osea Esto es para que el Textbox1 solo acepte números ' If KeyAscii < 48 Or KeyAscii > 57 Then ' KeyAscii = 0 ' End If ' del 32 al 126 son caracteres imprimibles …

Buenos días a todos, Solicito su valiosa colaboración ya que tengo una macro que me calcula un tiempo determinado para efectuar una acción la cual me funciona a la perfección pero en este momento necesito que con otra macro se detenga está con el fin de seguir con otro procedimiento sin que me genere errores. Pido disculpas por no adjuntar un archivo pero es que estoy escribiendo desde el celular y no me es posible adjuntar el archivo. Por tal motivo adjuntó la estructura de la macro. Range ("K6") <> "" Then Tiempo pausa=5 'asigna tiempo inició Inicio = timer 'establece la hora de inicio Do while timer < inicio + tiempopausa DoeventS

Saludosen la celda b,20 necesito ingresar un contador correlativo que en medida que le ingrese datos comience de 1 en 1 y si pueden necesito que los datos que ingreso, salgan como datos numericos y no como texto. De ante manos Gracias. PRUEBA_001.xltm (1).zip

Hola, por favor si pudieran ayudarme, vengo realizando una macro con filtros, pero aun mis conocimientos en VBA son incipientes y no logro avanzar a completar el objetivo total de esta Macro, que es traer a un cuadro principal, las sumatorias en cada recuadro, de acuerdo a la edad, el sexo y el lugar de origen, que previamente se filtraron en otra hoja dentro del mismo archivo. Y por ultimo, en caso figure la denominacion "No hubo casos", para la fecha seleccionada, se debera rellenar con el Cero osea "0", los recuadros restantes. Gracias de antemano, por su noble apoyo. CONSOLIDADO por dia.xlsm

Hola amigos: Quisiera su ayuda con lo siguiente, tengo una hoja de excel con varias columnas: NUmero, Nombre, Localidad, Producto1, Producto2, Producto 3; tengo tambien un formulario dentro del cual tengo un listbox y un listview, dentro del listbox he logrado hacer que me aparezcan los datos unicos de la columna "NOmbre" (que siempre tiene duplicados) ahora lo que quiero hacer es que al momento de hacer aclick sobre determinado nombre en el listbox pueda desplegarme las filas correspondientes a ese nombre dentro del listview, quiero comentarles que he encontrado en la web una opcion que utiliza otra hoja en donde filtra las columas que muestra en el listview, pero por …

I have created the following macros to enter to a website with user and password He creado el siguiente macro para entrar en una web con un usuario y contraseña (copiando datos de un fichero excel con esos datos). Public Sub A_Consulta_Serial_Parnter_Center() ActiveWorkbook.FollowHyperlink Address:="https://www.zzzz.com", NewWindow:=False, AddHistory:=True Application.WindowState = xlNormal ' Wait for a little bit to let website upload Call Timegoes ' Copy data from excel cell, row 2 and column 8, to Google Chrome. This is the username. Application.SendKeys (Cells(2, 8).Value) ' Tab Application.SendKeys ("{TAB}") ' …

Hola, tengo un problema con un bucle. El caso es que en el Mac me funciona pero en windows no. El código es este: Private Sub Worksheet_Calculate() Dim KeyCells As Range If Range("C13") = 1 Then Range("D7").Value = Range("D7").Value - 1 End If Do While Range("C13") = 1 Range("D7").Value = Range("D7").Value - 1 Loop If Range("C13") = 0 Then Range("D7").Value = Range("D7").Value + 1 End If Do While Range("C13") = 0 Range("D7").Value = Range("D7").Value + 1 Loop Range("D7").Value = Range("D7").Value - 1 End Sub El caso es que quiero que cuando una celda (la C13) sea 1, me reste 1 de la celda D7, y así hasta qu…

Hola, les pido ayuda para la siguiente cuestión. Tengo dos paquetes de datos, con un código de numeración. Quisiera que se ordenaran ambos paquetes , intercalando los datos que están en ambas columnas y los que solo aparecen en una u otra. Si se puede hacer por medio de una macro, mejor. Muchas gracias ORDENAR EN FUNCION DE DOS COLUMNAS.xls

perdonen la molestia espero me puedan ayudar, debo calcular en un formulario lo siguiente: tengo una fecha inicial, una fecha final, una hora inicial, una hora final, tambien tengo una tarifa, un elemento adicional, tengo una cortesia los calculos que quiero que haga el formulario a travez del boton calcular es: lo que hay en el textbox fechafinal restarlo del textbox fechainicial, lo que hay en el textbox de horafinal restarlo del textbox hora inicial,...la cantidad de tiempo establecerla en el textbox de tiempotranscurrido en horas, al tiempo transcurrido multiplicarlo por la tarifa para que me de el monto en $ y a esto sumarle lo que haya en elementoadic…

Hola a todos!!! Planteo el problema que tengo... El objetivo es que vía VBA se siga un hipervínculo tal cual como si lo hubiese hecho con el puntero del mouse ejecutando click. En el libro llamado "Principal.xls" en su hoja "Ctrl" rango "A9" esta el hipervínculo. Libro llamado "HP_2012.xls" el cual contiene una hoja "Feb". Ahora bien en el modulo1 del libro "Principal.xls" inserto las siguientes lineas: Range("A9").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True[/HTML] Ejecuto la macro y se debería de activar el rango mencionado, y no es así. ¿A que se debe que el resultado no sea el esperado? Adjunto archivo para visualizarlo mejor…

Buenas tardes, Tengo una hoja excel con varias pestañas con datos. Estos datos los consolido en otra hoja en el mismo documento. Lo hago manualmente utilizando la función del menú Datos-> Consolidar. Quería automatizar el proceso y crear una macro para que sólo pulsando un botón lo hiciera, A través de Menú Programador, quise grabar la macro, pero me da error al grabarla. He estado buscando por internet y en el foro y no encuentro como usar la función "Consolidar" en una macro. ¿Alquien me podría ayudar por favor? Gracias!

Buenos días; Soy nuevo en este foro, estoy construyendo una hoja de excel para llevar el control de una flota de vehículos. Quería saber si alguien me podría ayudar en el siguiente tema: La hoja consta de una columna en la que se indican los días que faltan para pasar la inspección técnica a cada uno de los vehículos, la cual se va actualizando todos los días. Lo que quería hacer es, que cuando falten 10 días para llevar ese vehículo a la inspección técnica la propia hoja de excel me envié un aviso a una dirección de email. Un saludo, espero vuestras respuestas!! Gracias!!

Buen dia Recuerro a ustedes papar poder validar el correcto cierre del ciclo de esta macro. El ciclo afectado es el FOR que tiene la variable n debe trabajar hasta el 23, pero cuando llega a 24, sigue con el ciclo de numero1 y de suma y continua trabajando con errores. como puedo hacer para que la n al llegar a 24 finalice la macro y no realice las demas actividades ? ya movi los Next pero no lo he logrado, espero me puedan dar una guia Gracias esta es la macro Sub Union() ' Dim fila, RR As Long Dim n&, cCriterio$, H&, g&, y& fila = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row …