Macros y programación VBA

Sub GuardarEXEL() ' 'Guardar archivo exel ActiveSheet.Copy Selection.Copy Ruta = Range("H13") nomb = Range("C16") ActiveWorkbook.SaveAs Filename:=Ruta & nomb & ".xls ", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub Necesito que solo guarde la hoja activa y de la columna A hasta la E Gracias

Buenos dias, estoy necesitando ayuda con la solucion de este problema. Tengo una subrutina que hace varias cosas, y ala final quiero que me imprima el formulario para que quede un registro en PDF, alguien seria amable de ayudarme con ese problema? Desde ya muchas gracias

Hola A todos Espero estén muy bien. Recurro una vez mas a uds con lo siguiente: Para calculo de día semana del mes, buscando encontré lo siguiente: =NUM.DE.SEMANA(B2;2)-NUM.DE.SEMANA(FIN.MES(B2;-1)+1;2)+1 Siendo B2, la celda que contiene la fecha. Ahora mi tema es que quiero obtener el resultado dado por esta función en vba. Adjunto un pequeño ejemplo. Saludos Cordiales Pedro ejemplo.xlsm

Buenas, es una cosa fácil pero se me esta resistiendo, con Application.hWnd saco la de la ventana activa, el excel, y con FindWindow("notepad", vbNullString), la de notepad, pero cuando intento otras que tengo activas como por ejemplo el word no me da nada... alguien me puede indicar como indicar en el findwindow / ex el titulo de la ventana, gracias

tengo los siguientes codigos y me gustaria tener la opcion de ejecutarlos la cantidad de veces que sea necesario por ejemplo call aleato call zero ejecutar la siguiente cantidad de veces ( ) Sub Aleato() borrar_anteriores With Application .ScreenUpdating = False .DisplayAlerts = False '-- ufila99 = 1 + Hoja99.Cells(Rows.Count, 1).End(xlUp).Row tf = Sheets("estadisticas").UsedRange.Rows.Count tc = Sheets("estadisticas").UsedRange.Columns.Count '-- For x = 6 To 37 Do: f = Int((tf * Rnd) + 1) c = Int((tc * Rnd) + 1) Loop Until Sheets("estadisticas").Cells(f, c) <> "" Sheets("analisis").Rang…

Hola buenas noches, Tengo una Macro que realiza registros nuevos, esta misma macro, tiene varias condiciones el cual si en una columna contiene un valor X debe realizar el registro en 2 hojas distintas. También tiene como condición de que si en el campo "Contacto" el valor introducido no esta en mi base de datos de contactos, me abre un Userform nuevo para realizar el registro nuevo del mismo y posteriormente continua con el registro del "paquete" Si tengo el Contacto registrado, me cumple bien todas las condiciones, el problema es cuando no tengo el contacto registrado, me hace bien el registro en mi base de datos pero no cumple las condiciones antes menci…

Saludos a esta fabulosa comunidad. Por favor a quien me pueda colaborar ... Deseo hacer un filtro por fecha en un ListView, de una bddatos que se encuentra en una hoja de Excel . Las fechas son ingresadas en dos textbox uno de desde ( fecha inicial ) hasta ( fecha inicial ) y que el resultado me lo muestre en el ListView . Gracias por cualquier información que me ayude a solucionar prueba_filtrarPorFecha_Listview.xlsm

Hola tengo un formulario en Microsoft forms y descarga un Excel con la respuesta esas respuestas tienen imágenes en url estoy intento mediante código cambiarla a imágenes reales pero cuando compilo no hay errores pero trae una imagen vacía y no funciona necesito la imagen para que descarga en la celda que el corresponde pero que lea por filas primero y despues pase a la siguiente fila en algunas celdas hay varias url soy nuevo en VBA por eso no he podido pero me pidieron esto para ayudar en la empresa y nada que lo condigo

