Hola a todos, Alguien me podría dar una idea de como podría hacer lo siguiente. En excel Estoy capturando datos de un dispositivo vía OPC. el caso es que necesito cada 5 minutos coger el valor actual y copiarlo en una celda y así repetitivamente por todo el día. algo así: 12:00 PM | Valor 12: 05 PM | Valor .....

Estimados Amigos, Escribo en busca de su preciada ayuda. Tengo un Userform que tiene dos ComboBox y un TextBox, que alimentan un ListBox cada uno. El problema es que los tres listbox es para el mismo equipo y no he podido hacer que al hacer click en cualquiera de los listbox queden los tres listbox seleccionados para poder eliminarlos, solo he podido hacerlo de uno en cada listbox y cuando tienen muchos equipos digitados es un problema. Espero haberme expresado bien. dejo un ejemplo del userform. Muchas gracias de antemano por la ayuda. Slds JL. ayuda.zip

Hola, buenos días Tengo una situación que requiero resolver y por más vueltas que le he dado, no llego a cómo solventarla, más o menos sería así: Tengo un listado de cédulas y empresas, con el nombre de al menos un representante, el puesto y uno, dos o ningún número telefónico de cada uno. Ahora, ocupo realizar un ordenamiento similar pero dónde el campo cédula se convierta en clave única (es decir, no se repita) y se copien los valores del segundo, tercero, cuarto etc. registro en un horizontal (así hasta 7 posibles casos, que sería lo más que tengo disponible). ¿Existirá alguna macro que pueda realizar esto? ¿alguna idea? Les quedaré eternamente agradecido cualqui…

Buenas noches a todos; Estoy trabajando en una herramienta que entre otras cosas debe realizar la siguiente tarea: Imaginad una carpeta un número indeterminado de archivos excel (100, 500 o 1000) y cada uno de esos archivos de excel tiene un contenido idéntico en todos, pues bien, la macro que necesito debe leer todos esos archivos y extraer: - el nombre del archivo. creando en una hoja una fila por cada nombre. - dado que todos los archivos tiene la misma estructura, necesitaría extraer de cada uno de ellos la misma información, por ejemplo todo el contenido de la celda a1 en todos los archivos, en la celda f14 en todos los archivos y que me los coloque seguidamente d…

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

Columna A Colum B Columna C Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo (Nota 4) Efectivo y Equivalentes de efectivo (Nota 4) en la barra de fórmulas la columna B se refleja asi: Columna A Colum B Columna C Efectivo y Equivalentes de efectivo ="(Nota"&d2&")") Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo="(Nota"&E30&")") Efectivo y Equivalentes de efectivo (Nota 4) Hola A todos, como se observa en la …

Amigos, Estoy nuevamente por acá para que me ayuden con un código: Lo que estoy haciendo es enviar un mail de Outlook - en su versión 2010 -, mediante una Macro; ésta Macro envía un correo con un archivo adjunto más un rango de celdas específico. Hasta el momento todo bien, pero al momento de cambiar la propiedad Display por send es donde falla, ya que me envía el archivo adjunto pero no el rango de celdas. Les adjunto el código que estoy utilizando: Sub rangoCeldas() ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2010 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim Adjunto As Variant …

Hola espero que me ayuden… quiero realizar un control de caja semanal… en la hoja control_caja tengo el formato que siempre voy a usar…. y en esta hoja el menu en el cual mediante formulario quiero realizar el registro de ingreso y egreso…. en el boton caja quiero que aparesca el monto total q deberia tener en caja.... y en el boton imprimir y limpiar quiero que me mande imprimir el formato que tengo en la hoja control_caja y a la ves me limpie todo lo ingresado en una cemana.... ojo el control de caja realizo todos los sabado a viernes... las hojas las quiero tener ocultas totalmente[ATTACH]40312.vB[/ATTACH][ATTACH]40312.vB[/ATTACH] CONTROL DE CAJA.rar

Hola buenas. Necesitaria uan macro que copiara o registrara los datos a partir de una fila, estos datos van cambiando. En hoja1 Fila 2 (color amarillo), estos datos no son nunca los mismos nesesitaria una macro para que se copiaran o registraran a partir de la fila 5 (color naranja) a medida que los datos de la fila 2 van cambiando. Hoja 2 lo mismo pero los datos estan en celdas separadas (color amarillo) Gracias de antemano. Salud2. Macro Copiar datos.rar

