Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Problema ao copiar objetos via macro

Ir para baixo

Problema ao copiar objetos via macro Empty Problema ao copiar objetos via macro

Mensagem por Marxx Ter Jan 29, 2013 7:08 pm

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

Marxx
Iniciante
Iniciante

Mensagens : 1
Data de inscrição : 29/01/2013

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos