Hola a todos, tengo una hoja exce que me gustaria que se abriera solo en los pc que yo autorice. me gustaria saber como hacer para que detecte la mac de la ethernet o serial del HHD y que esta la compare con una que yo le diga y si no son iguales que cierre la hoja excel. he estado mirando mucho y he visto como hacer para que me cierre excel y como detectar pero para que compare y haga una cosa u otra no se. este es el codigo para saber el numero de serie del HDD: Sub AveriguarNúmeroDeSerieDeDiscos() Set fs = CreateObject("Scripting.FileSystemObject") Set D = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) MsgBox " Nº DE SERIE = " & D.serialnumber …

Hola un cordial saludo a todos. Tengo un libro con 365 hojas cada una con nombre de un día mes y año en especifico agradecería me ayuden a como puedo realizar la vinculación de cada hoja (día) para extraer valores totales a otra hoja y obtener los resultados necesarios, ya lo tengo echo de manera manual pero tardo mucho quisiera de su ayuda para no hacerlo de forma manual , ya que es muy laborioso dado que lo tengo que hacer de una por una. NO puedo adjuntar archivos por que tiene un tamaño de 4 Mb. Como podrían ayudarme por favor....

Buen dia: Tengo el siguiente código de una tabla dinamica: ActiveSheet.PivotTables("ADPRO").PivotFields("Suma de Costo").Orientation = _ xlHidden ActiveSheet.PivotTables("ADPRO").AddDataField ActiveSheet.PivotTables("ADPRO"). _ PivotFields("Saldo"), "Suma de Saldo", xlSum ActiveSheet.PivotTables("ADPRO").PivotFields("Suma de Saldo").Orientation = _ xlHidden ActiveSheet.PivotTables("ADPRO").AddDataField ActiveSheet.PivotTables("ADPRO"). _ PivotFields("Costo"), "Suma de Costo", xlSum pero cuando requiero que se oculte el campo Suma de Saldo que es un campo calculado me saca el siguiente error: "No se puede asignar la propiedad Orientation de la clas…

Hola qué tal comunidad de Excel, estoy aquí porque necesito de vuestra ayuda con un código de programación VBA. Estoy buscando un código que me permita tener 4 combobox dependientes, he buscado por el foro y aparentemente no está disponible. Ejemplo: Cuando seleccione en combobox1 gasto, en el combobox2 seleccione Estudios, en el combobox3 seleccione universitarios, en el 4to combobox debe permitirme seleccionar entre cuota mensual, matrícula o carnet. Por favor vuestra ayuda ? Muchas gracias por su atención.

Hola a todos tengo un problemilla tengo una lista con una serie de datos, mi pregunta es la siguiente: habria alguna macro capaz de leer en la columna Ahasta donde ponga TOTAL PROVEEDOR y concatenar los datos de la columna n? Gracias a todos por vuestro tiempo y la labor de aprendizaje un saludo 01-Prueba.xls

Buenas tengo el siguiente codigo: Private Sub CommandButton9_Click() Dim carac As String carac = ActiveSheet.Range("G5").Value ActiveSheet.Range("c14").Value = Len(carac) ActiveSheet.Range("c15").Value = Left(carac, 1) End Sub [/CODE] Con este codigo en la celda C14 obtengo el numero de caracteres de la celda G5 y el la celda C15 obtengo el primer caracter de la celda G5. Si en la celda G5 el valor es 845, tendre en la celda C14 el valor de 3 y en la celda C15 el valor 8, lo que quiero es con codigo que emplee el valor de la celda C15 (es decir el 8) y le añada tantos ceros como el valor de la celda C14 (es decir 3). Con este valor tendria un resulta…

Hola, tengo una duda. Tengo un Listbox en el cual aparecen datos del rango (A1:B10) por ejemplo, lo que necesito es que al seleccionar un dato del Listbox y presionar un boton ese registro se elimine de la Hoja. Pero no que se elimine la celda, si no que quede en blanco donde estaba registro. Si no es mucho pedir si se podria poner en el lugar donde quedo eliminado el registro una frase como "Registro fue eliminado". Gracias espero su ayuda.

Tengo archivos con información variable que puede ocupar más de una hoja de trabajo (1, 2, 3,...). Mediante una macro necesito lo siguiente: 1.- El número de filas (registros) que tiene cada archivo (uno a la vez) 2.- Obtener algunos indicadores estadísticos como la media, desviación estandard, el valor mínimo, el valor máximo de todos los datos (trabajado sobre un campo numérico específico) 3.- Mediante la generación de números aleatorios, recuperar la información del registro que corresponda a cada número aleatorio que se obtenga. Aunque sé que Excel no es la herramienta idónea para este tipo de problemas, la verdad es que no se cuenta con otra aplicación. Agradece…

Hola buen día a todos los excelianos ? Quisiera pedir de su valioso apoyo para lo siguiente: Tengo una hoja de excel que contiene un cierto número de comlumnas, por lo general entre 20 y 30 y un número de filas que van deacuerdo a la cantidad de personas que estan o pueden estar en esa hoja. Lo que siempre requiero son 4 columnas, que es el Número del empleado, Nombre, centro de costo (Cecos), horas Extras, Descanso trabajado y Descanso ganado y por lo tanto hay veces que esa hoja de exel puede en ocaciones contener menos o mas columnas, sin embargo simpre requiero de las columnas que antes menciono junto con la información que contiene cada fila o celda, no se …

Hola Estimados del foro , estoy buscando información y a la vez tratar de solucionar un inconveniente con mostrar una imagen donde detalle mi problema: tengo un formulario: (controles listbox,image)y una carpeta donde están todas las imagenes (miles de imagenes).,cuando yo selecciono en el listbox un codigo concatenado ejemplo ("200085-41257"), deseo que me muestre la imagen que esta alojada en la carpeta "imagenes2021" ,pero aqui viene el problema las imagenes que estan en la carpeta no tienen el mismo nombre del listbox la imagen se extrae de una web y viene de la siguiente forma : codigo+zona+fecha ejemplo "200085-41257-20210215.PNG" mi pregunta es como po…

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.

Hola a todos, ¿Alguien sabe como se pueden recorrer los valores de los argumentos que se reciben en una función en VBA? Estoy aprendiendo a utilizar JavaScript desde el propio Excel con Script Lab y hay una sentencia que es "arguments.length" que te da el número de argumentos que recibe la función, y con un bucle puedes recorrerlos ya que a cada argumento se accede a través de un índice. arguments[1], arguments[2], etc. La verdad que no he visto nunca como hacer esto con VBA, si alguien tiene idea de cómo hacerlo, sería interesante aprenderlo (yo no lo he visto antes) Saludos.

tengo una hoja en la cual necesito seleccionar un rango aleatoriamente, me explico: columna "A linea 1 a la 10 con datos" capturados manualmente columna "B linea 1 a la 10 con datos" capturados manualmente columna "C linea 1 a la 5 con datos" capturados automaticamente quiero seleccionar de la "C6:C10" y a cada una de las celdas que les falta datos intoducir un dato en forma automatica mi rutina es la siguiente Dim celda As range range("c1").Select 'columna con datos automaticos ActiveCell.End(xlDown).Activate 'para saber hasta donde tengo datos ActiveCell.Offset(1, -1).Select 'para saber que datos me faltan en la columna c r1 = ActiveCell.Addre…

