Buenas, tengo una base de datos que lleno mediante un formulario, cada vez que le doy "Agregar" me modifica esa fila con datos nuevos en la hoja1 (base de datos), modifico varias filas desde el mismo formulario sin salirme del mismo. ahora bien, cual seria la macro que al pinchar el botón "Agregar" me copie esta fila que modifico al historial (hoja2)? Ojo, las filas modificadas no son consecutivas hacia abajo, pueden estar salteadas. Pero en la hoja2 si puede ir pegadas a la ultima fila vacía. En resumen, necesito que cada vez que modifique esa fila mediante el formulario, me copie esa fila modificada inmediatamente a la otra hoja de historial sin salirme del formula…

Buenos dias estoy haciendo un programa para los partidos de balonmano . Necesito un boton que sume 1 al valor numerico de la celda que haya selecionado . i otro boton que que reste -1 valor numerico de la celda que haya selecionado .

Hola, quisiera saber si hay forma de conectarme a sql server pero con otro usuario de red de windows. Esta primera cadena, realiza la conexión pero con usuario local de sql server: cn.ConnectionString = "provider=sqloledb.1;data source=DESKTOP-GRP18I3;user id=prueba;password=prueba;initial catalog=prueba" Esta segunda cadena, realiza la conexión pero con el usuario que en ese momento esta logueado en la PC: cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=lims\ts;initial catalog=Prueba" Ambas funcionan correctamente sin embargo quisiera saber si es posible poder utilizar la segunda conexión, pero…

Cambiar filtros de informe de tabla dinámica con macro haciendo una texbox en otra hoja mismo libro Supongamos que tengo una macro el cual me hace una tabla dinámica en esta macro ya están todos los valores definidos. mi pregunta es: Si quiero que el filtro de informe este determinado por lo que esta en una lista desplegable de validación de datos que se encuentra en otra hoja como logro que, en el momento que se termine la tabla dinámica el filtro me lo ponga de acuerdo al valor que tengo en esa celda de esa otra hoja?? Esto es lo que tengo: ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("Tecnologia"). _ CurrentPage = "(All)" With ActiveShee…

A ver si alguien me puede ayudar¡¡ De entrada gracias a todos y perdón por mi ignorancia... soy bastante nueva en estos temas... Después de mucho buscar no sé cómo solucionar el siguiente problema... He creado una macro... y he conseguido que funcione¡¡¡ es la siguiente Sub test() Dim i As Long, j As Long, rw As Long Dim rng As Range, cel As Range Dim arrWords Dim xlCalc As XlCalculation arrWords = Array("number", "media", "genotype", "user", "experiment", "box", "age", "scale", "root") ' edit the array as required xlCalc = Application.Calculation Set rng = Range("c1:c2000") For rw = rng.Rows(rng.Rows.Count).Row To rng.Rows(1).Row Step -1 …

Hola que tal, Trataré de explicarme con lo que estoy intentando hacer. Tengo una hoja de excel donde en una fila hay un mes con sus días, ejemplo: Enero: 1 2 3 4 5 6 7 ... 31 abajo de esa fila está Febrero: 1 2 3 4 5 6 ... 30 y así consecutivamente cada mes en una fila mas abajo. Cada numero de los días del mes va en una celda. Ejemplo de hoja aquí. Mi duda es como hacerle para que con código al seleccionar una celda o un grupo de celdas donde están los días del mes estas se pongan de un color de fondo especifico. NOTA: Excel me permite ponerle color de fondo a las celdas sin código, nada complicado, pero de esa manera primero hay que seleccionar las celdas y luego…

Hola buen tardes He tratado, visto y estudiado un poco de como poder desarrollar la siguiente macro: Actualmente tengo un listado de personas, que tienen una fecha de Ingreso, la cual puede variar o ser la misma y cada uno, tiene una vigencia del 28 o 90 días, lo que necesito es que por medio de un formulario y al Abrir el archivo Excel me enliste la o las personas que están pronto por vencimiento, unos 5 antes de que llegue esa fecha, no se si haya algún valiente que se anime en apoyarme Gracias! F. de vencimiento.xlsx

Hola buen día, nueva mente necesito de a su valioso apoyo, requiero de una macro que me permita copiar datos de una hoja de acuerdo con varias condiciones en otra hoja, necesito actualizar un stock y no deben aparecer los lotes que ya salieron, dentro del archivo adjunto les muestro tres hojas de calculo, donde vienen las especificaciones. espero que alguien pueda apoyarme, de antemano muchas gracias EYS-STOCK.xlsx

