Hola mi nombre es Maurizio y mi nuevo problema y este: En una hoja de Excel en la columna (A) necesito escribir las fechas en su totalidad. Por ejemplo, (01/04/2019) Ahora, me gustaría saber si existe la posibilidad de informar en la columna (B) su día de la semana sin que tenga que arrastrarlo a mano durante toda la columna. Tengo que volver a escribirlo manualmente utilizando el VBA. En la práctica, me gustaría que sucediera un poco como esta macro que creé para que usted lo ayude a comprender mejor todo. Gracias Saludos de A.Maurizio. ###################################### Hello my name is Maurizio and my new problem and this: On an Excel sheet in c…

Buenas maestros del foro. He intentado y no lo he logrado. Pegar una tabla en una hoja dentro de una hoja la cual tiene un margen (Inicio B21), (Final B42). Pegue los datos en la primer celda vacia y baje una linea. Tengo el codigo que me hace lo que pretendo pero me da error en: "Selction.Paste.Special" Les adjunto el archivo "Origen" y el archivo "Destino" Gracias y quedo en espera de su ayuda. PROGRAMA PBA EXCEL.rar Libro_Destino.rar

Hola. Gracias al gran trabajo realizado por el usuario JSD en otro hilo de este foro y mediante el cual ha facilitado acceso a un sistema muy efectivo para generar facturas en Excel, me han surgido algunas características que entiendo le dan más valor añadido, y que en mi caso particular necesito. - Posibilidad de elegir la serie de facturación además del número de la factura. - Añadir el código postal a los datos del cliente. - Añadir diferentes opciones de método de pago o número de cuenta en el que realizar el pago. Gracias anticipadas por su ayuda. Facturación 26082021JSD.xlsm

Buenas chic@s. En un momento determinado de la macro solicito mediante un cuadro de diálogo la hoja en la que se van a trasladar ciertos datos. Uso esta expresión: hojaDestino = InputBox(prompt:="Introduce el nombre de la hoja", Title:="Hoja de destino de los datos", Default:=hojaActiva) También he probado: hojaDestino = Application.InputBox(prompt:="Introduce el nombre de la hoja", Title:="Hoja de destino de los datos", Default:=hojaActiva, type:=2) La variable hojaDestino la declaro como String y todo funciona perfectamente. La puedo usar para crear una hoja nueva sin problema, o para escribir en una celda concreta de esa hoja…

He creado una macro que envía mails desde mi cuenta de gmail. Los mails se envían bien. El problema es que no incluye la firma configurada en gmail cuando lo envío desde la macro. ¿Cómo puedo hacer para que incluya la firma en el mensaje? Sub EnviarMail() Dim MailExitoso As Boolean 'llamo a la funcion: MailExitoso = EnviarMails_CDO() 'si me devuelve un resultado Verdadero, todo salió bien: If MailExitoso = True Then MsgBox "El mail fué enviado satisfactoriamente", vbInformation, "Informe" End If End Sub Function EnviarMails_CDO() As Boolean ' Creo la variable de objeto CDO Dim Email As CDO.Message Dim Autentificion As Bo…

Estimados Amigos de Ayude Excel, Nuevamente estoy por aqui solicitando de su apoyo. A ver si me logro explicar: Tengo un archivo en el cual quisiera con una macro ocultar y mostrar un determinado rango de columnas, el cual tengo condicionado a una pequeña lista desplegable. La lista desplegable contiene números del 1 al 5 y en una celda a la par relacioné cada número a una letra que me representara las columnas que quiero ocultar. Supuestamente utilizaría esto para que me dejara únicamente el número de columnas visibles indicados en la lista desplegable, es decir si en la lista desplegable hay un tres, entonces me mostrará únicamente las primeras tres columnas. Mucho …

Hola a todos, Me ha pasado con Userform y con una macro. Tengo varias columnas ocultas, pero tengo una macro que copia un rango de la hoja1 pega datos en la hoja2 en el rango A:H, teniendo ocultas las columnas G:H. la macro se para justo cuando se va a ejecutar el Paste. He puesto instrucción Unprotec y además mostrar columna antes del Paste y ocultar columna al final de la macro. Hasta aquí llego, no se si es normal el comportamiento o si estoy haciendo algo mal. Gracias y saludos,

