Ricardo Marca Vaz

Boa tarde amigos, Temos um requisito que precisamos manter o controle de alterações ativo em nossas planilhas Excel, mas precisamos fazer o uso de planilhas dinâmicas, o que não permite o uso de tal controle. Gostaria de saber se tem alguma forma de ativar o controle ou se existe alguma outra forma de fazer este registro. Obrigado!

Boa noite, Obrigado pelo seu contato! Também prefiro tudo centralizado, mas caso eu desmembre tudo terei cerca de 20 planilhas, tenho três usuários, mas não tem como fazer um especifica para cada um. Já estou resolvendo alguns "erros" removendo a função auto salvar. Enfim, qualquer sugestão é bem vinda. Valeu!!!

Boa noite pessoal, Tenho uma planilha onde pelo menos três usuários precisam utilizar juntos e preciso da função "Controlar alterações" ativada. Quando ativo a opção compartilhamento todo código executado retorna com erro. São códigos simples, exemplo abaixo, quem puder ajudar agradeço. Private Sub CommandButton2_Click() Sheets("MENU").Select End Sub Private Sub CommandButton2_Click() ActiveSheet.Unprotect ("fq") ActiveSheet.Range("$A$1:$C$3000").AutoFilter Field:=2 ActiveSheet.Range("$A$1:$C$3000").AutoFilter Field:=2, Criteria1:="" ActiveSheet.Range("$A$1:$C$300").AutoFilter Field:=3 ActiveSheet.Range("$A$1:$C$3000").AutoFilter Field:=3, Criteria1:= _ "CONCLUÍDO" ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" End Sub Private Sub CommandButton3_Click() ActiveWorkbook.Save ActiveSheet.Unprotect ("fq") Dim Nome As String Dim ENDERECO As String Nome = "Relatório para digitação " DIA = Year(Date) & "." & Day(Date) & "." & Month(Date) HORA = Hour(Time) & "." & Minute(Time) & "." & Second(Time) user = Application.UserName ENDERECO = "O:\Gerenciamento Laboratorio Sao José\Planilhas ensaios\Relatórios\" Nome = "O:\Gerenciamento Laboratorio Sao José\Planilhas ensaios\Relatórios\" & Nome & "" & DIA & " " & HORA & " " & user & ".pdf" ActiveSheet.Range("A1:AD3000").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome MSGBOX "Arquivo salvo na pasta 'O:\Gerenciamento Laboratorio Sao José\Planilhas ensaios\Relatórios'" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" ActiveSheet.Unprotect ("fq") Cells.Select ActiveSheet.Unprotect ("fq") Cells.EntireColumn.AutoFit ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" ActiveWorkbook.Save Sheets("MENU").Select End Sub

Boa noite pessoal, Alguém de vocês tem conhecimento de um código para conectar uma balança a um PC por um cabo RS 232 e transmitir os dados de pesagem para a planilha. Desde já obrigado!

Resolvido... Usei a variável ActiveCell.Column = 10 Then

Boa tarde pessoal, Gostaria de pedir a ajuda de vocês com o código abaixo. Meu problema está nas linhas com a expressão "If" e "Elseif", eu quero que de acordo com a coluna onde está selecionado, independente da célula, seja executado o código respectivo código na sequencia. Desde já obrigado! Private Sub CommandButton1_Click()Dim ws As Worksheet: Set ws = Sheets("TESTE TRIANGULAR")If Active.Column = 4 Then ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _ , AllowFiltering:=False, Password:="fq" ws.Cells(Rows.Count, 4).End(xlUp).Offset(0, 7).Select With ActiveCell .Value = TextBox1.Value End With ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" Unload MeCells(1048576, 4).End(xlUp).Offset(0, 0).SelectSelection.ClearContents ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" ElseIf Active.Column = 5 Then ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _ , AllowFiltering:=False, Password:="fq" ws.Cells(Rows.Count, 5).End(xlUp).Offset(0, 7).Select With ActiveCell .Value = TextBox1.Value End With ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" Unload MeCells(1048576, 5).End(xlUp).Offset(0, 0).SelectSelection.ClearContents ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq"ElseIf Active.Column = 6 Then ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _ , AllowFiltering:=False, Password:="fq" ws.Cells(Rows.Count, 6).End(xlUp).Offset(0, 7).Select With ActiveCell .Value = TextBox1.Value End With ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" Unload MeCells(1048576, 6).End(xlUp).Offset(0, 0).SelectSelection.ClearContents ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq" Else End If End Sub

Deu certo Basole, Valeu!!!! Deu certo Basole, Valeu!!!!

Osvaldo, obrigado pela dica, mas não funcionou, já tentei isto...

Osvaldo, obrigado pela dica, mas não funcionou, já tentei isto...

Boa tarde pessoal, gostaria da ajuda de vocês. Preciso salvar o valor digitado em um textbox em uma célula especifica da planilha. Podem me ajudar? Private Sub CommandButton1_Click() Cells(1048576, 4).End(xlUp).Offset(0, 7).Select 'localiza a célula para registro ?????????'valor do textbox1 na célula ativa Unload Me ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, Password:="fq"End Sub

Boa tarde pessoal, Gostaria da ajuda de vocês com a fórmula abaixo: =CONT.SES(TDB_BDLFQ_EXCEL_RPT!B:B;Relatório!$B$4;TDB_BDLFQ_EXCEL_RPT!C:C;Relatório!$B$2;TDB_BDLFQ_EXCEL_RPT!D:D;Relatório!$E$2;TDB_BDLFQ_EXCEL_RPT!D:D;Relatório!$E$3;TDB_BDLFQ_EXCEL_RPT!G:G;"<>""") Preciso que este intervalo de critério TDB_BDLFQ_EXCEL_RPT!G:G mude de acordo com a célula B7, B8 e assim por diante, que está na aba Relatório da planilha em anexo. obrigado desde já! report.xlsx