Hola buen día masters! He seguido avanzando con una macro que me ayudaron a construir en el foro pero ha crecido el alcance y de tener 2 filtros por medio de "Combobox´s" ahora son 3 filtros pero no funciona del todo bien porque la intención es que al seleccionar cada combobox filtre los datos y los vaya mostrando en el listbox. 1er combobox_año: OK si lo filtra y muestra los datos en el listbox 2do Combobox_mes: FAIL desaparecen los datos del listbox 3er Combobox_area: OK si lo filtra y muestra los datos en el listbox La función encargada de filtrar se llama Consulta dentro del UserForm llamado "Solutek". Por otra parte una vez filtrada la…

Cuando estoy capturando sobre del Textbox y quiero cambiar de linea solo me lo hace con Ctrl+Enter Existe algo para que con solo el Enter me cambie de línea y no se salga del TextBox?

Cordial saludo, y agradecimiento de antemano por su ayuda. Tengo el siguiente código para imprimir varias hojas desde un Form, pero presenta error : ' error 21470224773 (8007007b) Option Explicit Private Sub CBRegistro_Click() Dim b As Boolean Dim Ruta As String Dim Nombre As String Dim paso2 As Boolean Nombre = UCase(InputBox("IMPRIMIR INFORME - ID DE ACCESO - Guardar una copia de los Registros de la Prueba ejecutada")) paso2 = False Select Case Nombre Case "PRIMERO" If UCase(InputBox("Introduce tu clave de acceso")) = "PRIMERO2020*" Then paso2 = True Case "CLAVEDOS" If UCase(InputBox("Introduce tu clave de acceso…

Buenas foro. Mediante scraping me logueo en una web a traves de internet explorer. Llego hasta un cuadro de dialogo (Pulsando un boton) para subir un archivo. Se me ocurre subir la ruta mediante la funcion sendkeys, pero como es tan volatil, me pregunto si no hay alguna funcion para subir, adjuntar al cuadro de dialgo el archivo

Actualizar vinculación según una celda y autocompletar. Lo primero es lo primero: FELICIDADES por el trabajo que estáis realizando! Ayudáis a mucha gente Lo segundo mi problema; Tengo un libro que una de las celdas está vinculada a otro excel el cual se genera por un software externo y crea la excel con una terminación tal que así: 10111-30_Etot.xls año(10)mes(11)primerdia(1)-ultimodia(30)_Etot.xls desde el dia 1 al 30 solo cambia la fila de la celda vinculada es decir(lo realizo pinchando y arrastrando): fecha fórmula celda vinculada 01/01/2012 ='C:\Documents and Settings\jcli\Mis documentos\Inge\Program\Plant\[121…

Hola amigos, buenas tardes. Trabajando desde Excel 2003, necesito crear un botón para que al hacer click, me abra el formulario “Presu01” de Access y que pueda ingresar datos en él. He visto algunas cosas por ahí pero no he encontrado lo que busco. Si alguien puede ayudarme, por favor, se lo agradeceré. Saludos

Que tal amigos, espero puedan ayudarme con esto, tengo datos en la columna A, y en la la columna B los mismos datos que en A, pero en desorden, luego en las siguientes columnas hay valores que le pertenecen a la columna B, la idea es acomodar o hacer coincidir la columna B con todo y sus valores con respecto a la columna A, les dejo un ejemplo claro con los resultados esperados, ....de antemano muchas gracias Ejemplo para acomodar datos.zip