Hola, tengo esta macro para buscar un código en una macro y copiarla en una hoja específica. Necesito ayuda para realizar la siguiente acción. La base de datos es la hoja Compras. Los datos los necesito sacar a la Hoja Tomate, Acelga, Albahaca, etc. los códigos que necesito buscar los tengo en la columna A de cada hoja (Tomate, Acelga, Albahaca, etc.) Hoy la macro que tengo solo busca la hoja Tomate en la Celda A2, pero tengo códigos en A3, A4, etc. Necesito que la macro busque los código de la Hoja Tomate y los copie en esa hoja a partir de la columna B, en la primer celda vacía (ya resuelto). Luego que termine con esta acción, quiero que cambie de hoja y busque lo…

Estimados amigos del foro, planteo un tema respecto autocompletar texto en un control de vba. El autocompletado lo tengo resuelto para un textbox o combobox tomando en cuenta los datos de la hoja de excel. Me gustaría poder cargar el combobox con los datos que están en el listbox y allí aplicarle el autocompletado. Lo que sucede es que en realidad yo lleno al listbox con los nombres de los archivos que están en una carpeta (es decir los datos no están en una hoja). Espero que esto se pueda realizar. Agradezco su generosa colaboración Subo el archivo de ejemplo Autocompletar from Listbox.rar

Hola, Necesito hacer un filtro por medio de casillas de verificación, para que el usuario pueda elegir uno o más criterios, estuve buscando en internet y cree un código basada en algunos que vi pero no me funciona. Se los pego a ver si alguien me puede ayudar. (Tengo 4 columnas con 16 registros, la primera columna es el criterio q quiero filtrar) Sub Search_Click() Application.ScreenUpdating = False If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False M = Array("", "Hub", "Flange", "Segment") For x = 1 To 3 If Controls("Hub,Flange,Segment" & x).Value = False Then M(x) = "" Next ActiveSheet.Range("$A$2:$e$20").AutoFilter , _ F…

