BUENOS DÍAS AMIGOS, NUEVAMENTE NECESITO DE SU AYUDA. QUISIERA QUE AL EJECUTAR EL MACRO IMPRIMIR ME SALTE LOS REGISTROS DUPLICADOS Y SE IMPRIMA EL SIGUIENTE NUMERO DE REGISTRO POR QUE EL MACRO QUE TENGO IMPRIME LOS REGISTRO SIGUIENTE DE LA TABLA ADJUNTA, Y NO PUEDO BORRAR LOS DUPLICADOS POR QUE TIENE FORMULA DE CONCATENAR PARA QUE ME LLAME EN LA PLANILLA CENTRAL, Y QUE LOS QUE TENGAN EL MISMO NUMERO DE REGISTRO LOS COMBINE Y CAMBIE UN COLOR DIFERENTE PARA IDENTIFICARLOS LA COLUMNA " B " QUE SALTE LOS REGISTROS DUPLICADOS E IMPRIMA EL SIGUIENTE REGISTRO LA COLUMNA " A " QUE COMBINE LOS DUPLICADOS, Y CAMBIE DE COLOR POR CADA REGISTRO 2.- MACROS.rar

Hola de nuevo a todos tengo una pregunta de lo mas tonta, pero no eh dado con la respuesta. Tengo una macro dentro de la cual me hace la resta de una celda y de ahi divide ese resultado entre 10, el resultado es mostrado en %(porcentaje) si hago esta operacion manualmente cuando me posiciono en la celda donde tengo la formula me muestra en la barra de formulas asi =4/10 siendo que la celda me muestra 40%, la macro me hace la operacion automaticamente pero al posicionarme en esta celda solo me aparece en la barra de formulas el 40%, existe alguna forma de hacer que me aparezca como algo asi =4/10, ya copie el formato y lo grabe en la macro pero nada no resulta. Gracias. …

Ola que tal disculpen por la molestia, tengo un inconveniente con unos códigos para lograr insertar al FromUser, para un buscador y filtrador en el Textbox, espero que me brinden su ideas, gracias!! Ante mano les agradezco mucho por su atención. Buscadores.rar

Estimados, Estoy personalizando un libro excel con una serie de botones opciones dispuesto en la cinta de opciones. Sub Add_Toolbar2() Dim TlBar As CommandBar Dim BarBtn As CommandBarButton Set TlBar = Application.CommandBars.Add(, , , True) With TlBar .name = "DupreeTasks" .Position = msoBarTop .Visible = True .Protection = msoBarNoChangeVisible + msoBarNoCustomize End With Set BarBtn = TlBar.Controls.Add(msoControlButton) With BarBtn 'ADDED HERE!! .BeginGroup = True .Caption = "Tom" .OnAction = "Open_Tom" .Style = msoButtonCaption End With Se…

Sería posible mostrar todos los formularios de un libro en un listbox ? a ver si alguien me ilumina porque estoy totalmente nublado. Gracias

Hola Amigos del Foro Como siempre agradezco de antemano la ayuda que puedan darme para una adecuación que estoy tratando de realizar a un archivo Tengo 2 Archivos llamado Filtro Archivo (Archivo 1) y Mayor (Archivo 2) En el Archivo Filtro Archivo (Archivo 1) , tengo 3 hojas a.- Hoja Profit allí tengo la data de la información Resumen adecuada en 5 Columnas CODIGO FECHA REF DESCRIPCION SALDO b.-Hoja Cuenta Esta hoja posee las cuentas contables en las 2 Columnas CODIGO CUENTA …

Buenas tardes amigos, los felicito x tan excelente foro. Necesito con caracter de urgencia la ayuda de ustedes, requiero una macro que se ejecute de acuerdo a algunas condiciones, en un rango de celdas si agrego en una celda la letra P se ejecute la macro 1, si escribo una letra R en cualquier celda del rango, se ejecute la macro 2, y si escribo una I, se ejecute la macro 3. Muchas gracias de ante mano.

Hola estimados, nuevamente solicitando su ayuda. En este archivo quiero implementar una búsqueda inteligente en un ListBox (Fact1) aplicando entre dos rangos de fechas usando dos TextBox (Fech_InicioFact y Fech_FinalFact), con 2 condiciones; que sean de clase de Documento (DF) y que el Comité no sea Vigente. La busqueda inteligente o normal debe efectuarse al hacer Enter en el segundo TextBox (Fech_FinalFact) Para activar el formulario hay que hacer lo siguiente: Seleccionar celda A4("Cuenta") de la hoja Resumen Cart-Cli para activar UserForm1. Después haciendo click en cualquiera de las celdas de Cuenta en la columna (“A5:A57”) cargar de registros al UserF…

Saludos a todos, solicitando su apoyo y/o ayuda para modificar la macro que tengo en el archivo de ejemplo que adjunto, lo que que trato hacer en la hoja Datos columna A tengo varios ID, si coinciden con los ID_2 columna L, copia los datos a la columna F?:I? según ID, hasta ahí funciona bien la macro, el problema es cuando en los ID_2 no existen en la columna A (ID), no se como agregar esa parte del código a la macro para que inserte la fila y acomode los datos. Los ID de la columna A están ordenados. La cantidad de datos es variable. Agradezco de antemano sus comentarios y/o ayuda. Saludos Ejemplo.xlsm

Buenas tardes amigos, El día de hoy les vengo pidiendo su total apoyo para con este archivo, el cual es un un Layout para importación de datos en excell a texto para realizar pagos masivos de convenio CIE, solo que tengo un pequeño problema probablemente es porque ya me bloquee. Anexo mi documento. Saludos y mil gracias por leerme. Layout CIE.xlsm

Hola.. a Todos, Me podrian Colaborar Con este Codigo por Favor.. Estaria Muy Agradecido por que no he podido Realizarlo y lo he intentado Tengo este codigo ancho = Int(.Range("A1").Width + 5) & ";" & Int(.Range("B1").Width + 40) & ";" & _ Int(.Range("C1").Width + 30) & ";" & Int(.Range("D1").Width + 20) & ";" & _ Int(.Range("E1").Width + 20) & ";" & Int(.Range("F1").Width + 30) & ";" & _ Int(.Range("G1").Width + 10) & ";" & Int(.Range("H1").Width + 30) & ";" & _ Int(.Range("I1").Width + 75) & ";" & Int(.Range("J1").Width - 40) & ";" & _ Int(.Range("k1").Width + 3)Com alinear la colum…

