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
ActiveSheet.Unprotect ("senha")
cont = 0
n = CInt(InputBox("Quantos formulários deseja gerar? "))
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!")
ActiveSheet.Protect ("senha")
End Sub
- Citação :
Início 