Macros y programación VBA

Hola buenos días amigos del foro, Actualmente manejo una bitácora de actividades en mi trabajo que se maneja diariamente, pero me encargaron automatizarla un poco, entonces estoy creando una pequeña ventana para poder filtrar rápidamente los campos que son de uso diario, ahí es donde no sé como puedo crear una macro para poder agrupar los días en semana (Ej.: Semana 1: 1,2,3,... / Semana 2: 7,8,9,...) ya que por ahora solo se hace manualmente, también en la columna "Turno" como crear un combobox que seleccione varias opciones (como si fueran checkbox) la verdad entiendo algo de macros pero no soy experto, agradecería mucho cualquier ayuda o sugerencia para reestructurar …

estimados amigos me podrían apoyar con crear macros que mé, al capturar en la primera pagina al dar anexar actualizara la pagina gdo 1, dependiendo de la fecha de captura y del bloque que este trabajando. agradesco, su apoyo, inserto el archivo. calificaciones dd.xls

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 …

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, 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…

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.

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.

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 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.

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 buenos dias quisiera saber si me podrian ayudar con esta orden de compra en la hoja1(DIARIO) del libro BASE DE DATOS , la idea es que por medio de un macro se pueda compiar los escrito en el DIARIO a la base de datos. dejare un ejemplo esperando contar con su ayuda de antemano muchas gracias orden de compra.xls

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…

Buenas tardes a todos, reciban un cordial saludo, quería solicitar su ayuda para saber si es posible lograr del archivo adjunto que por factura los conceptos de las columnas Descripcion_ELEMENTO-Descripcion_glosa glosa-Codigo se contatenen y elimine los conceptos repetidos dejando solo un numero de factura con los conceptos unidos sin repetición, se tiene en cuenta que el número de filas por facturas no es igual. Es posible que una macro realice esta tarea ejemplo.xls

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

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…

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 …

Buenas Noches a todos, He comenzado con vba hace muy poco y estoy generando codigo para el manejo de bases de datos, deseo que me filtre la base de datos por dias que pasaron desde ultimo contacto, ejemplo ( si se registro hace una semana serian siete dias), y habria un conjunto de datos que entre en esa clasificacion. El problema radica en que no se como filtar , puesto que hablo de selecciones que incluyen a varios registros, he utilizado el metodo FIND para registros por numero de identificacion y me ha funcionado por que son unicos pero cuando son repetidos no me funciona, ademas deseo que solo las personas que he incluido en el rango de dias me aparezcan en una li…

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!

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…

buenas tardes, tengo la siguiente duda Estoy realizando un formulario y en el puse un combobox, el cual quiero que se llene con una lista de productos, estos productos están en la columna A de excel así que a toda la columna A en excel en el administrador de nombres la llame "Productos" que se refiere =Hoja1!$A$1:$A$250. Mi duda es como hago para que el Combobox me cargue esta lista de productos sin tener que hacer un while, sino unicamente referirme al rango "Productos". pense que seria asi pero no he tenido éxito, espero me puedan ayudar Private Sub Formulario_Activate() Productos.ListFillRange = "Productos" End Sub [/CODE]

Buenos dias a todos. Nuevamente recurro a ustedes para pedir ayuda. Les explico, tengo un archivo con varias hojas las cuales son mis Ordenes de Compra otra hoja que se llama "Explosion de Materiales". Lo que quiero es que de las hojas que son mis "ordenes de compra" tomar el valor de la celda "J10" y pegarlo en la hoja explosion de materiales en la columna "G" siempre y cuando el nombre que esta en "A12" de la hoja que seleccione (Cualquier Orden de Compra) coincida con los nombres que estan en la hoja "Explosion de materiales" Anexo archivo y ahi tengo el ejemplo de como deseo y quede. Gracias y desde ya agradezco por su ayuda. Libro2.xls

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, estoy trabajando en una macro para copiar filas y luego ordenarlas (para hacer una análisis estadísticos sobre estas) tengo definido el rango y ya poseo la macro para copiar y filtrara las filas como las deseo. Ahora deseo que , con la misma macro, pueda copiar y ordenar al mismo tiempo. La macro que poseo es ésta: Sub CopyForm() Application.ScreenUpdating = False 'Limpiar datos anteriores Sheets("ANF1").Range("A2:DA46").Cells.ClearContents Sheets("ANF2").Range("A2:DA46").Cells.ClearContents 'Copiamos las claves desde !claves 'Para la Forma 1 Worksheets("claves").Range("B2:CW2").Copy Worksheets("ANF1").Range("E47:CZ47").PasteSpecial xlPasteValu…