Giancarlo de Oliveira

@Basole Basole, Vou enviar de casa, aqui do trabalho não estou conseguindo, acho que o firewall daqui está bloqueando o upload. Nos falamos amanhã, mas obrigado adiantado por me dar essa esperança. Gian

Boa tarde, Caros pesquisei no forum, mas não encontrei formas de usar os conteudos para o meu problema. Criei um form com uma listbox, essa listbox traz os dados de uma região especifica e reservada da planilha, que tem apenas essa função, no caso de fornecer os dados para preencher a listbox, até aí tudo funcionando. o que eu preciso é criar uma rotina nesse form, para que quando uma ou mais linhas da listbox estejam selecionadas, através de um botão ou duplo click esses dados sejam copiados para uma outra região da planilha. Tenho um critério importante, quando a linha selecionada na listbox for copiada para a região de destino, esses dados precisam ser empilhados logo abaixo do ultimo registro, isso considerando a célula A5 como referencia de topo, ou seja abaixo de A5 pode ser em qualquer linha em branco. Algo assim é possivel ? Existe alguma outra forma de reproduzir essa ação ? Muito grato a qualquer ajuda. Fiquem com Deus e ótima semana a todos.

Boa tarde, Caros estou trabalhando em um formulário VBA para que os usuários de um setor insiram 3 tipos de dados diferentes em uma listbox. Depois preciso transferir esses dados para a planilha, mas de forma que os dados da listbox sejam inseridos em colunas que não ficam exatamente uma ao lado outra. Na prática, estou tentando fazer com que os dados das três colunas da minha listbox, sejam inseridos na minha planilha, seguindo a seguinte ordem: A 1º coluna da listbox deve ser inserida na coluna F da planilha A 2º coluna da listbox || na coluna D da planilha A 3º coluna da listbox || na coluna I da planilha Fora que ainda tenho que conseguir que o código seja capaz de empilhar esses dados sempre abaixo dos demais preenchimentos que já devem existir na planilha. Existe algum método que faça essa rotina ? Estou enviado meu trabalho para facilitar o entendimento, nesse exemplo que estou enviando já inseri um código, que transfere da listbox para a planilha, mas não sei como aplicar esses critérios que expliquei mais acima. Agradeço qualquer opinião. Fiquem com Deus TESTE ATIVIDADES.zip

Boa noite, Patropi, o código atende metade da premissa. Com esse código consegui alterar as referencias de coluna e isso já é muito bom Mas quando alteramos os valores de alguma célula que eu já tenha inserido algum dado a hora acaba sendo atualizada. No meu caso preciso que após a hora surgir pela 1º vez ela não se atualize mais, mesmo mudando o valor de alguma célula que já foi preenchida. Tenho um outro projeto que esse código já está me ajudando Já agradeço de qualquer forma. Abraço irmão. Att. Gian

Boa noite. Amigos estou travado em um problema relacionado a planilha com compartilhamento e Macros. Descobri da pior forma que minha planilha cheia de macros e forms não funciona ao ativar o compartilhamento dessa pasta de trabalho. Minha planilha funciona full em um computador, porém ao compartilhar a pasta de trabalho, os demais usuários apesar de conseguir visualizar os dados inseridos, não conseguem acessar os botões da planilha. Os botões servem para chamar os meus forms e disparar algumas ações para o preenchimento da planilha. A gênero de conselho, informação, caridade enfim...rsss É possível contornar esse limitação de alguma forma ? Quais seriam os caminhos possíveis para contornar. Já estou considerando usar uma pasta de trabalho intermediária sem macros que fique compartilhada e sirva de "banco de dados" entre as planilhas que tem os forms. Alguém já teve que lidar com isso, existe alguma solução confiável nesse sentido ? Se alguém se interessar pelo caso posso postar a planilha. Obrigado adiantado. Gian

Boa noite, Amigos usei o seguinte código do @CasaDoHardware Private Sub Worksheet_Change(ByVal Target As Range) Dim li As Long li = ActiveCell.Row If Cells(li, 2).Value <> "" Then Exit Sub If Target.Column <> 1 Then Exit Sub If Range("A" & Target.Row).Value <> "" Then Range("B" & Target.Row).Value = Time End If End Sub Mas queria expandir o uso desse código para utiliza-lo referenciado em outras colunas da minha planilha. Nessa versão ele já funciona referenciado nas colunas A e B, onde ao inserir algum valor em células da coluna A, na célula ao lado (coluna ) surge a hora. Tentei alterar alguns parâmetros desse código para que ele também faça essa função referenciado por exemplo: ao inserir algum dado em células da H, na mesma e na coluna M apareça a hora. É possivel ?

@CasaDoHardware Deu certo com o seu código... O problema não era o código que você me sugeriu, nem os códigos que eu já uso. O problema era a planilha em si. Tive que exportar meus formulários, copiar o códigos e recolocar tudo em uma pasta de trabalho nova. Inseri os códigos que você sugeriu e a minha planilha já esta funcionando como deveria, assim que clico no botão salvar dos meus forms, o código desprotege a planilha, insere os dados nas células e ao fim do código protege novamente a planilha. Muito show. Estou muito satisfeito com resultado, todos os recursos que eu tentei implementar estão operacionais e tudo graças a sua ajuda @CasaDoHardware, @Patropi e demais colegas do Fórum. Graças a vocês finalizei esse projeto. Muito Obrigado à todos. Att. Gian

@CasaDoHardware Beleza Vou testar aqui e já digo se deu certo Mas obrigado de qualquer forma adicionado 13 minutos depois @CasaDoHardware Não conseguir usar o seu exemplo... Abaixo está o código que estou usando atualmente no botão salvar do meu form Private Sub btnSalvar_Click() 'SE FOR CÓDIGO, CONFIRMA NECESSIDADE MALETA (SIM MARCA A CHECKBOX, NÃO SALVA O VALOR NÃO) If cmbCodigo.Value <> "" Then Dim maleta As VbMsgBoxResult maleta = MsgBox("CÓDIGO SELECIONADO" + vbCrLf + "NECESSÁRIO MALETA ?", vbYesNo, "Maleta") If maleta = 6 Then chkMaleta.Value = True Else chkMaleta.Value = False End If End If 'ATIVA A PLANILHA ThisWorkbook.Worksheets("Rotativo").Activate 'SELECIONA A CÉLULA A5 Range("A5").Select 'PROCURA A PRIMEIRA CÉLULA VAZIA Do If Not (IsEmpty(ActiveCell)) Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True 'INSERE OS VALORES VALORES DAS TXT(s), CMB(s) E DEMAIS ITENS NA PLANILHA ActiveCell.Value = txtProntuario.Value ActiveCell.Offset(0, 1).Value = txtNome.Value ActiveCell.Offset(0, 2).Value = cmbOrigem.Value ActiveCell.Offset(0, 3).Value = cmbComplemento1.Value ActiveCell.Offset(0, 4).Value = cmbDestino.Value ActiveCell.Offset(0, 5).Value = cmbComplemento2.Value ActiveCell.Offset(0, 6).Value = cmbVeiculo.Value ActiveCell.Offset(0, 7).Value = txtSolicitante.Value ActiveCell.Offset(0, 12).Value = Now ActiveCell.Offset(0, 10).Value = cmbCodigo.Value ActiveCell.Offset(0, 17).Value = txtObservacoes.Value 'INSERE A PALAVRA "MALETA" OU "NÃO" DE ACORDO COM A SELEÇÃO DA CHECKBOX If chkMaleta.Value = True Then ActiveCell.Offset(0, 11).Value = "MALETA" Else ActiveCell.Offset(0, 11).Value = "NÃO" End If 'ATRIBUI O TEXTO NÃO PARA A COLUNA CÓDIGO CASO NENHUM CODIGO TENHA SIDO SELECIONADO If cmbCodigo.Value = "" Then ActiveCell.Offset(0, 10).Value = "NÃO" End If ActiveWorkbook.Save Unload Me End Sub É possível usar o seu código adaptando a estrutura que já estou usando ?

Boa noite, Amigos estou em um pé de briga com uma planilha que estou produzindo para o meu trabalho. Tenho diversos macros, alguns botões, 7 forms e até agora com muita ajuda de todos aqui do Fórum esses recursos estão funcionando perfeitamente. Os forms servem para que os usuários gerem solicitações de atendimento e ao clicar em salvar esses dados são direcionados para locais específicos da minha planilha, até ai tranquilo. Quero agora realizar a seguinte rotina, ao clicar no botão salvar dos meus forms quero que a planilha que deve estar previamente toda bloqueada, seja rapidamente desbloqueada, os dados sejam inseridos nas células apropriadas e em seguida as células voltem a ficar bloqueadas. Algo assim é possível ? Já tentei tantos métodos que estou achando que isso vai ser impossível...rs Para terem um ideia da dificuldade, atualmente não consigo nem bloquear minha planilha de forma manual usando os botões Proteger/Desproteger do Excel. Faço tudo, seleciono todas células, botão direito, formatar células, Proteção, desmarco e marco de novo para garantir a opção Bloqueadas, vou em Proteger, deixo marcado apenas as duas primeiras opções e defino um senha. Acesso minha planilha, e nada...., apenas alguns cabeçalhos e uma coluna ficam bloqueadas as demais células ficam acessíveis mesmo com o bloqueio ativo. Faço e desfaço esse processo milhões de vezes e nada. Quando tento fazer esse processo em uma planilha nova em branco funciona, mas na minha nada... Alguém imagina o que pode estar interferindo nesse recurso, ou tem algum sugestão que possa ser aplicada ? Obrigado adiantado. Fiquem com Deus

