Pessoal, Bom Dia!
Estou com um dúvida.
Eu crieI uma macro que leva informações de um formulário para outra planilha. Se a planilha na qual vai receber os dados estiver fechada, a macro leva os dados sem problema. Porém, se algum outro usuário estiver com ela aberta, não funciona. Como posso resolver isso.
Eu penso que tinha que ser algo assim: Se a planilha estiver aberta, faça isso,
se fechada isso...
Private Sub CommandButton_Enviar_Click()
'Cria a variavel linhavazia
Dim linhavazia As Long
'Confere se o campo segmento foi preenchido
If cboText_Segmento = "C&P" Then
'abre a planilha de destino e seleciona a aba "Banco de Dados"
Workbooks.Open ("\SERVIDORCOMCOM2016Prospecção e Vendas InternasPlanilhas de Mapeamento 2016.2Planilha de Mapeamento 2016.2 - C&P.xlsm")
Sheets("Banco de Dados").Select
'conta quantas informações foram inseridas na coluna A da aba dados
linhavazia = WorksheetFunction.CountA(Range("A:A")) + 1
'Insere informações da aba dados
Cells(linhavazia, 3).Value = Text_CNPJ.Value
Cells(linhavazia, 1).Value = CDate(Text_Data.Value)
'Salva e fecha a planilha de destino
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/07/2016 5:07 am