Celda de la hoja anterior

12/03/2006 - 00:53 por Henrys Deliuk | Informe spam

Hola amigos

como puedo hacer para invocar a una celda de la pagina anterior siempre la
misma
les explico, todas las semanas hago una posicion en una hoja nueva de un
libro y siempre traigo la misma
celda de la pagina anterior, que es el saldo anterior.
cdo copio una hoja nueva lo hago de la ultima y le pongo los nuevos valores,
pero en una celda tengo que poner el saldo de la anterior. las hojas
siempre cambian de nombre, tienen la fecha del dia de la posicion y no es
fijo.

gracias por la futura ayuda

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Henrys Deliuk

13/03/2006 - 02:30 | Informe spam

Gracias por vuestra ayuda, pero donde pongo todo ese codigo?

"Francisco GMAIL" escribió en el mensaje
news:

Anexo codifo necesario, algunas cosas las manejas manual

saludos

Sub Actualizar()

' Macro grabada el 11/03/2006 por Admin

'

****************************************************************************

*******
'Contamos las hojas existentes para futuros usos
N_hojas = Sheets.Count

'

****************************************************************************

*******
' Agregamos hoja al libro y actualizamos la info poniendo en blando la

hoja

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)

'

****************************************************************************

*******
' copiamos la hoja anterior

Sheets(Sheets.Count - 1).Select
Range("A1:L31").Select
Selection.Copy
Sheets(Sheets.Count).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
'

****************************************************************************

*******
'Se prepara la hoja con el formato
Sheets(N_hojas).Select
Cells.Select
Selection.Copy
Sheets(Sheets.Count).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

'

****************************************************************************

*******
' Preparamos la celda activa con el nuevo valor
Sheets(Sheets.Count - 1).Select
depaso = ActiveCell.Cells(18, 3)
Sheets(Sheets.Count).Select
ActiveCell.Cells(19, 3).Value = depaso
End Sub

'

****************************************************************************