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 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 a todos : Estoy trabajando en excel con datos externos en inglés, los cuales se me importan en formato string. Me encuentro con el problema de las fechas, dado que hay meses cuyos tres primeros caracteres no coinciden con el castellano. Mejor os pongo un ejemplo : 26Jul13 04Aug13 Como Jul coincide con Jul (Julio), la primera fecha Excel me la detecta y me la cambia de formato automáticamente. Pero no pasa lo mismo con Aug que, al no coincidir con Ago (Agosto) la celda excel me la deja como String y no puedo operar con ella. Como me toca manejar miles de fechas, la idea crear una macro que me convierta todas las fechas de esa columna con strings a otra en la que …

Hola, Tengo una matriz y lo que deseo es unir mediante macro con un color en la celda dos puntos dados de la misma matriz 4 1 2 3 4 5 6 7 8 1 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 2 3 0 0 0 0 0 0 0 0 3 3 4 0 0 0 0 0 0 0 0 4 2 5 0 0 0 0 0 0 0 0 5 6 0 0 0 0 0 0 0 0 6 7 0 0 0 0 0 0 0 0 7 8 0 0 0 0 0 0 0 0 8 1 2 3 4 5 6 7 8 1 ejemplo introduciento 4 datos como: 3 ( se refiere a la columna de la Izq) 2 ( se refiera a la columna de la Izq del bloque 3) 1 ( se refiera a la fila de abajo) 6 ( se refiera a la fila de abajo del bloque del 1 ) * = Celda coloreada 0 = celda vacia muchas gracias

Hola, cómo están? estoy intentando encontrar un macro que me permita buscar una palabra en la columna A y reemplazar el valor en la columna B de la misma fila Cía codigo Chile 1 Argentina 2 Uruguay 3 Entonces se me abre el imput pongo argentina, se me abre un imput valor nuevo y pongo 10. Y me quedaría el siguiente resultado (mejor aún si me puedo parar arriba del valor y ya me traiga el imput automatico, es decir me paro sobre la celda A3 y cuando me sale el cartel del imput ya me autoaperece el valor Argetina, doy OK y paso al paso 2) Cía codigo …

Encontre una amcro en el foro de newton raphson la trate de adaptar para una funcion que tengo pero no funciona me sale que es #valor y derive la funcion usando mathematica asiq eu al derivada no croe que este mal peor nsoe que pueda hacer ojala puedna ayudarme les adjunto el arhivo de la macro y de la funcion en word Gracias Newton.zip

Hola amigos. Estoy utilizando para pasar de Textbox a celda la forma format(textbox.value,"MM/DD/YYYY") para que meponga en las celdas día/mes/año y no me ponga al revés la fecha como con "DD/MM/YYYY". De momento no me da errores. ¿Está bien, se me puede presentar algún error? Gracias por la atención.

HOLA A TODOS UNA PEQUEÑA CONSULTA TENGO EL SIGUIENTE CODIGO: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then Range("B" & Target.Row) = Date Range("C" & Target.Row) = Format(Now, "hh:mm") Range("A" & ActiveCell.Row,1) = Format(PED-####), End(xlUp).Offset(,-1)).DataSeries End If End Sub[/CODE] [/color] [color=#000000]LO QUE QUIERO HACER ES QUE GENERE AUTOMATICAMENTE UN NUMERO DE REGISTRO EN LA COLUMNA [color=#ff0000]"A"[/color] , FECHA [color=#ff0000]"B"[/color] y HORA[color=#ff0000] "C"[/color] AL INGRESAR DATOS EN LA COLUMNA [color=#ff0000]"D"[/color] [/color] [color=#000000]…

buenas tardes, Estoy haciendo una macro la cual necesito seleccionar varias combinaciones de checkbox pero me gustaría si existe algún código que pueda resumir el código ya que son muchas combinaciones. El archivo consta de 2 grupos de checkbox: Grupo1: 8 checkbox (que se pueden eligir todas las combinaciones, es decir, todos o solo 1, o 2 o 7, etc) Grupo2: 4 checkbox (Se debe elegir solamente 1 de los 4). Por tanto existen muchas combinaciones, por ejemplo: - 1 checkbox del grupo 1 con el checkbox1 del grupo 2 - 1 checkbox del grupo 1 con el checkbox2 del grupo 2 - 8 checkbox del grupo 1 con el checkbox1 del grupo 2 - 5 check…

En el evento Private Sub Editar_Click() tengo esta rutina que me está quemando el coco, pues por veces funciona bien y otras no, algunas veces en el mismo producto me dice Salida mayor que existencia y otras veces no ' y = ComboBox1.ListIndex + 2 ' If TextBox10 > TextBox11 + TextBox15 Then ''Si la cantidad de salida es maior que la existente, manda advertencia ' MsgBox "SALIDA MAYOR QUE EXISTENCIA" & vbCrLf & Space(5) & "EXISTENCIA ACTUAL: " & (TextBox15) _ ' & vbCrLf & vbCrLf & "¡¡¡ DEBE ADICIONAR COMO MINIMO !!! " & ((TextBox10 - TextBox15)) _ ' & " UNIDADES", vbInformation + vbOKOnly, "Atención" ''Limpia ' Call ButonLimpia…

Intento ayuda para crear una macro para comparar columnas de dos hojas distintas y posteriormente copiar celdas. El formato es el siguiente: Hoja1 Apodo_Nombre_Edad_Sexo_Calle_Ciudad_Cod_Pais_Estudios_Genero Luis_Luis Fernandez_20_V_Diagonal_Bar_08034_Esp_Sup_Let Ana_Ana Martinez_19_H_Espronceda_Bar_08025_Ep_Sup_Cie Jose_Jose Aguado_19_V_Mallorca_Hos_08014_Esp_Sup_Cie Marta_Marta Castell_21_H_Urquinaona_Bar_08027_Esp_Sup_Let Hoja2 Apodo_Nombre_Edad_Sexo_Calle_Ciudad_Cod_Pais_Estudios_Genero Marc_Marcos Luis Luis_Luis Fernandez Marta_Marta Castell Jorge_Jorge Luis Helena_Helena Rodríguez Al comparar la columna B ( Nombre ) de la hoja 1 con la columna B (Nom…

Buen día estimados, En mi trabajo me han preguntado, si puede ser posible que en la hoja de cálculo un par celdas con información no pueda imprimirse con claridad o sea, que no sea muy entendible y además que no se pueda editar copiar la info o guardar como... abosolutamente nada mas que ver el archivo e imprimir de la manera como les describí anteriormente. Bueno lo que se me ocurrió fué de primero proteger la hoja de cálculo y el libro, luego creé un boton llamado "Imprimir", este haría la ejecución que al dar clic sobre el: Primero desbloquea la hoja para poder llevar a cabo la ejecución de la macros, Segundo que el texto de las celdas que no quieren que se impriman…

Hola a todos los del foro, quisiera saber si alguien tiene la solucion para optimizar estas formulas para realizar una macro y no estar arrastrando la formula cada que la necesito aplicar.. Tengo esta formula... =(2012-(EXTRAE(O2,5,2)+1900))[/PHP] [b][i]Calcular edad en base a la fecha de nacimiento[/i][/b] ... SORL[b]79[/b]0406636 [PHP]=SI(P2<24,"De 18 a 24 años",SI(P2<29,"de 25 a 29 años",SI(P2<34,"de 30 a 34 años",SI(P2<39,"de 35 a 39 años",SI(P2<44,"de 40 a 44 años",SI(P2<49,"de 45 a 49 años",SI(P2<54,"de 50 a 54 años",SI(P2<59,"de 55 a 59 años",SI(P2<64,"de 60 a 64 años",SI(P2<65,"de 65 a 69 años","mayor de 70 años"))))))))))[/…

Hola a tod@s. De antemano agradecer por su tiempo en el siguiente inconveniente que expongo. El inconveniente que tengo es que al aplicar el el código en el evento que dejare líneas abajo funciona correctamente, sin embargo cuando selecciono el rango de celdas B9:B18 y borro el contenido, sucede que de manera automática se colorea todo de color rojo en dicho rango. Como solucionarlo?, tomando en cuenta que es necesario que sea un evento. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("B15")) Is Nothing Then If Not IsNumeric(Target.Value) Then …

Hola de nuevo compañeros, ¿Cómo puedo hacer para mostrar toda la información contenida dentro de un array en un sólo cuadro MsgBox? Tengo el siguiente código de pruebas con dos opciones disponibles, pero ninguna de las dos funciona: Sub pruebas() ' Declaramos las variables... Dim miArray() As Variant miArray = Range(Cells(2, 1), Cells(2, 8)) ' Opción 1: ' MsgBox Join(miArray(1, 3), vbCr) ' Opción 2: For i = 0 To UBound(miArray) msgString = miArray(i) & vbCr Next i ' Mostramos el contenido del array... MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString End Sub

buenas a todos , pido disculpas por preguntar ta lves cosas elementales , ya con la practica ire aprendiendo . la cuestion que me toca hoy es saber cual seria la instruccion para que en un txt del formulario (todod datos numericos) se llene como resultado de la division de otros 2 txt , intente con: Private Sub txtValorPresupUsd_Change() Dim Valor1 As Double Dim Valor2 As Double Dim valor3 As Double Valor1 = Val(txtValorPresup.Text) valor3 = Val(txtCotiz1.Text If txtValorPresup.Value <> "" Then txtValorPresupUsd.Value = Valor1 / valor3 End If txtValorPresupUsd.Value = Format(txtValorPresupUsd, "#,##0.00") …

Se que me dirán que es fácil, que lo encontramos en las opciones de pegado. No, tengo dos tablas, en una tengo datos de nombres fechas y mas. Y tengo otra tabla donde pongo los datos de la otra tabla jalándola con formula "=tabla2!c3" quiero que el formato de color se repita en la tabla1, según el formato que tengo en la tabla2. En este mismo foro encontré que hacían algo parecido pero con celdas desplegadas, en la misma tabla, yo lo necesito en tablas diferentes. Espero ser claro en lo que busco hacer. de antemano Gracias.

Buenos dias expertos: Solicitando su ayuda con un pequeño problema el cual explico brevemente Tengo una macro que abre un numero determinado de archivos con un bucle con la instruccion Worksheet.open extrae infromacion y cierra dichos archivos mi problema es que cuando alguno de estos archivos trae formulas relacionadas con otros archivos al momento de abrirlo la macro me envia el sig mensaje y se detiene hasta no dar clic en actualizar o no actualizar, pudiera haber una manera de que no aparezca dicho mensaje o que se pueda dar clic automaticamente al abrirlo para que no se interrumpa el proceso. PD no considero necesario adjuntar algun archivo …

tengo varios archivos, lo que necesito es que cada uno de ellos contenga el nombre del mismo en la primer fila y que esta abarque desde la columna A hasta la Q, a continuación les paso un ejemplo de lo que tengo: Como verán el nombre del archivo no aparece por ningún lado solo en la ventana arriba, lo que quisiera es que quedará de la siguiente forma: Como pueden ver en la segunda imagen el nombre del archivo aparece en la primer fila, como son muchos archivos necesitaría una macro que inserte esta fila con el nombre de cada archivo y con el formato combinado en cada archivo correspondiente es decir que al archivo que se llama Mis Comprobantes E…

Hola Estimados, Ustedes que son los mejores en Excel, Lo que necesito es que cuando se registre un producto de “Entrada de Mercadería” en precio pase Automáticamente a la pestaña de “entradas” y la columna “precio” al generar el reporte respectivo. Por otro lado quisiera pues algunos botones no me funcionan, están inactivos, estos son: “salida por cliente”; “stock actual por proveedor” “entrada por proveedor”, estos me gustaría que cumplan su función al presionarlos, por favor sería posible me apoyen en saber cómo lo Puedo hacer? Les dejo el adjunto. Muchas Gracias. Excel_Stocks 3.zip

Buenas tardes; Estoy desesperado, no sé que le ha pasado a mí Excel. Al abrir una macro guardada de ayer el Excel no tarda nada en abrirse pero......si ese Excel que abro ( guardado ayer ) le guardo con otro nombre, le cierto y le vuelvo a abrir, se queda en la pantalla de iniciando durante 2 minutos (aprox.) Y luego se abre. Que puede pasar, me pasa con todas las macros que guarde. No he probado con Excel sin macro, luego probare. Sabéis cómo solucionarlo??. Muchas gracias.

Hola a todos buen día, hace poco termiiné de estudiar un curso rapido de Excel y terminé con exito la primera etapa de un proyecto que quiero implementar, al menos eso creía, resulta que este libro funciona hasta que lo cuelgo en una carpeta y lo uso como libro compartido: Les adjunto el archivo trabajado, lo que quiero lograr es trabajar con un libro compartido sin los errores que me aparecen: 1. No puedo proteger el libro 2. se deshabilita el boton que llama mi Formulario Principal, ubicado en la Hoja2 3. Ocultar y proteger ciertas Hojas. Pueden ingresar con ADMIN y contraseña 12345678. de antemano les agradeceré que me den una …

alguien tiene un excel con una formula para convertir de cielab a rgb

Buenos dias amigos mios, porfavor como seria una macro en excel que me empieze a numerar celdas: 1ro: Que la macro pida Prefijo, ejemplo: Item 2do Que la macro pida Numero inicial, ejemplo: 78.00 3ro que la macro pida una constante, ejemplo: 0.02 4to empezar la numeracion en un celda cualquiera: Celda C4= Item 78.00 Celda B5= Item 78.02 Celga G10= Item 78.04 y asi susecivamente, hasta finalizar con un esc.

Buenas gente, a ver si me podéis ayudar. Tengo un código con el cual creo una barra de progreso para ver el estado de la macro en ejecución. Hasta aquí todo perfecto. El caso es que la primera vez que ejecuto la macro una vez abierta la excel, todo funciona correctamente, es en las ejecuciones posteriores que la macro va excesivamente lenta. Este es el código que da problemas: Do While LineaActual < UltimaLinea ContadorEscalones = ContadorEscalones + 1 Me.Caption = "Calculando precio " & ContadorEscalones & " de " & NumeroEscalonesPrecios frm_Progreso.lbl_ProgressBar.Width = frm_Progreso.lbl_ProgressBar.Width + PixelesPo…