Dante Amor

Te anexo la macro con los cambios Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act.Por.Dante Amor If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub cantidad = InputBox("Si estás seguro,...

Te anexo la estructura de las condiciones. Pero te faltó detallar, qué pasa si falta alguno de los datos de la 1 a la 9, excepto el 9, ¿qué pasa si confirman los datos? ¿Qué pasa si no confirman los datos? Private Sub Worksheet_Change(ByVal Target As...

Pon al principio de tu macro lo siguiente: If Time < "17:30" Then MsgBox "hora no autorizada para ingresar" Exit Sub End If

Pon la siguiente macro en el botón Private Sub CommandButton1_Click() 'Por.Dante Amor Dim fec1 As Date, fec2 As Date Set h1 = Sheets("datos") Set h2 = Sheets("datosm") ' h2.Cells.Clear h1.Rows(1).Copy h2.Rows(1) ' fec1 = TextBox2 fec2 = TextBox3 For...

Envíame 3 archivos, tu base de datos y 2 archivos de ejemplo. En tu base de datos me pones el resultado de la información que obtuviste de los 2 archivos, me lo explicas con colores. Recuerda poner tu nombre "Franco Anthon" en el asunto del correo

Puede ser así Shell "C:\trabajo\09 septiembre\ProgramaEnC.exe", vbNormalFocus Revisa la ruta y el nombre del programa debe tener la extensión

Te anexo la macro para que funcione con diferentes fechas y con diferentes columnas, incluso pueden variar los códigos y los tipos de activos. Es necesario que crees las hojas "Hoja1" y "Hoja2". Coloca tu información en la hoja "Ranking" y el...

¿Sabes debuggear la macro? Primer quita esta instrucción: On Error Resume Next En lugar de ejecutar con F5, presiona F8, o pon el cursor en esta línea If TextBox1 = "" Then Y presiona F9 para poner un punto de interrupción, notarás que se pone de...

Puedes explicarme lo que necesitas con un ejemplo. En el archivo que me enviaste no viene explicado un ejemplo. ¿Quieres qué la macro se ejecute en automático cuando capturas un dato? ¿En qué columna? ¿O quieres que se ejecute al presionar un botón?

Pon la siguiente macro en los eventos de tu hoja "acumulado" Private Sub Worksheet_Activate() 'Por.Dante Amor For Each h In Sheets If InStr(1, h.Name, ".") > 0 Then suma_N7 = suma_N7 + h.[N7] suma_P7 = suma_P7 + h.[P7] suma_R7 = suma_R7 + h.[R7]...