que tal buenas noches deseo indicar en un textbox el numero de copias que deseo imprimir ejemplo si pongo 1 se imprima una vez si escribo 2 o 3 mismas veces se imprima adjunto archivo donde se encuentra el userform de antemano les agradesco CONTEO.xls

Beunas noches. Tengo un formulario en el cual llevo trabajando algunos días, bueno bastantes. Lo que pasa es que tengo una macro que guarda los datos del formulario a una hoja de excel, pero al darle clic en registrar me sale un error "Se a producido el error 13 en tiempo de ejecucion, No coiciden los tipos" Si alguien pudiese revisar mi archivo para decirme en que estoy mal. Se los agradezco.

Buenas tardes. Recuro a ustedes nuevamente, por que no puedo lograr hacer una simple suma de textbox que tienen formato de moneda, lo que quiero hacer es como un corte de caja, donde yo el numero de monedas y billetes y que me aparezca en otro texbox el total de cada moneda, y despues sumar los totales de los textbox de monedas y billtes. Ya tengo una idea pero la verdad no me funciona. El problema es que la macro funciona si meto los numero manuales, no funciona si los numeros me los da ya sumados. Espero me haga entender, o por sino, les dejo mi archivo. Si alguien desea ayudarme a resolver esta duda, que no encuentro yo la solucion. Gracias. Corte Caja.zip

Hola a todos Estoy buscando la forma de hacer un grafico sobre el cual al mover con el mouse una linea de un punto x' a otro punto x'', el resto del grafico se autoregenere basado en una ecuacion que lo respalde. Para hacer una ilustracion grafica de lo que busco, tomemos como ejemplo google.maps, cuando nos traza la ruta de un sitio a otro, y tiene varias alternativas, si tu con el mouse desplazas la linea hasta un punto de la nueva ruta, el sistema hace el resto. Es posible hacer esto en excel ?

Buenas tardes. recurro de nuevo a ustedes para ver si me pueden apoyar. Tengo esta macro que guarda toda la informacion de un userform, pero quiero que se detenga si el Textbox3 no es igual a cero, el textbox3 debe ser iagual a Cero para continuar el procedimiento. Private Sub CommandButton3_Click() 'Seleccionar hoja Sheets("Corte").Select 'selecionar rango de celdas a insertar Range("A10:S10").Select 'Inserta Celdas SEleccionadas Selection.Insert Shift:=xlDown 'Copia y pega los rangos seleccionados Range("A9:S9").Select Selection.Copy Range("A10").Select ActiveSheet.Paste 'Finaliza apliaccion Application.CutCopyMode = False Range("C10").Select 'grabamos los dato…

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: Queria saber si es posible generar una macro que me ajuste los altos de fila según esta necesidad: a. autoajuste b. si el alto que resulta de lo anterior es menor a 50 autoajustar a 30 Bueno eso seria Gracias

Buenos días Tengo el siguiente código pero las condiciones en lo marcado en azul son más de 100 por lo que la línea se me hará infinita. Hay alguna otra forma de poner las condiciones usando más líneas ( no solo una ) o bien que vaya a buscar a un rango determinado donde estén todas las condiciones a buscar Paso fichero donde el rango a buscar sería de la pestaña CLIENTES. el rango D4:D25. Sub DESPRECIAR() Dim I, J As Integer J = 8 'DONDE EMPIEZA A ESCRIBIR For I = 4 To 4000 ' DONDE EMPIEZA A BUSCAR If Range("EXPORTACION!N" & I) = "CLIENTE 1" Or Range("EXPORTACION!N" & I) = "CLIENTE 3" Then Range("FILTRO!b" & J) = Range("EXPORTACION!B" &amp…

Hola. Tengo una macro que inserta un archivo PDF como attached file. Lo que ncesito es que además al final del cuerpo del correo agregue una magen jpg que hará las veces de firma. Ya buqué en el foro y no encontré como hacerlo. Anexo el archivo de Excel con las direcciones ejemplo y que también incluye la macro y una imagen que sería la firma. Mil gracias de antemano por la ayuda. Saludos. Directorio De Patitas.xls

Buenas tardes Estimados todos La presente es para solicitar su apoyo ya que tengi una duda que no se comoresoverla. En estos dias una persona del foro me solicitó que le hiciera una macro para hacer un resumen mensual de ventas (Salidas) para sus resportes y demas. Este lo haria, usando el Archivo de ConTrol de Stock.2.0. Sin embargo no se como volcar la informacion de dos combobox para que estos vayan a la hoja2 en donde se mostrara los años, es decir; 2000,2001,2002,2003 etc La intencion es que bien por un bucle for o una seleccion, se pegue en la hoja los años para que asi pueda realizar la peracion de suma por los años. El archivo que les adjunto tiene mas o menos…

Hola a todos!!! Mi problema es el siguiente: Tengo una hoja de calculo, en el cual tengo alrededor de 200 textbox's y quiero saber como puedo hacer una clase para poder manejarlos a todos por igual, estoy usando excel 2007 y vb Gracias de antemano

amigos tengo una macro que al parecer unicamente me esta abriendo un libro, veran intento abrir varios libros que estan almacenados en la columna "I", desde i2 hasta i26.. pero no funciona, me pueden ayudar. Gracias. Anexo codigo: Sub ejemplo() For i = 2 To 24 Workbooks.Open "C:\Users\Gerardo\Documents\EXCEL ARCHIVOS\" & Worksheets("hoja1").Range("L" & i) Next i end sub[/HTML]

Hola: Por favor necesito ayuda en el siguiente problema: Tengo una lista desplegable en A1 con 2 entradas. Quisiera que al seleccionar la entrada No. 1 de la lista, la celda B1 automáticamente quedara en cero o en blanco (y si es posible, bloqueada para que no se puedan ingresar datos) y que al seleccionar el dato No. 2, se pudiera ingresar un valor manualmente en la celda B1. Muchas Gracias Juan Luis

Amigos tengo la siguiente macro: Sub Ocultar() Dim r As Range Application.ScreenUpdating = False ActiveSheet.Unprotect Rows("21:500").Select Selection.EntireRow.Hidden = False For Each r In Range("A21:A500") If r = 1 Then r.EntireRow.Hidden = True Next r Application.ScreenUpdating = True End Sub He probado distintas formas para que queda mas rápida porque es demasiado lenta, he hecho por ejemplo ciclo for, la he separado en distintos rangos, he llamado con otra macro los distintos rangos, pero nada, nose como dejarla mas eficiente. ayuda amigos muchas gracias

Hola, Estoy teniendo un problema a la hora de distribuir un texto en varias columnas. Estoy trabajando con un fichero de datos de una encuesta, el cual de momento sólo tengo en un .txt y me gustaría pasar a .csv para trabajar con él en SPSS. No tengo manera de separar en celdas de forma automática porque no tengo un separador concreto, no hay comas, los espacios no coinciden necesariamente con nuevas celdas, etc. Decidí hacerlo manualmente ya que tengo los datos de donde empieza y acaba cada columna, pero se me hace tedioso y da lugar a errores al hacerlo de manera manual. ¿Existiría una macro capaz de separarlo en columnas de forma que yo metiera el número de de carac…

Hola a todos Necesito crear un filtrado de datos mediante combobox dependientes(ya lo he obtenido y funciona). Mi duda surge a la hora de poder visualizar esos datos. en un listbox. tengo 5 columnas, y la idea es que mediante el filtrado de los combobox, aparezcan los resultados de la quinta columna en el listbox (por ejemplo, si elijo en el ejemplo un pais, una tecnología y un cliente, deberán aparecer los cursos) Os adjunto el archivo donde aparece todo y el listbox sin funcionar (en vacio). Agradecería mucho si alguien me puede echar una mano, ya que ando bastante verde en estos temas. un saludo y gracias por anticipado COMBOBOX DEPENDIENTES.xls

Hola amigos, tengo la siguiente macro: Sub Tabla_de_Excel_a_Word() 'Copia el rango de Excel seleccionado en un nuevo documento Word Sheets("Reporte").Select Range("C8:T20,C89:T92").Select 'copiar rango selecionado Selection.Copy 'Crea nueva aplicación Word Dim swMSWord As Word.Application Set swMSWord = New Word.Application With swMSWord .Visible = True .Activate End With 'Abre nuevo documento Word swMSWord.Documents.Add 'Pegado con vínculo de las celdas Excel swMSWord.Selection.PasteSpecial link:=True 'Libera el objeto Word Set swMSWord = Nothing End Sub La cual copia mis tablas de Excel a un Word, pero tengo dos problemillas y necesito de …

Buenas, estoy creando una Herramienta de consulta sobre distintas bases de datos de costos de servicios, estas bases de datos son independientes entre si, por lo que cada una puede variar independientemente de otra y en distintas fechas. Y estoy buscando la mejor forma de crear la herramienta para que se puedan consultar los distintos costos de las familias de servicios y dentro de estas familias ademas se pueda seleccionar uno o varios servicios en particular. Ademas de eso me interesaría que dentro de cada familia se puedan actualizar los costos de los distintos servicios facilmente. Pero eso es un tema aparte, primero me interesa que se pueda mejorar esta herramienta…

Lo que intento, como veran en el archivo adjunto, es buscar los nombres mas parecidos o similares, tengo la lista 1 con 5800 nombres y la lista 2 con 800 nombres (no subo todos los nombres porque supera la cantidad de datos que puedo subir), pero como veran ninguna lista es igual porque los nombres tienen alguna diferencia, ya sea en letras, en nombres incompletos o abreviados, probe varios macros y funciones pero ninguna me funciono, ojala puedan ayudarme como ven es bastante trabajo y me es muy repetitivo, y ya no quiero buscar registro por registro. Saludos es mi primer post.:victorious: Dejo ejemplo: [TABLE=width: 659] [TR] [TD=class: xl1664, width: 444, bgcolor: …

Buenas tardes y gracias de antemano Necesito crear el código para buscar un texto en una serie de filas y si encuentra alguno de ellos, me de un resultado. Texto a buscar = autopistas autorizadas - columna E Donde buscar = autopistas realizadas - columna A Resultado = está el trayecto autorizado??- columna B como soy novato en VBA , agradecería un código sencillito de entender gracias de nuevo por vuestro tiempo. no me deja subir archivo ejemplo en Excel por lo que no puedo adjuntar ejemplo

Buenas tardes En un determinado rango tengo unas celdas con un montón de fórmulas y condicionales y de ellas algún resultado me da error ( #¡DIV/0! ). Para evitar añadir a la ya complicada fórmula la función SI.ERROR , necesitaría un código desde VBA que me diese resultado cero al encontrar error. En el fichero adjunto sería el rango C8:G8 . Gracias de antemano por la gestión y el tiempo y un saludo Rafael ELIMINAR ERROR EN RANGO DETERMINADO.rar

buenas foreros mi consulta es la siguiente tengo este trabajao de excel que busca archivos de microsof. en carpetas luego uno elige cual abrir de las opciones que le presenta dicho buscador. lo que quiciera es que no solo habra archivos de excel. si no tambien jpg y archivos .EXE o cualquier otro tipo de formato, trate de hacer configurarlo pero sin optener buenos resultados espero la ayuda de ustedes gracias. Abrir archivos.xls

Buen día: Antes que nada gracias por el apoyo. Tengo una macro la cual me cuenta los colores que se colocan en una celda mi duda es como seria para contar también por valor numérico. De hecho el fin es que que me cuente por las dos condicionantes por color rojo y por valor numérico que si en dado caso una celda este de rojo y no tenga numero no me la cuente y que esto sea por fila. Gracias por el apoyo anexo Excel. contar color.rar

hola Compañeros Un favor Ayuda No consigo ordenar Estas Cuentas.. para un informe y para hacer unos estados Financieros Ayuda Gracias Cuentas.rar

Hola a todos! Mi primer tema acá, espero sean comprensivos si se me pasa por alto alguna normativa y desde ya muchas gracias por la ayuda! Paso a comentarles: Estoy trabajando sobre unos indicadores de métricas de la empresa y necesito colorear según el resultado de una fórmula en una celda, una forma (en este caso, un círculo). Ya estuve intentando solucionarlo, usando el evento Worksheet_Change, como estuve viendo en otros post que trataban el tema de una manera similar y en realidad, no era 100% como lo necesito yo, ya que el dato proviene del resultado de una fórmula. El problema que se me presentó, es que cada vez que quiero que se modifiquen los indicadores, te…