necesito un código para copiar la fila de la celda sobre la que estoy situado y a continuación me coloque en la columna A. Gracias de antemano copiar fila.zip

Un gran saludo.. Tengo una macro que filtra de 120 preguntas, las que mayor puntaje hayan obtenido, estaba funcionando perfectamente con la hoja protegida. Pero de un momento a otro comenzó a mostrar error y no funciona. Adjunto la macro, agradezco de antemano la ayuda para solucionar este impase... Sub FILTRO () Dim RNG As Range Set RNG = Active Sheet.Range("Xxx") RNG.AdvancedFilter Action:=xlFilter Copy, CriterialRange:=_ Active Sheet.ListObjects("Tabla1").Range, _ copytorange:=("B180"), Unique:=False Sheets ("Xxx").Select End sub

Hola a todos; Estoy tratando de pintar unos labels vinculando los textBox con los spinButtons, de forma estática lo consigo pero lo que quería conseguir es dar cierto dinamismo ayudándome de dichos spinButtons, Os lo muestro en este gif lo que tengo hasta ahora. Saludos y buen finde a todos. MIntervalos.xlsm

Buenos días Soy nuevo en al foro, y tengo un pequeño problema, estoy intentando comparar 2 columnas de dos hojas y cuando coincidan los valores (código de producto) me haga una suma acumulada, he probado con todas las fórmulas que se y no consigo solucionarlo, a ver si me podeis hechar un cable El asunto es comparar la columna a de las dos hojas y si coincide el codigo, sumar la celda correspondiente de la columna cantidad de la hoja albaran a la misma columna de la hoja stock y que acumule la suma Gracias de antemano EXCEL ALMACEN.xlsx

Hola a todos, me gustaría pedir ayuda con la siguiente macro. Adjunto hoja con datos relativos a lecturas de contadores de consumos, con dos pestañas: CONTROL y PARQUE En PARQUE están los datos. Decir que la tabla real sobre la que se ejecutará la macro tiene ahora mismo unos 17.200 registros En cada registro de la tabla se guarda un numero de ordenacion, numero de contrato, nombre y direccion, y despues relativo a cada trimestre de lectura del contador hay FECXXXX que es la fecha de lectura de un contador, LECXXXX que es la lectura que tiene el contador en un periodo determinado. En el campo INCIDENCIA se guardan las incidencias del periodo actual. En…

Hola, cree un código, que la intención es acceder a varias cuentas de la web sin necesidad de abrir la pagina y escribirlas manualmente el usuario y contraseña, pero al ejecutarlo genera un error al tratar de encontrar los campos para asignar los datos de la cuenta y acceder a ella. Sub AccesoWebT() Dim acce As Object Set acce = CreateObject("Shell.Application") acce.ShellExecute "chrome.exe", "https://cfdiau.sat.gob.mx/nidp/app/login?id=SATUPCFDiCon&sid=0&option=credential&sid=0" While acce.Busy DoEvents Wend On Error Resume Next acce.Document.all.Item("Ecom_User_ID").Value = Range("B1").Value acce.Document.all.Item("Ecom_Password").Value = Rang…

Teno la siguiente macro pero me error 1004 por que puede ser. La macro es para cuando encuentre una X en las celdas b9:b200 oculte las filas que contienen una X Sub ocultarfilas_FRIO_NO_TALLER() ' ' ' ActiveSheet.Unprotect For Each celda In Range("b9:b200") If celda.Value = x Then ActiveCell.EntireRow.Hidden = TrueElse ActiveCell.EntireRow.Hidden = False End If ActiveCell.Offset(1).Select Next ActiveSheet.Protect End Sub

Buenos días, os comento un problema que estoy teniendo y a ver si es lo que yo creo. Tengo una macro en vba que se ejecuta un día y hora en concreto de la semana; esta macro tiene la función de enviar un e-mail con un archivo pdf que genera. El problema que estoy teniendo es que a veces envía el correo duplicado, otras veces lo envía 5 veces, otras 8… y todas ellas en el mismo minuto o si son muchas, en un lapso de 2 minutos. He revisado el código y no debería hacerlo, por lo que empiezo a dudar de que sea un problema de lentitud del equipo que ejecuta el excel, es un equipo muy básico con Windows 7, pero con un procesador atom a 1.6ghz y…

Hola a Tod@s, Espero me puedan ayudar,... al intentar insertar una imagen a un formulario en tiempo de creación por medio de VBA, me dice que el objeto no esta disponible. Sub CreaForm() Dim MiNewForm As Object Set MiNewForm = Application.VBE.ActiveVBProject.VBComponents.Add(3) With MiNewForm .Properties("Height") = 300 .Properties("Width") = 300 .Name = "Prueba" .Properties("Caption") = "Prueba_LBV" .Properties("BackColor") = RGB(0, 255, 0) .Properties("Picture") = ActiveWorkbook.Path & "\Imagen1.jpg" ' .... AQUI ME SALTA EL ERROR? .Properties("PictureSizeMode") = 1 End With End Sub …

Buenos dias , lo primero gracias por la ayuda que me podais prestar ya que estoy en blanco. Lo que necesito es basicamente , pasar un texto descriptivo a un formulario , explicado mejor seria asi: Tengo una web donde se tiene que reportar unas pruebas que se realizan , esta web tiene bastante pruebas y cada prueba es una pagina diferente , pero todas siguen un patron. En esta web , lo que necesito rellenar automaticamente desde la excel es un campo que pone User Comments y otro que pone Thecnical Comments , actualmente eso se hace prueba a prueba y lo que necesitaria es poder hacerlo en la excel y con la macro que lo vaya autocompletando. Esto es viable?? Muchisimas g…

Buenas tardes y agradezco el tiempo de quienes puedan ayudarme, veo que ya hay soluciones a macros las cuales copia el contenido de varios libros y los pone en uno solo en la hoja1, sin embargo quisiera saber si se puede lo siguiente: tengo tres libros con cierto número de hojas, el 1° tiene las hojas a,b,c, el 2° tiene c,d,e, y el 3° tiene las hojas f,g,h, a partir de aquí quisiera saber si se puede lo siguiente, al momento de ejecutar la macro me cree un libro con las hojas de todos los libros anterios pero si en un dado caso como es la hoja "c" que hay en el libro 1 y 2 se combine mientras que los demás solo se almacene es decir al finalizar la macro debe quedar un lib…

Hola buen día masters! He seguido avanzando con una macro que me ayudaron a construir en el foro pero ha crecido el alcance y de tener 2 filtros por medio de "Combobox´s" ahora son 3 filtros pero no funciona del todo bien porque la intención es que al seleccionar cada combobox filtre los datos y los vaya mostrando en el listbox. 1er combobox_año: OK si lo filtra y muestra los datos en el listbox 2do Combobox_mes: FAIL desaparecen los datos del listbox 3er Combobox_area: OK si lo filtra y muestra los datos en el listbox La función encargada de filtrar se llama Consulta dentro del UserForm llamado "Solutek". Por otra parte una vez filtrada la…

Hola, repasando las macros de mi libro me he dado cuenta de que tengo un IF compuesto que no lo ejecuta y no le veo la razón. ¿Podéis iluminarme? Gracias. If CeldaActual.Value >= 11 And CeldaActual.Value <= 13 Then CeldaActual.Interior.ColorIndex = None CeldaActual.Font.ColorIndex = 3 'Rojo CeldaActual.Font.Bold = True Tensión_macros_1bis.xlsm

Estimados amigos de la comunidad, para solicitarles su apoyo referente al asunto: La pregunta es que cada vez que hago una consulta siempre queda registrado en la cadena de conexión la ruta del libro fuente incluyendo el directorio, sin embargo cuando cambio de directorio al libro fuente y ejecuto nuevamente la consulta en el libro destino envía un mensaje : "El motor de la base de datos no puede encontrar el objeto... asegúrese del que el objeto exista... Espero me pueda ayudar Libro1.zip

Buenos dias expertos, necesito pedir una ayuda en un libro tengo varias hojas la cual funcionan casi bien, en la hoja inventario registro los productos para mostrarlo en la hoja Carta de Cargas Sol en la parte inferior mostrarlo pero eso bien cuando registro datos en las diferentes celdas de dicha hoja pero dependiendo de la celda sombreada de color amarillo que va servir para consultar, despues de llenar todo los datos en las celdas vacias mas que todo de color verde y lo pulso registrar me guarda en pdf y limpia toda la celdas para volver a ingresar, hasta ahi todo bien, ahora cuando en la celda de color amarillo ingreso con el dato que ingrese al registrar y pulso cosu…

Hola, necesito crear una función que indique si un número pasado como argumento es de gran alcance. De momento tengo la función para hacer la descomposición factorial: Function descomposicionFactorial(numero As Long) As String Dim factor As Long Dim multiplicidad As Long Dim descomposicion As String Dim resto As Long factor = 2 descomposicion = "" resto = numero If numero = 1 Then descomposicion = "1·" End If Do Until resto = 1 If resto Mod factor = 0 Then multiplicidad = 1 Do multiplicidad = multiplicidad + 1 …

Buenas tardes, Soy nueva en el visual basic para excel. He creado un formulario para insertar datos en una hoja de excel. El formulario funciona si sólo pones los datos una vez, pero al intentar rectificarlos y volver a validar me da error. Me podeis ayudar. Gracias.

Hola muy buenas tardes acá en México, mi consulta es que tengo este código para copiar y pegar el contenido de un archivo, en uno nuevo: Sub test() ' ' test Macro ' ' Selection.End(xlToLeft).Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToRight)).Select Range("B130").Select Range(Selection, Selection.End(xlUp)).Select Range("B9:w130").Select Range("B130").Activate Selection.Copy Windows("Consolidado 2012 ww21.xlsx").Activate …

Hola, una consulta, tengo problemas para abrir mi archivo en excel 2013, cuando en la hoja "diario" doy click en el boton "inicio" me sale " Error de compilación. No se puede encontrar el proyecto o la biblioteca"....por favor si alguien puede ayudarme se lo agradeceria eternamente. No puedeo adjuntar mi archivo sale es demasiado grande...

Hola, que tal soy nuevo en esta comunidad, de la cual he tomado muchos ejemplos para algunos trabajos, bueno, lo que me trae por aca es, el filtrado de datos para una base de resguardos, solo que filtro, pero no he encontrado como hacer para que tome solo un dato de los que se encuentren repetidos, anexo archivo para un mejor entendimiento. Resguardo.zip

Hola a todos esta es la primera consulta que realizo por este foro, quisiera saber como podria graficar un diagrama de carga del consumo electrico en un hogar en Excel , lo he intentado incluso llegue a encontrar un plantilla con una grafica muy parecida a la que me tendria que salir , con el problema que no se acotaban los valores en el eje x. bueno espero su consejo y muchas gracias.[ATTACH]36693.vB[/ATTACH] talves l grafico no se ve muy bien pero el punto es lo siguiente en el eje de Y , deberia a parecer la potencia , mientras que en las x , los tiempos de uso , por ejemplo eje X con 40w los cuales se usan desde las 9 pm a 1 am Este es un ejemplo de como tendria qu…

hola a todos , soy el tiene sieme problemas con los colores en Excel?? existe alguna funcion para contar los colores? tengo una tabla en la que segun la categoria ( diferenciada por color) cconozco la cantidad y categorias de personas en un turno GRACIAS EJEMPLO.xlsx

Buen dia Tengo un archivo de excel que se genera con un atabla dinamica lo que pretendo con el siguiente codigo es enviar el libro activo pero como valores, solo que no lo consigo por que me marca un Error: Error en el metodo"SaveAS" de objeto_"Workbook" Sub WorksheetLoop2() Dim Current As Worksheet For Each Current In Worksheets Dim attBook$ attBook = Environ("temp") & "\" & Current.[A4].Value & ".xlsx" Current.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False…

Buenas A ver si me podéis echar un cable porque no hay manera >< tengo un combobox en una hoja el cual le meto una lista que esta el hoja7 "Tablas" y lo que quiero es que cuando seleccione un nombre me compare si existe ese nombre en la hoja7 "Tablas" en dos columnas columnas diferentes tengo dividida la lista del combobox es decir que si el nombre que le meto se encuentra en la columna O2 : O53 me active que se vea Imagen1 y si se encuentra en la columna P2 : P75 me active Imagen2 para asi diferenciarlas y si se da el caso de que el nombre no aparezca en ninguna de las columnas o el combobox no tenga ningun dato me desactive la aparición de las imagenes miran…

Me podrian definir que hace cada seccion de esta macro relacionada a este archivo: Sub Copia() Dim C As Range Application.ScreenUpdating = False For Each C In Range("A2", Range("A" & Rows.Count).End(xlUp)) Sheets("Molde").Copy , Sheets(Sheets.Count) With ActiveSheet .Range("A5") = C: .Name = Left(C.Offset(, 1), 31) End With Next C Application.ScreenUpdating = True End Sub Ejemplo Copiar Hoja.xlsm