hola expertos como puedo modificar el principio de este codigo con la idea de transpasar no solamente los dato de la columa B sino tambien los datos de la columna A,B,C Sub zero() Dim ultimaCeldaDatos As String 'hallar la ultima celda con datos de la columna B de la hoja estadistica ultimaCeldaDatos = Sheets("analisis").Cells(Rows.Count, 2).End(xlUp).Row 'copiando datos de columna B Sheets("analisis").Range("b5:b" & ultimaCeldaDatos).Copy Sheets("archivo").Select 'posicionando en la celda donde pegare los datos en la hoja archivo Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select Selection.PasteSpecial Application.CutCopyMode = False …

HOLA NENES, NECESITO AJUSTAR DISTINTOS ESPACIOS DE 3 COLUMNAS EN UNA MACRO, GRACIAS! BESOS A TODOS:mushroom::mushroom::mushroom:

Buen día!! (ó buena noche dependiendo de donde me lean!!) En el adjunto el cual trabajo a diario necesito hacer copias del formato justo debajo (Indico con diferentes colores el encabezado y el cuerpo para que se entienda mejor, no llevan ningún color de fondo). El encabezado (A1:M1o) cambia mensualmente en "Compras correspondiente al mes de (Enero, Febrero, .....) de (2014, 2015....)" y el cuerpo( A11:M41) cambia dependiendo del número de facturas, en este caso la primera línea del encabezado cambia a subtotales, no siendo así en todos los meses. La copia debe ser idéntica en formatos, fórmulas, alto de fila y ancho de columnas. Cuál puede ser la forma de que se pregunte…

Soy nuevo utilizando VBA y buscando en los foros logré crear una Macro para mostrar algunos resultados. Supongo que necesitan saber qué hace pero no sé como explicarlo! ? Tengo dos hojas una de nombre Ticket y otra con nombre Hoja1 En ticket debe mostrar la fecha actual en la celda C3 , la Hora actual en la celda D3 y un numero (serie) que aumenta en 1 según el valor de la celda D2 de la hoja1 esta información se guarda como valores en la fila 2 de la Hoja1. Luego ingresando el número de serie en la celda B9 de la hoja Ticket, lo busca y muestra la Hora (guardada anteriormente) en la celda C9, resta la fecha actual (Now) con la celda C9 y lo muest…

