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
Hola
ojala me ayuden con esta macro q en el 2003 funciona perfecto , pero en 2007 se cae al toque
me aparece algo de un error 1004 tiempo ejecución , pero no logro repararla, esto pq me borraran el 2003
y me urge q funcione, es una macro para enviar varios correos con información de excel
la macro es
Private Sub ENVIAR_EMAIL()
Application.ScreenUpdating = False
Application.DisplayAlerts = False ' para q no salga aviso al final
HMAIL.Activate
HSAL.Cells.Clear
HMAIL.Cells.Copy HSAL.Cells
'Workbooks(L3).SaveCopyAs ThisWorkbook.Path & "\LOCAL " & COL.List(x, 0) & ".xls"
ActiveWorkbook.EnvelopeVisible = True 'permite enviar mas de 1 correo a la vez 'aca se cae!!
With ActiveSheet.MailEnvelope
'.Introduction = "Estimado Sr. " & COL.List(x, 4)
.Introduction = COL.List(x, 4) & Chr(13) & "Adjunto avances" & Chr(13) & _
"gestión"
.Item.To = COL.List(x, 2) 'Destinatario
'.Item.Subject = COL.List(x, 0) & "-" & COL.List(x, 1) 'Asunto
.Item.Subject = "Avance" 'Asunto
For n = 3 To 100
If Cells(n, 2) = "" And Cells(n, 8) <> "" Then
Cells(n + 1, 2) = "contactarse con" & Chr(10) & "pp" & Chr(10) & "Atentamente," & Chr(10) & "Gerencia"
Cells(n + 1, 2).HorizontalAlignment = xlLeft
'Cells(n + 2, 2).VerticalAlignment = xlCenter
'Cells(n + 2, 2).WrapText = True
Else
End If
Next n
Columns("A:j").Select
Columns("A:j").EntireColumn.AutoFit
.Item.Send 'enviamos el mail
End With
gracias
oliver