consulta con macro

Buenos dias (tardes) grupo.
Tengo una duda, tengo la siguiente macro, en la cual quiero que cambie
"1140-001-001-000" , por el numero de cuenta que aparezca en determinada
celda.
yo genero un libro que se llama consulta y de ahi hago una copia a otro
libro que es el que contiene la macro para ejecutarse. y como son

cuentas las que genero todas ellas se van al libro que se llama
consulta.xls. por lo que ejecuto la macro para despues el resultado

a otro libro.
(el "1140-001-001-000" viene siempre de la celda B5) dicha celda siempre

cambiar de nombre de cuenta por lo que ocupo que tambien al ejecutar la
macro me haga el copiado hacia abajo, asi como esta escrito en la macro...
espero haberme explicado, es la primera vez que hago una macro..

Saludos!



Sub epol()
'
' epol Macro
' Macro grabada el 26/02/2007 por xxxxx
'
Windows("consulta.xls").Activate
Cells.Select
Selection.Copy
Windows("Macroepol2007_ctrl_f.xls").Activate
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
Selection.EntireColumn.Insert
Columns("F:I").Select
Selection.NumberFormat = "#,##0.00"
Columns("H:H").Select
Selection.ClearContents
Range("H1").Select
ActiveCell.FormulaR1C1 = "todas"
Range("I1").Select
ActiveCell.FormulaR1C1 = "cotejo"
Range("B5").Select
ActiveCell.FormulaR1C1 = "1140-001-001-000"
Range("B5").Select
Selection.Copy
Range("C7:C13").Select

Les pongo la macro completa:


Sub epol()

'

' epol Macro

' Macro grabada el 26/02/2007 por principiante

'



'

Windows("consulta.xls").Activate

Cells.Select

Selection.Copy

Windows("Macroepol2007_ctrl_f.xls").Activate

ActiveSheet.Paste

Range("C7").Select

Application.CutCopyMode = False

Selection.EntireColumn.Insert

Columns("F:I").Select

Selection.NumberFormat = "#,##0.00"

Columns("H:H").Select

Selection.ClearContents

Range("H1").Select

ActiveCell.FormulaR1C1 = "todas"

Range("I1").Select

ActiveCell.FormulaR1C1 = "cotejo"

Range("B5").Select

ActiveCell.FormulaR1C1 = "1140-001-001-000"

Range("B5").Select

Selection.Copy

Range("C7:C13").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.AutoFill Destination:=Range("C7:C50000")

Range("C7:C849").Select

Rows("2:6").Select

Selection.Delete Shift:=xlUp

Range("H2").Select

ActiveCell.FormulaR1C1 = "=+RC[-2]+RC[-1]"

Range("I2").Select

ActiveCell.FormulaR1C1 = "=+RC[-3]-RC[-2]"

Range("H2:I2").Select

Selection.AutoFill Destination:=Range("H2:I50000")

Range("H2:I844").Select

Columns("A:I").Select

Range("I1").Activate

Columns("A:I").EntireColumn.AutoFit

End Sub


<Principiante> escribió en el mensaje
news:
> Buenos dias (tardes) grupo.
> Tengo una duda, tengo la siguiente macro, en la cual quiero que cambie
> "1140-001-001-000" , por el numero de cuenta que aparezca en determinada
> celda.
> yo genero un libro que se llama consulta y de ahi hago una copia a otro
> libro que es el que contiene la macro para ejecutarse. y como son
distintas
> cuentas las que genero todas ellas se van al libro que se llama
> consulta.xls. por lo que ejecuto la macro para despues el resultado
copiarlo
> a otro libro.
> (el "1140-001-001-000" viene siempre de la celda B5) dicha celda

va
> cambiar de nombre de cuenta por lo que ocupo que tambien al ejecutar la
> macro me haga el copiado hacia abajo, asi como esta escrito en la

> espero haberme explicado, es la primera vez que hago una macro..
>
> Saludos!
>
>
>
> Sub epol()
> '
> ' epol Macro
> ' Macro grabada el 26/02/2007 por xxxxx
> '
> Windows("consulta.xls").Activate
> Cells.Select
> Selection.Copy
> Windows("Macroepol2007_ctrl_f.xls").Activate
> ActiveSheet.Paste
> Range("C7").Select
> Application.CutCopyMode = False
> Selection.EntireColumn.Insert
> Columns("F:I").Select
> Selection.NumberFormat = "#,##0.00"
> Columns("H:H").Select
> Selection.ClearContents
> Range("H1").Select
> ActiveCell.FormulaR1C1 = "todas"
> Range("I1").Select
> ActiveCell.FormulaR1C1 = "cotejo"
> Range("B5").Select
> ActiveCell.FormulaR1C1 = "1140-001-001-000"
> Range("B5").Select
> Selection.Copy
> Range("C7:C13").Select
>
>

Gracias por su ayuda. jejejej
:(

Principiante escribió:
> Gracias por su ayuda. jejejej
> :(

Hola Principiante :-)

Puedes declarar una variable por ejemplo del tipo string [si meto la
pata con lo que voy a decir , que me rectifiquen pleasesss :-P , sino
pienso que lo estoy haciendo bien cuando no lo estoy haciendo bien
jejejeje! ]

Bien puedes declarar la variable asi : [No he probado el codigo por
falta de tiempo]

'--

Sub epol()

Dim x As String


x = Worksheets("Hoja1").Range("B5")

'tu codigo etc... hasta que llegues a la linea:
'ActiveCell.FormulaR1C1 = "1140-001-001-000" quedando asi:


ActiveCell.FormulaR1C1 = x


'resto del codigo

end sub

'-

Luego hay lineas innecesarias como:

ActiveSheet.Paste

Bueno faltaria limpiar el codigo en general pero para tu pregunta
inicial pues creo que asi funcionaria :-)

Comentanos ok? :-)

Saludos
Monica

PD: ¡¡Me he perdido en este foro pido Disculpas, es que ya no se si esta
contestada esta pregunta, ya que se ven preguntas duplicadas, cambios de
nombres de usuarios etc..., y ya no se donde estoy ¡ay dios!! en fin lo
dicho :-P !!!

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com