Quien me da un codigo para poder crear una carpeta en el Escritorio, pero que no tenga que poner mi direccion de escritorio, es decir: C:\User\Fulanito\Desktop, porque si lo quiero pasar a varios amigos no podran guardarlo, necesito un codigo en el que yo le de a un boton con un macro, y se guarde en la carpeta especifica y que esa carpeta si no existe que se autocree. pero lo necesito sin dar mi direccion como les dije anteriormente Ayuda.rar

BUENAS TARDES, SALUDOS EXPERTOS; LA SIGUIENTE RAZON ES PARA VER SI ME PUEDEN AYUDAR, CUANDO IMPRIMA UN DOCUMENTO CON BOTONES DE VB NO APAREZCAN IMPRESOS. GRACIAS.

Buenas tardes, Acabo de unirme a su comunidad y aun a pesar de haber leído la información relativa a las publicaciones en el foro no sé si este sería el espacio indicado para la consulta que quiero realizar. Estoy programando un formulario que enviará datos a un archivo matriz ubicado en el servidor pero también necesito generar un archivo en el equipo desde donde se está cumplimentando el formulario, y me preguntaba si existe algún control u objeto que me permita visualizar la información que estoy introduciendo, para luego finalmente mediante un comandbutton generar el archivo en local con esas líneas. Gracias de antemano

Hola, buen dia. Espero me puedan apoyar a crear una funcion que me permita obtener el costo de un servicio en cuanto se ingrese el nombre de este en la celda. Adjunto archivo con los nombres y costos de cada servicio. Book3.xls

Buenas tarde tratando de acoplar a un archivo de auto filtro me quedo con la sorpresa que me manda un error al momento de ejecutarlo revisándolo y viendo que el código es el correcto no logro encontrar cual es el error Public Ruc As Double Public Nomclien As String Public Articulo As Double Public Descripcion As String Public Unidad As String Public Cantidad As Double Public Familia As String Public Documento As String Public fecha As Date Public fecha2 As Date Public CodFam As Integer Private Sub DTPicker1_Change() If Not IsNull(DTPicker1.Value) Then _ fecha = VBA.Format(DTPicker1.Value, "mm/dd/yyyy") super_turbofiltro_GP End Sub Private …

En un trabajo anterior que me ayudo el foro, Control horas de vuelo pilotos, el cual es un gran trabajo, habia un control de horas de 45 en 15 dias y de 75 en un mes, he llenado estas hojas y no me sale mensaje o alerta o condicional de esta parte aunque en el codigo esta la parte de control 45 horas en 15 dias, este no ha operado, que hace falta?, adjunto el archivo . Mil gracias de antemano CONTROL HORAS HELICOPTERO.rar

Buenos días. Hace muchos años que no tocaba Excel, y de vuelta a las andadas. Mi conocimiento no es que sea buenísimo pero suficiente para entender las macros y crear algunas desde 0. Me encuentro con este problema que no sé como empezar, si alguien me puede ayudar o dar idea estaría agradecido, no es necesario me del resuelto el problema, me basta con que me den idea para poder resolverlo, puesto no se como aplicarlo. Tengo una hoja, en la primera columna (A:A)tengo ("viviendas"), las siguientes 4 filas (B;C;D,E) tengo condiciones, se marca con una X las viviendas que cumplen esa condición, y a partir de ahí tengo fechas seguidas a modo calendario. Para marcar …

hola buenos dias a todos estoy tratando de ejecutar la siguiente idea es que tengo cierta cantidad de cifras en varias tablas y me gustaria pasar esa informacion en una tablaque me muestre lo siguienteazul=numero que se quedo en el camino y no volvio a apareceramarillo= pista principal o numero unicorojo= numero que en su misma posicion cambio de lugar verde= numero que aparecio y desaparecio y volvio a aparecerel trabajo es para identificar ciertos patrones de una loteria de acuerdo a como van cayendo los sorteos como siempre agradecido por su ayuda ordendepatrones.xlsm

tengo este problema TextBox5 = TextBox1 solo copia el resultado, lo que quiero es que cuando siga presionado el boton se valla a los TextBox sigueinte: Ejem: Presiono Botón ----- textbox 1 = 32 Vuelvo a presionar el Boton ------ Textbox2 = 32 así sucesivamente TextBox1 = "32" TextBox2 = "32" TextBox11 = "32" TextBox10 = "32"

