Hola a Todos, Soy nueva en el tema de los Macros, en realidad es el primero que hago, y no se por donde empezar, espero que me puedan ayudar. Tengo un archivo de Excel como el que estoy adjuntando y lo que quiero es que se envien todos los datos que correspondan a cierto a cliente a su correo, por supuesto me falta agregar la columna para el correo de cliente. Me pueden ayudar? De antemano, muchisimas gracias Customer_Outstading_Prueba_2.xls

como puedo cambiarle la linea a este codigo que en vez de colorear me bordee la celda Sub Macro1() ' ' Macro1 Macro ' ' Sheets("hoja1").Select With ActiveWorkbook.Sheets("programa4cifras").Tab .color = 255 .TintAndShade = 0 End With Sheets("hoja2").Select With ActiveWorkbook.Sheets("hoja2").Tab .ThemeColor = xlThemeColorAccent6 .TintAndShade = -0.249977111117893 End With Sheets("hoja3").Select With ActiveWorkbook.Sheets("hoja3").Tab .ThemeColor = xlThemeColorAccent1 .TintAndShade = -0.249977435298762 End With Sheets("hoja4").Select With ActiveWorkbook.Sheets("hoja4").Tab …

Amigos que tal, estoy necesitando una guia o ayudita con esto tengo un userform donde hay un listbox al hacer click sobre este se abre un userform con los datos seleccionados, y aqui viene mi problema al modificar los datos y presionar modificar quiero se que se modifique el id seleccionado no el id 1 si yo seleccione id 7 que se modifique ese id y para eliminar lo mismo. Aguardo comentarios. Aqui les dejo mis archivos Excel+Access.rar

Desaveniencias entre Macros y archivos compartidos Estimados Gurus del Excel: Mi nombre es Nicolás Sosa, y de un tiempo a esta parte, por razones de poder mejorar el trabajo que realizamos en la institución en la que trabajo, se me ocurrió utilizar excel para realizar un control de gestión a un proceso en el que intervienen varios colegas. Después de mucho esfuerzo, ya que mis conocimientos de excel son bastante precarios, realice una planilla que se ajustaba a lo que necesitaba. Posteriormente le agregue un par de macros (bajadas de la web) para bloquear las celdas cuando se ingresan datos, y otra para activar los filtros que se bloquean al activarse la protección de…

Hola buenos días, como verán soy nuevo en el foro y esta es mi primer pregunta, tengo una duda con respecto a un macro, he está investigando y por más que intento no me sale, estoy haciendo un archivo donde necesito que recorra los valores de las columnas O14:V313 una fila hacia abajo si es que en la celda correspondiente de la columna AP hay un número 1, y que después haga lo mismo pero con las columnas W14:AD313y ahora tomando en cuenta la columna AQ si hay un número 1, ya lo intente copiando los datos en otras celdas y después aplicando el filtro y después pegándolos pero me los pega de corrido, es decir, no me respeta el filtro. Para que quede un poco más claro toman…

Hola a tod@s, estoy intentando crear una macro para insertar una fecha desde un calendario en una determinada celda, pero mi excel 2003 no dispone de control de calendario 11. ¿como lo instalo? Gracias.

hola, amigo encontre este archivo Bookmake, y me parece perfecto, pero necesito que de una hoja me realice 5 copias con las siguientes modificaciones; nombres y cambio a quien va dirigida la hoja anexo el archivo, espero que me puedan ayudar gracias Cinco Copias Choxis.rar

Buenos días: Necesito, si es posible, crear una macro con las especificaciones que indico en el archivo adjunto. Gracias por anticipado. esquema.doc

Buenas compañeros, si me ayudáis con los siguiente, lo agradecería mucho. El funcionamiento del libro es el que sigue: La hoja2 es donde se guardan los registros, éstos provienen de dos hojas distintas. De una vienen los datos a los que llamo Movimientos en Cuenta que sería en este caso la hoja1 y la otra hoja la he omitido porque no interviene. Los datos que provienen de la hoja1, en el campo Id siempre debe de aparecer 0 (000000), independientemente del número de registros. Se debe de llenar el campo Id (siempre 0 como he dicho), el campo Nombre (que sería el Concepto - hoja1), el campo F. Fin (que es la Fecha - hoja1) y R. Neto (que es el Importe - hoja1), el rest…

Muy buenas tardes comunidad. El día de hoy se me presento un problema con una base de datos que se encuentra en una carpeta compartida, se elimino la función indirecto de la columna "Estado" para la columna "Situación". Realizando la esta función en otro archivo me funciona pero no puedo subir este porque ya se encuentra compartida y tiene ciertas restricciones que no me permiten el cambio del archivo. Quería comentarles que esta base tiene un macro donde al cambiar el dato de la columna "estado" la información de esta fila se remite directamente a la hoja de "inhabilitados". MuchasGracias por su ayuda. BASE DE DATOS PARA 2013.zip

Estimados, tengo un archivo en el cual me he estancado, lo que necesito de este archivo es que se puedan ingresar datos de acuerdo a la visita u obra realizada y al final en un cuadro de resumen cuando se llame a la consutlta del lugar de la obra este muestre todos los espacios requeridos como: el total de nombres de los trabajadores, la cantidad descrita del material utilzado, las herramientas utilizadas la cantdad de horas de cada trabajador, la fecha de inicio, fecha de entrega de obra y servicio realizado, seria genial que se actualice y que se puedan incluir varias obras. Muchas gracias de antemano por su ayuda. Formulario de Obra.xls

Buenas A ver si me podéis echar un cable porque no hay manera >< tengo un combobox en una hoja el cual le meto una lista que esta el hoja7 "Tablas" y lo que quiero es que cuando seleccione un nombre me compare si existe ese nombre en la hoja7 "Tablas" en dos columnas columnas diferentes tengo dividida la lista del combobox es decir que si el nombre que le meto se encuentra en la columna O2 : O53 me active que se vea Imagen1 y si se encuentra en la columna P2 : P75 me active Imagen2 para asi diferenciarlas y si se da el caso de que el nombre no aparezca en ninguna de las columnas o el combobox no tenga ningun dato me desactive la aparición de las imagenes miran…

Hola a todos. ¿Cómo crear una macro que permita eliminar (no ocultar) los ítems de una lista desplegable una vez estos hayan sido seleccionados? Muchas gracias por su ayuda. Subo un archivo para mayor comprensión. Eliminar item de lista desplegable.xlsx

hola tal como dice el titulo es posible pasar una imagen/shape de una hoja a otra sin utilizar copiar pegar, es una lastima tener que borrar el contendió del portapales y no parece una solución muy adecuada.

Buenas tardes, tengo el siguiente código, pero no sé qué instrucción necesito agregar para que pegue solo los valores de la celda copiada. Ya que me manda error de compilación, de antemano, gracias por la ayuda Sub FirstVisibleCell() With Worksheets("Seguimiento").AutoFilter.Range ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2 Selection.CurrentRegion.Select Selection.SpecialCells(xlCellTypeVisible).Select ActiveCell.Copy Destination:=Range("F1").PasteSpecial xlPasteValues End With End Sub

Buenos días compañeros y buen fin de semana para tod@s. Tengo un problemilla con un excel y no sé como solucionarlo. Soy un poco novato en estos menesteres. En la hoja principal llamada PRUEBA, en la columna E figura el nombre del cliente que será AAAA, BBBB, CCCC, DDDD.... Necesito que se traspasen los datos automáticamente según se vayan rellenando de esa hoja llamada PRUEBA a la hoja del cliente correspondiente AAAA, BBBB, CCCC, DDDD..... Me imagino que la forma de hacerlo es mediante visual y es un tema que desconozco. COPIA FORO.xlsx

Buenas tardes; Estoy utilizando una macro que encontre aqui para presionar un boton e incrementar (m) el valor de un numero (ubicado en "I") y otro boton para bajarlo (ubicados en 0 , mi pregunta es como puedo hacer para que si el valor de la celda supera el "3" vuelva a 1, espero que me hayan podido entender. Nos se programar en visual pero estoy buscando algo similar a "If value >3; 1 " . Muchas gracias Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If IsEmpty(Range("I" & ActiveCell.Row).Value) Then GoTo Linea1 If Not Intersect(Target, Range("M" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Va…

Buen dia, quisiera solicitar de su ayuda, ya que deseo tener dos combobox en una hoja de excel, en donde en uno seleccione un distribuidor y en el otro salga el territorio correspondiente a este, estos datos los tengo en otra hoja, he revisado en internet pero en algunos casos utilizan un formular. Adjunto el archivo en cuestion, Agradezco de antemano su ayuda Saludos Fernando distribuidores.rar

Para desplegar la lista de información en un ComboBox no dependiente y del cual tampoco depende ninguno otro (concretamente para una lista de Proveedores), he escrito el siguiente código, y sin embargo no logro que me despliegue la lista referida. Private Sub cmbVendNameR_Enter() Sheets("Proveedores").Select Range("C29").Select Do While Not IsEmpty(ActiveCell) cmbVendNameR.AddItem ActiveCell ActiveCell.Offset(1, 0).Select Loop End Sub[/CODE] ¿Que estoy haciendo mal? Gracias anticipadas Anexo el archivo correspondiente. EMR.xls

Hola, cree un código, que la intención es acceder a varias cuentas de la web sin necesidad de abrir la pagina y escribirlas manualmente el usuario y contraseña, pero al ejecutarlo genera un error al tratar de encontrar los campos para asignar los datos de la cuenta y acceder a ella. Sub AccesoWebT() Dim acce As Object Set acce = CreateObject("Shell.Application") acce.ShellExecute "chrome.exe", "https://cfdiau.sat.gob.mx/nidp/app/login?id=SATUPCFDiCon&sid=0&option=credential&sid=0" While acce.Busy DoEvents Wend On Error Resume Next acce.Document.all.Item("Ecom_User_ID").Value = Range("B1").Value acce.Document.all.Item("Ecom_Password").Value = Rang…

Hola, tengo la siguiente Macro que lo que hace es copiar las deudas de un cliente en especifico Dado en el Rango Criterios, pero el problema es que me esta copiando absolutamente todos los datos no solo los que corresponden a este Cliente. Podrian ayudarme? No tengo mucho conocimiento en esto. Ya les adjunte el archivo para que me puedan ayudar Ejemplo.zip

Hola, agradecido de otras muchas ayudas que me dieron anteriormente, quisiera me ayudaran en esta cuestión Tengo una hoja excel con datos en la columna A (código de material) y H (precio)del tipo A H AS7-002 725,50 AS7-005 12,23 AS7-015 103,48 AA0-020 428,32 La hoja excel contiene un número importante de filas rellenas (varia entre 500 y 1500) La hoja excel sirve para el control de los materiales que tengo en el almacén según partes de trabajo que me envían. Lo que quisiera que hiciera la hoja excel por medio de un formulario seria. 1º PREGUNTA. Al introducir un código o parte de el, busque este dato en la columna A y se situé en esta celda Por ejemplo bu…

Buenas tardes; por favor necesito su ayuda para el siguiente problema: quiero crear un cargo en word con datos que lleno en excel; les adjunto los archivos de word y excel de como podría quedar, si es necesario modificarlo para que pueda funcionar adelante, estoy atento a sus indicaciones. en el excel he dejado comentarios para que se guíen con mi problema. gracias de antemano con su ayuda y tiempo. de excel a word.rar

Que tal, agradecería que me ayuden con el archivo de excel adjunto. Tengo un conjunto de filas para rellenar con listas desplegables dependientes, y al final de cada fila hay 12 columnas(cada una de un mes del año), al hacer un gasto se rellena una fila y aparecen cuanto gastamos y en que mes o meses ese concepto. Lo que requiero es que me copie las filass desde la 11, hasta la última fila de gastos rellenada por el usuario en la fila 2000, y de ser posible si una fila tiene gasto o datos en el mes de enero y septiembre( por decir un ejemplo),al copiar me copie un registro por enero y el otro por septiembre, por tanto ya no debera colocar los 2 meses en columnas sepa…

cordial saludo estimado, tengo un archivo en excel con una consulta sql en el editor de visual basic para extraer informacion de la base de datos de un programa de la empresa donde laboro. Hoja1.Range("A10:U20000").Clear Hoja1.Range("A10:U20000").Interior.Color = &HF5F5F5 Hoja1.Range("A10:U20000").Font.Color = &H8000000D Hoja1.Cells(4, 1) = "Intervalo:" & Me.cmb_Fini & "-" & Me.cmb_FFin Hoja1.Cells(5, 1) = "Linea de Producción:" & Me.cmb_LProd SQL = "Select C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,O.FDesp,P.NoOrden_Pprog,P.CodLote_pprog, L.nom_linea,min(P.Fecha_Pprog) Fecha_Pprog,Sum(P.Cantidad_Pprog) Cantidad, OT.descrip_to…