Macro pegar cuerpo email recibido en una variable Buenas noches compañeros, no se mucho de excel y necesito su ayuda, estoy haciendo una macro que me copie el cuerpo de un correo y me lo pegue en Excel pero no que me copie todo el cuerpo en una celda si no como viene en el correo por ejemplo si el correo es: [ATTACH]29920.vB[/ATTACH] Pegar asi [ATTACH]29921.vB[/ATTACH] en varias celdas Hasta el momento copio todos mis correos en una capeta que cree en la bandeja de entrada llamada "audicase" y luego cuando finaliza la macro me los pasa a una subcarpeta que se llama procesados, todo eso me funciona bien... Esto es lo que llevo '' *******************************…

Los datos que tengo fijos son: ruta = ActiveWorkbook.Path & "\Archivos\" Archivo="2021-11-22-4-1" La extension del archivo No es fija, puede ser (XLS, DOC, PPT) pero solo hay uno con ese nombre Pregunta: Que instrucción debo de escribir para que abra el archivo Gracias

Estimados, Estoy tratando de hacer una macros que me permita abrir todos los archivos de una carpeta, copiar una casilla y pegarla en la tabla de otro archivo, pero al ejecutar me lanza el error previamente mencionado. Si alguien me puede ayudar en esto estaría muy agradecido. Saludos! Option Explicit Sub Open_All_Files() Dim oWbk As Workbook Dim sFil As String Dim sPath As String sPath = "C:\Users\User\Desktop\Respaldo Periodo Felipe 08-03-2012\TERPEL\Planillas TERPEL\checkist total\" ChDir sPath sFil = Dir("*.xlsx") Do While sFil <> "" oWbk = Workbooks.Open(sPath & "ID1 ISLA BILBAO.xlsx") ThisWorkbook.Activate Sheets("Isla").Select With …

saludos... la verdad es que he tratado de distintas formas y no he podido lograr lo siguiente: cuando estoy en el userform de compras y le doy en el boton de siguiente, me filtra los item que aun no tienen fecha de compra, y asi esta bien, lo que no he podido lograr es que en el listbox me aparezcan las otras columnas como referencia y color. muchas gracias - - - - - Mensaje combinado - - - - - ... también me gustaría saber si hay alguna manera de llevar el consecutivo del item # de alguna forma ... ya que cuando cierro y abro el documento se reinicia el contador del item #... Muchas Gracias. =) subir.rar

Hola amigos. Estoy en la búsqueda de ayuda para modificar una Macro que pretende separar nombres propios compuestos. La macro que utilizo no lo está haciendo correctamente (lo hace parcialmente) y no he podido dar con el código correcto, así que recurro a los que saben solicitando su ayuda. En el fichero que subo van las explicaciones de lo que debe hacer la macro. De antemano, muchas gracias a quien o quienes puedan ayudarme. SEPARA NOMBRES.xls

