Hola buenas noches, adjunto un archivo excel en el que quiero hacer una cosa. Sin liarme, tengo una hoja llamada "Summary", que contiene una tabla y una columna H dentro de la tabla, en la cual tengo configurada una fórmula con el método de cálculo general, según la información de su fila. Depende de otra persona (ingeniero) que ese método general de cálculo varíe en algún caso particular, y yo tenga que introducir el valor que esa persona me dé. La hoja irá protegida pero esta columna será editable. Necesito un código VBA tal que me recupere la fórmula en las celdas de la columna H que se queden vacías. ¿Por qué? Porque en algún momento pasa que me pueden decir de volver a calcular esa fila con el método habitual. En ese caso mi idea es que yo suprima esos valores "particulares" y me vuelva a realizar el cálculo de la manera general.
señales.xlsm
Por
MANTONIOPM, · publicado
recuro a vosotros por el siguiente tema.
tengo un combobox que al ejucartlo enpieza siempre por la primera casilla (a1), es posible que empieze con (a4) y terminne (a30)
este es el codigo que uso
Private Sub ComboBox1_Change()
Dim i As Integer
Dim final As Integer
Dim FINAL2 As Integer
Dim J As Integer
Dim H As Integer
For i = 2 To 1000
If Hoja5.Cells(i, 2) = "" Then
final = i - 1
Exit For
End If
Next
For i = 2 To final
If ComboBox1 = Hoja5.Cells(i, 2) Then
T1 = Hoja5.Cells(i, 2)
T2 = Hoja5.Cells(i, 1)
T7 = Hoja5.Cells(i, 3)
Label75 = Hoja5.Cells(i, 3)
Label76 = Hoja5.Cells(i, 6)
Label82 = Hoja5.Cells(i, 8)
Label84 = Hoja5.Cells(i, 9)
Exit For
End If
Next
End Sub
Private Sub ComBoBox1_Enter()
Dim i As Integer
Dim final As Integer
Dim tareas As String
ComboBox1.BackColor = &H80000005
For i = 1 To ComboBox1.ListCount
'Remove an item from the ListBox.
ComboBox1.RemoveItem 0
Next i
For i = 2 To 1000
If Hoja5.Cells(i, 2) = "" Then
final = i - 1
Exit For
End If
Next
'If ComboBox1.ListCount < 1 Then
'ComboBox1.AddItem "-"
For i = 2 To final
tareas = Hoja5.Cells(i, 2)
ComboBox1.AddItem (tareas)
Next
'End If
End Sub
gracias un saludo
espero buestras respuestas