Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Visual Basic

Respuesta en y en 2 temas más a

¿Como trabajar un libro de excel con macros compartido en red?

H o la : Ya había visto tu pregunta, pero el problema de estar en red, y supongo que lo sabes, es: si el usuario 1, hace cambios y no guarda, luego el usuario2 también hace cambios y guarda, entonces se pierden los datos del usuario1. No había...
Respuesta en y en 2 temas más a

Como reducir código de la macro

Prueba con esta: Sub Add_dbSaveInvoiceSale_2() ' ' Add_dbSaveInvoiceSale Macro ' Application.ScreenUpdating = False Sheets("dbStock").Select Range("E3").FormulaR1C1 =...
Respuesta en y en 2 temas más a

Capturar dato seleccionado y ponerlo en una celda especifica de otra hoja.

H o la: Primero, deberías quitar la instrucción On Error Resume Next, en caso de error, la macro se detiene y de esa forma podrías analizar cuál es el error, si tienes la instrucción, no sabrías cuál es el problema. Regresando a tu macro, para...
Respuesta en y en 1 temas más a

Macro para actualizar celdas en otra hoja según condición y valor

H o l a: Te anexo la macro, cambia en la macro "Hoja1" y "Hoja2" por los nombres reales de tus hojas. Sub Actualizar_Precios() '--- ' Por.Dante Amor '--- Set h1 = Sheets("Hoja1") 'Hoja 1 Set h2 = Sheets("Hoja2") 'Hoja 2 ' For i = 2 To h2.Range("A" &...
Respuesta en y en 2 temas más a

Botón en el ribbon que haga sobre la celda activa text(celda activa,"000000") y pegue el resultado como texto

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) '--- ' Por.Dante Amor '--- If Not Intersect(Target, Range("C5:E9")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target.Value)...
Respuesta en y en 2 temas más a

Cambar de color y sumar por colores según vaya agregando

H o la: envíame el archivo con explicaciones de lo que necesitas
Respuesta en y en 1 temas más a

Nombre de usuario Windows en celda

Prueba si es esto lo que necesitas: Sub NombrePc() Range("D3") = Environ$("computername") End Sub o esto: Sub User_Name() Range("D4") = CreateObject("WScript.Network").UserName End Sub sal u dos
Respuesta en y en 1 temas más a

Agregar hipervínculo a dos listbox en el mismo formulario

H o la: No entendí muy bien qué es lo que necesitas. Lo que hace este código, es abrir un documento, pero tienes que poner la ruta y el nombre del archivo: ActiveWorkbook.FollowHyperlink Address:=enlace1, NewWindow:=True Quieres abrir el archivo, o...
Respuesta en y en 2 temas más a

Buscar valor con 2 condiciones pero de diferentes tablas

Tal vez ayudaría a la fórmula si en lugar de poner "Ejercicio B" pusieras solamente "B", por ejemplo: Entonces la fórmula en D9 es: =BUSCARH(BUSCARV(C9;$H$5:$I$9;2;0);$B$4:$F$5;2;0) Tal vez tienes que aplicar la fórmula en otras bases, por lo tanto,...
Respuesta en y en 1 temas más a

Como puedo utilizar los datos de una hoja en un combobox situado en otra hoja

¿Tu combobox lo estás insertando directamente en la hoja? Si es la hoja, es un control de formulario o es un control ActiveX ¿O lo estás poniendo en userform? En qué columna, de la hoja2, ¿tienes los datos?