Hola, Me gustaria que me ayudaran. Tengo esta macro de Ron de Bruin, que coge cada hoja de un libro y crea un libro nuevo con cada una de ellas sin formulas, me gustaria que hiciera lo mismo pero en un solo libro. Sub Copy_Every_Sheet_To_New_Workbook()[color=#000000]'Working in 97-2010[/color] Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim sh As Worksheet Dim DateString As String Dim FolderName As String With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With [color=#000000]'Copy every sheet from the workbook with …

Amigos Muchas gracias por este necesario e impresionante sitio y ayuda prestada. Tengo una duda tengo un macros para guardar ciertos datos de manera vertical, pero mi gran duda ahora es se puede hacer algo similar pero de forma horizontal? Sub copia() Dim Datos As Range, Dato As Range, x As Byte Set RECUENTO = Range("R3:U3") With Sheets("Hrs").Cells(Rows.Count, 2).End(xlUp)(2) For Each Dato In RECUENTO .Offset(, x) = Dato: x = x + 1 Next Dato End With End Sub Lo que necesito es copiar un rango fijo (q7:v404) a otra hoja y que estos sean copiados hacia la derecha (despues de la ultima columna vacia) Desde ya mu…

Hola, Tengo una dificultad con un libro llamado Presupuesto de obras, el cual tiene barias hojas llamadas APU, donde se describen el Análisis de precios Unitarios de cada Item o Actividad, en este aparecen cantidades de materiales por unidad, la idea es que mediante una función o macro, calcule los valores de las celdas Cantidad/rend X cantidad del item y luego muestre el resultado total en la tabla Materiales, mas detalles en el Libro anexo en la actualidad, en la tabla materiales hace el proseso pero al verificar la operacion manual no da coincide con el resultado del macro, si por fabor me pueden ayudar a corregirlo. gracias Presupuesto de Obra 2.zip

Hola a todos, Me gustaría saber si es posible lo siguiente. Tengo una hoja de cálculo con algunas casillas que son valores numéricos obtenidos mediante fórmulas estándar de Excel y quisiera mediante una subrutina generar un archivo de texto que tuviera un formato muy concreto de modo que los números tendrán el formato del tipo 0000000000E+0. (El número 25 por ejemplo sería 2500000000E-8). Es decir, todos los números tendrán 10 dígitos sin puntos decimales y acompañados del correspondiente exponencial, que a su vez tendrá un solo dígito. La verdad es que no tengo ni idea de cómo hacer esto ya que creo el programa pero los valores que escribe tienen el formato General de…

Hola buen día. Pueden ayudarme a copiar un valor de una celda a un label a partir de un valor buscado (una fecha) Tal como se hace con la función Buscar pero en una Label El valor a buscar está en Sheet2 El rango de datos está en Sheet1 El resultado del valor buscado sería de la columna B No pude adjuntar el archivo pero les dejo el Link para descargarlo: https://www.docuter.com/doc/S8cff26eeebdf9a2b57984fb0810e9179293954d11932013tdbfjtzsr43dwi22sffuzc1541114/ Saludos Cordiales

Buena tarde como podrian ayudarme, necesito bloquear celdas pero despues de haberle ingresado manualmente datossaludos y mil gracias por el apoyoson diferentes celdas que necesito bloquear por lo que subo un archivo de ejemplo ya que el real es demasiado grandepero pongamos como ejemplo bloquear las celdas de las columnas a,f,h,i,j,k,l y las celdas 13 para abajo pero que se pueda ingreasar a la primera vez y que ya al segundo intento muestre un error de aviso pero que se haga con una contraseña para que solo un admin lo pueda ver y modificar mil gracias - - - - - Mensaje combinado - - - - - EL ARCHIVO PERDON Bodega1.zip

Gracias de antemano x su ayuda: Quiero una macro q me concatene filas fila = celdas: a2,b2,c2...m2 quiero q me concatene la fila con separación de "|" y si al momento de concatenar la fila encuentra una celda vacía q lo concatene como "0" y el resultado lo ponga en la celda p2 y luego pase a la siguiente fila = a3,b3,c3...m3 y concatene y el resultado en p3 y asi sucesivamente concatenar todas las filas asta encontrar celda vacía en la columna A y allí termina la macro, la cantidad de filas es variable pero siempre en la columna a1 asta aX (X valor cualquiera) siempre hay datos, no quiero usar formulas por que antes de concatenar elimino varias filas no deseadas. doy g…

Hola a todos: Mi consulta se refiere a que he leido y buscado mucho en el foro pero no encontre ninguna respuesta certera. necesito crear o tengo un libro nuevo desde cero sin nada adentro, en un rango de celdas introduzco con un formato que la solapa de Hoja soporte: ejemplo: 09-05-2013 ya que las barras no me las admite y no me interesa en realidad. bueno volviendo... en un rango ej: P1:P31 que serian 31 dias de algun mes o 30 de otros, que ese rango me genere 31 solapas de hojas cada una con una fecha correspondiente a todos los dias que yo ya habia precargado en el rango de celdas anterior, se entiende? es como si me hiciera el calendario completo de el mes en curso…

Hola Buenas, necesitaria una macro que sustituyera a las formulas que hay en las columnas G (color verde) H (color amarillo) I (color azul) J (color marron) en base a los datos de C (color fuxia) Igualmente la celda E1-H-I-J 303. lo ideal seria centarlo todo en una solo celda,eliminado las columnas de las formulas,como esta el resultado final en las celdas H-I-J 303, a si descargaria al libro excel bastante al abrirlo. Subo libro. Salud2. MACRO PROMEDIOS FORO.xls

Como podría lograr que una celda parpadee, por ejemplo, blanco-amarillo, cuando llegue la fórmula que tiene a un valor que yo le he prefijado?. gracias

Estimados, como puedo crear una funcion en vba que me retorne un valor de tipo String; al agregar la palabra clave return este me arroja un error de compilación que dice "Se esperaba: fin de la instrucción"

Buen dia: Gracias por leer mi duda, no soy muy bueno en macros, pero he avanzado un poco en este formato que les pongo por laayuda de este foro(leyendo por aqui y por alla y pegando codigos a los userform)... El problema es que llevo ya algunos dias y no doy con los codigos del segundouser form.. El primer Userform es para llenar un formato de entrega de mercancia (ese ya esta) aunque me gustaria agregarle un boton donde envie por correo la hoja activa(este todavia no investigo ni trabajo en el), pero ademas cuado en este userform1 es que cuandole doy alboton "corregir", me salen las opciones de correcion en otro user form, estas se llenan, pero no se como hacer para q…

Cordial saludo amigos! Requiero con urgencia de su importante ayuda. Estoy realizando una pequeña aplicación bajo Excel 2013, la cual es de gran valor para las labores diarias de mi trabajo. La idea es bloquear las hojas que archivan la información para que ésta no pueda ser cambiada por otros usuarios, y por lo tanto la información solo podrá ser manipulada a través de formularios. Mi proyecto consiste de 3 formularios que alimentan cada uno a una hoja de calculo. Con el primer formulario se ingresan los clientes, para lo cual no tengo problema. En el segundo formulario se ingresan los contratos de los servicios prestados. Cabe anotar que cada cliente puede tener uno o v…

Hola quisiera me ayuden a resolver un problema a través de una macro. Tengo una rango de datos numéricos (del 1 al 5) que los he puesto en una lista a través de una validación en la celda G5 del archivo adjunto. En las celdas G7,G9 y G11 debo de ingresar valores numéricos y porcentuales respectivamente. Lo que quiero con esto es lo siguiente: a traves de una macro validar los rangos mínimo y máximo permito en las celdas G7,G9 y G11 de acuerdo al valor ingresado en la celda G5 Por ejemplo si en la celda G5 el numero que tengo es menor o igual a 3, el valor digitado en la celda G7 debe estar en un rango entre 12 y 240, en la celda G9 el rango debe ser entre 20% y 95%…

en el forms que hice tengo un texbox que se llama txtlockers y carga datos en la planilla excel en la columna 5 pero me lo carga como si fuera texto y quiero que sea pesos. No me deja subir el archivo porque me dice que es muy grande que alguien me ayude, muchisimas gracias Juan

Hola buenas, de antemano agradezco la ayuda que me pudieran ayudar; Tengo un formulario en la cual puedo registrar mis compras a proveedor, pero la fila de datos es muy grande para verlo en un listbox, por lo tanto se me ocurre y he visto (pero no logre descifrar el código) que se puede seleccionar una celda y apretar un boton y se abra el formulario con los datos de la fila de la celda seleccionada. espero me pudieran ayudar gracias de antemano Libro1.1 (Autoguardado).rar

Hola amigos, tengo una inquietud le he matado la cabeza pero no he podido 1-en la hoja de registros hay tres datos, pueden haber x cantidad de datos 2-la macro cogería el primer dato de la hoja de resitro y la pasara ha esta hoja 3-3- luego empezara hacer el recorrido por la hoja Db y con el primer registro ya tomado empezara a sumar en su caso o le restara en su caso hasta que la suma de Cero o se aproxime a cero 4- copiara los registros que sumo de la hoja Bd a sta hoja de suma 5-los datos ya sumados no se pueden repetir dos veces saludos Suma inteligente.zip

Hola de nuevo, tengo una macro que intenta guardar una carpeta de mi C:\ en una carpeta de un servidor, la ejecuto pero no hace nada, está mal evidentemente pero ¿Qué está mal? Sub Mueve_fotos() Dim carpeta As String Dim fecha As Date fecha = Now(Format("dd-mm-yyyy")) carpeta = "\\179.29.84.35\Pub-Water-Jet\REGISTRO VISUAL\" Call Shell("explorer.exe " & carpeta, vbNormalFocus) Name "C:\Seat\Historico\" As carpeta & fecha End Sub[/CODE]