Hola buenas tardes: Tengo una hoja con una lista extensa de columnas utilizados. tengo que trabajar con ellas de manera individual cada uno tiene un numero de consecutivo en la fila 3 y este es mi guía para este y otros archivos. manualmente estoy recorriendo mi plantilla de columna en la columna en la que voy a trabajar y aveces es confuso. no se si exista una manera en la que pueda seleccionar o indicar que columna utilizare en base a la fila 3 y lo demás se oculten todo esto dentro de un rango ejemplo. de A hasta la L. Que busque dentro de la fila 4 el numero (3) que yo indique en una venta o algo. y si lo encuentra deberá dejar visible esa columna y o…

tengo esta macro y lo único que necesito es que una celda se desbloquee SÓLO cuando en esa misma celda apareza lo siguiente "Ingrese la Agencia" este texto aparece debido a que en dicha celda hay una fórmula que consiste en un buscar y si consigue error coloca "Ingrese la Agencia" entonces hasta ahora llevo lo siguiente, el problema ela macro que realicé, excel no la reconoce automáticamente es decir cuando cambio en la celda b12 aparece "ingrese la agencia" no se desbloquea la celda b12 esto es lo que tengo por favor espero su ayuda urgente muchas gracias! la primera macro la tengo ubicada en el objeto hoja presupuesto no se si debe estar allí o en el módulo tampoco se…

Tengo una duda, tengo el UserForm con búsqueda en rol solamente, como puedo hacer la búsqueda con los demás parámetros que tengo , y ver si la búsqueda de cada parámetro se puede enlazar al mismo tiempo y hacer una búsqueda en , adjunto excel. PRUEBA 1.xlsm

Hola a todos: ¿como podría concatenar la columna C y D de la siguiente macro de la cual su autor es Antoni, y que me la pegue en la hoja2 columna D? Muchas gracias por su tiempo y su apoyo. Bendiciones. Sub Copiar() Application.ScreenUpdating = False Set H1 = Sheets("ORIGEN") Set H2 = Sheets("DESTINO") H2.Range("A1:Z50000").ClearContents H2.Range("A1:Z50000").ClearFormats fila = H2.Range("A" & Rows.Count).End(xlUp).Row '+ 1 'Range("A" & fila) = "Albaranes" fila = fila '+ 1 ufila = H1.Range("A" & Rows.Count).End(xlUp).Row H1.Range("B1:B" & ufila).Copy: H2.Range("A" & fila).PasteSpecial 'xlValues …

Hola a tod@s, Soy muy novato. No veo el error en el código adjunto. ¿ Cual es ? Saludos cordiales.

Estimados, recurro a ustedes para su apoyo. Se tiene información donde se desea insertar 2 filas después de cada registro existente y que en estas filas creadas se copie casi la misma de la linea anterior; asimismo, en algunas celdas se necesita aplicar formulas para hallar nuevos importes para cada linea creada la cual esta en función al importe de la linea anterior. mayor detalle dejo en el archivo adjunto. De antemano agradecer el apoyo brindado. Saludos, Archivo.rar

Buenos díasEstoy trabajando en un libro el cual consta de 3 hojas.- Info desplegables: es la hoja auxiliar donde coloco los datos para desplegables y otros datos necesarios- Planing: es la hoja donde determino el trimestre que voy a trabajar y es donde se va reflejar la información que se plasme en la hoja "info dic-ene-feb"- Info dic-ene-feb: en esta hoja ingreso la información requerida. En esta hoja las columnas J y K se obtienen de cálculos auxiliares. Me sirven para determinar si la reserva es un ingreso del trimestre anterior o en su defecto la salida del huésped es en el trimestre que sigue. Para que la macro me funcione, realice cálculos auxiliares para determinar…

Buen dia para todos los moderadores y todos los que deseamos aprender de este humilde foro, mi inquietud es la siguiente, tengo algunos comentarios en el formulario: 1 - Buscar la ruta de los libros y cargar el listbox.(001-2013.xls) 2 - Seleccionar los libros que se copiaran los valores en el libro seleccionado. (001-2013.xls) 3 - Copiar los valores del libro seleccionado. No se si estare bien explicado en base a las normas. slds, Fernando 006-2013.xls ORDIMPORTAR.xls

