Buenas días a todos, Les copio parte de un algoritmo en donde copio y pego unas tablas en otro libro. Copia y pega todas las tablas correctamente, ahora si les aplico un filtro y copio solo las filas visibles aplicando SpecialCells(xlCellTypeVisible).Copy ,, no copia la tabla con su nombre de rango, solo copia los valores. Aparentemente cuando copias y pegas una tabla filtrada en Excel, es posible que el nombre de rango no se copie automáticamente junto con los datos. Esto puede ser que se deba a que el nombre de rango está asociado directamente con la tabla y no con las celdas individuales. Hay alguna manera de hacer esto en esta instancia al hac…

Saludos, He intentado sin éxito lograr forzar la ubicación de los PageBreaks o saltos de paginas. Este es el código que he intentado. Mi intención es poder forzar la ubicacion de los PageBreaks pero excel los sigue ubicando donde le da la gana. Mi intención es que imprima la última pagina con todas las filas sin importar si solo utilizó las primeras filas de la última pagina. Ideas? Sub PageSetup() Dim LastRow As Long Dim Page1 As Long Dim Page2 As Long Dim Page3 As Long 'valor de la ultima celda escrita en la columna F LastRow = Cells(Rows.Count, "G").End(xlUp).Row '************PRIMERA PAGINA*************…

HOLA BUENAS NOCHES TENGO UN PROBLEMA CON UN LIBRO DE EXCEL 2003, EN EL CUAL EXISTE LA SIGUIENTE MACRO QUE ESTA OCULTANDO ALGUNAS PESTAÑAS PERO POR ERRO ELIMINE LA MACRO QUE LAS MUESTRA ALGUIEN ME PODRA AYUDAR GRACIAS. ESTA ES LA MACRO QUE LAS OCULTA Sub Ocultar_Pest() ActiveWindow.DisplayWorkbookTabs = False End Sub

tengo una hoja en la cual necesito seleccionar un rango aleatoriamente, me explico: columna "A linea 1 a la 10 con datos" capturados manualmente columna "B linea 1 a la 10 con datos" capturados manualmente columna "C linea 1 a la 5 con datos" capturados automaticamente quiero seleccionar de la "C6:C10" y a cada una de las celdas que les falta datos intoducir un dato en forma automatica mi rutina es la siguiente Dim celda As range range("c1").Select 'columna con datos automaticos ActiveCell.End(xlDown).Activate 'para saber hasta donde tengo datos ActiveCell.Offset(1, -1).Select 'para saber que datos me faltan en la columna c r1 = ActiveCell.Addre…

Hola tengo este archivo que adjunto, el problema es que no puedo hacer que elimine datos de la base que se seleccionan por rango o por usuario, en la pestaña de bajas de las cuales ya tengo dos, pero con ninguna queda, se bloquea y no ejecuta lo que quiero es que solo debe borrar el rango seleccionado, espero contar con su valioso apoyo para encontrar una solucion para que borre solo los datos de la base de datos que se seleccionan en el rango o en el usuario Folios MO.zip

hola, quisiera que me ayudaran con una duda, es si alguien conoce un codigo para autoajustar texto cuando las celdas estan combinadas, pero que este texto se ajuste al ancho de la columna porque si se hace por el alto de la fila, pues todos saben que la fila tiene un limite, para dar un mayor ejemplo, yo encontre un codigo el cual me autoajusta el texto en celdas combinadas pero al tamaño de la fila, que pasa cuando el texto es muy largo este expande hasta el maximo de la fila y queda texto sin ver toca ir y expandir el ancho de la columna para que se vea todo, la idea es que automaticamente por codigo el ancho de columna tambien se autoajuste, espero que me entiendan lo …

Hola Amigos tengo varias macros que filtran una serie de datos, me gustaria saber como puedo saber en una celda especifica que macro se ejecuto la ultima vez en un ejemplo simple que adjunto, me funciona para cuando ejecuto la primer macro y me indica en la celda h2 un 1, pero no se como puedo hacer que funcione si ejecuto la macro2 o mas ojala me puedar ayudar gracias las macros que utilizo son macro filtro activo.rar

Muy buenas a todos. A ver, os comento. Tengo una macro en excel 2010 que, a través de un useform, me genera (en la pestaña principal) una fila con con varias columnas. Las dos primeras columnas son las importantes. Además, dicha macro, crea una pestaña con el nombre que hay en la columna A y genera el hipervinculo correspondiente a dicha celda con la nueva pestaña. ejemplo: En el useform pongo "123" y se crea en la celda A5: 123, además de crearse una pestaña con el nombre "123". La celda A5 y la pestaña estan hipervinculadas. También tengo que comentar, que segun se va ejecutando el useform, se van añadiendo filas nuevas con las mismas columnas Esta macro funciona perf…

