Valor de célula em 'Windows("VENDA 762.xlsm").Activate'

2024 - VBA & Macros

Post Recente por Fabiano 8 anos atrás

4 Posts

2 Usuários

0 Reactions

1,090 Visualizações

RSS

Fabiano

(@alanisfcsm)

Posts: 0

Trusted Member

Topic starter

Ola!

Em 'Windows("VENDA 762.xlsm").Activate'. Preciso substituir "VENDA 762.xlsm" por 'Worksheets("SET").Range("A1"), tentei mas sem sucesso.
Estou apanhando na "lógica" :oops:

    Windows("VENDA 762.xlsm").Activate
    'Windows.Worksheets("SET").Range("A1").Activate
     Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True

Postado : 10/10/2016 2:48 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Apesar de não entender a "logica" do que pretende experimente

    Windows("VENDA 762.xlsm").Activate
    Worksheets("Set").Activate
    Range("A1").Select

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 10/10/2016 3:11 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Ou seria isso?

onde o nome do arquivo estaria salvo na célula A1 da aba SET !?

    Windows(Worksheets("SET").Range("A1")).Activate
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 10/10/2016 4:33 pm