- 27 Jan 2020 às 20:48
#51973
ola pessoal...
acredito que é possivel o que estou buscando... espero poder contar com a ilustre ajuda dos srs!
preciso estruturar esses dois procedimentos (seguem abaixo) no evento change da worksheet, talvez com select case ou outro método...
funcionam perfeitamente mas preciso dos dois executando sem botoes e cada um em seu momento sem interferir na digitacao da planilha;
anexo modelo exemplo.
aguardo...
vlw. muito obrigado.
abraços
"nomeia a aba de acordo com as celulas
acredito que é possivel o que estou buscando... espero poder contar com a ilustre ajuda dos srs!
preciso estruturar esses dois procedimentos (seguem abaixo) no evento change da worksheet, talvez com select case ou outro método...
funcionam perfeitamente mas preciso dos dois executando sem botoes e cada um em seu momento sem interferir na digitacao da planilha;
anexo modelo exemplo.
aguardo...
vlw. muito obrigado.
abraços
"nomeia a aba de acordo com as celulas
Código: Selecionar todos
"soma vr inserido na celula com vr ja existente
If Intersect(Target, Range("C5", "F5")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
On Error Resume Next
If Range("C5").Value & Range("F5").Value = "" Then
ActiveSheet.Name = "Atenção!!!"
MsgBox "[" & ActiveSheet.Name & " ]" & vbLf & "Nomeada com sucesso!", vbInformation, "Nomeando"
Range("F5").Value = "Placa?"
Application.EnableEvents = True
Exit Sub
Else
ActiveSheet.Name = Range("C5").Value & "." & Range("F5").Value
End If
End Sub
Código: Selecionar todos
Dim strNew As Double, strOld As Double
If Intersect(Target, Range("G17:G21")) Is Nothing Or Target.Text = "" Then Exit Sub
On Error GoTo Fim
Application.EnableEvents = False
strNew = Target.Value
Application.Undo
strOld = Target.Value
Target.Value = strNew + strOld
Fim:
Application.EnableEvents = True
End Sub
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por AlanBC em 01 Fev 2020 às 15:00, em um total de 1 vez.