Hola. La consulta es como pegar un rango de celdas B10:B46 de la hoja 1 a un rango que no tenga datos en la hoja 2 F10:F46 y si tiene datos este rango que encuentre hacia la derecha el rango libre. Muchas gracias

tengo un formulario y este me alimenta un listbox que ademas no se como ponerle el encabezado quiero hacer que con el click de cualquiera en la lista del listbox este dato se seleccione AYUDA no recuerdo como hacer eso Libro1.xlsm

Que tal amigos, soy nuevo en este foro pero quisiera pedir la ayuda de alguien, encontre en este foro unas aplicaciones para crear registros desde excel a access y lo quiero ocupar para registrar clientes el problema es que puede crear registros duplicados ¿hay alguna forma de que me indique cuando un registro es duplicado? asi mismo quisiera saber como traer un registro desde access a mi hoja de excel siempre desde el mismo formulario. espero haber sido claro Saludos desde Guatemala MSACCESS_ADO.zip

Un salidos a todo el grupo, necesito la ayuda de todos los expertos en VBA lo que pasa es lo siguiente tengo un formulario donde me muestra bien los datos, también opciones para consultar. Cuando realizo la consulta por identificación me muestra bien, ahora viene cuando pongo los rangos de fechas y pulso el botón filtrar lo ocultan todo los datos y los detalles lo vuelve a cero; eso es un tema ahora el otro tema es cuando cuando pulso exportar me exporta bien los datos pero el inconveniente es que la columna fecha lo muestra muy largo y también los detalles no pasa completo: Los detalles son total retiro, total deposito y total de registros, eso dos temas son mis dificult…

Hola a todos, Estoy intentando crear una macro que me automatice un formulario web. Consigo rellenar los textbox normales utilizando el siguiente código pero no sé como conseguirlo en los richtextbox que contiene. Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .Navigate direccion Do While ie.ReadyState <> 4 And ie.Busy = True DoEvents Loop End With Set campo1=ie.Document.getelementbyid(etiqueta) campo1.value=valor Espero me podáis dar alguna idea Un saludo

amigo tengo este combobox en la hoja1 con el listado de hojas ocultas, cuando selecciono la hoja3 por ejemplo.........este me envia sin prolemas hasta la hoja, pero cuando regreso a la hoja1 (por medio de un boton) , el combobox muestra la ultima seleccion ( en este caso la hoja3) pero si vuelvo a seleccionar esta misma hoja3 no hace nada, tengo que seleccionar otra hoja y despues de esto, si puedo vollver a seleccionarla (hoja3). no se si sea la solucion .....pero cuando regrese a la hoja1 encontrar el combobox en blanco.....no se si sea necesario.........este es el codigo y el archivo Private Sub UserForm_Initialize() ComboBox1.RowSource = "hoja1!" End Sub Private S…

Buenas tardes, estuve buscando en el foro la respuesta a mi duda pero no logre dar con ella. Tengo un archivo excel como ejemplo de 10 hojas, pero serian mas de 20 hojas el original. En cada hoja se cargan los precios de cada producto que se compraron y la fecha de compra. Como todos los dias los productos van cambiando, es que necesito hacer un consolidado en la hoja 'precio' para ir sacando los precios por semana para presentar a los clientes. Entonces al poner una fecha en la celda D7, D8, D9, etc que busque el codigo de la columna B y devuelva el precio correspondiente a esa fecha. Espero se entienda, igualmente dejo un archivo de muestra donde intento explicar mejor…

Hola de nuevo. Llevo varios dias trabajando con una macro de lo que veo por ahi y he conseguido que me cree el archivo tal como quiero, pero me da un error: No se puede encontrar el archivo. Compruebe que su ruta de acceso y nombre sean correctos. Sub GeneraInformePDF()'Da nombre al archivoWorksheets("Hoja Nueva").SelectDim Nombrearchivo As StringNombrearchivo = Range("bm2")' Macro que guarda las hojas en PDFSheets("Hoja Nueva").ActivateActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\Documents and Settings\LAMOGA\Escritorio\" & Nombrearchivo & ".pdf" _, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfte…