@Patropi Estou usando sua sugestão de código Minha planilha complementar, precisou de um modelo muito parecido ao código que você sugeriu, nem precisou de muita mudança... Muito grato pela ajuda. Ótima semana.

Não é que deu certo... Funcionando e implementado. Casa do Hardware já é segunda vez que resolve a minh avira hoje hein...rsss Super obrigado irmão. Que a comunidade do fórum cresça mais e mais. Otimo final de semana Fiquem com Deus todos. Gian

CasaDoHardware funcionou Percebi algo que não sei se você havia reparado também Se eu digitar algo em A3, em B3 surge a hora atual, até aí beleza... Mas se eu acessar A3 novamente sem ter digitado nada em outra célula e alterar o valor de A3 a hora é atualizada. A hora só fica congelada como eu preciso se: Apos digitar algo em A10 (por exemplo) a hora vai surgir em B10, beleza... Em seguida eu devo digitar algo em qualquer outra célula da coluna A, por exemplo A15, agora sim, se eu voltar para A10 e mudar o valor contido nessa célula a hora que está em B10 não é mais atualizada. Apesar desse pequeno detalhe, a função ficou show. Vai servir para minha planilha numa boa. Mega obrigado pelo código, quase desisti de conseguir...rs Ótimo final de semana. Fique com Deus. Att. Gian adicionado 3 minutos depois Patropi, Vou testar mais a noite e dou um retorno. Eu dei uma lida no código e parece que vai servir sim, muito obrigado pelo Link. Obrigado pela parceria.

Usei o código em uma planilha em branco (nova) e também na versão em que estou trabalhando, mas nos dois casos acontece o mesmo. Quando digito algum valor em qualquer célula da coluna A, surge o horário na célula ao lado, ou seja coluna B. Até aí beleza. Mas se apagar ou modificar o conteúdo da célula em que a pouco digitei algo, a hora mostrada na coluna B é atualizado. Tentei uma porção de vezes, mas em todos casos sempre ocorre a atualização da hora. Posso estar fazendo de errado, mesmo estando em uma planilha em branco (nova) ? Você tem alguma planilha com esse função funcionando de forma que a hora mostrada na coluna B não seja recalculada quando a valor da célula ao lado é alterado ?

Pessoal seria possível fazer esse processo de carregar em txtbox(s) os valores de uma sequencia de células paralelas da minha planilha para em cada txtbox que eu tenho em um form ? Na pratica seria assim: De acordo com a activeCell.row (linha que estiver selecionada na minha planilha) quero que ao clicar em um botão, as txtbox(s) de um form que eu fiz mostrem os valores das células dessa linha. Por exemplo: na txtbox1 seja carregado o valor da célula que está na coluna A da linha selecionada na txtbox2 seja carregado o valor da célula que está na coluna B da linha selecionada na txtbox3 seja carregado o valor da célula que está na coluna C da linha selecionada ... Existe alguma forma de se fazer isso ?

Vou tentar aqui e já digo se deu certo. Mas muito obrigado adiantado adicionado 12 minutos depois Casa do Hardware, Seu código já atendeu 50% da minha situação Ainda preciso que se um usuário altere ou exclua o valor já digitado em qualquer célula da coluna A, a hora mostrada na coluna B, não seja atualizada ou deixe de ser mostrada. você acha possível algo desse tipo ? Super, mega obrigado por enquanto irmão. adicionado 16 minutos depois Ah... Eu disse que atendeu 50% do problema, por que seu código já está fazendo a parte de na coluna B mostrar a hora ao inserir um valor em qualquer célula da coluna A. Falta essa parte que comentei, onde se um usuário alterar ou excluir algum valor de células da coluna A, a hora que ficou registrada nas células coluna B não sejam alteradas ou perdidas.