Buenas noches Tengo el siguiente código que muy amablemente me ayudaron Sub Nuevokardexclte() Sheets("A1").Select Sheets("A1").Copy before:=Sheets(7) For Each Sh In Sheets If InStr(1, Sh.Name, Range("B1")) > 0 Then 'se busca el guión bajo porque no sabemos cuántos índices puede llegar a tener For i = Len(Sh.Name) To 1 Step -1 If Mid(Sh.Name, i, 1) = "-" Then indi = Right(Sh.Name, Len(Sh.Name) - i) + 1 nvonbre = Left(Sh.Name, i) & indi ActiveSheet.Name = nvonbre Exit For End If Next i 'si i = 1 es que no encontró el guión If i = 0 Then nvonbre = Range(…

hola...mi gran agradecimiento a este foro ..hace unos dias recibi solucion a un tema y en esta ocasion los molesto con lo siguiente..necesito que me orienten a encontrar una macro que me valide 3 textbox y que en un listbox me envie el resultado de la busqueda que los llamaria desde una celda en la cual ya le he puesto la funcion SI.ERROR(BUSCARV..subo un ejemplo para que se den una idea. Desde ya muchas gracias validar textbox.xls

Tengo un libro excel que cuenta con 31 hojas (días del mes) y una hoja resumen, he creado una macro para que en la hoja resumen me coloque el total de movimiento de un producto o servicio de todo el mes. pero no se por que motivo no me suma bien por dia el producto ej: dia 1 Dia 2 Resumen (así tiene que quedar) programación $200 programación $100 programación $550 Programación $250 reloj $200 Reloj $350 Reloj $150 No se que estoy haciendo mal, tener en cuanta que la macro es par 31 días. Le agradecería una solu…

Que tal, Pues estoy creando una macro que busque informacion especifica sobre ciertos #Item, en otro libro, dado que cada #Item es una hoja especifica. hasta ahorita e llegado a esto, sin embargo, al momento de correr la macro no sucede absolutamente nada, espero me puedan apoyar en identificar el inconveniente, o si tienen alguna recomendacion sobre el codigo; aqui la macro: Sub RoundedRectangle2_Click() ' ' Keyboard Shortcut: Ctrl+m ' 'Declaracion de variables a utilizar Dim Var, Cef, Sabana, Vi As String 'Escribir variables con una mayuscula para detectar errores Dim V7, V8, V9, V10, V11, V12, V13, V14, V15, V16, V17 As String Dim Prueba As Worksheet Applicat…

tengo el siguiente problema quiero buscar un código en una hoja de excel en formulario el codigo para buscarlo no tiene ningun problema el problema es cuando la refrencia no esta me saca un error en vez de un menaje espero me puedan ayudar EF = REFERENCIA.Value BUSCAR = Cells.Find(What:=REF, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate If BUSCAR Is Nothing Then A = MsgBox("REFRENCIA NO ENCONTRADA") End If BRELOJ.Hide[/CODE]

Buenas a todos, luego de haber googleado mucho me he rendido y vengo a molestarlos pidiendo ayuda de sus conocimientos. Viendo videos y adaptando lo visto a mi trabajo he logrado crear el formulario tal como lo deseo, pero en los videos que he visto se les ha pasado programar que los botones de siguiente y anterior funcionen luego de usar el boton buscar. Me explico, si se esta en el primer registro y le da al boton siguiente no hay problema, o en el ultimo yluego darle hacia atrás, el problema esta cuando uno busca una referencia y luego quiere usar estos botones, ahí no funcionan y el de siguiente tira el 2do registro y el anterior igual, no continuan de la f…

Buenas tardes chic@s; Tengo una macro que pone diferentes fórmulas en varias hojas diferentes y para poder ponerlas tengo que antes seleccionar la hoja donde quiero que se ponga. Hay alguna forma de poner la fórmula en la hoja que necesite sin antes seleccionar/activar dicha hoja??. Las fórmulas las pongo de la siguiente forma: Worksheets("Hoja2").Range("A2:A30").FormulaR1C1= "aquí la fórmula" Pd: ahora mismo no tengo aquí el Excel, estoy escribiendo desde el móvil, si es necesario mañana le adjunto. Muchísimas gracias.

Hola amigos me veo en la necesidad de actualizar o guardar muchas veces un libro compartido en Excel debido a las limitaciones de libro compartido en Excel, por el método Thisworkboo.Save. ¿Puede ser perjudicial guardar muchas veces?¿Se puede corromper el libro de trabajo más fácilmente? Gracias por la atención.

Buenas a todos, Tengo un Excel con unos datos de clientes y los estoy combinando por campos con una plantilla echa en Word. Lo que necesito es una forma automática de crear todos los registros del WORD que provienen del EXCEL a varios PDF. El resultado de todos los PDF que salgan con un nombre especifico de alguna columna del EXCEL. Esto se podría... El proceso en Word que hago para combinar. Correspondencia / Seleccionar destinatarios / Usar lista existente / Selecciono el Excel y la pagina. / Insertar campo combinado. El ejemplo lo pongo en .zip Un saludo Estoy utilizando El Microsoft Office 2010. ejemplo.zip

Buenas Tardes amigos: De nuevo aqui con mis dudas, requiero de sus ayudas nuevamente. Tengo un formulario en el cual en el userform3, hay un botón, que indica "Insertar RUC", cuando le doy click me manda a otra pantalla que dice "Buscar RUC" e "Ingresar Manualmente". Cuando le doy a Buscar RUC, quiero que me ayude a hacer un buscarv de la hoja "Base de Datos", o sea cuando escriba el RUC, que en los label43 y label53: RUC y Razón Social, en el userform3, me aparezca el RUC que se ingresó y la respectiva razón social, encontrada con el buscarv. Y viceversa o sea que cuando escriba la razón social, me busque el RUC y lo mande a los label43 y 53 del Userform3. Cuando …

Buen dia . que pena por la molestia, tengo un examen que aleatoriamente envia al usuario 3 respuestas y le muestra el resultado indicando cuales fueron las erradas y cuanto resultado obtuvo con las respuestas acertadas.. Queria saber si es posible incursionar en este mundo de excel y macros, ya que requiero 4 posibles respuestas pero que me realize la misma operacion. muchisimas gracias subo el archivo a tener en cuenta .. Me muestra las cuatro lo ultimo que intente pero no me califica las que acertadas Examen III(1).xls Examen III.xls

hola buenas tardes pues la verdad soy nuevo en el foro no soy muy experto tengo poco conocimiento asi que voy agradecer muchisimo de antemano su ayuda adjunto un ejemplo del problema que tengo y no encontrado solucion es una archivo para una parroquia muchas gracias trato de generar rango de folios a partir de variable ejemplo 1.xls ejemplo_rango.xls

Abrir un Libro2 al rellenar una celda en Libro1 Hola a todos Tengo un Libro_1, en la celda A1 tengo la ruta del libro que quiero abrir, es variable (libro2......), y quiero que se abra al rellenar la celda A2, tengo claro que esto se hace con una macro y tengo algunas ideas al respecto, pero no me funcionaron, alguien me podría pasar un código. gracias anticipadas y salud_2

Buenos días a todos los expertos: Siguiendo las indicaciones de Macro Antonio he encontrado esta macro a través del google, pero mis conocimientos no llegan a entedender como adaptarla a mis necesidades. La macro es esta: Public Function sendEmail(ByVal senderAddress As String, _ ByVal destinataryAddress As String, _ Optional ByVal subject As String = "", _ Optional ByVal body As String = "", _ Optional ByVal CC As String = "", _ Optional ByVal BCC As String = "", _ Optional ByVal…