Hola amigos. nuevamente pidiendo ayuda, tengo una base de datos en excel que cuenta con dos pestañas uno que se llama base y otra hoja que se llama filtro. lo que estoy tratando de hacer en VBA es que cuando seleccione en la hoja de filtro uno o varios registros con viñeta (como lo muestra en el archivo excel hoja filto columna I) en automatico se guarde con otra viñeta en la hoja de base, el mismo registro que seleccione en la hoja filtro que en automatico se guarde adjunto el archivo para ver si es posible que me puedan orientar de como puedo hacer esa macro. gracias por su apoyo!!! base de datos2.xls

Hola a todos y todas; -A ver si me podéis echar un cable. Estoy intentado pasar el nombre del formulario por parámetro a un procedimiento que tengo en un módulo y me genera error y no sé porque. Si la macro la ejecuto desde la subrutina del formulario va bien en cambio desde el módulo no va y no sé porque. Sub EnviarHojaActiva(vForm As UserForm) 'Sub EnviarHojaActiva(UserForm1 As UserForm) <---Tampoco va Dim RutaTemporal As String, NombreArchivo As String Application.ScreenUpdating = False Application.DisplayAlerts = False NombreArchivo = ActiveSheet.Name RutaTemporal = VBA.Environ("temp") & "\" NombreArchivo = RutaTemporal & NombreArchivo …

amm alguien me podria ayudar para hacer una macro que me ayude a identificar las preguntas de un cuestionario que no estan contestadas y para que las responda automaticamente , las respuestas ya son fijas GRACIAS SALUDOS

Hola a todos! Quisiera me ayudaran por favor con la ejecución de una macro . Me funciona perfecta pero necesito saber como hago para que solo me guarde la hoja que necesito, en si, la hoja 10 pero me guarda los nuevos libros con todas las hojas. Sub control2558() Application.ScreenUpdating = False Dim I As Integer I = 4 While Hoja10.Cells(I, 102) <> "" Hoja10.Cells(6, 82) = Hoja10.Cells(I, 102) Hoja10.Select Dim NombreArchivo, RutaArchivo As String NombreArchivo = "Hoja Control " & Hoja10.Cells(I, 102) RutaArchivo = ActiveWorkbook.Path & "\" &a…

Buenas tardes a todos, espero tengan un muy buen día, les quiero hacer una consulta por que no tengo tantos conocimientos en cuanto a código vba, es la siguiente, en el archivo que les adjunto en la primera hora tengo un concentrado de información una base, y en la hoja 2 deseo "filtrar" y copiar determinado "código" pero como lo notaran hay valores duplicados y deseo que todos estos valores de esa clave se pasen a la hoja dos y al ingresar otro valor de "código" estas nuevas filas se coloquen por debajo de los registros previos del código antes puesto a modo de que al final si meto por ejemplo 10 números de código formen una lista con todos esos códigos uno debajo del ot…

Buen día Señores del Foro Estoy utilizando la formula =CONTAR.SI($D:$D;D716)=1, de tal manera a evitar duplicidad de Datos, me funciona cuando quiero ingresar manualmente, pero tengo un CommandButton1 (GRABAR), en la misma hoja, que es para grabar nuevos registros, y la formula no controla en ese caso la duplicidad de Datos, me gustaría se a través de macro o formula que sea controlada la duplicidad.. mismo que se quiera introducir Datos manualmente o a través del Botón Grabar, particularmente los Datos de la columna "D" .. que no deben repetirse.. Adjunto Planilla Evitar Duplicacion.xlsm

Buenas noches, estoy intentando crear una macro que haga lo siguiente: Tengo 3 grupos de celdas. Lo que quiero hacer es que al seleccionar celdas de uno de los tres grupos, copie los valores de las celdas seleccionadas y los pegue en la Hoja2 de forma ordenada y que además reconozca de qué grupo es y pegue el grupo al que pertenece en la cuarta celda de la fila que copia. El caso es que al ejecutarlo con el primer grupo funciona perfectamente, salvo que en la fila D donde quiero que me pegue el grupo, me sobreescribe los valores de grupo. Este es el código: Sub Macro3() Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 2)).Select Selection.Copy Workbooks.Op…

Buenas noches, tengo un problema es el siguiente Estando en vista normal y empiezo a actualizar la información de mi hoja seleccionando una opción de un combobox, esta se actualiza de forma rápida, pero cuando cambio a vista diseño de página y quiero seleccionar otra opción de mi combobox, la macro se vuelve lente, a qué podría deberse eso y que puedo hacer para que sea más rápido. Gracias