Sepueden Repartir 30 números en grupos de 10 números sin repetir ninguno creandotodas las columnas posibles Pudiendo elegir los números. Alguien de foro encontré este libro Excel que estámuy bien pero está incompleto si alguienlo pudiera revisar y echarme una mano y cumplimentarlo sería perfecto. Graciasal foro

Hola a todos, tengo excel 2007 y estoy intentando hacer un archivo para un juego de casar parejas para obtener un regalo si aciertas a casar la pareja. tengo una tabla con diferentes regalos y encima de cada nombre he puesto un boton, el cual al pulsarlo deberia ocultarse durante unos segundos y dejar ver el texto que hay debajo de el, y asi en todos los botones. he intentado hacer una macro asignada al boton que oculte el mismo cuando lo pulso pero no soy capaz. alguien podria ayudarme? muchisimas gracias. PROMOCION BEM JUEGO CASAR PAREJAS.zip

Filtro en Macro (Tabla Dinámica) Estimados, Tengo parte una programación en la que necesito su ayuda. ---- ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ Worksheets("Hoja1") _ .Range("A1:AF" & Sheets("Hoja1").Range("AF1").End(xlDown).Row).Address(External:=True)) _ .CreatePivotTable TableDestination:="", TableName:= _ "Tabla dinámica1", DefaultVersion:=xlPivotTableVersion10 With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Incoterm") .Orientation = xlPageField .Position = 1 End With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Incoterm").CurrentPage _ = "(All)" With Active…

Hola a todos. Mis saludos a este foro que me saco de unos cuantos apuros!!! Solicito su ayuda en la solucion a este problema, ya que no lo encontre en ningun lado. En este archivo se muestra un formulario de busqueda, donde busco una fecha de una db y en esa fecha hay horas. Cuando trato de buscar una hora para que me traiga datos al formulario, no me reconoce la hora por mas que cambie de formato. En cambio si remplazo el formato hora o pongo numeros enteros al buscarlo me funciona perfecto. Gracias por su tiempo y ayuda. buscar hora.zip

Buenos dias, Mi problema es que tengo un formato con diferentes macros pero me sucede que quiero que determinadas celdas que están combinadas Asi: B35:d47 luego E35:G47 luego H35:J47 si ingreso un texto que me exceda ese tamaño se ajuste automaticamente. [TABLE=width: 847] [TR] [TD=colspan: 3][/TD] [TD=colspan: 3] [/TD] [TD=colspan: 3] [/TD] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [TR] [/TR] [/TABLE]

Hola, soy nuevo en el foro y he creado un libro en excel con codigo que he recogido de aqui y de haya, pero me he atorado al querer hacer el codigo para Buscar, Borrar, Editar y Actualizar informacion ("SIN USERFORM") o formularios. Adjunto el archivo. Espero les agrade lo que tengo hecho, aun le faltan cosas, quiero que muestre cada vez que busque los datos requeridos y este se encuentre en la condicion de cuarentena me muestre la foto de acuerdo a la direccion de la foto que le dimos al modificar la condicion del archivo "CUARENTENA". El libro al abrir reproduce un sonido de bienvenida como si fuera sofware de paga o una aplicacion profesional, pero hay que redirecci…

Error de codigo para copiar y pegar de una hoja a otra Bueno días foristas: En anteriores ocasiones me a sido de mucha importancia su ayuda y sus conocimientos por lo que vengo ahora a pedirle auxilio de nuevo. En un archivo de Excel tengo un código en la hoja "PARA SUBIR" que se supone me ayudaría a copiar unos datos de la hoja "CONVERTIR" y las pasaría en formato de texto (sin formulas) a la hoja "PARA SUBIR", pero me esta mostrando un error de procedimiento y no me deja correr la macro. Acá dejo el Código que estoy usando, si alguno de ustedes me puede ayudar estaría eternamente agradecida. Private Sub CommandButton1_Click() Application.ScreenUpdating = False '…

buenas e visto aqui en el foro como enviar nombre y contraseñas a una web yo tengo el mismo problema incluso e podido abrir con el internet explore pero aquien mi pais el explore demora mucho en cargar quisiera saber si también se puede abrir con el google chrome y me dejen su comentario

Hola a toda la comunidad tengo la siguiente pregunta: Tengo un archivo Excel con macros vba y quisiera compartirlo a varios usuarios, pero cuando ingresan los usuarios a la misma vez al archivo sale que uno de ellos solo puede leer el archivo mas no ingresar ni modificar, existe alguna solución para mi problema planteado.. Gracias de antemano archivo: Dropbox - SILEG_NUEVO-2013.xlsm

