Hola buenas. Busco una Macro, ejemplo que comenzando en la fila 6 elimine las filas desde 6>12 salte 2 filas sin eliminar y continúe eliminado desde las filas 13>14 salte 2 filas sin eliminar y así hasta la fila ejemplo 1.000 O sea eliminar 7 filas saltar 2 sin eliminar y así hasta la 1.000 Saludos….

Muy buen día, tarde, noche. Quisiera me pudieran echar una mano con algo. Resulta que en un reporte que estoy generando de una Base de Datos de Excel, me está repitiendo información. La solución puede ser eliminar la duplicidad, pero quisiera entender cuál es el motivo por el que se me está duplicando la información Este es el archivo: Dropbox - Conta.xlsm Ahí hay un botón que llama al formulario para generar el reporte, donde se debe ingresar la fecha de inicio y fin del reporte (por el momento solo hay información para Diciembre 2015) La cuestión está en unas cuentas, que son la 3401020000 y la 3402020000 No entiendo porqué me repite la información, y específica…

muy buenas tardes a todo el equipo y colegas en excel , se me planteo la siguiende duda, como arrmo dentro de mi codigo guardar ( en hoja1)de un formulario VBA que 2 o 3 txt entre tantos que existen en dicho formulario me los guarde tanbien en las tablas de hoja2, hoja 3 , Hoja4 y por supuesto que no se pisen si ya hay datos . bueno espero se comprenda

Hola tengo un inconveniente necesito realizar una macro que me cambie datos por ejemplo yo necesito revisar unas 1000 planillas con datos pero son muchas entonces necesito lo siguiente. Si la edad del beneficiario que esta en la celda D es menor a 18 que ponga en la celda E que tiene TI o sea tarjeta de identidad si hay otra dato allí diferente a ti que lo cambie si se cumple la condición o sea por ti si es mayor a 18 que ponga CC si es menor de 3 años qu en la celda E ponga RC si es mayor que ponga TI, Por otro lado necesito realizar las misma comparacion pero con otros datos pongo el ejemplo A B C ANDRES MASCUL…

Buenas tardes, tengo el siguiente problema con una macro en visual basic: Tengo unas hojas que al protegerlas le dejo habilitadas la opción de uso de autofiltros. Sin embargo, cuando uso esta función en mi macro con la hoja protegida me sale el error "Se ha producido el error 1004 en tiempo de ejecución: No se puede ejecutar este comando en una hoja protegida. Para usar este comando, desproteja primero la hoja (...). Puede que se le pida una contraseña.". He leído algunos de los foros donde para este problema sugieren que la macro desproteja la hoja, use la funcion de autofiltro y luego vuelva y la proteja. Sin embargo, la particularidad está en que mi libro está comp…

Estimados amigos de este gran foro: Recurro a ustedes para solicitar su ayuda. Tengo un formulario que registra datos a una tabla. MI problema es en el TextBox DESCRIPCION. En el Textbox DESCRIPCION, cada vez que se ingrese un numero por primera vez, este se deberá comparar nuevamente, ingresando el mismo numero (2da vez), pero, en caso que no coincidan, se deberá indicar que es “Error, digite nuevamente”, y se procederá ingresar otra vez los números. Subo el archivo, espero me hayan entendido y si conocen otra alternativa para mejorar el formulario, seria super…, acepto todos los comentarios y sugerencias. Saludos cordiales, Luchito. FORMATO_MODULO_VER2.xls

Hola amigos de AE. Buenas tardes. Tengo un inconveniente con una macro a ver si pueden ayudarme. Les explico 1. La macro del botón insertar fila, copia y pega la fila 5 en la primera celda disponible de la columna A, se van agregando los datos solicitados y se van insertando filas según sea requerido. 2. La macro funciona a la perfección si la fila 5 está en modo MOSTRAR. 3. Pero como la macro justamente va a copiar la fila 5, esta debe estar oculta para que no sea manipulada y se copie tal como está definida. 4. Aquí es donde está el problema. Luego de OCULTAR la fila 5 y ejecutar la macro, NO se copia la fila. Agrad…

Tengo esta macro para que al pisar una celda SOLO del rango B14 a B23, me abra un formulario Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Intersect(Target, Range("B14:B23")) Is Nothing Then If Intersect(ActiveCell, Range("B14:B23")) Is Nothing Then 'Target.Range ("B14") BUSQ_FACT.optProEntr.Visible = False BUSQ_FACT.optProEntr.value = True BUSQ_FACT.Show End If 'If Target.Column = 2 Then BUSQ_FACT.Show End Sub[/CODE] Soy muy malo en estas cosas de macros y otros He usado otras lineas de codigo pero algunas me funcionan mal, otras no me funciona y otra funciona pero cierro el form y se vuelve a abrir solo, y lo repite una y otra …

Estimados amigos con la ayuda de ustedes pude hacer una macro con BUSCARV como se detalla: 'En un Módulo: Sub Buscarv() ActiveCell = Application.VLookup(ActiveCell.Offset(, -1), Sheets("Hoja1").Range("A1:B15"), 2, False) End Sub 'En la hoja activa Private Sub Worksheet_Change(ByVal Target As Range) Celda = "A:A" If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then ActiveCell.Offset(-1, 1).Select Call Buscarv End If End Sub En la hoja1 tengo la lista donde se extrae los datos y en la hoja2 en la celda coloco un nombre y me devuelve su equivalente de la tabla. Esto me funciona a la perfección cuando se ingresa nombre por nombre, pero ahora estoy …

Buenos dias tengo la sigueinte macro que me pone ingreso y no ingreso en la celda G de mi archivo lo que necesito es que solo se ejecute cuando enecuentre campos en la celda si no encuentra datos pare. Sub VALIDA_CAMPO_ULTIMO_ACCESO() Dim UltiFila, i As Integer UltiFila = WorksheetFunction.CountA(Range("A12:H30000")) For i = 12 To UltiFila If Cells(i, "G") <> "Nunca" Then Cells(i, "G") = "Ingreso" Else Cells(i, "G") = "No ingreso" End If If Cells(i, "H") = "-" Then Cells(i, "G") = "No Ingreso" End If Next End Sub Gracias por su ayuda

buenas tardes necesito de su ayuda nueva mente esta vez y ya me cicle le comento el porque, utilizando el grabador de macros realice una macro pero al momento de utilizar el bucle for esta me pone la misma formula en todas las hojas y esto es debido a que no me cambia las hojas conforme el bucle va cambiando de hoja, la función es la siguiente Range("L21").Select ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2],'B1 (1) '!RC[-2],'B2 (1)'!RC[-2])" Range("L22").Select esto es para sacar un promedio de dos hojas anteriores, pero esta formula iniciaria a correr a partir de la hoja tres, ojala y me pudieran orientar de como poder resolver esto. de antemano muchas gracias

Hola a todos, les comento que no soy un experto en macros, el archivo que les adjunto lo baje de este porta y me parecio muy bueno, solo quisiera saber como hago para una suma total de la columna Dias dejando una fila en blanco, con un rotulo "[ATTACH]36581.vB[/ATTACH]" y que quede similar a la imagen que les adjunto. Espero que me puedan ayudar, muchas gracias. Gracias ARAM9 Datos.xls

Saludos investigando he encontrado macro para crear archivosm nuevos con las hojas de un libro, lo que deseo es crear solamante hojas seleccionadas por ejem si un crchivo tiene 10 hojas, necesito solamente crear las Hoja 1, Hoja 7, Hoja 4 Gracias

Hola, me gustaría saber como es el comando de VBA para seleccionar todas las celdas de una hoja que contengan una palabra concreta. Lo necesito con VBA para luego enlazarlo con otra cosa. Sé hacerlo con la funcionalidad de Buscar; Buscar todas. Gracias.

Hola buen día a todos, Quisiera automatizar una serie de tablas las cuales tienen un nombre y un costo$, la idea es clasificar de mayor a menor TOTAL$ en una o unas tablas automáticas dependiendo del nombre, en este caso carros. Son 4 tablas(3 de costos y una de recompensa la cual se debe restar a esa de 3 costos para que dé el total). Gracias de Antemano Libro.xls