Hola de nuevo. Tengo varios libros compartiendo determinados datos entre sí, libro1, 2 y 3 pero si quiero que se actualicen el 2 y 3 tengo que abrirlos, me seria muy cómodo y ahorro de tiempo el no tener que estar abriéndolos continuamente para que se actualicen. Salud2.

Soy principiante y mi idea es realizar una hoja de cálculo con un botón que al darle click, actualice dos celdas en función de otras dos casillas. El código que escribí al botón es el siguiente: Dim h As Double Dim v As Double Dim t As Double Dim f As Double Private Sub CommandButton1_Click() h = Cell(5, 4).Value v = Cell(6, 4).Value t = 10 ^ (-0.95 * Log(v) + 0.0207 * h - 0.087) f = 1 / (2 * Pi() * t) Cell(7, 4).Value = t Cell(8, 4).Value = f End Sub Al compilar subraya la línea Private Sub CommandButton1_Click() y dice Error de compilación: Sub o Function no definido. Muchas por su ayuda de antemano

Hola que tal! buenas noches Estoy cargando una página "x" por medio de VBA para excel. Me gustaría conocer si la misma se ha cargado adecuadamente, en caso contrario volver a intentantarlo hasta que este al 100%. La mayoría de las veces la página web que intento cargar de alguna manera funciona bien y otras me manda a una pagina en blanco. ¿Cómo puedo conocer si la página esta correctamente cargada y no es una página mal cargada o incompleta? La marco es la siguiente: Sub Open() Dim oShell As Object Set oShell = CreateObject("Wscript.Shell") oShell.Run "https://ejemplo.gob.mx" End Sub[/CODE] Gracias por su atención.