Buenos días, Espero que me podías ayudar. He intentado ver algo parecido pero no he encontrado ninguna solución. Me han pasado una hoja de excel con formulas y macros, que no entiendo. Era de un cocinero frances, y quien me la ha pasado ha cambiado algun nombre y ahora da error. Segun me ha dicho mi jefe sirve para dar contolar el coste/ingtreso de la comida dándo entrada a la mercancia por albaranes. Luego en la tercera pestaña le das a un botón, el cual me da error. El problema es que hay cosas en francés y no lo entiendo. No se si me podéis ayudar, y si necesitais ayuda melo decís. La verdad es que yo estoy un poco perdido con la hoja... Muchas gracias! Un salud…

hola amigos les queria pedir ayuda, como obtengo en una variable la fecha actual? en un formato como año-mes-dia + la hora con los minutos y segundos? saludos

Tengo una hoja para llenar informacion por usuarios y previo a ejecutar el macro de grabacion quiero que se compruebe que hay informacion en cada una de las celdas en caso exista alguna celda vacía no ejecute la macro y mande un mensaje de advertencia Agradecere la ayuda que me puedan brindar

Hola, intenté escribir en el tema "Copiar rango y pegar en la columna siguiente disponible" pero estaba "cerrado por abandono", primeramente, muchas gracias a Marco Antonio pues fue el quien me proporcionó una macro que me ayudó mucho y si no había comentado fue por que estaba trabajando la macro, personalizandola a mis diferentes rangos y columnas, lo cual ha funcionado muy bien. El código que me proporcionó Marco Antonio es el siguiente: Sub VaciarDatos() For y = 16 To 27 'Rango O:AA If Trim(Cells(8, y)) = Empty Then 'Rango O:AA c = Split(Cells(8, y).Address, "$")(1) Range(c & "8:" & c & "20").Value = Range("O8:O20").…

Hola a todos, Me gustaria hacer una macro VBA que se pueda realizar o aplicar cuando seleccionamos una celda y que esta consista en que se marquen o seleccionen las columnas desde la primera hasta la columna en la cual se encuentra la celda seleccionada. [/img] http://es.tinypic.com/view.php?pic=mikjdk&s=8 http://es.tinypic.com/view.php?pic=2qjgbcz&s=8 http://es.tinypic.com/view.php?pic=2qjgbcz&s=8 Columns(valor) dentro de Range genera un valor 1 aunque valor tenga el valor de la columna de la celda activa. No se porque. Alguien puede ayudarme con este problema. Muchas gracias!!

HOLA MUY BUENAS A TODOS. NECESITO AYUDA. QUISIERA HACER UNA MACRO QUE ME EXPORTARA LOS GRAFICOS (7 GRAFICOS) DE UNA HOJA DE MI LIBRO DE EXCEL A UNA PLANTILLA DE WORD Y ME LOS COLOCARA EXACTAMENTE EN LOS LUGARES DE LA PLANTILLA DONDE YO QUIERO QUE ESTÉN. LES AGRADECERÍA QUE ME PUSIERAN TODO EL CÓDIGO YA QUE MIS CONOCIMIENTOS DE VBA SON MUY EXCASOS. MUCHAS GRACIAS POR SU AYUDA.

Hola amigos capos de la programación: En primer lugar felices fiestas y muchas bendiciones. En segundo lugar viene lo bueno, miren les adjunto mi archivo de excel, donde estuve aplicando las enseñanzas de Cacho R., pero me encuentro con un problemita, en realidad no se si es problema pero si quisiera saber si se puede hacer. En el archivo especifico lo que quisiera hacer. Les explico yo tengo una macro que a travez de un formulario ingreso datos, al momento de consultar los datos, se abre una ventana de internet explorer con el resultado, que es un codigo, yo quisiera saber si es posible extraer ese codigo a una celda de excel sin abrir el internet explorer, saber si e…

Buen día Si en las cinco primeras filas de la columna A tengo los siguientes valores (en A1, A2, A3, A4 y A5 respectivamente) A 1 Negro 2 Amarillo 3 Azul 4 Rojo 5 Verde Y coloco en vba el siguiente código: Sub Prueba 'Estando en A5 subirá fila por fila y se detendrá cuando encuentre la palabra Noche Range("A5").Select While ActiveCell <> "Noche" ActiveCell.Offset(-1, 0).Select Wend End Sub ¿Quisiera saber por qué genera error? La respuesta más simple sería porque nunca encontró la palabra Noche al ir subiendo desde A5 hasta A1, celda por celda, pero ¿por qué genera error exactamente? ¿El while genera error porque nunca se detuvo? ¿Genera error …