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.
1 Respuesta
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