Buenas noches, en el link https://www.ayudaexcel.com/foro/macros-programacion-vba-10/necesito-copiar-importes-hoja1-si-cumplen-criterio-mediante-macros-gracias-27923/ Disculpen si no es la manera de mostrar la referencia, hay algo parecido, a lo que necesito resolver. Se trata de que con una macro, pasar el resultado en valores de la hoja1 a la hoja2, al acumular los valores de las celdas en una columna, conforme a lo que muestro en el archivo adjunto. Aquí no se trata de cumplir criterios en las celdas, pero algunas de ellas pueden estar vacías, o tener por valor cero. Salvo estar equivocdo, en la macro utilizan la función SUMAPRODUCTO. Gracias de antemano por la a…

Amigos, estoy tratando de realizar en la hoja reporte que me aparezca en el día Lunes por ejemplo, las cantidades según la tienda. la macro que hice solo me trae un valor en la primera columna y lo que busco es que si hay otro lunes debe aparecer esa cantidad en la siguiente columna. por ejemplo la Tienda1 tiene el día lunes 2 ventas. estoy utilizando este codigo: Sub Reporte() ufd = Data.Range("A1").End(xlDown).Row 'filas de hoha data UfR = Reportes.Range("A8").End(xlDown).Row 'filas de la hoja reporte ucr = Reportes.Range("A8").End(xlToRight).Column 'columnas d ela hoja reporte 'Reportes.Range("B9:V" & UfR).ClearComments Fil = 9 Do While Fil <= …

Hola a todos, tengo una limitación en el uso diario de excel y me gustaría conocer las distintas opciones para poder solucionarlo. Tengo añadido un complemento de excel con una fórmula, y funciona correctamente, el problema surge cuando comparto el documento que usa dicha fórmula con otro usuario, ya que aunque el otro usuario tenga instalado también el complemento, al guardarse los complementos en ubicaciones locales, se producen errores, y hay que modificar la llamada a la formula para visualizarlo correctamente. Como primera solución cree una plantilla de excel con una macro incorporada pero resulta un poco incomodo, tener que abrir cada vez la plantilla para crear …

Hola, estoy atascado en lo siguiente. Si a una forma le genero un hipervículo, despúes si le pongo que acceda a una macro determinada no funcionan las dos cosas a la vez; esto parece lógico ya que al pinchar sobre una forma no puede generar dos eventos; como alternativa lo que estoy buscando es que voy creando las formas en ejecución y también quiero que me cree el hipervínculo en ejecución y poder decirle a que celda quiero que se dirija para cuando detecte que ha llegado a esa celda me genere la macro. La cuestión es que no se meterle la dirección en el hipervínculo que genero en ejecución y me da un error. A la espera de vuestra contestación, como siempre muchas grac…

Hola buenas. Necesitaria crear una macro en una hoja distinta a las demas y que esta ejecute a las otras macros que hay en diferentes hojas del mismo libro. ejemplo: para unas macros con sus botones en hoja2,3,4 y desde hoja1 desde otro botón que se ejecuten las anteriores. Salud2.

Hola amigos del foro Aqui con una consulta. Como puedo hacer para restringir para que no me haga suma en una misma celda. Es decir si hago +1+1+1+1+1 o =1+1+1+1 que me diga que este tipo de calculo no esta permitido. Espero no confundirlos y se los agradesco muchos. Estve intentando con este código pero no me funcionó Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const rango = "A1:A10" Dim celda As Range For Each celda In Range(rango) If IsNumeric(celda) = False Then If celda.Value = "" Then GoTo continuar Else: MsgBox "No es número. Inténtelo de nuevo" celda.Select End If End If continuar: Next celda End Sub[/CODE]

Estimados, Tengo el siguiente archivo Excel. Son dos hojas. en la primera tengo las cotizaciones de divisas. En la segunda un listado de clientes con cuentas de correo. En el listado de clientes está marcado con "x" aquellos que están interesados en cada tipo de cambio.Necesito crear una macro que mande un email a mis clientes en tanto en cuanto se cumplan los siguientes criterios: - Si el valor EUR/USD por ejemplo alcanza un determinado valor y sobrepasa los límites predefinidos (ya está determinado, no hace falta moverlo), que mande un email a los clientes interesados en dicho tipo de cambio. Y así con todas las divisas... (He modificado la columna de clientes e emai…

Hola!! Conformo que soy nueva en esto de macros. He hecho un formulario investigando aqui y alla, el cual agrega y modifica datos y los almacena en otra hoja del mismo libro. Hasta ahi mi formulario funciona como lo deseo, pero al querer modificar o agregar un dato faltante aun registrom quiero que la celda anterior a la celda a la cual agrego el nuevo dato, cambie el color de fondo. Investigando di con el evento worksheet_change(ByVal Target As range) el caso es que si hace el cambio de color de fondo, pero no queda permanente. Dejo el codigo que use y les suplico ayuda rivate Sub Worksheet_Change(ByVal Target As Range) …

Buenas a todos los miembros del foro, aqui solicitando su valiosa ayuda y colaboracion con los siguientes problemas. 1.- Seleccionar todo el campo y realizar el cambio de comas y puntos 2.- Realizo la suma de Total CantidadNNN, en el ultimo campo a la derecha de cada objeto. 3.- Lo Mismo ocurre con TotalValorNNN 4.- Colocar Total objeto en cada valor por cada objeto. Y todo esto, caso contrario me dejean desempleado. Libro1.xls

Hola: Cómo puedo hacer para que al seleccionar una celda de A1:A10, el contenido de esa celda se muestre (o se copie) en B1. Saludos.

Hola espero que se encuentren bien, necesito ayuda para cambiar la condición de "Pendiente" a "Pagado" las selecciones dentro del listbox pago (Liquidaciones a Pagar) en la columna 13 de la hoja "Registros" cuando se presiona el boton pagar. Muchas gracias. Compra para subir - Pagado.xlsm

Buenas, quiero hacer algo como lo siguiente: Al pulsar sobre A1, que en la celda C1 se esciba la palabra "Amarillo" y que si se pulsa sobre la celda B1 en C1 se escriba la palabra "Rojo". Y necesito que esto sea arrastrable, o sea que si puslo en A5327 en C5327 se escriba "Amarillo" etc... Esto es posible de hacer con formulas? o necesariamente hay que recurrir a VBA? Un saludo y desde ya, muchas gracias!

Buen dia, consulta como puedo impportar un plano al momento que seleccione del combo cualquiera me abra cualquier delimitador que contiene el archivo plano(txt) ------------------------------------------------------------------------------- importar cualquier plano.rar

Buenos dias amigos mios, porfavor como seria una macro en excel que me empieze a numerar celdas: 1ro: Que la macro pida Prefijo, ejemplo: Item 2do Que la macro pida Numero inicial, ejemplo: 78.00 3ro que la macro pida una constante, ejemplo: 0.02 4to empezar la numeracion en un celda cualquiera: Celda C4= Item 78.00 Celda B5= Item 78.02 Celga G10= Item 78.04 y asi susecivamente, hasta finalizar con un esc.

Buenas tardes! Tengo el siguiente código: Private Sub btnCargaBancos_Click() Dim TasaCompra, TasaVenta As Double Dim InvBanesco, InvVzla, MontoBanesco, MontoVzla As Double Dim TasaDiaBan, TasaDiaVzla, TasaActual As Double 'Inversion = Val(txtInversion.Text) InvBanesco = Val(CDbl(txtInverBanesco.Text)) InvVzla = Val(CDbl(txtInverVzla.Text)) TasaCompra = Val(CDbl(txtTasaCompra.Text)) TasaVenta = Val(CDbl(txtTasaVenta.Text)) MontoBanesco = (InvBanesco / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) MontoVzla = (InvVzla / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) TasaDiaBan = (MontoBanes…

Saludos Tengo un código VB que es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Si hay errores, que continúe On Error Resume Next 'Si cambiamos el dato de la celda X, mostramos la foto de ese Clan If Target.Cells = Range("E24") Then 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Pasamos a una variable, el nombre de la foto, 'que será el mismo que el nombre del Clan imagen = Range("E24").Value 'Añadimos la extensión "png" imagen = imagen & ".png" 'Buscamos la foto en el mismo directorio 'donde tenemos este fichero de Excel ruta = ActiveWorkbook.Path & "\clanes\" & imagen 'Borramos la foto del Clan (si hub…