Buenas tardes, soy nuevo en el foro y veo que aquí si ayudan a la gente ingenua jeje, necesito ayuda con este problemita, en mi trabajo necesito implementar una aplicación sencilla para auditar el producto que sale de la planta, el producto es empacado en cajas y cada caja contiene un numero de parte con su respectivo código de barras, al menos que ustedes me sugieran algo mejor, a mi me gustaría que el user form contenga: 1 (combobox1) que muestra todos los números de orden de venta, sin duplicados. 1 (listbox2) que refleja todos los números de parte asociados al numero de orden seleccionado en el (combobox1). 1 (textbox1) donde ingresar (con el lector de código de ba…

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.

Hola buenas tardes: Estoy realizando un formulario para el registro de ventas diarias de mis productos, el proceso es el siguiente: 1. En un cuadro de busqueda ingreso cualquier parte del texo de mi codigo. y por medio de una lista me muestra las coicidencias a lo escrito, 2. selecciono la descripción que requiero y al seleccionarlo se muestra en un combox. 3. ingreso cantidad y precio, 4. Con el boton de registrar se ingresa en otra lista el codigo, la descripcion, cantidad, precio e importe. asi con los diferentes productos . el problema que me encontre es que si mi codigo buscado contiene una letra al registralo con el boton "registrar" e…

hola necesitaría saber como hacer para enviar de un listbox a una hoja de excel y que cada vez que envié el dato no reemplace el anterior sino que agregue una linea gracias

Buen día, Espero alguien me pueda apoyar, tengo un libro de Excel con dos hojas, en la hoja llamada "Datos" viene capturada la información (marca, modelo, # de serie) de diversos equipos electrónicos proporcionados por el vendedor. En la Hoja 1 de igual manera viene capturada la información de los mismos equipos electrónicos capturada por gente en oficina. Se supone que todos los números de serie presentes en la "Hoja 1" deben coincidir con los números de serie de la hoja "Datos", ya realice la comparativa aplicando la función BuscarV en la columna G de la "Hoja 1", pero cerca de la mitad no encuentran coincidencia exacta. Pienso que puede existir errores d…

Hola buenas tardes, primero que nada me presentaré mi nombre es Adán Garrido y llevo aproximadamente un año trabajando en excel, no me considero un experto ya que no he entrado al mundo de las macros y de la programación en VBA. El motivo de este tema como pueden leer en el titulo es para agilizar una tabla de excel, el funcionamiento se los explicare continuación junto con el archivo de excel. El formato es sobre la captura de tiempos y materiales de una empresa, mas específicamente del área de carpintería, la tabla principal consta de un apartado para la información del producto, después esta la tabla de tiempos y al final la tabla de captura de materiales, la mas "com…

Necesito ayuda para contabilizar registros (ocurrencias) dentro de un rango horario y despliegue de las operaciones en ese rango horario. Adjunto planilla con detalle. Agradeceré muchísimo la ayuda. (Disculpen si tambien lo ven en el oro grupo, creo que este es el mas afin) Muchas gracias EJEMPLO.xlsx

Hola, como se pueden comparar dos macros y actuar según si son iguales o no ?

Hola colegas, buenas tardes. Espero se encuentren bien de salud. Estoy en otro "Proyectico " para tratar de facilitar mi nuevo trabajo, pero tengo un pequeño problema. En el FrmRetenciones yo inserté varios TextBox donde cada uno de ellos imprime el valor en la Hoja4 en las celdas F28 al F37 y todo esto funciona perfectamente para lo que necesito, pero se me ocurrió hacer otra cosa, dentro del Frame2 diseñé un combobox donde localizo e imprimo el rango de cuentas 460... que se encuentran en la Hoja2 (Auxiliar) que no es mas que el Clasificador de Cuentas de nuestra empresa, de acuerdo al numero de cuenta en el CmbID el TxtNombre me imprime el Nombre del trabajad…

Buenos días En un formulario tengo varios checkbox que los uso para señalar si requiero un equipo o no. Ahora me de vuelve verdadero o falso , pero necesitaría una solución para que me devolviera si o no. sl2

Hola como están. Por favor su colaboración. La macro en el botón insertar fila copia la fila 5 que está escondida y la pega en la primera celda disponible en A y adicional inserta una línea debajo de la fila pegada (de esta manera baja la información que hay en el archivo real. El problema es que la fila que se inserta trae el formato de la celdas de columna I y K, es decir, está conservando el color gris. Lo que quiero es que no tenga color gris en esas columnas (I y K) de la fila insertada. ELIMINAR FORMATO FILA.xlsm

Hola amigos del foro buenas!!! Acudo a ustedes con la siguiente duda: Tengo que insertar 2 fechas en un formulario, pero me gustaría lograr que mediante 2 label (una para cada fecha) una vez que se ha seleeccionado la fecha de inicio, éste se habilite de color verde, mismo para la fecha de final. Lo anterior con el propósito de que se tenga una noción de las preguntas que ya se han contestado (en el formulario principal en el que estoy trabajando se va habilitando el background de color verde una vez que se contesta cada pregunta). Espero no sea molestia y pudieran apoyarme pues desconozco los comandos correctos del DTpicker para realizar dicha condición. Gracia…

Buenos días, tengo una duda sencilla a priori pero que no entiendo el problema: - He creado un botón que activa un reemplazar espacios (cuando las unidades son + 1000 hay un espacio). Si lo hago manualmente se queda el valor como numero pero si lo hago con la macro se queda como texto. El archivo de partida es un .txt y se pega en un excel. adjunto el ejemplo txt. como veís la ultima fila es superior a 1000 rtoyprod.txt

Hola. Actualmente estoy utilizando una macro para filtrar contenidos pero como la base de datos se ha hecho bastante grande tarda mas de cinco minutos en ejecutarla. Sub Borrado_Articulos_filtro() Dim FILAFINAL As Long Dim X As Long Sheets(1).Select FILAFINAL = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row For X = FILAFINAL To 2 Step -1 'VALORES COLUMNA H If Sheets(1).Cells(X, 8) = "CG346A" Then Cells(X, 1).Select Cells(X, 1).EntireRow.Delete End If If Sheets(1).Cells(X, 8) = "ARTICULO 1" Then Cells(X, 1).Select Cells(X, 1).EntireRow.Delete End If If Sheets(1).Cells(X, 8) = "ARTICULO 2" Then Cells(X, 1).Select Cells(X, 1).EntireRow.Delete End If…

Hola, Ante todo felices fiestas y año nuevo, Siguiendo con mi proyecto vuelvo a encallarme, necesito que una de las celdas (G3) de mi hoja1 cambie la numeración cada vez que guardo con un botón que he creado, ahora tengo esto: Hoja1.Range("G3").Value = Hoja1.Range("G3").Value + 1 Hace lo que quiero pero mi intención es poner letras antes de la numeración por lo que necesito que en lugar de ser consecutivo 1,2,3,4 etc. Sea FS1, FS2, FS3, FS4, etc.. una ayudita por favor

Tengo una 2da solicitud para los amigos de Ayuda Excel. [uSER=46507]@Macro Antonio[/uSER] me ha ayudado en la primer parte pero tengo esta solicitud, he agregado 2 campos más a la base de Access ( USUARIO y FECHA ) si al momento de hacer la búsqueda y encontrara la clave se pudiera registrar la fecha y usuario en la base de Access el usuario podría ser el nombre de la maquina. Y posteriormente al realizar otra vez la búsqueda y si ya esta registrado pueda mandarme un mensaje de que ya esta registrado y si quiero remplazar el registro. Gracias. Buscar_Registro.rar

Os aporto esta clasificación de equipos de la cual se puede adaptar, esta casi echa en vba para evitar el borrado, si alguien la quiere modificar, mejorar, u otra cosa que lo haga Resultados y Clasificacion.xlsm

Estimados, un saludo cordial. Tengo en un archivo específicamente una conciliación bancaria (Cruce de datos entre cuentas de mi empresa vs. un extracto bancario) lo he realizado con los conocimientos más básicos sobre programación en excel VBA, pero lo he logrado. Ahora dentro de éste archivo existe lo que en la web leí "código innecesario", pudiendo a este simplificarlo y hacerlo mucho mejor. En el archivo en el módulo A_Cruce_Diferencias tengo el siguiente código: If Range("J2").Value < 0 Then Range("A2:I2").Select Selection.Insert Shift:=xlDown Call Update ElseIf Range("J2").Value > 0 Then Range("K2:R2").Select Selection.Insert Shift:=xlDown Call Upd…

Hola!! Tengo un problema con mi archivo, como ven en la Columna de enfermedades hay varias enfermedad, necesito tener una opción en la que pueda se refleje, respiratorias (que entra asma), endocrinología (que entra la diabetes y azúcar), cardiopatía y otras, de forma que yo seleccione por ejemplo, respiratoria y me salga el listado de usuarios con enfermedades respiratorias. Por otro parte quiero crear lo mismo con la columna de autonomía, como aparecen ruta 1, ruta 2, ruta santa cruz, ruta centro, autonomía y familia. Lo tengo creado con tres opciones que es si, no y familia, y necesito cambiarlo y añadir las otras opciones para poder buscarlo por ejemplo por r…

Hola amiagos, escribo para que laguno de ustedes que son unos genios puedan ayudarm. mi problema es que no puedo añadir un campo calculado a una tabla dinamica ,este campo esta en función a un dato que es variable ,que es el número de ha. en la Hoja3 del libro que adjunto esta el modelo de tabla que busco obtener con al ejecución del código ,codigo que dicho sea de paso crea una tabla dinamica incompleta en la Hoja "Infor". Gracias desde ya por su apoyo Saludos desde Perú. TD_campoCalcu.zip

Hola a todos.... he insertado un control calendar en mi hoja ,pero.... la fecha que aparece en el no se corresponde a la del dia en curso... ¿ Como lo puedo solucionar esto....? Muchas gracias a todos por vuestro tiempo... Un saludo