Programar un botón de un UserForm para realizar cálculos a partir de datos cargados en algunas hojas
Para Dante Amor
Hola, necesito programar un botón de un Userform de manera que al pulsarlo realice una serie de operaciones a partir de datos que fueron cargados, en las celdas de distintas hojas, por el usuario.
Si es posible te envío el archivo donde muestro cuales son esas operaciones.
Respuesta de Dante Amor
1
Te anexo la macro para realizar los cálculos
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h1 = Sheets("Datos_filtrados")
Set h2 = Sheets("Resultados")
Set b = h1.Columns("A").Find("Promedio", lookat:=xlWhole)
If b Is Nothing Then
MsgBox "No se ha ejecutado el filtro"
Exit Sub
End If
f = b.Row
'Promedio
h2.[B3] = h1.Cells(f, "B")
h2.[B4] = h1.Cells(f, "C")
h2.[B5] = h1.Cells(f, "D")
h2.[B6] = h1.Cells(f, "E")
'
'Ua
h2.[C3] = h1.Cells(f + 1, "B") / Sqr(30)
h2.[C4] = h1.Cells(f + 1, "C") / Sqr(30)
h2.[C5] = h1.Cells(f + 1, "D") / Sqr(30)
h2.[C6] = h1.Cells(f + 1, "E") / Sqr(30)
'
'Valor
h2.[C13] = h1.Cells(f, "B")
h2.[C14] = h1.Cells(f, "C")
h2.[C15] = h1.Cells(f, "D")
h2.[C16] = h1.Cells(f, "E")
'
'Valor
h2.[F16] = h1.Cells(f, "E")
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
