Muy buenas tardes a todos, mi nombre es Gonzalo (LordAntrax) y deseo hacerles una consulta: Estoy creando gráficos con VBA en Excel. El tema es que todo corre perfecto, pero al momento de autoajustar el tamaño del mismo, no me deja hacerlo. El código es el siguiente: Al llegar a la sentencia .MinimumScale = Range("B6"), me da un error de que el objeto ya no es válido. Alguien me podría dar una mano con esto? :suspicion: Desde ya, muchas gracias. Saludos a todos

Compañeros, Nuevamente solicitando su ayuda, en esta ocasión traigo un caso interesante. En un caso anterior, estaba buscando una macro que me ayudara a importar varios archivos de texto a un libro de Excel, en donde cada uno de los archivos correspondiera a una hoja del libro. En este caso necesito algo similar, tengo que importar varios archivos de texto, CDia_01, CDia_02, CDia_03….. etc. cada uno corresponde a un día del mes, pero en lugar de 2 columnas vienen 6, de las cuales 5 corresponden resultados que corresponden a lo que le he llamado consolas; cosola1, consola2, consola3……. El apoyo que solicito es el poder extraer de cada hoja CDia….el dato que corresponda a…

Buenas Noches: Mi duda es la siguiente, estoy realizando una macro que busque un valor tipo texto que se encuentra en una columna © dentro de otra columna de este tipo(, con el fin de copiar un código(columana a) que acompaña a ese valor encontrado. Es decir, si encuentra el valor, pegar ej: en la columna D el condigo que acompaña a este. El problema radica en que no encuentro una fución que simplemente me diga si ese valor esta en la columna y en q posición para asi copiar el código, como lo hace la función VLookup o buscarV, espero me entiendan, adjunto un ejemplo de como deberia quedar la columna resultado D A B C D 1 1 pe pe 1 2 1 pe l…

Hola Masters! Estoy desarrollando una macro que debe copiar y pegar un rango de datos muy grande de la Hoja "BD" hacia la Hoja "DATOS GRAL" del mismo archivo pero por alguna razón cuando ejecuto la macro se traba y me aparece "Excel no responde". El rango de datos es de apróx 639,360 celdas. El código que uso es este: Sheets("BD").Select Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("DATOS GRAL").Select Range("A4").Select ActiveSheet.Paste Nota: Si lo hago de forma manual el copiar y pegar los mis…

Mi codigo esta funcionando al 90% ya que cuando estoy por finalizarlo, y deseo pegar datos que copie previamente de otra hoja, el codigo se interrumpe y no encuentro manera de dejarlo funcional. Estoy copiando datos de la hoja "Tabla1" y los estoy pegando en un libro llamado "REPORTE CC_MACRO" en la hoja "tabla base". El codigo se interrumpe en ' 3. Una vez seleccionada la celda D3, pegar los datos que se copiaron en pasos anteriores Selection.PasteSpecial Paste:=xlPasteValues Codigo completo: Sub BASEV1OK() Dim wsOrigen As Worksheet Dim wsOrigen2 As Worksheet Dim wsDestino As Worksheet Dim rngOrigen As Range Dim rn…

Muy Buenas... Os pongo en situacion... actualmente dispongo de una base de datos de clientes y lo que quiero (si se puede) es que a traves de un boton o algo similar situado en la misma fila donde tengo el cliente me traslade los datos de dicho cliente a una plantilla de factura.... No pido que me deis la macro hecha, tan solo os pido alguna idea xq estoy bloqueado. Estoy empezando en esto y es un vicio. ...Muchas gracias. base de datos1.xls Plantilla Facturas.xls

Saludos amigos del foro, La siguiente macro abre un archivo Word con formato de hoja en pagina vertical Private Sub CommandButton1_Click() Archivo = ThisWorkbook.Path & "\Microbiologia I.docx" With GetObject(Archivo) .Application.Visible = True .Application.Activate End With End Sub Me gustaría que me puedan colaborar con lo que falta para hacer que abra con las hojas en formato de pagina Horizontal Para probarlo por favor cambiar el nombre de este archivo word con uno que tengas junto a un excel y que al inicio haya estado de manera vertical para que la macro se encargue de hacer que se haga horizontal Agradezco anticipadamente su apo…

Buenos días. Por favor su amable apoyo de siempre. Con que fórmula en dax puedo hacer para que me de solo el % de un criterio. Ejemplo Tengo los siguientes datos Casa cantidad 50 Hotel cantidad 50 Total.50 Esto en Excel me da que casa es el 50 %. Y eso lo divido entre casa y el total Solo necesito ese dato pero en power bi? Recién estoy empezando a usar power bi. Muchas gracias por su apoyo.

Hola, Favor necesito de la ayuda de alguien, necesito poder llevar un control de envíos de documentación , mas que nada medir los tiempos desde que se envío hasta que fue entregado. cuento con toda la información , pero nose como consolidarla en un excel y que me entregue un resumen.

Que tal compañeros probando unas macros e intentado realizar un proceso, poseeo 2 macros las cuales funcionan perfectamente y logran lo que necesito pero ejecutando una por una e tratado de unirlas pero el resultado es distinto alguien me podria ayudar Modulo 1 ( este codigo funciona bien, si lo realizo por partes. Cuando lo integro no funciona, porque?) Sub Macro3() Cells.Select ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range( _ "P:P"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("A1:Z4…

buen dia... tengo un formulario que me agrega informacion.... me funciona muy bien....... pero tambien deseo, bien sea otro o en el mismo, uno que me busque un dato ya ingresado basado en algun criterio....... y me agregue informacion. o me la edite......... .. espero me colaboren..... basico un formulario que me busque basado en algun criterio ya ingresado y me edite informacion mil gracias........

Hola amigos, Me pasa una cosa que es de locos, cuando ejecuto un pequeño programa que tengo en Access VBA paso a paso funciona perfectamente, pero cuando lo ejecuto en automático los datos que genero en una hoja Excell no son correctos. He tratado de ponerle tiempos de espera de 5 segundos en varios puntos del programa, pero no consigo que funcione...... ES DE LOCOS. Gracias por vuestra ayuda

Buena Noche quisiera incrustar una lista desplegable en mi hoja de calculo pero el llenado de la lista la quiero hacer mendiante codigo vba. Gracias Fernando

Buenos días, no he conseguido encontrar algo sencillo que me resuelva el problema y por eso os escribo. Quiero una macro que abra una página web y me copie el código html en una celda para después trabajar con él para obtener la información (ya tengo preparada otra macro sencilla que separa lo que necesito). Si no es mucho pedir... Tengo un listado con 20 url diferentes. Lo ideal sería que se conectara primero a una, copiara el código, luego a otra... Muchas gracias

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 a todos, Necesito ayuda, estoy haciendo un excel en VB para hacer presupuestos y me quedado encallado en lo siguiente... Estoy metiendo unos CODIGOS, DESCRIPCIONES, CANTIDADES, PRECIO COSTE, MARGEN, PRECIO DE VENTA, ETC.. en un ListBox. Cada cierto tiempo he de ir sumando (Con un Boton) en otra fila el total hasta ese punto (TOTAL PARTIDA), luego sigo añadiendo artículos y le vuelvo a dar en añadir PARTIDA, pero no consigo sumar desde la ultima fila que ponia TOTAL PARTIDA hasta la ultima que añadi. OS adjunto una imagen para que os hagais una idea y el código. Gracias Un saludo. Private Sub CommandButton7_Click() Dim i As Byte, tot As Currency For …

Buenos dias, Adjunto el fichero el cual contiene una macro, lo que hace es que a partir de los datos que tengo, meta una fecha de inicio y una fecha de fin filtrando asi el campo vencimiento de contrato, y que estos datos se me copien en otra pestaña para realizar una serie de cualculos (pestaña informe). Mi problema viene que si ejecuto la macro y pongo: FECHA INICIO: 28/09/2012 FECHA FIN: 28/12/2013 La persona del ejemplo la cual tiene dos tramos, una vez me pone su fecha de vencimiento de contrato el 12/08/2013 y si la ejecuto otra vez me sale 08/12/2013, si la vuelco a ejecutar vuelve a la primera fecha y asi todo el rato. No se pq pasa esto en la otra fec…

Buenos días, estoy trabajando en una macro que extrae datos de un fichero .txt y lo muestra en una tabla de excel. Al ser un archivo que se está ejecutando todo el tiempo he pensado que cada X tiempo puedo copiar el archivo a otra ruta y trabajar con el archivo copiado en forma de bucle, de esta forma cada X tiempo la macro realiza un copia/pega y así los datos se irán actualizando. Pues bien, tengo un problema con esto, con el comando FileCopy al estar ejecutándose el archivo, evidentemente no me deja copiarlo a la ruta que yo le indico... A alguien se le ocurre como puedo resolver esto? Gracias.

hola a la comunidad....estoy armando un formulario pero esta incompleto....como es el código para insertar un calendar en el commandbbutton 7 y lo inserte en el textbox 1 la fecha que necesito , y cuando inserte el responsable de la atención del combox1 me ponga su dni y colegiatura automáticamente y lo bloquee , el frame registro hasta llegar al sexo tenga se ser obligatorio y mande una advertencia. y cuando llegue al combobox 3 al escoger uno de la lista me pongo en el textbox10 su código y lo bloquee y para antes pasar al combox4 me mande un msgbox y me diga quiere continuar con el registro o empezar con un nuevo registro y asi para los demás combobox . para el …

Buenos días, Tengo un Excel con una hoja de entrada de datos que tiene un botón con el que los datos me pasan a la hoja “CONSULTAS” y un botón “ELIMINAR”, para eliminar ciertas consultas. Este botón “eliminar” abre un formulario con el que buscas el dato a eliminar y lo eliminas. El problema está en que si busco un socio, sólo me encuentra la primera entrada, que es posible que no sea la que quiero eliminar y cuando la elimino, me elimina la fila entera y yo solo quiero que me borre los datos de las columnas de la C a la J del socio seleccionado. Para la búsqueda creo que el TextBox2 debería ser un ComboBox con un desplegable que me diese las entradas del socio buscado e…

Hola a Tod@s Mi Tema de hoy es algo que una ocasión hace años intente resolver, pero la verdad que al final me conforme con una solución (mala) que hice muy limitada, quizas por no entender la propuesta del maestro @Cacho R como expuse en aquel momento en mi último Post, aquí dejo el link. https://ayudaexcel.com/foro/topic/18307-combinaciones-reducidas/?do=findComment&comment=109008 Ahora llevo más de dos semana viendo cómo puedo resolver este Tema pero no lo logro, la intención es poder Reducir en todo lo posible las Combinaciones a Jugar según la selección de un Grupo de Valores, he recopilado varias Macros que me facilitan en alguna medida poder al m…

Buenas tardes; Estoy utilizando una macro que encontre aqui para presionar un boton e incrementar (m) el valor de un numero (ubicado en "I") y otro boton para bajarlo (ubicados en 0 , mi pregunta es como puedo hacer para que si el valor de la celda supera el "3" vuelva a 1, espero que me hayan podido entender. Nos se programar en visual pero estoy buscando algo similar a "If value >3; 1 " . Muchas gracias Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If IsEmpty(Range("I" & ActiveCell.Row).Value) Then GoTo Linea1 If Not Intersect(Target, Range("M" & ActiveCell.Row)) Is Nothing Then Range("I" & ActiveCell.Row).Va…

¡Hola! Para cargar un ComboBox en un celda (con valores predeterminados de una lista) estoy utilizando el siguiente código: Private Sub mycombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then Range(mycombo.LinkedCell).Offset(1).Select If KeyCode = 13 Then ActiveCell.Offset(-1).Select End If End Sub Private Sub mycombo2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then Range(mycombo.LinkedCell).Offset(1).Select If KeyCode = 13 Then ActiveCell.Offset(-1).Select End Sub Private Sub Worksheet_Selec…

Buenas tardes, Amigos del foro quisiera solicitarles la ayuda para tratar de encontrar la solución al error expuesto en el titulo, les comento un poco estoy tratando de recrear un ejemplo del buen amigo Sergio Campos del sitio ExceleInfo: http://www.exceleinfo.com/buscar-registros-en-tabla-de-access-desde-excel-usando-sql-query-vba-y-ado/ Para lograr una actualización de un campo de una tabla de access desde un Userform, hasta donde el logrado interpretar: definí mis variables, mi tabla de Access, pero me genera un error en al instrucción Update que me devuelve el error: Rs.Open Source:=Query, _ ActiveConnection:=Conn Agradezco cualqu…

Buenas tardes me pueden colaborar con este problemita que tengo: Tengo que realizar 440 graficos o mas en excel de una tabla. La macro que tengo los realiza pero en diferentes hojas del libro pero me solicitaron que mejor sea en varias hojas pero en cada hoja esten 50 graficos en dos columnas la macro que tengo es: [COLOR=#333333][FONT=arial]Sub principal()[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Dim fila As Integer[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Dim Rango As String, Rango1 As String[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Range("A3:A3").Select[/FONT][/COLOR] [COLOR=#333333][FONT=arial]Selection.End(xlDown).Select ' Ubico el último registro de la col…