buen dia esperando que me puedan contestar una duda que tengo. he creado una macro para copiar y pegar datos de diferentes libros *.csv a un libro *.xls donde consigo copiar y pegar solo 3530 datos. dado que cada libro *.csv hay aproximadamente 3530 datos el resultado final que me arroja el archivo *.xls es solo guarda los datos del ultimo libro que gusdo como si los pegara encima del anterior la macro que hice fue esta [ Sub analisis2() ' ' ' Dim FolderPath As String Dim FileName As String Dim files As String nbre = Format(Now, "dd-mm-yy") files = "C:\pomini2\" & nbre & "\analisis.xlsx" Set car = CreateObject("Scripting.FileSy…

Buenos días, amigos. Excel 2003 + SP3 A ver si soy capaz de explicarme con claridad. Tengo un libro que contiene mucho VBA, muchas fórmulas y con una base de datos que me ocupa unas 40 hojas completitas de registros. Por lo tanto, es normal y lógico que el archivo pese cerca de 8 Mb. Este libro es un proyecto (por cierto, que creía ya terminado), hecho para una tarifa de precios junto a una hoja diseñada para presupuestos. Cada vez que hacemos uno, se guarda en una ruta establecida y con el nombre según el valor de una celda, y el guardado se ejecuta con una macro con el siguiente código: [COLOR="#0000FF"]Sub GuardarDirecto() Dim ruta As String On Error Resume N…

Buenas tardes amigos de "AyudaExcel" me podrian ayudar introduciendo un código para que aparezca un MsgBox que diga "No se encontro el dato" a no haber el dato en un código de busqueda que tengo no se donde colocarlo e probado unas opciones pero no mismo ya se que para ustedes será algo fácil pero para los que estamos iniciando se nos hace un poco dificil. Gracias por su ayuda amigos y una buena tarde Adjunto el código que tengo de busqueda en el cual quiero insertar el MsgBox Private Sub Buscar_Click() If cboLote.ListIndex > -1 Then Lote = cboLote Set celda = Base_Datos.Columns("A").Find(What:=Lote, LookAt:=xlWhole) If N…

Hola a todos tengo este treeview al que quiero poner color a los nodos raíz y aunque he mirado por ahí no consigo entender lo que me pone, me podeis ayudar. Gracias de antemano TREEVIEW.xlsm

Hola que tal expertos, en esta ocasión recurro a ustedes ya que no tengo idea de como generar esta macro, lo eh hecho con la función de buscarv pero no me funciona tal cual yo quiero ya que solo me muestra el primer dato en el que coincide y los demás datos no me los toma en cuenta, espero me puedan ayudar a solucionar u orientar en como realizar lo siguiente. Tengo un archivo de excel en donde tengo alrededor de 50 hojas cada una llamada ESTADO1,ESTADO2... asi sucesivamente... una de mis hojas se llama ACUMULADO que es donde tengo toda la información de la base de datos, por lo pronto ya logre que dependiendo del nombre de mi hoja se asigne a una celda dentro d…

Hola amig@s, muy buenas tardes a tod@s! Quisiera pedirles una ayuda por favor, tengo que hacer un listado de personas con varias columnas, pero que solo me habilite en Excel el número de filas que voy a ingresar, por ejemplo si coloco que voy a ingresar 3 personas solo me debe habilitar 3 filas mas la fila de los encabezados, así: NÚM ÍTEM | NOMBRES y APELLIDOS | NUMERO IDENTIFICACIÓN | FECHA NACIMIENTO | ESTADO 1 | Pedro Jerez Castro | 123.123.123 | 01-01-1983 | Activo 2 | Luis Mercado Soto | 123.123.123 | 08-05-19…

Mi problema es que no consigo grabar en el textbox2 el ultimo ingreso del spinbutton1 al textbox1 Para poder asi ver cual fue el ultimo valor ingresado y seguir la secuencia sin volver a colocar 2 veces el mismo valor (se grabe el valor asi vuelva a abrir el form) Gracias de Antemano..! Libros1.xls

copiar y pegar.xlsx

Buenos días Les escribo para ver si pueden ayudarme con una macro que estoy diseñando, en teoría es muy sencilla, pero no me funciona bien. El objetivo de la macro es que de la celda activa, en el ejemplo C7 tome el dato de la columna A7 y C5 y efectúe un filtro en la hoja de Pedidos y filtre con estas características, en el ejemplo debería filtrar el Aguacate de la semana 17, pero no logro que funcione bien. De antemano aprecio sus comentarios Archivo.xls

Hola buenas tardes mi nombre es Victor M. es mi primera publicación, tengo tiempo buscando en temas anteriores un buscador pero los que encuentro no me ayudan y si existe me disculpo pero no lo encontré, tengo esta situación; Tengo una gran cantidad de datos alrededor de 12,000 actualmente lo realizo con una formula pero esto me hace lento ami macro busco la manera de buscar información dentro de un mismo libro en hojas diferentes con la diferencia de que necesito la información de una gran cantidad de datos sin UserForme, formulas, ni filtros avanzados ya los intente solo un buscador sencillo de información anexo el ejemplo espero que le sea mas claro lo que busco. G…

Amigos tengo este pequeña consulta, veran tengo en excel undata bajada de mi DB la cual despues modifico poniendo un dato en la columna B, ahora quiere exporta eta informacion a la DB falta como este en el archivo adjunto. mediante macro se puede realizar esta tarea, subir la tabla y el dato que esta en b1. por favor me pueden dar una ayuda, como podría realizarlo. Adjunto archivo y imagen de la conexión que utilizo Saludos Muscaria Zonas.rar

Buen día Estimados, Intento conseguir dejar el zoom en 100% en cada hoja, haciendo referencia a un libro y hoja en especifica sin usar Activate o Select Windows(Nombre del Libro).Worksheets(Numero de Hoja asignado por un For).Zoom = 100 ¿Es posible hacerlo así?

Buenas tardes estoy aprendiendo esto de Macros y VB, estoy haciendo una aplicación que capture desde una macro e inserte los valores en una hoja de excel, la verdad es que ahí la llevo solo que cuando llego a un TextBox que debe llevar mucho texto y meto mas de 910 caracteres me marca error 1004 en tiempo de ejecución, error definido por la aplicación o el objeto. Buscando y buscando en Internet no he encontrado como hacerle para hacer funcionar esto, lo que me interesa es que 2 textbox puedan capturar un texto ilimitado sin marcar error o algo que los sustituya. el código es el siguiente (aclaro que lo he copiado y modificado de internet): Private Sub CommandButton1…

Con parto un formulario, muy bueno con varios campos a diligenciar, pero mi pregunta es alguien sabe como optimizar el cargue de la macro y que al momento de dar clic en almacenar no parpade tanto, que eso se ve muy feo???? Muchachos adjunto formulario y sentencia en archivo separado.... me cuentan, mil gracias sentencia macro formulario.xls FORMULARIO.xls

Buen día, es mi primera publicación en el foro, espero hacerlo bien. Estoy diseñando un libro para control de pacientes de una clínica y tengo una tabla a la que contínuamente se le ingresan nombres, datos y laboratorios correspondientes; al ingresar un nuevo nombre en la tabla se reordena alfabéticamente según fórmula, pero sus registros (datos) no se desplazan hacia abajo según la ordenación alfabética y según el nombre correspondiente. Quisiera que me asesoraran si es posible a través de una macro VBA lograr esta acción automáticamente dejando en blanco los registros de la nueva persona que ingreso. Espero haber sido lo suficientemente explícito; adjunto documento…