RafaVillani

@paulocezarpicosBom dia, substitua todas as linhas de comando ActiveSheet.Unprotect e ActiveSheet.Protect por nomedaplanilha.Unprotect e nomedaplanilha.Protect, exemplo: Na Plan16 (Maio2021) ficará assim: Plan16.Unprotect = "0" Plan16.Protect = "0" RafaVillani

@Jefferson TSA aba filtro recebe as informações filtradas da aba BASE conforme a seleção do combobox clientes, e estas informações filtradas são a base para carregar o listbox, em resumo, é onde o filtro é feito. Sempre que o combobox é alterado a célula M2 recebe o valor do combobox, bem como a Sub Filtro é ativada, onde ocorre o filtro conforme o nome da célula M2, as informações são salvas no Range e depois carregadas no listbox. RafaVillani

@Jefferson TSVeja se dessa forma lhe atende. RafaVillani CONTROLE NOVO.rar

@Jefferson TSPara melhor lhe ajudar, voce deve disponibilizar o modelo da planilha para download.

@Nightmaree para melhor lhe ajudar poderia disponibilizar a planilha para download?

@LucasExcelDe nada!

@LucasExcelVeja agora, alterei os campos de para a planilha grafico. Avaliação.rar

@LucasExcelPostando o arquivo novamente, o link anterior está corrompido. Avaliação.rar

@LucasExcelVeja se é dessa forma que você quer. RafaVillani Avaliação.rar

@ROSANO100Que bom que ficou satisfeito com o resultado, foi um bom aprendizado para mim que nunca havia trabalhado com o visual studio vinculado a uma planilha. Qualquer dúvida que tiver estou a disposição para auxiliar. Não esqueça de curtir e marcar minha resposta como solução. RafaVillani

Isso mesmo, nessa pasta C:\Users\SEU USUARIO\source\repos\ Não se esqueça de alterar os caminhos para salvamento e abertura da foto, pode ser o mesmo que usei, apenas altere o usuário.

@ROSANO100Tente abrir o projeto pelo Visual Studio.

@ROSANO100Você alterou o nome das planilhas, o intervalo da planilha que servirá de base para a imagem, o caminho onde a foto será salva corretamente? Coloquei a pasta no google drive, salve dentro da pasta "repos". TaskPane RafaVillani

Olá @Jefferson TS se o workbook já esta aberto, veja se isto lhe atende: Workbooks("FLUXO DE CAIXA.xlsm").Activate

@Dumonteneto Não fiz essa alteração, me de alguns minutos. @DumontenetoSegue a planilha com as devidas alterações. RafaVillani Controle de equipamentos.rar

@DumontenetoVeja se lhe atende. RafaVillani Controle de equipamentos.rar

@DumontenetoEntendi, você quer duas base de dados, uma na aba Banco de Dados com todas as informações, e nas demais abas apenas os dados correspondentes à aba? E em qual coluna do banco de dados será salva a Cidade?

@DumontenetoVocê quer inserir os dados diretamente na planilha ou através de formulário? Porque sua duvida inicial era quando preenchido na planilha, e este modelo que você anexou possui um formulário. Em qual coluna será armazenado as Cidades? Serão somente estas apções Ambulatorio Jaboatao, Ambulatorio Jeep, Ambulatorio SupplierPark, Goiania, Jaboatao, Joao Pessoa, Paulista e Recife? As informações inseridas serão exatamente estas, Codigo, Hostname, Tipo, Modelo, Fabricante, Numero de Serie, Sistema Operacional, Versao SO, Patrimonio, Status, Departamento, Area, ID User, Nome, Condicao e Garantia? Ou seus dados serão diferentes? RafaVillani

@DumontenetoEsse exemplo funciona com quantas linhas desejar na medida em que elas forem sendo preenchidas, mas apenas com 4 colunas, é apenas um modelo. Por isso eu lhe disse que para melhor lhe ajudar, o ideal seria você disponibilizar a planilha. RafaVillani

Olá @LucasExcelveja se lhe atende! RafaVillani Teste.rar

@DumontenetoMas foi exatamente isso que eu fiz, ao você colocar a cidade na coluna D, a macro é ativada e copia a linha para a planilha corespondente à cidade, no meu exemplo funciona apenas com as cidades Recife, Sao Paulo e Porto Alegre. Fiz uma pequena alteração, segue novamente a planilha. RafaVillani Modelo_Forum_Dumonteneto.rar

@DumontenetoSeja bem vindo ao fórum. Para melhor lhe ajudar seria bom você anexar o modelo da planilha. Mas, conforme informações que forneceu, segue um modelo, veja se lhe atende. Se a informação foi útil clique em curtir, se solucionou sua dúvida clique em solução. RafaVillani Modelo_Forum_Dumonteneto.rar

Olá@ROSANO100, após quebrar a cabeça, testes e mais testes, finalmente consegui um código que lhe atenda. Segue o código, altere conforme sua necessidade. Imports System.Drawing Imports System.IO Imports Microsoft.Office.Interop.Excel Public Class Sheet1 Public TaskPane As New ActionsPaneControl1 Private Sub Sheet1_Startup() Handles Me.Startup Dim ms As New MemoryStream Dim imagem As Image Globals.ThisWorkbook.ActionsPane.Controls.Add(TaskPane) TaskPane.Show() Using str As Stream = File.OpenRead("C:\Users\Gabriel\source\repos\TaskPane\TaskPane\imagem.gif") imagem = Image.FromStream(str) End Using TaskPane.PictureBox1.Image = imagem End Sub Private Sub Sheet1_Shutdown() Handles Me.Shutdown End Sub Private Sub Sheet1_Change(Target As Range) Handles Me.Change Dim ws As Excel.Worksheet = Globals.ThisWorkbook.Application.Worksheets("Sheet1") Dim rng As Excel.Range = ws.Range("A1:E5") Dim cht As ChartObject Dim ms As New MemoryStream Dim imagem As Image rng.CopyPicture(Appearance:=XlPictureAppearance.xlScreen, Format:=XlCopyPictureFormat.xlPicture) cht = Globals.Sheet1.ChartObjects.add(0, 0, rng.Width, rng.Height) With cht .Select() .Chart.Paste() .Chart.Export("C:\Users\Gabriel\source\repos\TaskPane\TaskPane\imagem.gif") .Delete() End With Using str As Stream = File.OpenRead("C:\Users\Gabriel\source\repos\TaskPane\TaskPane\imagem.gif") imagem = Image.FromStream(str) End Using TaskPane.PictureBox1.Image = imagem End Sub End Class Se a resposta foi útil clique em curtir e marque a resposta com solução. RafaVillani

Olá @paulotuca, apague todo o evento BeforeUpdade do txtobs, não precisamos mais dele, isso resolverá o problema. RafaVillani

Prezado @David L. Salvo bem vindo ao fórum. Sem você disponibilizar uma planilha modelo para download fica difícil ajudar. Mas, tendo como base as informações que foram passadas, fiz esse pequeno modelo. Basta selecionar uma célula da linha que pretende copiar e clicar no botão salvar, as informações serão copiadas da planilha1 para a planilha2, veja se lhe atente. Se a informação foi útil clique em curtir e marque a resposta com solução. RafaVillani Modelo_Forum_David.rar