Hola a todos, tengo una macro que saque de otro foro y cuyo autor es Logroastur@2012, yo modifique mi archivo para que funcione, pero necesito cambiar la macro para adaptarla a mis necesidades, basicamente es un buscador que contiene 3 optionbutton que son los que deseo modificar para que al seleccionar el tipo de busqueda lo haga de acuerdo a la opcion elegida, claro esta que por la falta de conocimiento no puedo hacerla, asi es que recurro a ustedes para ver que solucion me pueden brindar, gracias. se podra poner un boton de borrar en lugar de elegir del desplegable para que lo haga? Buscar - copia.rar

hola he creado un formulario para añadir registros, modificar, eliminar, buscar etc. el problema lo tengo en el boton busqueda que el dato que necesito que busque es la fecha y sale un mensaje 380. podeis por favor ayudarme en donde tengo que modificar y que poner? adjunto fichero. gracias. Partes de Trabajo.xlsm

Saludos cordiales, apreciados foreros les presento un archivo, en este tengo un formulario donde tengo una base de datos de todos los trabajadores, al buscar el trabajador requiero me traiga tres imagenes, que son la foto de perfil, dni y el dorso. Estas son las rutas: C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\FOTOS C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\dni C:\Users\User\Documents\Mis archivos de origen de datos\EMPLEADOS\dorso ... pero cuando le doy a buscar el codigo del trabajador ejemplo el 10, me carga la informacion que requiero excepto las imagenes. si pudieran por favor ver donde esta mi …

Buenas tardes a los miembros de este foro, en esta ocasión vengo a solicitarle su ayuda con este archivo la cual podría ser alguna formula o una macro, lo que se pretende es lo siguiente: * insertar 2 filas después de cada nombre que se encuentran en la Columna C y si existe 1 solo nombre que no se efectué anda. * sumar todos los valores de color fuente que se encuentran como indicador en la Fila C100, C101 y C102, desde la celda K hasta AH y AJ hasta AP. Dentro del archivo que adjunto hay una hoja con el nombre RESULTADO la cual deberá quedar así. A la espera de su siempre colaboración quedo agradecido. CONSOLIDADO DIFERENCIAL 29-11-15.rar

Hola quisiera saber como hago para mandar emails con archivo adjunto a una lista de email que tengo en una hoja de Excel. Muchas gracias.

Hola de antemano muchas gracias por tu ayuda, estoy que me rompo la cabeza tratando de realizar el siguiente macros: En una hoja llamada "registro" tengo todos los datos, en la columna b (turno), columna c (fecha), columna d(cota1), columna e (volumen1), columna f (cota2) y columna g (volumen2), como son varios datos quiero que estos al momento de poner un dtpicker inicial y un dtpicker final, solamente se extraigan los datos comprendidos en dichas fechas y que se almacenen en otra hoja llamada (Registro). A su vez tengo dos turnos A y B, en los cuales se colocan diferentes datos por ejemplo: Turno Fecha Cota 1 Volumen1 cota2 VOlumen2 A 01/01/01 1000 300 2345 10…

Buenos Días, por favor necesito un ayuda, necesito bajar archivos generados en un servidor, actualmente tengo un ejecutable .bat pero necesito pasar ese código a excel ya que la idea es poder generar una macro para que me organice la información pero eso ultimo lo hago, no he logrado pasar los códigos de los .bat a excel, gracias si alguna persona me puede ayudar, anexo los archivos que actualmente utilizo. ftp.zip

hola expertos como puedo resaltar las celdas que van de "ah: by" tomando el código instalado en el libro gracias AnalisisCifras.xlsm

Hola a todos, he puesto un control de errores en un procedimiento y se duplica el mensaje de error dos veces y no se porqué lo hace. El procedimiento es este: Sub InsertarTabla() On Error GoTo Etiqueta Dim nTabla As String nTabla = ActiveSheet.ListObjects(1).Name ActiveSheet.Range(nTabla & "[#All]").Select Selection.Copy Etiqueta: If Err.Number = 0 Then 'Correcto ElseIf Err.Number = 9 Then 'No sé porque repite dos veces el mensaje, si no hay ninguna tabla debe destildar el check MsgBox "No hay ninguna tabla, operación cancelada", vbCritical, "Mensaje" UserForm1.CheckBox1.Value = False '---> Si comen…