compañeros tengo una gran duda, encontre este codigo para enviar un rango de datos en el cuerpo del correo, este rango tiene celdas con color, formato, etc... y existira la forma qe se vaya con todo y rubrica(firma). Gracias a todos por sus respuestas Sub Mail_Selection_Range_Outlook_Body() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Don't forget to copy the function RangetoHTML in the module. 'Working in Excel 2000-2013 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the visible cells in the selection Set rng = Selection.SpecialCells(xlCellTypeVis…

Mi Macros transforma datos del Excel a txt separando las columnas por un palote, mi problema es que transfiere también la información de filas vacías agregando los palotes hasta el infinito. Sub CreaTxT() Dim NombreArchivo, RutaArchivo As String Dim obj As FileSystemObject Dim tx As Scripting.TextStream Dim ht As Worksheet Dim i, j, nfilas, ncolumnas As Integer NombreArchivo = "LE" & Cells(2, 4).Value & Cells(3, 4) & "0008010000" & Cells(4, 5) & Cells(5, 5) & Cells(6, 5) & "1" RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt" Set obj = New FileSystemObject Set tx = obj.CreateTextFile(RutaArchivo) Set ht = W…

La verdad que no sé ni siquiera por dónde empezar. Bueno, en primer lugar pedir perdón si este tema ya se ha tratado en otro post, me ha sido imposible encontrarlo pero puede que ya se haya hecho la misma consulta. Intentaré resumirlo lo máximo posible para no desalentar a los que se aventuren con el problema. El libro Excel consta únicamente de una hoja en la cual hay dos tablas, una la llamo REAL y otra SIMULACIÓN. Ambas tablas están compuestas por los mismos conceptos: HORAS, LITROS, EXCESOS y RECARGOS, aunque los únicos datos que se deben modificar manualmente son los LITROS. La diferencia entre las dos tablas radica en que en la tabla SIMULACIÓN, los datos de la …

Buenos días, tengo un problema del cual no encontré forma alguna de solucionarlo. Se trata de un formulario que carga los datos en dos solapas diferentes, el problemas es que el textbox13 al cargar una fecha excel la da vuelta automáticamente. El problema es que al cargar por ejemplo 1/04/2016 (1 de abril de 2016) lo carga como 04/01/2016. Gracias por su ayuda y saludos. problema fechas.rar

Hola, tengo un formulario donde deben ser ingresadas tres fechas, cada una con su text.box. Ingreso la fecha pero luego al copiarla en la base de datos me la arreja en el formato mm-dd-yy, necesito que sea dd-mm-yy como lo puedo hacer? Gracias

tengo una formula matricial de 630 caracteres, al ejecutar la formula matricial a mano no tengo problemas, sin embargo al utilizar la grabadora de macros y ejecutarla me lanza el siguiente error. se ha producido el error '1004' en tiempo de ejecución: No se puede asignar la propiedad FormulaArray de la clase Range. habrá alguna forma de poder separar una formula matricial y asignarla a una variable, la cual si se cumple una condición ejecute esa parte de la función matricial y así sucesivamente. espero de su ayuda o si a alguien le ha pasado lo mismo y ha solucionado este problema me pueda decir como lo hizo.

Hola, estoy creando una macro para que me cambie el rango de un grafico. Cuando cambio el rango pulsando en la tabla y cambiando el rango a mano en la barra de funcion no me da problema. Cuando creo la macro y repito operación tampoco. El problema llega cuando ejecuto la macro que me da problema en la línea ActiveChart.SeriesCollection(1).Formula = _ "=SERIES(;Hoja1!$C$2:$E$2;Hoja1!$C$3:$E$3;1)" En este caso he creado la macro para que me cambie el rango de Hoja1!$B$2:$E$2;Hoja1!$B$3:$E$3 a Hoja1!$C$2:$E$2;Hoja1!$C$3:$E$3 ¿Alguien me podría ayudar? Gracias por adelantado

Buenas tardes! primero tengo que decirles me encanta este foro! y aprendo poco a poco. Ahora mi problema un proveedor me envia una hoja de excel (256752 Cookie Stefanie Biscuits individuels 19-11-2014) quiero exportar esa informacion (FICHE FOURNISSEUR) a otra pestaña en el mismo fichero (vale aclarar con mismas formulas formatos colores. (no con dependencias a otros archivos)) FICHE FOURNISSEUR(2) debe contenir toda la informacion hasta la linea 156 porque aveces tenemos ingredientes. Lo otro en la ventana FICHE FOURNISSEUR el proveedor debe colocar en orden sus productos con todos los datos debidos empezando desde la linea 1 en la celda B16 (en este caso estan en orden …

Tengo la siguiente macro en un libro titulado TARJETAS y quiero copiar la información de la primera hoja (CHECKTAVI_MARZO15) al libro titulado CHECKTAVI2015 en la primera hoja (marzo15). La macro se ejecuta pero no me copia los datos. Comienza a ejecutarse y he de detener la macro porque me copia la macro en vez la información de la primera hoja y parece no detenerse. ¿Alguien puede ayudarme? Adjunto la macro y archivos prueba. Gracias. Sub MYCHECKTAVI() Dim LastRow As Integer, i As Integer, erow As Integer LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To LastRow Workbooks.Open Filename:= _ "F:\Call1\Wap\16863\16863\ACCESO RAPIDO\CHEC…

Estimados tengo problema para copiar de un ingreso de datos que hago por un useform, el cual ingresa informacion a una hoja (hoja1), posterior a eso dentro del mismo CommandButton1_Click() necesito que me copie alguna información de las ya ingresada a unas celdas de otra hoja para hacer un pequeño informe para poder imprimir y adjuntar en pdf el cual funciona, pero no me copia los datos que necesito estimados les agradeceria mucho su ayuda.- Inventario.rar Inventario.rar

tengo la siguiente linea de codigo la cual me sirve para buscar una celda especifica para realizar una actualizacion de la linea y lo hace perfecto con el combobox. el problema es el siguiente que quiero hacerlo atraves de un textbox. y no se como hacerlo si alguien me puede ayudar seria fantastico el textbox se llama TB_LLENADO Private Sub Modificar_Click() Sheets("BD").Activate Cells(ComboAlumno.ListIndex + 2, 1).Select ActiveCell.Offset(0, 0) = TB_NOM ActiveCell.Offset(0, 1) = TB_RUT Range("A2").Copy End Sub

Hola a todos, mi nombre es Maurizio Y mi problema es este: En una hoja de Excel estoy tratando de crear un horario con fechas. 1) En Práctica en la Columna (G6: G35) ingrese una fecha de visita 2) Medidor que explota el VBA Me gustaría que en la columna (H6: H35) se verificara la cantidad de días que comen en la fecha límite. 3) Los medidores en la columna (I6: I35) deben darme la Confirmación o no de la caducidad. Ahora, en lo que respecta a la Columna (H), no me arriesgo a cambiar el simple clic para permitir evaluar cualquier inserción de fecha en la columna (G), pero tomada individualmente funciona muy bien ya que he adoptado esta función (Con Sheet1 …

Buenas Tardes, una vez mas necesito su valiosa colaboracion: Realizo la siguiente macro: Sheets("Hoja1").Select Range("A1").Select ActiveCell.Offset(1, 0).Range("A1").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Names.Add Name:="DATO", RefersToR1C1:="=Hoja1!R2C1:R26C1" Cuando ingreso una fila mas esta no hace parte del rango ya creado por esto R2C1:R26C1, como hago sin necesidad de hacer una tabla pra que cuando ingrese una nueva fila esta haga parte del rango llamado "DATO", gracias

hola buenas, he estado hace un tiempo aprendiendo y desarrollando macros en vba para realizar scraping en paginas web, en una de las paginas que utilizo apareció esta protección del sitio, el posible bypasear con vba? he leído que se puede hacer con phyton pero no conozco ese lenguaje el mensaje que dice es Cheking your browser before accessing "sitio" dejo pantallazo https://ibb.co/wp4mwzP en caso de no ser posible, quizás ya sea momento de aprender otro tipo de lenguaje agradezco mucho la ayuda

Hola tengo un problema estoy haciendo un macro para registrar las facturas, el problema es que todavia no lo tengo muy claro con los macros el tema es asi, tengo una factura que despues de imprimir tengo que generar un macro que me copie la informacion a otra hoja. el tema es que tengo varios productos para una sola factura entonces pasa que en una sola filas no queda todos los items sino que queda en maximo 10 filas entonces pasa 2 cosas si grabo el macro no se luego como hacer para que los nuevos datos los grabe abajo de los antiguos si alguien tiene alguna idea gracias dejo lo que tengo grabado en el macro Sub Macro4() ' ' Macro4 Macro ' ' ActiveCell.FormulaR…

Mi compañera y yo solo hemos hecho hasta la descomposicion factorial que nos muestra los exponentes. Nos sería de gran ayuda la resolución del resto. Introducción La teoría de los números es la disciplina matemática que se ocupa del estudio de las características de los números. Según esta disciplina, un número de gran alcance es un número natural en cuya descomposición factorial no contiene factores que no aparezcan más de una vez (todos los factores tienen exponente mayor o igual a 2). Problema 1. Elabore una función que indique si un número pasado como argumento es de gran alcance. 2. Diseñe y programe un programa que liste los números de gran a…

Hola compañeros, Acabo de crear un formulario y no me reconoce las variables objeto declaradas en la zona de declaraciones... ' Zona de declaraciones Dim PRUEBAS As Worksheet Private Sub cbAceptar_Click() Set PRUEBAS = Sheets("Hoja1") Dim ultimaFila As Long ultimaFila = PRUEBAS.Range("A1048576").End(xlUp).Row ' Y por aquí el resto del código... end sub Me salta un error que no me reconoce el objeto. A qué podrá deberse? Muchas gracias de antemano por cualquier tipo orientación.

Buenos días; A ver si me podéis ayudar. Tengo problemas con la apertura de un archivo CSV desde una macro. A veces, al abrirlo desde la macro, se come el encabezado pero no pasa siempre, no sé qué puede pasar…. La configuración regional es de “;” igual que la separación del csv. He intentado adjuntar el excel pero...ya no se como se hace, no me aparece la opción, lo arrastro desde el escritorio y nada. Os añado las líneas que tengo. Workbooks.OpenText Filename:=RutaExcel, _ DataType:=xlDelimited, Local:=True Gracias y un saludo,

Buen día a todos antes que nada, gracias a este foro que me ha ayudado ya en varias ocasiones, esta vex tengo un problema con un combobox, al cambiar el valor no cambia los textbox a los que esta vinculado. Private Sub CbPaciente_Change() 'Encabezado CbSesión = "" TbDisciplina.Value = "" TbEdad.Value = "" TbSexo.Value = "" TbFecha.Value = "" TbSesión.Value = "" End sub Private Sub CbSesión_Change() If CbSesión = "" Then Exit Sub Application.ScreenUpdating = False Hoja = CbPaciente.Value Valor = CbSesión.Value Set busca = Sheets(Hoja).Range("A5:FH34").Find(Valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Noth…

Hola buenas tardes, Tengo un problema que no me deja iniciar el UserForm y no se a que se debe.... Me salta el siguiente error La verdad que no se porque me pasa esto ya que estaba trabajando con el formulario y de repente no me deja iniciarlo. Dejo el archivo adjunto Un saludo, VBA3.xlsm

Buenas, vuelvo a publicar el mismo problema; talvez el otro por haberlo dejado bastante tiempo ya se cerro el tema.El problema es el siguiente:Tengo este problema, al abrir un archivo de Excel (Macro), me sale como cortado o en blanco al momento de ejecutar las macros, sin ejecutar las macros me aparece el archivo completó, ya sea los botones, el formato de la hojas, etc.Cuál podría ser el problema, probé con Office 2016, 2019, 2021, actualmente tengo Windows 10 (x64) pero aún persiste el problema. Pero en otras computadoras me corre bien el archivo. Link del archivo: SIN ERROR (SIN EJECUTAR LA MACRO): (Hoja Principal) (Hoja de Afiliación) …

hola a todos, hoy quisiera su ayuda con este problema que se me presentado, cuando crei que todo estaba terminado. les explico, en el archivo adjunto es una pequeña aplicacion para registar reparaciones de maquinaria y la vez casa reportes de entre un rango de fechas o por maquina. Problema 1: - en el frm orden, al guardar (hoja historico) todo bien alparecer pues si entro a la hoja historico me voy con la sorpresa que algunos registro los a gudardo sobre un registro existente porque ni idea por eso pido su ayuda (ver en la hoja historico filas 227, 273,767 y 841 como ejemplo del problema) problema 2: - en el frm_reporte, la idea es que se escoge un codigo y despues …

buenos dias al foro. por mi trabajo debo utilizar equipos de 32 o de 64 bits indistintamente. el problema se presenta cuando ejecuto macros en un sistema que no lee el otro. el aviso que se presenta es el que se ve en el archivo anexo. he cambiado la instruccion declare por ptrsafe para leer en 64 bits, pero cuando voy a 32, se presenta el error inverso. hay alguna manera de detectar si el tipo de sistema con el que trabaja el equipo para evitar el error? saludos desde venezuela.

Hola amigos. He creado un cuadro de lista que contiene una relación de cosas. Al hacere clic en una de ellas aparece la imagen de dicha cosa. Hasta ahi funciona bien. Luego he creado un boton para que borre la imagen que apareció. Resulta que no lo borra. Sale un mensaje de error. apelo a la buen volunta del foro para que me obsequien alguna orientación gracias por anticipado. saludos. Aldo. adjunto archivo de excel [ATTACH]34747.vB[/ATTACH] cuadro de lista con macros2.rar

Buenas tardes tengo un form que que desde ahi ingreso datos pero en algunas ocaciones ingreso mal los datos con con un boton buscar ubico los datos hago la modificación y con un boton "modificar" quiero que se grabe los cambios hechos que hice estos se graban en una hoja de excell "BBDD" que viene a ser la base de datos. Tengo el código pero no puedo programarlo bien para dicho objetivo a ver si me puedes ayudar. Muchas gracias amigos App'Demo.xlsb