Eliminar ajustes cada vez que abro archivo

22/09/2004 - 17:14 por osalazarg | Informe spam

Alguien me podria ayudar por favor ya que no puedo hacer funcionar el
siguiente codigo, que me quita los valores cuando necesito ajustar 1 a 3
centavos al abrir mi archivo en excel.

Por su ayuda muchas gracias por anticipado.
Saludos.

Private Sub Workbook_Open()
Dim Hoja As Worksheet
Application.ScreenUpdating = False
For Each Hoja In ActiveWorkbook.Worksheets
With Hojas
Cells.Replace What:="-0.01", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="+0.01", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="+0.02", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="-0.02", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="-0.03", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="+0.03", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End With
Next
Set Hoja = Nothing
Application.ScreenUpdating = True
Sheets("CARATULA").Select
Range("C2").Select
End Sub

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

22/09/2004 - 20:56 | Informe spam

hola, octavio !

... no puedo hacer funcionar el siguiente codigo [...]
Private Sub Workbook_Open()
Dim Hoja As Worksheet
Application.ScreenUpdating = False
For Each Hoja In ActiveWorkbook.Worksheets
With Hojas
Cells.Replace What:="-0.01", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
[... sigue codigo ...]

1° estas declarando una variable [Hoja] ->en singular<- 'pero'...
en el 'bloque' With la 'cambias' a plural ->Hojas<- <\°|°/>
2° 'dentro' del bloque With... NO estas 'ligando' los objetos [Cells] con su 'pariente' [Hoja] con 'el punto' ->.Cells<-
3° puedes 'adelgazar' el codigo +/- con la siguiente estructura...
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In ActiveWorkbook.Worksheets
With Hoja.Cells
.Replace "-0.01", "", xlPart, xlByRows, False
.Replace "+0.01", "", xlPart, xlByRows, False
.Replace "-0.02", "", xlPart, xlByRows, False
.Replace "+0.02", "", xlPart, xlByRows, False
.Replace "-0.03", "", xlPart, xlByRows, False
.Replace "+0.03", "", xlPart, xlByRows, False
End With
Next
Sheets("caratula").Select
Range("c2").Select
End Sub

saludos,
hector.

Responder a este mensaje

#2 osalazarg

23/09/2004 - 01:48 | Informe spam

Muchas gracias, me has ayudado mucho.

Saludos desde México.

Héctor Miguel wrote:

hola, octavio !

> ... no puedo hacer funcionar el siguiente codigo [...]
> Private Sub Workbook_Open()
> Dim Hoja As Worksheet
> Application.ScreenUpdating = False
> For Each Hoja In ActiveWorkbook.Worksheets
> With Hojas
> Cells.Replace What:="-0.01", Replacement:="", LookAt:=xlPart, _
> SearchOrder:=xlByRows, MatchCase:=False
> [... sigue codigo ...]

1° estas declarando una variable [Hoja] ->en singular<- 'pero'...
en el 'bloque' With la 'cambias' a plural ->Hojas<- <°|°/>
2° 'dentro' del bloque With... NO estas 'ligando' los objetos [Cells] con su

'pariente' [Hoja] con 'el punto' ->.Cells<-

3° puedes 'adelgazar' el codigo +/- con la siguiente estructura...
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In ActiveWorkbook.Worksheets
With Hoja.Cells
.Replace "-0.01", "", xlPart, xlByRows, False
.Replace "+0.01", "", xlPart, xlByRows, False
.Replace "-0.02", "", xlPart, xlByRows, False
.Replace "+0.02", "", xlPart, xlByRows, False
.Replace "-0.03", "", xlPart, xlByRows, False
.Replace "+0.03", "", xlPart, xlByRows, False
End With
Next
Sheets("caratula").Select
Range("c2").Select
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida