- 06 Out 2015 às 18:52
#4046
Olá Pessoal,
Preciso URGENTE DE UMA AJUDINHA!!!
Estou desenvolvendo um cadastro cujos dados são registrados em uma pasta de trabalho xlsx (SEM MACROS), a qual será compartilhada.
Ocorre que há no código um comando para abrir esta pasta de trabalho para efetuar os lançamentos. Quando ela está fechada, funciona perfeitamente para o primeiro lançamento de dados. No entanto, para o segundo lançamento no formulário, a pasta de trabalho já está aberta, e o excel pergunta se é para abrir novamente. Esse é o problema.
Como faço para que o programa faça uma análise condicional, para verificar se a pasta está ou não aberta, e prosseguir no códido?
O código inicial ficou assim:
Private Sub cmdSalvar_Click()
Workbooks.Open ("\\tjerj204\DGPCF\DEPLO\DIGOR\NOVA PLATAFORMA\BD_SCO.xlsx")
Worksheets("Plan1").Range("A2").Select
'Seleciona a celula A2
Do
If Not (IsEmpty(ActiveCell)) Then 'Se a célula não estiver vazia
ActiveCell.Offset(1, 0).Select 'Seleciona a celula abaixo
End If 'fim da condição se
Loop Until IsEmpty(ActiveCell) = True 'Faça isso até a célula selecionada seja vazia
EnumeraContatos
ActiveCell.Offset(0, 1).Value = txtData.Text
ActiveCell.Offset(0, 2).Value = txtProcesso.Text
ActiveCell.Offset(0, 3).Value = txtElemento.Text
ActiveCell.Offset(0, 4).Value = txtPrograma.Text
ActiveCell.Offset(0, 5).Value = txtValor.Text
End Sub
Public Sub EnumeraContatos()
If IsNumeric(ActiveCell.Offset(-1, 0)) Then
ActiveCell = ActiveCell.Offset(-1, 0) + 1
Else
ActiveCell = 1
End If
End Sub
Agradeço desde já....
Preciso URGENTE DE UMA AJUDINHA!!!
Estou desenvolvendo um cadastro cujos dados são registrados em uma pasta de trabalho xlsx (SEM MACROS), a qual será compartilhada.
Ocorre que há no código um comando para abrir esta pasta de trabalho para efetuar os lançamentos. Quando ela está fechada, funciona perfeitamente para o primeiro lançamento de dados. No entanto, para o segundo lançamento no formulário, a pasta de trabalho já está aberta, e o excel pergunta se é para abrir novamente. Esse é o problema.
Como faço para que o programa faça uma análise condicional, para verificar se a pasta está ou não aberta, e prosseguir no códido?
O código inicial ficou assim:
Private Sub cmdSalvar_Click()
Workbooks.Open ("\\tjerj204\DGPCF\DEPLO\DIGOR\NOVA PLATAFORMA\BD_SCO.xlsx")
Worksheets("Plan1").Range("A2").Select
'Seleciona a celula A2
Do
If Not (IsEmpty(ActiveCell)) Then 'Se a célula não estiver vazia
ActiveCell.Offset(1, 0).Select 'Seleciona a celula abaixo
End If 'fim da condição se
Loop Until IsEmpty(ActiveCell) = True 'Faça isso até a célula selecionada seja vazia
EnumeraContatos
ActiveCell.Offset(0, 1).Value = txtData.Text
ActiveCell.Offset(0, 2).Value = txtProcesso.Text
ActiveCell.Offset(0, 3).Value = txtElemento.Text
ActiveCell.Offset(0, 4).Value = txtPrograma.Text
ActiveCell.Offset(0, 5).Value = txtValor.Text
End Sub
Public Sub EnumeraContatos()
If IsNumeric(ActiveCell.Offset(-1, 0)) Then
ActiveCell = ActiveCell.Offset(-1, 0) + 1
Else
ActiveCell = 1
End If
End Sub
Agradeço desde já....