Hola compañeros una ayuda Tengo las Siguientes Formulas en codigo: Set h1 = Sheets("Hoja1") j = "=SUMPRODUCT(--((R2C[-8]:RC[-8]&R2C[-7]:RC[-7]&R2C[-6]:RC[-6]&R2C[-5]:RC[-5]&R2C[-4]:RC[-4]&R2C[-3]:RC[-3]&R2C[-2]:RC[-2])=(RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2])))" k = "=IFERROR(INDEX(INDIRECT(Range!R9C2),SMALL(IF(INDIRECT(Range!R3C2)=RC[-8],IF(INDIRECT(Range!R4C2)=RC[-7],IF(INDIRECT(Range!R2C2)=RC[-9],IF(INDIRECT(Range!R6C2)=RC[-5],IF(INDIRECT(Range!R7C2)=RC[-4],IF(INDIRECT(Range!R5C2)=RC[-6],IF(INDIRECT(Range!R8C2)=(VLOOKUP(RC[-3],Criterios!R1C11:R13C12,2,0)),ROW(INDIRECT(Range!R9C2))))))))),RC[-1])),"""")…

Hola buenas. Necesitaria crear una macro en una hoja distinta a las demas y que esta ejecute a las otras macros que hay en diferentes hojas del mismo libro. ejemplo: para unas macros con sus botones en hoja2,3,4 y desde hoja1 desde otro botón que se ejecuten las anteriores. Salud2.

Muy Buenas, bueno por molestarles una vez mas, ya que he tratado de realizar un Complemento(.xlam) que me permita ejecutar una macro en cualquier libro. En ocasiones anteriores dos personas me ayudaron con la duda que tenia(Cambiar color de celda - modificado). La cual consistía en cambiar de color una celda que modificara. Pero se lo podía realizar únicamente colocando el código en una hoja en concreto: Private Sub Worksheet_Change(ByVal Target As Range) Target.Interior.ColorIndex = 6 End Sub Pero deseo utilizar esta macro desde el complemento. En el he creado un Checkbox donde debería permitirme activar o desactivar dicha macro. Pero no lo he logrado, y es ahí dond…

Hola buenas tardes, el dia de hoy vi un foro en donde marco antonio nos adjuntaba una macro muy util sobre enviar una hoja de un libro de excel en el cuerpo del correo. "CÓDIGO: Worksheets("Hoja1").Activate With ActiveSheet.MailEnvelope .Introduction = "Te adjunto la información que me solicitaste." & vbCrLf .Item.To = "username@server.com" 'Destinatario .Item.Subject = "Asunto" .Item.Send 'Enviamos el e_mail End With End Sub" este codigo me presentaba un problema y es que me arrojaba un error cuando lo corria por segunda vez, me tocabab cerrar el archivo y volverlo a abrir para que funcionara, esto lo corregí guardando el libro una vez finalizada la macro,…

Hola, tengo un problema con un bucle. El caso es que en el Mac me funciona pero en windows no. El código es este: Private Sub Worksheet_Calculate() Dim KeyCells As Range If Range("C13") = 1 Then Range("D7").Value = Range("D7").Value - 1 End If Do While Range("C13") = 1 Range("D7").Value = Range("D7").Value - 1 Loop If Range("C13") = 0 Then Range("D7").Value = Range("D7").Value + 1 End If Do While Range("C13") = 0 Range("D7").Value = Range("D7").Value + 1 Loop Range("D7").Value = Range("D7").Value - 1 End Sub El caso es que quiero que cuando una celda (la C13) sea 1, me reste 1 de la celda D7, y así hasta qu…

Hola que tal tengo un problemita con unos codigos, lo que pasa es cuando ejecuto el calculo los resultados me botan con comas , me gustaria que me boten como numero normales con puntos , alguien me me pueda dar una mano con los codigos o algunas parte que tenga que cambiar, gracias! Conservacion de la Energia.xls

Estimados Expertos. Estoy buscando un generador de codigos QR para Excel, he encontrado el programa StrokeScribe 4.1.4 que es muy bueno pero es de pago, tal vez ustedes dispongan de una macro que me permita generar codigos QR en excel. Agradezco de antemano vuestro apoyo. Jmollan

Hola, siculpen mi incoveniencia alguien sabe el codigo para que el MsgBox que indique el TextBox vacio a la ora de ejercutar el CommandButton , gracias!

Hola Comunidad Un gusto saludarlos Adjunto archivo que en el cual requiero que al rellenar filas de la hoja -Seguimiento Pendientes 2014- en la hoja BDGeneral se haga como un buscarv múltiple para cada mes y cada área esto con el fin de luego crear listas despegables dependientes. Quedo atento y muchas gracias Saludos Ejemplo.rar

Estimados amigos, Necesito su ayuda por favor, no tengo idea de como hacer una macro para que al momento de poner el código busque el la hoja PROVINCIAS el codigo y ponga automaticamente a que provincia pertenece, y ponga un CANTÓN de esa provincia aleatoriamente y de ese CANTÓN ponga una parroquia aleatoriamente COD PROVINCIAS CANTON PARROQUIA 17 al que pertenece aleatorio aleatorio Adjunto el archivo con cantones y parroquias, espero me puedan ayudar con eso, muchas gracias EJEMPLO PROVINCIAS 1.rar

Buenas tardes, Estoy haciendo un programa y pretendo importar los datos de distintas hojas de un archivo excel a otro pero sin que se me abra el archivo. Tengo este código que he sacado grabando una macro, pero cuando lo pego a mi codigo y ejecuto no consigo que importe los datos With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccionar arxiu 'Estudi'" .AllowMultiSelect = False .InitialFileName = "\*Estudio_CD*" result = .Show If (result <> 0) Then RutaLBT = Trim(.SelectedItems.Item(1)) End If End With RutaArrel = Left(RutaLBT, Len(RutaLBT) - 14) M…

Saludos Necesito una macro que autorellene las formulas de cada celda, desde B5:K201 Esto lo puedo hacer manualmente seleccionando desde B5:k5 y arrastrarlo la fila hasta 201, sucede que necesito hacer esto para unos 100 cuadros como estos que ven mostrare en el adjunto en realidad esto lo hice manualmente seleccionando desde B5:APH5, pero perdi algunos formatos de las lineas dibujadas en el proceso... Intente grabar una macro y obtube este resultado: Sub Macro1() ' ' Macro1 Macro ' ' Acceso directo: CTRL+a ' Range("AOY6:APH6").Select Selection.AutoFill Destination:=Range("AOY6:APH201"), Type:=xlFillDefault Range("AOY6:APH201").Select End Sub Sucede…

Estimados, Tengo una macro que necesito me ayuden por favor a mejorarla. La macro lo que hace es ver la edad segun la fecha de nacimiento y generar un numero aleatorio supuestamente no repetido, pero al generar nuevos aleatorios si los repite, la macro es la siguiente: Function CALCULAREDAD(FechaNac As Date) Dim nacfecha As Date CALCULAREDAD = Abs(DateDiff("YYYY", FechaNac, Date)) - 1 nacfecha = DateAdd("YYYY", CalcEdad, FechaNac) If Day(nacfecha) < Day(Date) And Month(nacfecha) = Month(Date) Then CALCULAREDAD = CALCULAREDAD + 1 Else If Month(Date) > Month(nacfecha) Then CALCULAREDAD = CALCULAREDAD + 1 End If End If End Function …