Hola compañeros Deseo hacer un contador de dinero. Billetes y monedas. Pero para guardar los conteos Guardo los datos agregados en otra. Pero no consigo crear varios reportes. La idea es crear el primer reporte y guardar, Luego crear otro reporte y guadar.... y asi sucesivamente. Intente pero no conseguí hacerlo... Por favor me pueden ayudar Sub ReporteC() ' ' Reportes del día ' If Sheets("Conteo").Select = vbYes Then Sheets("Conteo").Select ActiveWindow.SelectedSheets.Delete Else ActiveWorkbook.Save Worksheets.Add.Name = "Conteo" ActiveCell.FormulaR1C1 = "Reporte del Dia 1 de la …

hola buenas tardes quisiera saber como puedo ejecutar este codigo cambiandole esta linea Sheets("santander").Select por hoja activada o la hoja seleccionada el codigo completo es este Sub buscaCuadro() Dim nrop As String 'busca la combinación de nros en los cuadros de pista Set hopi = Sheets("pista") Sheets("santander").Select 'limpiar pista de colores anteriores 'opcional hopi.Range("E2:AV40").Interior.PatternColor = xlNone 'se recorre col AP de hoja resultado For x = 2 To Range("AL" & Rows.Count).End(xlUp).Row nrop = Range("AL" & x) For i = 2 To 35 'filas For j = 5 To 38 Step 5 'co…

Hola a todos copie una macro de nuestro amigo JSDJSD, lo que quiero es que el filtrado entre fecha me funcione en mi libro y que el reporte lo guarde en un libro nuevo de Excel por aquí le dejaré el archivo Filtrado y reporte.xlsm

Hola a todos, Me gustaría saber si alguien sabe como se puede formar un archivo de texto con el formato adjunto a través de un libro excel. En cada fila ingrese comentario con *** ya que no todas las celdas cambian, más que nada son los números que podrían estar en alguna columna.

Buenos dias amigos. Recurro a ustedes porque tengo un problema con un formulario de busqueda que estoy haciendo, he buscado en la red, foros, YouTube, y no encuentro algo que me indique como usar el "Boton de Opciones" para seleccionar el parametro de busqueda, y tampoco un ejemplo para ver donde esta mi error. Esta es una imagen del formulario, como pueden observar hay una serie de Botones para realizar las opciones de busqueda, y por el momento solo realiza la buqueda por Baul, no he logrado hacer que funcione para el resto de las opciones. Anexo archivo de ejemplo.Ejemplo FrmBuscar.xlsm Agradecido de antemano por la ayuda que me puedan …

Hola de nuevo, Me preguntaba cómo podría hacer para que la aplicación ofimática se ejecutara única y exclusivamente dentro del mismo puesto de trabajo. De manera que si otro usuario copiara el fichero Excel e intentara ejecutarlo en otro equipo informático, le saltara un error al tratar de iniciar la aplicación ofimática. Lo único que se me ocurre es algo parecido a esto: Private Sub Workbook_Open() With Application If .UserName <> "Ayuda Excel" Then Msgbox "Uppsss... Está tratando de abrir la aplicación ofimática en otro puesto de trabajo." .Quit end if end with End Sub A alguno de vosotros se os ocurre …

Hola a todos, Tengo el siguiente problema: Me gustaría desactivar las casillas "Código" y "Nombre Fiscal" de mi formulario cada vez que un usuario activa la opción "Cliente", tal y como se ve en la siguiente imagen. Es decir, cada vez que se activa la opción "Cliente" que aparezca un fondo color gris y no se pueda escribir nada sobre las casillas tachadas de rojo. Cómo se haría? Con un evento change? Y cómo hago para identificar la página "Denominación" activa dentro mi formulario multipágina? He buscado ayuda por internet, por manuales y por videotutoriales, pero no he conseguido encontrar nada al respecto sobre este tema complejo. Si algui…

Hola a todxs, Me gustaría que los filtros automáticos aparecieran siempre que se activa la hoja, tal y como aparece en la imagen adjunta. Para ello, he desarrollado el siguiente evento: Private Sub Worksheet_Activate() With Sheets("Hoja1") .AutoFilterMode = False ' Desactivamos siempre los filtros automáticos... .Cells.AutoFilter End With End Sub Sin embargo, no me funciona, porque la primera vez se activan los filtros automáticos, pero a la siguiente no. Es casi como poner lo siguiente: Private Sub Worksheet_Activate() Sheets("Hoja1").Cells.AutoFilter End Sub Es decir, se quitan y se ponen cada vez que se acti…

Buenos dias estoy trabajando para automatizar una tarea que consiste en abrir fillezila , abrir el Gestor de Sitios y bajarme un fichero me he quedado en abrir fillezila, cuando intento automatizar los movimientos dentro de este programa no me hace caso Sub obre_fillezila() Shell "C:\Program Files\FileZilla FTP Client\filezilla.exe", vbNormalFocus SendKeys "^+s", True End Sub he pronbado SendKeys "^s" pero tampoco hace nada ya no he podido ir mas alla gracias Rafa

Buen día Genios en Excel alguien tendrá algún código de vba para desproteger hoja de Excel, he buscado en el foro pero no des protege la hoja tampoco no se porque. Ya que uso el siguiente pero solo se queda pensando: Excel VBA Brute Force Override v0.2a Option Explicit Option Private Module Sub BruteForce_Override() On Error GoTo ErrorHandler Dim i As Byte, j As Byte, k As Byte Dim l As Byte, m As Byte, n As Byte Dim o As Byte, p As Byte, q As Byte Dim r As Byte, s As Byte, t As Byte Dim x As Integer, PassWd_Try As String For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l =…

Hola a todos, os mando un saludo desde Pamplona, España. Quiero consultaros una cosa que me gustaria hacer. Tengo en una hoja de càlculo, unos cuantos commandbutton activeX, que he insertado para que me abran unos determinados formularios. Los botones no tienen texto, he colocado unos iconos bastante intuitivos, que me indican lo que abro con ese botòn. Pero quiero rizar el rizo, y me gustarìa que cuando colocara el ratòn sobre el botòn, me saliera un comentario dàndome una ayuda sobre lo que hace ese botòn. En celdas se que se puede hacer, pero en controles activeX no lo se, y si se puede, serà con codigo vba, asì que vosotros que sabeis mucho de vba, echadme una mano y …

¡Hola! Me encuentro trabajando con un archivo ubicado en un servidor Sharepoint. Deseo obtener la ruta local de dicho archivo en vez de la URL de SharePoint. He utilizado la función CELDA ("nombrearchivo") pero siempre me devuelve la URL También lo he intentado con una macro: Sub sss() FilePath = ThisWorkbook.FullName FileOnly = ThisWorkbook.Name pathonly = Left(FilePath, Len(FilePath) - Len(FileOnly)) [a3] = pathonly End Sub Pero también me devuelve la URL. Ni que decir tiene que el archivo está alojado en OneDrive empresarial y ubicado en mi equipo (con la opción de mantenerlo siempre en mi equipo). ¿Alguna idea para obtener la ruta…

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, me pueden ayudar con lo seguiente, estoy desarrollando un proyecto en el cual consiste en cargar un comboxBox con lo datos almacenados en una celda y agregarlo a un listbox tambien que al seleccionar un item en el listbox se cargue la imagen enlazada a un cuadro de imagen. el codigo del formulario es el siguiente. Private Sub CommandButton2_Click() B_Filtro.Hide Sheets("Portal").Select End Sub Private Sub CommandButton3_Click() Vision.Show End Sub Private Sub CommandButton4_Click() B_Filtro.Hide B_Filtro.Show End Sub Private Sub display_Click() On Error Resume Next Set a = Sheets("BD") …

Buenos dias, Tengo unas CHECK BOX en cuando las marco me muestra una fila en concreto y cuando lo desmarco me esconde la misma fila. Me funciona muy bien pero tengo un problema en cuando quiero proteger la hoja. He protegida la hoja con el codigo "1234", el problema que tengo es de no poder acceder a las calillas CHECK BOX para marcarlas/desmarcarlas. Quiero poder marca o demarcar los CHECK BOX con la hoja protegida y una vez que se ha enviado el correo se desmarquen los CHECK BOX al igual que las celdas seleccionadas a limpiarse. Pues no se como hacerlo para poder utilizar los CHECK BOX tambien con la hoja protegida. He intentado varias cos…

Hola amigos. Por favor me pueden ayudar con una macro que quiero hacer. Quiero traer los valores de la hoja anexo, cuando ponga el valor buscado (RUC) que esta en la hoja anexo2. Espero puedan ayudarme. Gracias!! buscar_datos.xlsx

hola expertos como puedo modificar el principio de este codigo con la idea de transpasar no solamente los dato de la columa B sino tambien los datos de la columna A,B,C Sub zero() Dim ultimaCeldaDatos As String 'hallar la ultima celda con datos de la columna B de la hoja estadistica ultimaCeldaDatos = Sheets("analisis").Cells(Rows.Count, 2).End(xlUp).Row 'copiando datos de columna B Sheets("analisis").Range("b5:b" & ultimaCeldaDatos).Copy Sheets("archivo").Select 'posicionando en la celda donde pegare los datos en la hoja archivo Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select Selection.PasteSpecial Application.CutCopyMode = False …

Hola buenos días, me encontré el Turbo filtro que subio el estimado @Gerson Pineda en el foro. Me funciona de maravilla, pero quería ver la posibilidad de hacer un cambio, tengo las primeras 5 filas del archivo inmovilizadas y me gustaría que cuando se aplicara el filtro estas se sigan visualizando ya que están tienen datos que necesito para poder verificar bien los datos que filtro. Adjunto el archivo, muchas gracias de antemano. AT.xlsm

Buenas saludos a todos de nuevo necesitando de su ayuda,resulta que tengo en un textbox1 una cifra con separador de mil deseo que en el textbox2 al apretar un boton se extraiga el punto como separador de miles y me quede solo la cifra con el decimal que en mi caso es la coma,ejemplo: si en el text1 tengo 25.985,12 me gustaria que el text2 me traiga como resultado 25985,12 sin necesidad de usar Replace(textbox1, Application.ThousandsSeparator, "") si no algo como un ciclo que cuando encuentre el punto lo elimine o algun otro metodo que no sea el que yo indico,intente con Mid() pero no me salio,gracias y espero su valiosa colaboración eliminar punto.xlsm

Hola amigos de Ayuda Excel Quería preguntarle si hay alguna instrucción en VBA que evite la copia de determinadas columnas. Aún estando una hoja protegida me dí cuenta que se puede copiar columnas (estando ocultas) en otra hoja, claro las que tienen formulas pega solo valor. Pero es posible hacerlo??? Gracias

Buenas Tardes, tengo el siguiente código, que lo que hace, es enviar la hoja activa de excel via outlook, pero por cuestiones de seguridad aparece una ventana emergente donde me pregunta si quiero permitir que un programa envie un correo por mi.No puedo desactivar la notificacion por seguridad de la empresa.La pregunta es: que puedo ingresar al codigo para que tambien pueda dar "click" en permitir y que se envie? la codigo funciona bien, si le doy click manualmente, el correo se envia con la info. Sub Enviar_Correo_HojaActiva()On Error Resume NextActiveSheet.CopyWith ActiveWorkbook.SendMail Recipients:="colocar email", Subject:="Inventario".Close …

buenas tardes utilizo este código para cargar una macro una vez que haga click en una cierta celda Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) If Target.Range.Address = "$BF$1" Then Call macro1 End If If Target.Range.Address = "$BF$2" Then Call macro2 End If If Target.Range.Address = "$BF$2" Then Call macro2 End If End Sub el tema es que necesito poder realizar esto para muchas mas celdas (de la misma columna) pero no se como hacer algo generico sin tener que copiar y pegar gracias por su ayuda saludos!

BUENAS TARDES AMIGOS. NECESITO QUE ME AYUDEN CON UNA PROGRAMACIÓN QUISIERA COMBINAR DIFERENTES CELDAS , SEGÚN EL VALOR ASIGNADOS. MUCHAS GRACIAS, ESPERO QUE ME PUEDAN AYUDAR COMBINAR.xls

Hola a todos: Tengo una enorme base de datos, que debo traspasar la info de todas las columnas a una sola columna, la A. Pero en el mismo orden y con una celda en blanco de separación, se me hace un poco difícil de explicar por eso envío adjunto, una pequeña muestra de lo que necesito. Hoja1 Base de datos celda A2 hasta CV11, pero necesito que todo que de en la columna A hacia abajo Hoja2. Gracias desde ya. Trabajo_Columnas.xlsx

buenas noches mi pregunta es la siguiente he estado buscando en internet pero no encuentro nada, lo que busco es una macro que me pueda dejar usar la imagen (del cuadro de herramientas) como boton de comando?