La impresion predeterminada en la impresora de mi empresa es en blanco y negro. Como puedo hacer para que una macro VBA que imprime un listado de archivos lo haga en color ?

hola, como puedo generar claves o serial de licencia en vbaexcel para un aplicativo demo con determinado tiempo o contador de uso, que al ingresar en una caja de texto me desbloquea y no me vuelva aparecer mas el formulario de clave o serial. Bueno las claves tendria que enviarle yo por correo. Saludos se agradece su ayuda.

Buenas a todos. Tengo este codigo que forma parte de una macro, que como podeis ver sirve para crear y enviar PDF por email pero esta es la seccion donde en ocasiones me produce el error. En condiciones normales y fuera de la oficina con conexion normal a Internet funciona de maravilla. El problema viene cuando tengo el ordenador en la oficina y está conectado a la red de la empresa y al usar la macro se me para en esta linea Application.PrintCommunication = False. Me tiene descolocado ya que tengo configurado como impresora predeterminada CUTE PDF y no se porque en la ofi se para siempre aquí y fuera de la ofi funciona. En la oficina hay impresoras en red a las que…

Hola amigos, por un trabajo que realizo me surge la siguiente necesidad, ¿Es posible modificar el tamaño (en kilobytes) o en la resolucion de una imagen jpg, para que por ejemplo si pesa un megabayte y no quiero que sea tan pesada convertirla a 500 kilobytes. espero puedan ayudarme.

Adjunto ejemplo donde se ve claramente lo que quiero hacer. Gracias de antemano. ejemplo.rar

Ante todo un cordial saludo... Estoy creando un archivo excel 2010, donde debo llenar una base de datos con informacion referente a clientes y el estatus de reparacion de sus dispositivos mobiles. (para uso personal: soy tecnico). Para dicho fin he seguido un tutorial, sin embargo el resultado no es exactamente el esperado. entiendo gran parte del codigo, pero hay errores y funciones que desearia agregar y no encuentro como. Con referencia a los errores. Cuando intento escribir en el combobox el codigo de registro para un nuevo cliente, este autocompleta la informarcion con la de un cliente ya agregado. segundo; si solo por error guardo la informacion desde este punto, …

Retomo el tema de un compañero, alguien sabe donde se puede encontrar o que tenga un listado en excel o txt con los PAISES, ESTADOS(O PROVINCIAS O DEPARTAMENTOS) Y MUNICIPIOS(O DEPARTAMENTOS) a nivel mundial. O una base de datos, y que este relacionado es decir filtro país Estados Unidos me salgan solo los estados, ejemplo Florida y todas la ciudades, Miami, etc. Ejemplo CITYNAME STATE STATE_TYPE COUNTRY COUNTRY_CODE ARROYOFRIO TERUEL Province SPAIN ES AZAILA TERUEL Province SPAIN ES …

Buenas tardes Disculpen mi presencia seguida, pero estoy haciendo varias macros y a veces se me hace lagunas en el cerebro. Ahora mi cuestión es: 1° El desarrollo: Estoy haciendo una macro para convertir un archivo de Excel a CSV, hasta acá no tengo problemas. Pero resulta que ese archivo tiene que subirse a Dropbox. Me pregunta es si la persona no tiene instalado en su equipo la aplicación de Dropbox, que genera la carpeta para que al guardar ahí, automaticamente se sincroniza con la nube, existe algo que se pueda programar desde VBA para mandar ese archivo a la nube o se necesitaría ya de .net? Gracias

Quisiera ver si es posible que una macro se ejecute solo el día 30 de diciembre de cada año siempre y cuando no sea domingo, ahora si es domingo que se ejecute un día antes es decir el sábado, 30 de diciembre.

Hola amigos mesecito una ayuda con una macro que estoy relizando para enviar mensajes masivos por WHATSAPP usando el excel, tengo una archivo hoja 1 donde en una celda en mi caso E4 tengo una formula donde esta concatenado el mensaje que quiero enviar. y la macro la estoy extructurando de esta manera Mensaje = Hoja1.Cells(i, 5).Value ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=%" & NumeroTelefono & _ "&text=" & Mensaje & "&app_absent=1&send=1" que sucede con el mismo me da un error '-2146697208 (800c0008)' en tiempo de ejecucuón: No se puede des…

