Estimados amigos del foro, Agradecer de antemano su tiempo en la ayuda que me puedan dar. A ver si alguien me puede ayudar con este fichero en el que necesito crear una macro que recorra cada celda el rango L4 hasta el final donde hay dato (esta columna es la primera operación), por calda celda que recorra de la columna L con valor, mire hacia la celda derecha : Si la celda de la derecha M4 está vacía ponga la palabra GV Si no está vacía mire hacia la derecha N4 Si N4 está vacía ponga la palabra GV Si no está vacía mire hacia la derecha O4 Si O4 está vacía ponga la palabra GV Si no está v…

Hola a todos he intentado ingresar este codigo en macros VBA de excel dim zelda as string ZELDa = ActiveCell.Value Cells(1,ZELDa).Select pero siempre me laza error en cells como puedo hacer para ir a un rango donde la columa esta siempre variando en mi hoja de calculo. por lo que necesito definir la variable ZELDA

¡Hola amigos ! En otro Libro tengo el siguiente código que me funciona perfectamente: Private Sub worksheet_change(ByVal Target As Range) If Not Intersect(Range("Ak14:As18"), Target) Is Nothing Then For Each celda In Range("w25:W34") If celda.Value <> "" Then datos = datos + 1 Next If datos > 0 Then Iniciar Else Parar End If End If 'a partir de aquí quiero modificar el código para que, en lugar de ejecutar el WebBrowser4 y reproducir un GIF animado que tengo en una carpeta , dependiendo del contenido del rango W25:W34, me ejecute el control Windows Media Pla…

Buenas, Agradecería por favor vuestra ayuda con la siguiente hoja de cálculo que adjunto, para crear una macro en VBA que haga lo detallado a continuación: - Seleccionar solo los valores de las columnas R, S, T que lleven la fórmula de multiplicar las columnas V * F (en el archivo se aprecia). - Copiar estos valores seleccionados a su fila análoga de las columnas J, K, L. - Inicializar a cero los valores en fila análogas de la columna V y X. Muchas gracias. Saludos. Libro1.rar

Buenas tardes a todos los miembro del Foro, en esta ocasión necesito su ayuda en una macro que tengo la cual me permite inserta filas automáticamente a presionar en el botón INSERTAR FILAS, pero a la vez tengo una la formula en el texto donde indica TOTAL GENERAL "=SUMA(L8:L9)" y lo que necesito es que si inserto 5 mas 2 que tengo por defecto mi formula suma debería incrementar a =SUMA(L8:L14), pero no permite hacer este cambio. Desde ya agradezco su apoyo y colaboración. AYUDA CON FORMULA PLANTILLA ELECTRONICA.part1.rar AYUDA CON FORMULA PLANTILLA ELECTRONICA.part2.rar

Tengo 2 Libros creados. El libro “Origen” y el libro “Destino”. Necesito ayuda con una macro que copie texto de una celda del libro “Origen” (por ejemplo: “Es un estudio del año pasado”) y vaya al libro “Destino”, que cree un Comentario y pegue dicho texto de la celda dentro de él. En realidad son varias celdas del libro “Origen” con textos y varias en el libro “Destino”. Muchas gracias!!!!

Estimados del foro, Hace un tiempo cree una CommandBar usando el editor xml UI. El caso es que existen opciones de esta CommandBar que deseo se desactiven en un momento dado. He bajado alguno ejemplo desde el sitio del creador, pero no hacen el efecto dado. La idea: Sub EnableControlsWithCertainTag2() 'Enable only the controls with a Tag that start with "Group2" Call RefreshRibbon(Tag:="Group1Button1*") End Sub [/CODE] [CODE] Sub RefreshRibbon(Tag As String) MyTag = Tag If Rib Is Nothing Then MsgBox "Error, Save/Restart your workbook" & vbNewLine & _ "Visit this page for a solution: http://www.rondebruin.nl/rib…

tengo un problema en la arquitectura de la macro, todo funciona bien hasta que intento bajar las filas hasta el A3, y lo trato de configurar y no hay caso, bueno ese es un problema , pero también me gustaría que filtre los tipos de archivo sin necesidad de incluir fechas o buscar por nombre sin la necesidad de fechas, la verdad lo necesito para un libro de mas de 87 paginas pero acá les va una idea el que es "funcional" es ORIGINAL 1 y el no funcional es OBJETIVO 1 gracias de ante mano ARCHIVOS.ZIP