Buenos días, De antemano muchas gracias por vuestra ayuda. Necesito *******mente crear una macro que copie y pegue datos de un rango entre dos archivos de excel diferentes. Tengo los archivos ECUA11 y ECUA; los dos tienen una única hoja (datos) y están en la carpeta C:\Macro. Necesito lo siguiente: una macro para copiar de ECUA11 el rango de celdas B3:H20 y pegarlo -como valores- en ECUA en el rango B3:H20. Hasta el momento, desde ECUA11 he logrado llamar y abrir el archivo ECUA y también seleccionar en ECUA11 el rango a copiar; a partir de ahí no he sido capaz de pegar los datos ya que siempre me falla (especialmente porque no tengo muy claro que tengo que poner en …

Buenas!!! De nuevo acudiendo por ayuda, quisiera saber si existe alguna manera de que el formato que tiene una celda en una hoja de excel se vea reflejado en una macro VBA, por ejemplo: si una celda tiene el fondo de color amarillo y el texto de color rojo, al ejecutar la macro y busqué este dato se vea reflejado el mismo formato de color de fondo y color de texto

Saludos amigos del foro tengo un gran dilema que no puedo resolver, se trata de un listbox que carga datos de una hoja de más de 40 columnas y una infinidad de filas, para ello conseguí un listbox que me carga los datos, el problema es que no me carga la cabecera sobre los datos, lo cual no quiero que sea con textbox, sino que los cargue de la tabla de Excel y sea fija, el otro problema es q habilite el listbox para q filtre datos, lo cual hace pero me limita la cantidad de columnas mostradas al aplicar el filtro, y yo quiero mostrar al aplicar el filtro de “mes”, desde la columna “A hasta la AI” 35 columnas con todas sus filas. Por favor acudo a Uds. porque sé que me a…

Hola amigos del foro. estoy realizando una macro en excel en donde tengo mi base de datos de N registros y quiero pasarlo a un formato de word ya predeterminado y que vaya poniendo aleatoriamente los datos de excel en word y guarde el word en una ruta, lo q pretendo hacer es que se realice masivamente la informacion de excel a word. este es un codigo que estoy utilizando pero este lo hace uno por uno y no guarda el word cuando lo crea espero me puedan orientar para poder realizar este trabajo. Sub exportaraword2() Dim datos(0 To 1, 0 To 4) As String '(columna,fila) patharch = ThisWorkbook.Path & "\Plantilla ASF.docx" Set objWord = CreateObject("Word.Applica…

Hola, tengo una planilla para cargar datos sobre ingresos y egresos, estos datos se guardan con una macro y se cargan en otra hoja. Las opciones al completar en la planilla son "Ingresos en efectivo", "ingresos por transferencia" y "egresos", el problema es que no quiero que la macro funcione cuando la opción que se elija sea "ingresos por transferencia" ya que la hoja donde se cargan los datos corresponde a una caja real en efectivo (la opción de "ingresos por transferencia" esta por otro motivo). La macro utilizada es así: If movimiento = "Ingresos en efectivo" Then Sheets("caja H").Cells.Range("d5") = importe Else Sheets("caja H").Cells.Range("e5") = im…

Buenas, tengo una duda y busque la respuesta por lo menos 1 hora y no la consegui, se que aqui me ayudaran El tema es que tengo un UserForm donde modifico/edito una base de datos que esta en Excel, mi codigo es el siguiente: Private Sub cmdModificar_Click() Sheets("Clientes").Activate If txtCliente = "" Then MsgBox "Debe agregar un Cliente para continuar", vbExclamation, ":: RENATRUC ::" Me.txtBuscarCliente.SetFocus Else op = MsgBox("Está modificando el Cliente: " & txtCliente & ", ¿Desea continuar?", vbYesNo + vbExclamation, ":: RENATRUC ::") If op = vbYes Then u = Hoja2.Range("A" & Rows.Count).End(xlUp).Row With Hoja2.Range("A1:A"…

Hola de nuevo a todos. Tengo un problema con una consulta desde Excel a Access usando UDATE. El error viene porque intento actualizar un campo que está vacío o nulo. En la base de datos está vacío y cuando actualizo todos los campos del registro este campo a veces lo puedo dejar vacío. Sql = "UPDATE Tb_Checklist SET OT='" & ComboBox1 & "', AGRUPACION='" & ComboBox3 & "', GRUPO='" & ComboBox4 & _ "', Periodo_Checklist='" & ComboBox2 & "', Proveedor='" & TextBox1 & "', Referencia='" & TextBox2 & _ "', Usuario='" & TextBox3 & "', Importe='" & TextBox4 & "', Porcentaje='" & TextBox5.Value / 100 …

Necesito hacer una macro que seleccione una hoja dentro de un mismo libro de excel y el nombre estara determinado por el valor que contenga mi textbox de mi formulario

Hola a todos buenas tardes, Escribo esta entrada para ver si me pueden ayudar con una herramienta que estoy desarrollando en excel. Necesito colocar dentro de un formulario una imagen (eso no tiene mayor problema) y al momento de dar clic en la imagen que me salga una ventana emergente con un texto que yo asignare. Basicamente lo que quiero es colocar el boton de ayuda (?) como imagen y que al hacer clic despliegue mis comentarios de ayuda para el usuario. Saludos.

Hola a todo, tengo una plantilla de excel donde se pueden registrar los contactos,nombre,telefonos,....etc me gustaria hacer un buscador de datos, es decir yo en una ventana donde pongo el nombre dandole buscar me saldria una ventana donde aparecen los datos de la persona buscada. adjusnto el archivo que es donde mejor se ve la idea. Gracias. Un saludo dejo el enlace porque no me deja subir el archivo por ser de 250k https://skydrive.live.com/redir?resid=627BAD36DCF0343B!275

Tengo una macro que al exportar una seccion de excel exporta el rango en blanco sin informacion no se por que aqui el codigo Sub Descripcion_jpg() Sheets("Ingreso Productos variables").Select Dim B As String B = Range("C43").Value If B = 2 Then Exit Sub End If Sheets("Descripcion").Select ActiveSheet.Unprotect ("adctv530") Dim rgExp As Range: Set rgExp = Range("B22:K42") Dim archivo As String archivo = Range("A1").Value ''' Copy range as picture onto Clipboard rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ''' Create an empty chart with exact size of range copied With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, T…

Hola comunidad estoy buscando ayuda para un predicamento , estoy tratando de automatizar un proceso que realizo a diario y lo que quiero es que la macro filtre la base y si en la base no hay criterio,debe validar otro criterio de la base en otra columna y asi sucesivamente. Pongo el codigo de lo que encontre para saber si esto me sirve ya que no entiendo muy bien como funciona Sub Filtrar() Se define el criterio para filtrar. Pero si este no existe criterio que pasa criterio = [B1] Entiendo que aca se hace un si que si el criterio es vacio pues creo que solo filtra, o sea que en este paso podria colocar el segundo validador? If criterio = “” …