buen dia, hola tengo una super duda, pues como lo dice el titulo requiero pasar datos de un listbox a otro, lo que sucede es que la verdad me cuesta mucho trabajo el utilizar listbox porque me confundo mucho con respecto a los items y el manejo de las columnas e indices, trate de hacer un ejemplo pero no me queda porque solo logro pasar un item a una sola columna del listbox pero quiero que se pase tal cual sea lo que haya en el listbox1 al listbox2 ya que en un futuro pretendo agregar mas cosas en el listbox2 mas lo que ya venia del listbox1. espero darme a entender, dejo el archivo muestra. Saludos listbox aotro listbox.rar

Hola a todos buen día, hace poco termiiné de estudiar un curso rapido de Excel y terminé con exito la primera etapa de un proyecto que quiero implementar, al menos eso creía, resulta que este libro funciona hasta que lo cuelgo en una carpeta y lo uso como libro compartido: Les adjunto el archivo trabajado, lo que quiero lograr es trabajar con un libro compartido sin los errores que me aparecen: 1. No puedo proteger el libro 2. se deshabilita el boton que llama mi Formulario Principal, ubicado en la Hoja2 3. Ocultar y proteger ciertas Hojas. Pueden ingresar con ADMIN y contraseña 12345678. de antemano les agradeceré que me den una …

Estimados Amigos: Una vez mas quisiera molestarlos con el siguiente caso: necesito obtener registros de varias tablas de Access e insertarlas en determinadas celdas de excel a paratir de un solo dato del registro, en el archivo adjunto tengo un ejemplo que si funciona, pero me parece muy improvisado, o como decimos en mi país "chapuceado" ya que lo que estoy haciendo es llamar varias macros por medio de un boton, lo que quisiera saber es si es posible abrir una sola vez la base de datos y luego recorrer e importar los datos de las diferentes tablas y luego cerrarla, para no hacer lo que yo tengo. ¿Es eso posible? Saludos cargar formulario.rar cargar formulario.rar

Buenas noches. Maestros quisiera saber si se puede volver dinámico el rango a la derecha la propiedad RowSource de un ListBox. Es que tengo una base de datos a la cual de vez en cuando se le agregan columnas nuevas y quisiera se ampliara la selección a la derecha como lo hace hacia abajo. Ejemplo ListBox1.RowSource = "A4:End(xlToRight)" & Range("A3").End(xlDown).Row Algo así, no se si se podrá.

Hola a todos, quisiera que me ayudaran para poder realizar una una macro que al hacer click en un Botón de Comando que esta puesto en un UserForm me permita examinar el disco C: y de este escoger un documento cualesquiera y adjuntarlo o importarlo o por ultimo grabar el path en un TextBox. Saludos a todos nuevamente.

Buenos días,Por favor necesito vuestro apoyo para saber si es factible realizar lo que indico a continuación. Yo cNecesito crear una página principal, donde aparecerán 24 opciones y cada opción tendrá un selector y un contador con un número para saber si esa opción debe repetirse o no (es decir, ese número indicará el número de veces que esa opción debe aparecer, por defecto será un 0). Por defecto, todos los selectores aparecerán desmarcados y el número con 0. Cuando un usuario clique en un selector el número aumentará a 1 y después cuando aumentemos o disminuyamos el contador irá aumentando o disminuyendo el número. Si disminuimos a 0, el selector se desmarcará au…

Hola a todos; Me gustaría añadir al formulario que he adjuntado la función minimizar. Este formulario tiene una macro que redimensiona el formulario, hago este comentario por si hay incompatibilidad. Saludos a todos y buen día o tarde. Minimizar.xlsm