Buen día, tengo un problema con el cuadro de listbox en un formulario de vb, el cual cuando esta en ejecución funciona, luego de agregar un registro, presiono el botón cerrar del formulario y lo cierra todo el libro de trabajo y sin grabar por favor si me pueden ayudar. El código que estoy usando para cargar el listbox del formulario con 5 columnas de datos es esta, el problema surge cuando cierro el formulario y se sale sin grabar; pasa lo mismo cuando uso el Me. list... Sub cargar_lista() Dim fila As Long fila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row frm_proveedores.lis_proveedores.RowSource = Hoja1.Range("A2:E" & fila).A…

Buenas Noches estimados amigos, hace algún tiempo atrás me solucionaron mi vida en relaciona a que me modificaron un macros para distribuir deuda equitativamente , el tema que ahora por favor, necesito que me ayuden nuevamente. En resumen, yo trabajo en una empresa de cobranza, la que debo distribuir equitativamente : en monto de la deuda y según el % que se entrega a cada trabajador, es decir, según la tabla que me entreguen es el % que se distribuye segun el total, y además para cada uno debe ser equitativo en relacion al monto de la deuda, ya que a veces a algunos se les entrega muchos casos de monto bajo , por eso lo hago manual, llevamos 3 semanas de esta fo…

Hola La duda que tengo, y por la que me gustaría recibir ayuda, es que quiero hacer una copia de seguridad de un libro, que me lo guarde en pdf y en la ruta que indica una celda. Por ejemplo, si en la celda B4 está escrito C:\Copias\Datos\ , cuando se guarde la copia del libro, en pdf, lo hará dentro de la subcarpeta Datos. Muy agradecido de antemano saludos ejemplo.zip

hola resulta que con este codigo se crea una tabla dinamica en macros Sub PivotTable() Dim PTCache As PivotCache Dim PT As PivotTable Set PTCache = ActiveWorkbook.PivotCaches.Create _ (SourceType:=xlDatabase, SourceData:=Range("A1").CurrentRegion) Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, _ TableDestination:=Range("F1"), TableName:="Ventas") With PT .PivotFields("Zona").Orientation = xlPageField .PivotFields("Mes").Orientation = xlColumnField .PivotFields("Nombre").Orientation = xlRowField .PivotFields("Ventas").Orientation = xlDataField .DisplayFieldCaptions = False End With End Sub [/CODE] y en mi excel cree u…

Hola, Ya casi tengo el proyecto acabado, únicamente me falta un tema que soy incapaz de solventar, tengo un botón "guardar", lo que hace es crear un clon en una nueva hoja con el nombre de la celda G4 y a la vez rellena los datos en la hoja16, estando el valor de G4 en la fila 2, pongo el código: Sub Guardar() Dim celda As Range Dim Fila As Long Set celda = Hoja16.Range("B:B").Find(What:=Hoja1.Range("G4").Value, After:=Hoja16.Range("B1")) If celda Is Nothing Then Fila = Hoja16.Cells(1048576, 2).End(xlUp).Row + 1 Hoja16.Cells(Fila, 2).Value = Hoja1.Range("G4").Value Hoja16.Cells(Fila, 3).Value = Hoja1.Rang…

Hola Equipo de "Ayuda Excel" Tengo un problema con el ingreso y visualizacion de datos,Quiero ingresar un dato y visualizar datos en celdas especificas de hoja2 desde un form en la hoja1; Gracias de Antemano. celdas.rar

Buenas, He intentado realizar una macro pero no lo consigo. Adjunto un ejemplo donde se explica y se pone un ejemplo de lo que se busca. Se trata que mediante una macro busque en una tabla los meses de producción y te escriba una "p" cuando haya habido dos meses con producción (pueden ser no consecutivos). Muchas gracias Ejemplo celdas foro.xls

Buenos días, si me pudieran ayudar con el siguiente código que buscando por Internet y tocando yo he llegado ha poder hacer. Les comento, ahora mismo el código me manda solamente el e-mail a los correos que yo le pongo en el modulo, pero no me manda los e-mails de la columna H. La idea es que se ejecute la macro tal como esta pero variando varias cosas que no consigo hacer. Primero, que el envío se produzca a los 30 días antes de la fecha que hay en las columnas F. Luego, que en el e-mail se incluya como archivo excel, la pestaña PLANTILLA. Tambien saber si en mi e-mail que he configurado en el modulo de enviar, hay alguna forma que se incluya la firma que tengo en mi…

