Basole

So por imagens nao da pra analisar o funcionamento. Talvez algum colega possa te ajudar.

@Léo Mota pode ser que tenha alguma opção melhor, mas o que indico no momento, é usar o Excel juntamente com o vba, abrindo o seu arquivo e acrescentando as novas informaçoes, fazendo a contagem , inserindo o totalizador e salvar no respectivo formato. Tudo isso tomaticamente. Se puder disponibilize seus arquivos.

@FantonLord se puder postar sua planilha ou um exemplo fica mais fácil ajudar.

@Ma tudo bem obrigado. Sem ver seu arquivo fica difícil analisar com exatidao, mas acredito que está faltando voce habilitar o evento Change das novas Planilhas (abas) criadas: De acordo com que voce passou acima... Na aba "CEI" Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 7 Then Atualiza_Quadro_Formata ' chama a funcao que está no modulo1 End If End Sub E na aba "CUBOSAS" : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 8 Then Atualiza_Quadro_Formata ' chama a funcao que está no modulo1 End If End Sub * Cole o codigo abaixo no modulo de cada aba.. Caso não de certo, envie sua planilha p/ meu email.

@FMattos até da pra fazer desta forma, mas ai se voce precisar utilizar um outra pasta de trabalho, ficará invisivel. Veja este exemplo com botão minimizar/maxmilizar que permite voce trabalhar com outros arquivos abertos na tela. E com a opcao de inserir imagens tp zap zap ... só num tem a encriptacao de msg kkkk Chat Minimizar.zip

@FMattos veja este exemplo se lhe atende.... Faça copias da planilha Chat.xlsm para os participantes do chat. Chat - Basole.zip

Segue um exemplo que apaga as celulas que estão selecionadas, adicione um botao e associe o botao a esta macro Sub Apagar_dados_em_células_selecionadas() Selection.ClearContents End Sub

Target é a referencia a ActiveCell ou seja a celula selecionada. Target.Count conta quantas celulas foram selecionadas,. no caso do meu codigo if Target.Count > 1 Exit sub, é um tratamento de erro, pois se voce selecionar mais de uma celula a macro pára, caso contrario gerará um error, pois o codigo esta referenciando somente o valor de 1 (uma) Target. Dei uma reformulada no seu codigo : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$B$2" Then Select Case Target.Value Case 2 Cells(Target.Row, "Y").Interior.ColorIndex = 3 Case 1 Cells(Target.Row, "Z").Interior.ColorIndex = 3 Case Cells(Target.Row, "X").Interior.ColorIndex = 3 End Select End If End Sub

Veja o exemplo se atende ! Seleciona e Pinta a Celula-Basole.xlsm

@Pâmella Bernardes Seja bem vinda a bordo. Qual seria o valor desta "quantidade X" ?

Bom se na verificacao de validacao nem todos as registros (linhas) são validados, um opcao seria inseri o filtro de validacao antes de importar os registros. Com isso diminuiria as entradas

@Eloize Teixeira no exemplo que postei, o codigo cria o objeto excel referenciando a sua planilha "banco de dados", abrindo ocultamente seu arquivo, em seguida importa os dados e fecha o objeto. Veja se consegue alterar a macro declarando o objeto fora da sub rotina ex.: Public exclObj as Object e na sub que abre cria e abre o objeto desabilite a linha excelObj.Close. Com o objeto criado voce pode setar a(s) aba(s) e intervalos que achar necessario em seguida crie um botao incluindo o fechamento do excelObj.Close.

Por favor, já que resolveu pra voce, altere o status do topico como resolvido. Obrigado.

Acho que seri uma solucao carregar os dados restantes do txt para uma outra coluna. Ja tentou inserir um condicao na macro, por exempo se a " i " em cells( i, j).value for igual a 1.048.576, i =1 e j =2. ou seja o carregamento do txt continua na linha 1 da coluna B

@Eloize TeixeiraVeja este exemplo com utilizacao de um outro metodo para abrir de forma invisivel e importar dados outra pasta de trabalho . ExemploImpDados-Basole.zip

@Rafanewton no seu campo lucro defina como Texto para ele aceitar numeros decimais. E para voce fazer o calculo de porcentagem no access, tente desta forma ex. campo lucro = 1,45 (p/45%),ou 1,8 (p/80%) ou 1,55 (p/55%). Veja este exemplo de consulta com sql: SELECT tabela1.código, Sum((Carreto+material + [mao de obra]) * lucro) AS Resultado1 FROM tabela1 GROUP BY tabela1.código; Exemp-Consult-Porcent-Basole.zip

entendi a Sub EmailID() esta em um modulo ne. Bom mesmo assim quando se chama o End ele encerra todas as exceuçoes. Veja o peq exemplo que fiz. Teste_End-Basole.xlsm

Ah tá você esta se referindo quando a macro esta em EXECUÇÂO, e é 'clicado' no "X" do Form. Então tente inseri um "END" na rotina. ex. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End End If End Sub * mas nesse caso o form encerrá/fechará

Nao entendi direito o que esta acontecendo com o seu form. Poste um exemplo por favor Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "CLICK NO BOTÃO [ Sair ] !", vbExclamation, "Atenção !!! " End If End Sub

Rafael, tente esta macro: Sub Teste_Envio_Hyperlink() Dim strURL As String With Sheets("Mensagens") For i = 2 To .Cells(Rows.Count, "C").End(xlUp).Row If .Range("C" & i).Value <> "" Then strURL = .Range("C" & i).Value ThisWorkbook.FollowHyperlink (strURL) End If Next End With End Sub

Segue o arq. com as alteracoes, veja se e isso que precisa ComiteUlt-Basole.zip

O comando criar a pasta "controle" sempre na pasta que estiver salvo sua Planilha: Sub Criar_Pasta() MkDir ThisWorkbook.Path & "\controle" End Sub

O Activate é o mesmo que Select exemplo : Range("D8").Select, mas eu prefiro usar o activate.

Veja se e isso que quer: Sub GRAVAR_CAD() ' ' GRAVAR_CAD Macro ' ' Range("D8").Select Selection.Copy If Range("D8").Value = "" Then MsgBox "Insira o número da Fita" Range("D8").Activate Exit Sub End If Sheets("Plan1").Select Range("D5").Select ActiveSheet.Paste Sheets("CAD_FITA").Select Range("D10").Select Application.CutCopyMode = False Selection.Copy Sheets("REGISTROS").Select Range("E5").Select ActiveSheet.Paste End Sub

Por favor, poste sua planilha ou um exemplo c/ alguns dados, para que possamos entender melhor o que voce precisa;