Problema ao copiar objetos via macro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Problema ao copiar objetos via macro

Mensagem por Marxx em 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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum