Jump to content

como voce criaria um arvore de decisoes de uma loteria?


sorel

Recommended Posts

luiz, preciso de tua ajuda para organizar muitas planilia aceso aso indices rapido

 este codigo macro cria uma pasta,

Sub GetSheets () 

'Atualizar ExcelJunction.com 

Caminho = "" 

Nome do arquivo = Dir (Caminho & "* .xls") 

Do While Filename <> "" 

Workbooks.Abra Nome do arquivo: = Caminho e nome do arquivo, ReadOnly: = True 

Para cada planilha em ActiveWorkbook.Sheets 

Sheet.Copy After: = ThisWorkbook.Sheets (1) 

planilhas da próxima planilha 

(nome do arquivo) .Close 

Filename = Dir () 

Loop 

End Sub

Link to comment
Share on other sites

ala luiz acho que macro tem ser em ingles entao tai

Sub GetSheets()

'Update ExcelJunction.com

Path = ""

Filename = Dir(Path & "*.xls")

Do While Filename <> ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy After:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub

Link to comment
Share on other sites

1 hora atrás, sorel disse:

voce  ou outros consegue por numa planilia? depois em salvo nos meus dumentos as 12 ou mais planilias

 voce consegue seguir a orientaçoes do video?  pode postar depois, por favor

 

Rapaiz, vc tá perguntando pra pessoa errada haha, naum sei programar em excel... Até penso em aprender, mas por enquanto não

 
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...