Hola, Ya casi tengo el proyecto acabado, únicamente me falta un tema que soy incapaz de solventar, tengo un botón "guardar", lo que hace es crear un clon en una nueva hoja con el nombre de la celda G4 y a la vez rellena los datos en la hoja16, estando el valor de G4 en la fila 2, pongo el código: Sub Guardar() Dim celda As Range Dim Fila As Long Set celda = Hoja16.Range("B:B").Find(What:=Hoja1.Range("G4").Value, After:=Hoja16.Range("B1")) If celda Is Nothing Then Fila = Hoja16.Cells(1048576, 2).End(xlUp).Row + 1 Hoja16.Cells(Fila, 2).Value = Hoja1.Range("G4").Value Hoja16.Cells(Fila, 3).Value = Hoja1.Rang…

Buenas, Este es mi primer post, no estoy muy puesto en el mundo de excel por lo que pido disculpas si resulto muy torpe. Tengo una excel (Office 2003) que toma datos de una página web cada 60 minutos, dicha web, tiene un sistema de logueo. Esto no me supone mucho problema, ya que con vba, mas o menos, logro conectarme y obtener los datos que me interesan. El problema aparece al pasar un tiempo, que la sesión caduca y deja de actualizar. He observado que el id de sesión se pasa en la URL y cuando esta caduca (cada 24 horas) el id ya no vale. Al reconectar, el id ha cambiado, por lo que me es imposible referenciar mi excel a la dirección que quiero ya que e…

Estimados Cuando Tengo un Formulario (Userform) Abierto e Ingreso Datos a la Planilla Excel desde el Formulario. Tengo que cerrar el Formulario para que se actualize la Planilla Excel, es decir, tengo que cerrar el formulario para ver los nuevos datos ingresado en la Planilla Excel. Algun codigo para que al apretar el boton ingresar datos desde el formulario. los pueda visualizar inmediatamente en la planilla y no tener que cerrar el formulario ? Atte. Diego Urzua S.

adjunto una lista y con ello un listbox donde se puede mirar los datos segun criterio elegido. pero como se imprimiria lo que esta en el listbox y no imprimir la hoja de excel. adjunto archivo Gracias!

Hola a todos, mi tema es el siguiente: Quisiera darle a una celda un valor en función del color de fonfo de otra, por ejemplo, si la celda A1 está en rojo, que la celda B1 tenga el valor de 1y en caso contrario que tenga el valor de cero, considero casi seguro que no se puede hacer con una formula y tendrá que ser con una macro, en tal caso la macro de evento que se ejecute digamos de forma permanentemente, al moverme entre las celdas por ejemplo, pues el color de la celda a su vez es un formato condicional en funcion del valor de la celda calculado con otra formula, he mirado en el Foro y no encuentro nada semejante, creo que para el tema planteado no esnecesario subir…

¿Cómo desplegar calendario en una celda de excel, similar a lo que se muestra en Project? Buenas a tod@s, No tengo mucho conocimiento de Visual o programación, por lo que les pido respetuosamente me tengan paciencia, he estado revisando varios temas de este foro para ver si puedo resolver mi inquietud, pero de los archivos que he descargado y que otros han subido para aportar soluciones a las consultas, cuando los abro y habilito los contenidos y pruebo los pasos que indican, siempre me sale un mensaje que dice: "No se puede cargar un objeto porque no está disponible en este equipo", por lo que mis consultas serían dos basicamente: 1. ¿Tengo que descargar algún complem…

Salu2 soy nuevo en esto tema:fatigue: pero necesito una ayuda me han encomendado realizar una pequeña validacion en excel que si en un combo box selecciono cualkier de los 12 meses del año a continuacion me coloque en la sgte columna para ponerle la fecha de nacimiento se puede realizar con formulas o con ayuda de macro si me dieran una manita le quedaria agradecido.. :sneakiness:

Encontré una magnífica macro de uno de sus colaboradores, para hallar la diferencia entre dos horas (Hora de Entrada y Hora de Salida) a través de varios TextBox. La he adaptado a mis necesidades. Funciona perfectamente, pero no consigo que haga el cálculo cuando la hora de Salida rebasa las 24 horas y pasa al día siguiente. Agradecería algún consejo, gracias. Libro1.zip

Hola: Lo que voy a pedir quizás roce lo imposible pero, por si acaso, ahí va: El archivo (creao por Logroastur) envía un mensaje a cada destinatario de la columna C. En condiciones normales (o sea, desde Outlook) envío los mensajes -uno a uno- y luego, desde la bandeja de enviados, imprimo el mensaje enviado para tener una prueba por si me reclamaran meses más tarde (ya que elimino los mensajes eliminados al cabo de unos días). Por tanto, lo que solicito es si hay alguna manera de que una vez enviados se imprima un folio (o bien se generen pdf´s que luego imprimiría) con los datos el mensaje enviado (uno por cada destinatario, claro). Como sugerencia (por ayudaros …

Hola, Sabeis cómo se puede detectar si la versión de excel 2007 que trabaja el usuario, tiene instalado el complemento que permite guardar en .pdf.

Buenos dias, tardes o noches El caso, como siempre, es que desde mi pc enruto el clip de flash desde la opcion "movie" que tiene la cinta de propiedades de la herramienta shockwaveflash y abre, es totalmente funcional. El problema... Quiero abrir el archivo que se encuentra alojado en una carpeta especifica de mi usb desde cualquier computadora. ya intente con el siguiente codigo Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long) Dim Ruta As String Ruta = App.Path & "CONTENIDOS\CLIPS\3.swf" Me.ShockwaveFlash1 = LoadShockwaveFlash1(Ruta) End Sub [code] pido el favor, de que si lo realice mal, me expliquen, o me ayuden a encontrar otro …

después de un cordial saludo, me dirijo a ustedes para ver si dentro de lo posible me brindan una ayuda, debido a que no tengo experiencia, programando en vba, y necesito agregar un formulario a una base de datos que estoy estructurando, me gustaría sobre todo poder a prender a introducir un formulario y que funcione perfecta mente, les doy las gracias de ante mano por su atención. esto es lo que quiero realizar si esta dentro de lo posible. 1- que se pueda entrar a la base de datos mediante usuarios y claves. 2- hacer un formulario para poder introducir, los nombres de los empleado, donde yo pueda ponerle las ausencia, permiso, y que cuando haga la consulta mediante a…

bueno primero que nada si leen esto gracias por su atencion el punto de de mi tema es si me podrian ayudar a la creacion de una macro que me permita copiar celdas especificas de 1300 archivos de exel a uno solo. mi ejemplo seria cliente1(archivo de exel parte de los 1300) nesesito copiar las siguientes celdas h1,h7,g11,g13 de ese archivo a otro llamado "resumen" de manera concecutiva y ordenada de antemano gracias por la atencion

buenas amigos. aca otra de mis inquietudes, como poner clave de inicio a un userform osea registrarle usuarios, i como porner clave igual para que no puedan editar el codigo de programacion de los userform del trabajo grs - - - - - Mensaje combinado - - - - - tema solucionado

Hola estmiadisimos, estoy con un problema en una planilla, la explico brevemente. En el libro tengo dos hojas, una con el nombre de "resumen" y otra "control de stock", ambas contienen planillas con datos, en la planilla de la hoja de control de stock, tengo una fila que contiene en cada celda diferentes numeros, en este caso lotes. en la hoja de resumen tengo una celda que contiene un listado con los numeros lote, lo que necesito es que en otra celda, cada vez que coloque un numero, me lo copie en la hoja de "control de stock" debajo del lote al que hago referencia. Espero haberme expresado correctamente. Por el momento no estoy pudiendo adjuntar el archivo. Muchas gr…

BUENAS TARDES, SALUDOS EXPERTOS; LA SIGUIENTE RAZON ES PARA VER SI ME PUEDEN AYUDAR, CUANDO IMPRIMA UN DOCUMENTO CON BOTONES DE VB NO APAREZCAN IMPRESOS. GRACIAS.

Hola amigos, actualemnte estoy tratando de crear una macro que pase datos de una hoja a otra de acuerdo a un criterio y este el nombre del encabezado de cada columna. por ejemplo de la hoja "origen " debo pasar todos ls datos de la columna que en la sprimeras celdas tiene el valor de "Codigo " y "Valor",sin embargo no sé como hacerlo. estos valores no siempre estaran en la columna A ni D, pueden variar de ubicación. mas o menos imagino, es que se deb tener un bucle que rrecorra las celdas desde la A1 hasta la ultima columna con datos que en este caso es D1) y buscar aquellas columnas que tengan en el encabezado los valores de "Codigo" y "Valores" espero que pued…