Estimados, este es mi primer post en la pagina, la verdad les queria agradecer por todos los aportes que suben dia a dia ya que muchos de ellos me han salvado en mas de una ocacion. En esta oportunidad necesito de su ayuda y les escribo porque no encontre las respuestas en el foro, les intentare dar toda la informacion que pueda, pero los datos que manejo son 100% confidenciales entonces si falta algo preguntenme y les indico mas informacion al respecto. Bueno, tengo una base de datos con mas de 20.000 filas, que incluyen las columnas CAJA, BANCO, FALLA, INICIO Y TERMINO, estos son problemas que puede haber ocurrido con esta "CAJA" en un dia, la base que adjunto solo ti…

buenas tardes...a todos..los master bueno les comento que en mi Formulario cuando ingreso fecha ejem.11 de marzo y despues al grabar lo lleva a la planilla de excel como 03 del 11 por favor me pueden ayudar a solucionar detalle ..(Gracia Totales) fecha de pago.xlsm

Buenos dias Maestros..espero todos esten bien .. aqui otra ves ...molestando... por favor me pueden ayudar en esta solicitud tengo un listbox y necesito que este muestre en su pantalla la suma total de la culumna Neto, Iva y Total lo ideal seria que tambien muestre la cantidad de registro que esta considerando en las sumas Cantidad de facturas : xxxx Total Neto : xx Total Iva : x Total $ : xxx es posible dentro del listbox? desde ya Gracias Totales a Todos totales en listbox.xlsm