hola espero esten bien acudo con ustedes por que son los mejores, tengo un problema con la siguiente macro, esta adjunta, me trae los datos que le pido pero, de la sucursal que solicito necesito que en un nuevo userform aparezcan sol el nombre de las tareas que necesito en el adjunto pongo un ejemplo espero me puedan ayudar de antemano muchas gracias busqueda de datos.rar

Buenas a todos, estoy buscando una Macro que haga lo mismo que "RDBMerge" que me una los datos de distintos libros en uno solo. pero RDBMerge me abre otro libro para darme esos datos y lo que yo quiero es que me salgan en el libro principal. La cosa es que me pille de un directorio todos los excel que tienen la misma tabla con distintos datos y me las liste en un excel pricipal. ¿Se podria hacer? Muchas Gracias por vuestro tiempo. Saludos

Muchas gracias por vuestra ayuda a todos lo que nos estamos iniciando en la creación de macros con VB en excel. En esta ocasión necesito si alguien me puede ayudar con la creación de una Macro que copie un rango variable de la hoja1 a la hoja2 Este es el código que intente hacer, pero no me funciona Public Sub seleccionvariable() Dim fila, columna As Integer Sheets("hoja1").Select Range("a15000").Select Selection.End(xlUp).Select fila = ActiveCell.Row Range("ab1").Select Selection.End(xlToLeft).Select columna = ActiveCell.Column ActiveSheet.Range(Cells(1, 1), Cells(fila, columna)).Select End Sub Rangos variable…

Buenos días, me preguntaba si existe alguna manera de ordenar las filas de datos según los numeros de la columna C de la hoja 2 (de mayor a menor) . he intentado hacerlo de varias maneras pero no me sale ni a tiros, más o menos he localizado donde lo tengo que hacerlo pero... no hay manera Aquí os dejo el archivo Gracias a todos Cálculo.zip

Hola a todos; -Estoy trabajando con dos InputBox y no se sí realmente está bien lo que adjunto. Funcionar si funciona pero desconozco si es del todo ortodoxo o hay otro método mejor. Buen día a todos. 2Input.xlsm

Hola a todos, me gustaría saber si se puede realizar una macros para el ingreso de datos a esta base que subo, me toma mucho tiempo el digitarlos uno a uno sobre todo la hora de inicio y termino de una labor, no entiendo mucho de programación macros pero se me ocurre que algo se puede hacer para Optimizar mi tiempo. Los datos que ingreso son Maquina, Fecha, Turno, Operador, Hora Inicio , Hora Termino, Tipo de Para. Les agradecería me dieran aunque sea una idea de como comenzar esto. Desde ya muchas Gracias!!! Saludos desde Chile Alejandro S. Detenciones 2015.zip

Hola a todos, mi nombre es A.Maurizio Mi problema es este: En una hoja de Excel que comienza desde la celda (A5) a la celda (E5), ingresé algunos elementos para obtener de un sitio web llamado "Immobiliare.it" la posibilidad de conectarse a este sitio y obtener resultados basados en mis deseos de investigación; Y hasta ahora todo bien. Ahora el problema es este: Cuando comienzo mi procedimiento y se abre el sitio correspondiente El código que puse me lleva solo las tres primeras celdas y las coloca en la página web; pero no las dos últimas formas de investigación. Podrías ayudarme a resolver este problema. Gracias Saludos desde A.Maurizio Trasl…

Hola, buenos días. Estoy inmovilizando paneles y ocultando columnas,, el código que adjunto funciona correctamente de acuerdo a los requerimientos, el problema surge después de ejecutarse,, la celda activa al desplazarse queda oculta detrás de los paneles inmovilizados. Saludos Inmovilizar.xlsb

Saludos, tengo un confusión con una macro que necesito que me imprima de acuerdo a un rango seleccionado y esta me imprime solo una hoja. El resultado que busco es que en la Hoja "Recibo de sueldo", tengo una formula de Buscarv, que esta asociada a la Columna AR3, lo que deseo es imprimir de una vez una serie de Recibos colocandolos en la Columna AR, que al imprimir AR3, baje de celda AR4 y así sucesivamente hasta el ultimo dato que le coloque. Cuando le doy para la impresión solo me imprime unicamente lo que esta en AR3 varias vecces. Tengo este código pero no encuentro mi error Sub imprimir() Dim C As Range If [ar3] = "" Then Exit Sub F…