consulta con macro

26/02/2007 - 18:52 por Anonimo | Informe spam
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 siempre 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 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
 

Leer las respuestas

#1 Anonimo
26/02/2007 - 19:53 | Informe spam
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 siempre


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 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


Preguntas similares