Hola, tengo este pequeño código, pero... al ejecutarlo se me queda el puntero del ratón (en círculo)girando y tengo que salir con CERRAR SESIÓN. Podéis ayudarme de forma muy sencilla ? mi código es este: Private Sub WorkSheet_Change(ByVal Target As Excel.Range) If Range("$L$7").Value = "1" Then Call Macro18 End If End Sub Sub Macro18() Application.ScreenUpdating = False Dim Str1 As String Dim Str2 As String Dim resultado1 As Long Str1 = Range("C8") Str2 = Range("L9") resultado1 = StrComp(Str1, Str2, vbTextCompare) Range("N9") = resultado1 + 1 Sheets("Hoja1").Select Application.ScreenUpdating = True Range("A1").Select End Su…

Hola, Tabla con dos columnas, en la columna A está el valor que deseo buscar y que coge de un formulario Para la búsqueda del valor utilizo Vlookup, pero necesito decirle que cuando encuentre ese valor, seleccione la fila y la borre. Eso es lo que me falla Gracias

Hola: El motivo de la consulta es el siguiente: Quiero saber si hay posibilidad de que al pasar el ratón por encima de una celda me salga un comentario, pero en el que aparezca el texto que hay en otra celda. El valor de esta última celda puede variar, de manera que el comentario irá variando en función de esa celda. He estado tratando de hacerlo de forma sencilla (con los comentarios normales) pero no soy capaz. No sé si con VBA se podrá hacer. Muchas gracias de antemano.

Hola a todos de nuevo. De nuevo con un problema con una consulta SQL desde Excel a Access. Pongo el código y explico. 'macro para grabar los datos en tabla Checklist Fin = ListBox1.ListCount For i = 0 To Fin - 1 xxx = ListBox1.List(i, 0) Conexión If IsNull(ListBox1.List(i, 9)) Then Sql = "UPDATE Tb_Checklist SET Importe='" & ListBox1.List(i, 4) & "',Contable='" & ListBox1.List(i, 7) & _ "', Previsto='" & ListBox1.List(i, 6) & "', En_Curso='" & ListBox1.List(i, 8) & _ "' WHERE ID =" & xxx Else Sql = "UPDATE Tb_Checklist SET Importe='" & ListBox1.List(i, 4) & "',Contable='" & ListBox1.List(i, 7) & _ "', Previsto='…

Buenos días, me he vuelto loco intentando encontrar la solución a un problema que tengo y agradecería ayuda. Intento explicaros lo mejor que pueda. Tengo una Hoja de excel la cual tiene datos en la columna A y la columna B. Necesito que si selecciono el dato que yo necesite de la columna A y apriete un botón se ejecute la macro y... cambie a color rojo el dato de la celda seleccionada, compruebe el dato de su derecha, columna B, y si pone Nuevo me copie el dato seleccionado, Columna A, en L6, pero si pone a la derecha del dato Antiguo copie el dato de la columna A en la celda O6. En resumen, que compruebe la macro a la derecha del dato seleccionado y copie en L6…

Cómo simular con código VB el pulsado de teclas de función Hola, Tengo esta necesidad. En una función de VB necesito que la fórmula que hay en una celda que se ve como texto se reemplace por un valor y se copie al resto de celdas de esa misma columna. La fórmula en cuestión viene escrita en un fichero .txt desde un ERP, por lo cual no se ejecuta automáticamente. Mirando las audas de VB para Excel he visto la función sendkeys y estuve haciendo pruebas pero no acaba de funcionar correctamente. La secuencia de lo que tengo que hacer es: 1. situar el cursor en una celda (BR6) 2. pulsar F2 (para editar la fórmula) 3. pulsar Intro para pegar el valor en la celda 4. co…

Hola necesito ayuda para crear una base de datos con macros y botones en exel donde me refleja las entradas salidas y un stock minimo asi mismo como crear mensajes de error y todo lo demas paso a paso

Buenos días Estimados, Tengo un listbox que muestra ciertos datos que están en una cierta hoja, una de las columnas está en formato hora [hh:mm] pero al visualizarla en el listbox me aparece con puros números como muestra la imagen: Este es el código que estoy ocupando y me lo muestra con números: Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Format(b.Cells(nFila, 8), "hh:mm") 'HORA Como puedo hacer para cambiarle el formato y que se vea como debe ser? (hh:mm) ¿Existe otra forma de asignarle el formato hora a la columna? Gracias.