Pasar valor de una celda de Excel a otra.
Perdón, solo aclarar que en mi pregunta de hace solo dos minutos, escribí : "Buenas tardes a todos", al principio y un "Muchísimas gracias" al final. No se porqué no aparece escrito. No quisiera parecer un mal educado...
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Cerrar_Trimestre()
'Por.Dante Amor
Do While True
wtrim = InputBox("Indica el trimestre a cerrar (1,2, 3 o 4) : ")
wtrim = Val(wtrim)
Select Case wtrim
Case 1, 2, 3, 4
Exit Do
Case "", 0
Exit Sub
Case Else
MsgBox "No es un trimestre correcto"
End Select
Loop
'
año = Year(Date)
Set b = Rows(2).Find(año, lookat:=xlWhole)
If b Is Nothing Then
MsgBox "No existe el año actual enla fila 2"
Exit Sub
Else
col = b.Column - 1
End If
'
ttrim = wtrim & "º " & "TRIMESTRE"
Set b = Columns(col).Find(ttrim, lookat:=xlWhole)
If b Is Nothing Then
MsgBox "No existe el trimestre : " & wtrim
Exit Sub
Else
fila = b.Row
End If
'
If Cells(fila, col + 2) <> "" Then
MsgBox "El trimestre ya había sido cerrado"
Exit Sub
Else
ActiveSheet.Unprotect "abc"
Cells(fila, col + 2) = Cells(fila, col + 1)
Cells(fila + 7, col + 2) = Cells(fila + 7, col + 1)
ActiveSheet.Protect "abc"
MsgBox "Trimestre cerrado como definitivo"
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