Hola, estoy trabajando en una macro que me filtre una tabla y que la pegue en otro libro, todo funciona correctamente salvo una parte. A la tabla que deseo copia le pongo la opción de un autofiltro para que me seleccione solo una semana en particular, y tengo una validación para ello: Sheets("DataIns").Select Worksheets("DataIns").AutoFilterMode = False Range("A1").Select Selection.AutoFilter Field:=7, Criteria1:=wk Range("G1").Select ActiveCell.Offset(1, 0).Select comproWeek = ActiveCell.Value If comproWeek = wk Then Range("B1").Select ActiveCell.Offset(1, 0).Select Range(Selection, Selection.End(xlDown)).Select Range(Sele…

Buenas tardes, desde México. Antes que nada les comento que no soy usuario avanzado de excel, espero puedan ayudarme. Tengo esta hoja de calculo, que basicamente, al hacer una serie de calculos que he definido, me devuelve 4 posibles resultados (Columnas R,S,T,U), que comparo contra un resultado deseado, (Columna I). Si cualquiera de estos valores es igual al resultado deseado, entonces, la columna I se pinta de verde, con un formato condicional. Mi objetivo, es encontrar una combinacion de porcentajes, mostrados en las celdas C-9,C-10,C-11,C-12 Y C-13 (aunque la celda c-13 no debo cambiarle el numero, pero es parte de los calculos), tales que toda la "columna I" s…

Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como mejorar la siguiente macro que describo a continuación, dicha macro permite exportar dicha información a una plantilla en diseñada Word, pero mi problema esta en dicha tabla no solamente puede contener 6 filas sino muchas en la sentencia: Worksheets("TELECREDITO").Range("A1:D7").Select y lo que se requiere es dicha tabla que está en Excel exporte la cantidad de filas que contenga a la plantilla del archivo Word en forma automática y que el siguiente párrafo del archivo Word no sea alterado para lo cual adjunto imagen, también quisiera saber como puedo q…

Buenas noches: Tengo un formulario para dar de alta a entidades. Al introducir los datos de cada una quiero que se les de un id; sin embargo, me da el siguiente error: cuando grabo un registro nuevo me "machaca el que tenía registrado y me asigna siempre el Id 1 y así sucesivamente, de tal forma que va eliminado los registros y solo queda el último???? Me puede alguien echar una mano y decidme dónde esta el error??? Dejo el enlace con el archivo. https://drive.google.com/open?id=1W4TnIlIZem36J9qmELBccHvfzgBCsd1V Muchas gracias!!!

Hola a todos, primero que todo dar las gracias por los aportes y comentarios que haceis.. Hoy traigo un "pequeño gran reto", GRÁFICA VERTICAL TIPO PROCESOS La Idea es obtener un gráfico Tipo Procesos (Vertical), y que las Formas (Shapes), cambien de celda dependiendo de los valores registrados en la columna "E"; para cada opción de este Ejercicio ... RANGO DE VALORES desde 0 hasta 100; mostrados en el Rango("F2:P2") La idea es que al cambiar el valor de la Columna "E", el objeto (Shape), se desplace a la columna correspondiente (F; G; H; I; J; K; L; M; N; O; P) Dependiendo del valor registrado en la Celda Range("$E...") La M…

Buenos dias espero me puedan ayudar Tengo un código que me cuenta los datos de una columna de un listbox y me los deja en un textbox, Pero en la columna del listbox tengo datos duplicados. Lo que necesito es solo que me cuente datos únicos y dejarlos en el textbox Este es el código que uso ahora For x = 0 To ListBox1.ListCount - 1 If ListBox1.List(x, 7) <> "" Then m = m + 1 End If Next TextBox6.Value = m me podrían ayuda por favor y de ante mano muchas gracias

Buenas, desde hace tiempo eh estado siguiendo los macros que hacen, y se que muchas personas tenemos el mismo problema alguna vez.. pero hoy me tope con esto: en una carpeta tengo 400 archivos de excel, de los cuales hago una lista en excel de los archivos y en el momento quiero obtener un dato en la celda C5, pero el problema es que al momento de usar una macro para sacar el dato de esa celda tengo que hacer referencia ala hoja a usar, y mi problema es que los libros tienen diferentes nombres de hojas, si existiera algo para hacer que me tome la primera hoja del libro que ocupo sacar ese dato de la celda C5 mi problema estaría resuelto.. les dejo los macros que uso y gr…

Hola, alguien me puede facilitar el código del "juego de memoria" en excel, que consiste en una tabla de 6 x6 casillas y hay parejas de números que no se ven, al pulsar cambia la casilla de color y se ve el número, entonces debes recordar donde está el otro igual, al encontrarlo ya quedan a la vista. Lo he visto por internet pero no consigo bajarlo. Muchas gracias

Buenos días, Solicito su ayuda para pasar el contenido de 12000 archivos en formato .rtf dentro de una carpeta con historia clínicas, requiero pasar estos datos a una base de Excel para usarlos posteriormente en Access. En una columna debe estar el nombre del archivo ya que esta vinculado a la ID del paciente, y en otra columna el contenido del archivo. Ya busque en el foro, encontré una macro para pasar txt pero no me funciono, se bloquea el archivo de Excel y no responde. Gracias Rene Zamora

Hola a todos, estoy intentando enviar un mail desde un formulario y me está dando este error y no sé donde está el error ¿?. Saludos y buen día. MMail.xlsm

Hola compañeros, soy algo nuevo en el tema de macros... he podido realizar una macro (con ayuda del foro) pero tengo el problema que mientras mayor cantidad de datos el calculo demora demasiado hasta el punto de colgarse la aplicación... La función de la macro es que en la columna M me indique con una X los registros mas recientes, esto luego de comparar las columnas K, E y F. por ejemplo el Folio (columna K) N° 36078-S0801002537 tiene 4 registros, se marca con X la fila con fecha mas reciente (columna E), en el ejemplo existen 2 días iguales (columna E) , en ese caso se verifica por la hora (columna F) por lo tanto luego del analisis marca con una X (columna M) la fi…

Buenas tardes, Alguien me podría ayudar a corregir este código que tengo para unir un rango de celdas (varias hojas) en una sola: Sub UNIR() Dim Resp As Byte Resp = MsgBox("UNIR CONTENIDO", _ vbQuestion + vbYesNo, "Microsoft Excel") If Resp = vbYes Then MsgBox "Continuar proceso", vbExclamation, "Microsoft Excel" Application.ScreenUpdating = True For x = 5 To 17 Sheets(x).Select [B28].CurrentRegion.Offset(2, 1).Resize([B28].CurrentRegion.Rows.Count - 2, [B28].CurrentRegion.Columns.Count - 1).Copy Sheets("RV Consolidado").Select [C7].End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next Application.ScreenUpdating = F…

Hola, Necesito generar una macro para generar turnos de empleados en base a los siguientes criterios: - Horario 07:00-15:00 · Establecer 30 minutos de Descanso: tienen que asignarse habiendo transcurrido 2 horas desde las 07:00 y 1 hora y media antes de las 15:00 · El total de descansos a la vez no puede superar el 12% del total de empleados en turno. No sé si alguien puediera echarme una mano o si existe alguna macro que pueda servirme de base para ir modificando algunos parámetros de la misma. Gracias.

Buenas Tardes: Otra vez necesito de su ayuda, quien tiene un codigo para que me busque lo que escriba dentro del textbox y que si no lo encuentra limpie y reinicie la busqueda, gracias