Hola, Tengo el siguiente código para copiar varias hojas y pegarlas a otro libro, el libro Peajes tiene 58 hojas y quiero copiar todas la hojas en el libro Peajes Nuevos, con el nombre de hoja igualito. Pero no se como hacer lo que quiero en forma dinámica que me cree las hojas con el nombre y que me copie la información. En el List Box esta el nombre de la hoja. Mi libro peajes lo estoy bajando de esta pagina Portal INVÍAS - Colombia se llama Listado Tarifas peajes [/hr]With Workbooks("Peajes.xls") For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then With .Sheets(ListBox1.List(i)) .Range("A2:J" & .[…

aludos a todos, espero me puedan ayudar en este simple loop q quiero hacer. Les explico... en base a los datos plasmados en una tabla de excel debe de ocurrir un evento, que en mi caso es la apertura de un documento en una ruta y el copiado de sus datos al excel inicial. La tabla es la siguiente: Id Nombre Inicial Check Status Accion 1 KARLA HAVA KH FALSO En espera 2 CARMELO SCIARRA CS VERDADERO Respaldar 3 JOSE COLINA JC VERDADERO Respaldar y este es el codigo del macro Do While i <> 5 '<= cambiar este valor a 18! y la ruta debajo i = i + 1 Select Case Range("H" & (i + 12)).Value <= le sumo 12 a i porquer el valor se encuentra en la celda H13-14…

NECESITO AYUDA CON RESPECTO A HIPERVINCULOS EJEMPLO TENGO UNA LISTA EN UN EXCEL : 1 A 2 B 3 C 4 D 5 INFINITO Y UNA RUTA DE ARCHIVOS \\192.168.1.201\HOLA\LETRAS\ DONDE ESTAN LOS EXCEL A , B ,C , D , INFINITO CON EL MISMO NOMBRE DE LAS CELDAS , son archivos distintos. QUISIERA QUE MI LISTA(MIS CELDAS 1 A, 2 B, ....) RUTEEN A ESOS ARCHIVOS QUE TENGAN SU NOMBRE , YA QUE AL HACER CLICK EN 1 A ME HABRA EL EXCEL DE LA CARPETA \\192.168.1.201\HOLA\LETRAS\A1.XLS Y ASI LOS DEMAS = CON SU RESPECTIVO NOMBRE. GRACIAS ES ALGO DE VIDA O MUERTE GRACIAS

Estimados tengo problema para copiar de un ingreso de datos que hago por un useform, el cual ingresa informacion a una hoja (hoja1), posterior a eso dentro del mismo CommandButton1_Click() necesito que me copie alguna información de las ya ingresada a unas celdas de otra hoja para hacer un pequeño informe para poder imprimir y adjuntar en pdf el cual funciona, pero no me copia los datos que necesito estimados les agradeceria mucho su ayuda.- Inventario.rar Inventario.rar

Buen día Foro, Master Antoni para molestarlo nuevamente estoy modificando el formulario Buscar editar que es el mismo de Ingresar Datos, solo que le cambie el nombre a Buscar editar http://www.mediafire.com/file/qmcudvobtdnzxw7/ENVIAR_Haplox_Parte2.rar/file Estoy cargando en ListBox4 los datos guardados en la Hoja BASEDATOS, pero NO consigo cargar solo los datos de 1 solo cliente, me carga todos los clientes Deseo es cargar 1 solo cliente del ListBox2 (al hacer doble clic en listbox2) al Listbox4 para modificar los productos que se le cargaron al dicho cliente (solo que me traiga y me deje modificar los productos que tiene grabados ) https…

Buenas comunidad AyudaExcel Acá tengo este archivo de Macro Antonio, consiste en un buscador tipo Google , pero a la hora que quiero cambiar uno de los encabezados que abarcan el rango: B1:R1 , no se refleja en el Combobox. Es decir al cambiar el encabezado de la columna B "Cliente" por "Colaborador" en el ComboBox despegable sigue con la opción "Cliente" . Como puedo cambiar eso ? Gracias de antemano! Buscador tipo Google III.xls

Hola compañeros, Me preguntaba si existía la manera de modificar el tema de la cinta de opciones para que aparezca en color negro (u otro color) utilizando código VBA. Adjunto imagen para mayor aclaración... Ya sé que se puede realizar simplemente haciendo click desde "Archivo > Cuenta > Tema de Office..." Pero me preguntaba si se podía realizar desde el código VBA con algún método del objeto "Application" o algo así. La grabadora de macros además, no graba esta opción. Gracias por cualquier tipo de aporte. Un saludo.

Me explico: Tengo un archivo llamado DUPLICAR (el cual adjunto y que MacroAntonio de este foro me ayudo a perfeccionar) Este archivo tiene las hojas ALUMNO, EXPIRACION, TAREA1, TAREA2. Al ejecutarse la macro REPLICA esta toma el listado de alumnos y crea un archivo de excel con macros para cada uno de ellos: TAREAcARLOS.xlsm, TAREAANA.xlsm, TAREAJUAN.xlsm En el archivo DUPLICAR tengo un modulo llamado MACROSVARIAS que se pegan automaticamente en cada uno de los archivos TAREAcARLOS.xlsm, TAREAANA.xlsm, TAREAJUAN.xlsm en THISWORKBOOK, los cuales como comento he ido pegando poco a poco con la información en la web y con la ayuda de MacroAntonio de este foro. Lo que qui…

hola tengo el pequeño dilema estoy trabajando en una planilla de encuesta y me faltan algunos comando que no se como realizarlos espero me ayudes se los enumero tengo un botón resetear y enviar pero no resetea los campos de texto de control de formulario al copiar copia en la misma celda y no va bajando según se copia solo me falta esos puntos para poder terminar mi trabajo ¿me pueden ayudar por favor? encuestas.rar

Buenas noches Estimados, llevo ya tiempo tratando de hacer esto y necesito que me den una mano el siguiente codigo me busca un archivo en windows mi problema es q necesito que lo guarde, no se cual es la propiedad para guardar cuando cierre mi formulario. Private Sub cmdGetFile_Click() Dim fd As FileDialog Dim ffs As FileDialogFilters Set fd = Application.FileDialog(msoFileDialogOpen) With fd Set ffs = .Filters With ffs .clear .add "Pictures", "*.jpg" End With .AllowMultiSelect = False If .show = False Then Exit Sub Image1.Picture = .SelectedItems(1) End With Exit Sub End Sub Gracias por la ayuda Prueba.zip