Problema ao copiar objetos via macro
Página 1 de 1
Problema ao copiar objetos via macro
Nobres colegas,
Estou diante de um problema e necessito urgente da ajuda dos senhores. Criei um relatório que adiciona formulários ao clicar no botão "Inserir" (utilizando macro), a partir da necessidade informada pelo usuário. Este formulário em branco, localizado em outra planilha ("Form") contém objetos Dropdown para seleção de opções, reduzindo a necessidade de digitação. Funcionou bem, permanecendo dentro da formatação de cada página, etc. Porém, quando selecionamos as opções de um determinado Dropdown, todos os demais copiados, de todas as páginas geradas, apresentam a mesma informação. Como posso resolver esta situação, para que os formulários permaneçam independentes? Desde já, agradeço a atenção.
Segue abaixo código utilizado atualmente:
Sub Adicionar_itens()
Dim cont As Integer
Dim n As Integer
cont = 0
n = CInt(InputBox("Quantidade: "))
Do While cont < n
Sheets("Relatório").Select
Sheets("Form").Visible = True
Sheets("Form").Select
Range("A151:H200").Select
Selection.Copy
Sheets("Relatório").Select
Range("A151").Select
Selection.Insert Shift:=xlDown
Range("A151:H151").Select
Application.CutCopyMode = False
Range("A151").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Rows("200:200").Select
Selection.Delete Shift:=xlUp
Range("A151").Select
Sheets("Form").Select
ActiveWindow.SelectedSheets.Visible = False
cont = cont + 1
Loop
MsgBox ("Formulários gerados!")
End Sub
OBS: COMO FAÇO PRA ANEXAR O ARQUIVO POR AQUI???
Estou diante de um problema e necessito urgente da ajuda dos senhores. Criei um relatório que adiciona formulários ao clicar no botão "Inserir" (utilizando macro), a partir da necessidade informada pelo usuário. Este formulário em branco, localizado em outra planilha ("Form") contém objetos Dropdown para seleção de opções, reduzindo a necessidade de digitação. Funcionou bem, permanecendo dentro da formatação de cada página, etc. Porém, quando selecionamos as opções de um determinado Dropdown, todos os demais copiados, de todas as páginas geradas, apresentam a mesma informação. Como posso resolver esta situação, para que os formulários permaneçam independentes? Desde já, agradeço a atenção.
Segue abaixo código utilizado atualmente:
Sub Adicionar_itens()
Dim cont As Integer
Dim n As Integer
cont = 0
n = CInt(InputBox("Quantidade: "))
Do While cont < n
Sheets("Relatório").Select
Sheets("Form").Visible = True
Sheets("Form").Select
Range("A151:H200").Select
Selection.Copy
Sheets("Relatório").Select
Range("A151").Select
Selection.Insert Shift:=xlDown
Range("A151:H151").Select
Application.CutCopyMode = False
Range("A151").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Rows("200:200").Select
Selection.Delete Shift:=xlUp
Range("A151").Select
Sheets("Form").Select
ActiveWindow.SelectedSheets.Visible = False
cont = cont + 1
Loop
MsgBox ("Formulários gerados!")
End Sub
OBS: COMO FAÇO PRA ANEXAR O ARQUIVO POR AQUI???
Marxx- Iniciante
- Mensagens : 1
Data de inscrição : 29/01/2013
Tópicos semelhantes
» temporizador em macro
» Macro importar arquivo .txt
» Macro para importar diversos arquivos txt
» Executar Macro ao Iniciar/Sair do Excel
» Macro para conferir duas colunas
» Macro importar arquivo .txt
» Macro para importar diversos arquivos txt
» Executar Macro ao Iniciar/Sair do Excel
» Macro para conferir duas colunas
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|