Buenos días Podríais ayudarme a refinar esta macro que realice con la grabadora. Gracias Sub MetodoAbrirLibro() Workbooks.Open "C:\Users\jctorres\Desktop\pruebas partes automaticos\C2020-0138_Carga_Horas (1)2.xls" Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("A8:f78").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("A8:f78").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("F2").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("G3").PasteSpecial xlPasteValues Windows("P…

Hola buenos días, tengo una macro que copie de algún sitio, que se ejecuta bien, pero al final sale un mensaje de error. Espero que me podáis ayudar, un saludo. Partes.xlsm

Hola a todos, mi nombre es Maurizio No saber cómo hacerte un homenaje a tu habilidad y siempre estar dispuesto a ayudarme a llevar a cabo mis proyectos. Deseo agradecerte infinitamente y te ofrezco todo mi último trabajo. Este es el enlace para descargar todo Hola y gracias de nuevo. Saludos sinceros a Tutti de A. Maurizio. ######################################################## Hi everyone, my name is Maurizio Not Knowing how to make you a tribute to your skill and always willingness to help me carry out my projects. I wish to tell you infinitely thank you and I offer you all my latest work This is the link to download everything Hello and Thanks…

Hola a todos. Estoy intentado crear una Macro para extraer los datos de varios archivos, mismo formato, y unificarlo en uno general. Mi problema es que estos archivos individules se actualizan constatemente, es decir, que al consultarlo a primera hora puede existir 100 registros y a media mañana 50 registros más. Al crear la macro no tengo problema, pero si esta macro la ejecuto transcurridas varias horas despues de creearlo y al tener más registros lo archivos individuales, en el archivo donde la ejecuto se pisan los datos. Con lo que pierdo información. Por favor, alguien me puede ayudar. No adjunto archivo Un saludo Germán

Hola Estimado, Saben si es posible leer una imagen desde vba excel y colocar lo que dice la imagen en una celda de excel? Encontré este ejemplo en internet, pero no me sirve, ya que alcambiar la imagen por otra, sigue poniendo el dato de la imagen anterior, https://drive.google.com/file/d/1Oah4v6U1pX0jvhGDQExKqkGhoSSRkWxS/view

La situación es la siguiente En el archivo adjunto se requiere que el botón "guardar" mande la información a la base de datos bajo el ultimo registro encontrado y el control de ID de registro me permita navegar por cada uno de los registros.......... y con el botón "modificar", cambiar o agregar información a un registro determinado antes guardado. Agradezco de antemano su apoyo en la situación Robert Final con Formulario Ayuda Excel.zip

Buenas tardes, Estuve averiguando como cargar gifs en mis formularios ( con la funcion Webbrowser..etc) no tuve problemas hasta ahi, pero en realidad quisiera utilizarlo de fondo de pantalla del formulario, asi q al agrandarlo del tamañao de mi formulario, insertarle botones y ejecutarlo, mas alla que el tamaño del gif no coincide q no me preocupa por ahora, no figuran los botones, como si estuviera el webbrowser por encima de eso.... hay alguna manera que quede de fondo ? gracias

Hola amigos expertos, quisiera que me apoyen en la realización de una macro que me permita mover mis datos de una hoja a otra y generar un reporte...para que me entiendan mejor y yo también ir entendiendo el código quisiera ir paso a paso, desde ya les agradesco su ayuda profesional, quiero señalar que trabajo con excel 2003 y bueno tengo pocos conocimientos de programacion. 1. Quisiera saber como hago para que mediante un Nº de serie me busque hoja por hoja y al encontrar la serie me muestre los datos de esa serie en el resto de celdas, y en local actual me muestre en que hoja está. esto seria lo primero, reiterando mi agredecimiento por su apoyo, les adjunto mi archiv…

Amigos, muy buenos días, disculpen que moleste, pero veo que saben mucho, y quisiera pedir ayuda en lo siguiente: Debo hacer una operación matemática en una macros que estoy desarrollando, la realiza bien, pero con valores mayores a 1 pero sin redondeo, es decir después de la coma no me da las valores decimales, y solo tengo esto: A modo de ejemplo que al realizar la operación de: 2 * 1.36 = 2.72, y no 2.00 , o 0.35 * 0.2 = 0.07 y no 0.00 como lo está haciendo actualmente. Solo tengo esto: Private Sub TextBox17_Enter() TextBox17 = Val(TextBox16) / 100 * Val(TextBox7) * Val(TextBox22) TextBox17.Value = FormatNumber(TextBox17.Value, 2) End Sub …

Hola tengo esta macro si me funciona pero me pregunto si hay manera de modificarla y no repita las lineas de código ya que necesito que se haga la búsqueda hasta la columna DL Tengo una serie de datos mas o menos asi: A__M__N__DK__DL 1__4__5__2___3 3__6__7__6___1 3__2__6__12__11 4__1__1__4___9 7__3__2__13__32 9__3__5__7___5 9__2__4__3___90 DP_DQ_DR_DS_DT 1__4__9__11_14 3__8__21_39_51 4__1__2__6__15 7__3__5__18_50 9__5__14_24_119 Sub sumarsi() Application.ScreenUpdating = False Dim uf As Long, uf2 As Long Dim rangocriterio As Range Dim rangosuma1 As Range Dim rangosuma2 As Range Dim rangosuma3 …

[info]La siguiente rutina me arroja el error:se ha producido el error '6' en tiempo de ejecucion desbordamiento[/info] tengo entendido que hay un valor declarado por fuera de rango o acumulado hasta el limite y no se cual es. me gustaria descargar todo de la memoria o descargar el valor de alguna variable para evitar el desbordamiento si es que asi se hace espero sus amables comentarios, el código funciona bien pero después de un mes de uso digamos se daña.... aqui la rutina aclaro: la base de datos va por 900 registros mas o menos hasta ahora nunca tuvo problemas simplemente arrojo el error y desde entonces no ha funcionado de nuevo Sub VERIFICADOR() D…

Buenas tardes a todos, Quiero crear recordatorios para todos los cumpleaños de la empresa donde trabajo. Para esto tengo un listado de excel con toda la información de los empleados y a través de una macro se me ocurrió crear citas en outlook que sean recurrentes de forma anual. Logré armar el código para la creación de la cita pero el problema es que no sé como indicar el lenguaje vba que sea recurrente. Les muestro lo que armé: c = Columna con el nombre del empleado g = columna con la fecha de cumpleaños Sub EstablecerCitasEnOutlook() Dim nOutlook As Object, Cita As Object, _ Fila As Integer, uFila As Integer uFila = Range("a65536").End(xlUp).Row Set nOutlook =…