eu tenho um caixa de texto activex dentro worksheet1 que precisa mudar automaticamente baseado no valor da célula que está em worksheet2 (onde minha mesa é).
Este valor deve ser incrementado, como o conceito de Número de ID, que é incrementado se você adicionar um cliente, o valor incrementado deve ser exibido na caixa de texto pronto para ser salvo.
Alguém tem alguma sugestão construtiva sobre o que precede?
Respostas:
1 para resposta № 1Por favor, cole o código abaixo nas planilhas (2) da sua pasta de trabalho. Também txtVal é o nome da caixa de texto nas Planilhas (1)
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
"Assuming A1 is the cell in worksheet 2 and it has numeric value as it should be incremented.
If Target.Count = 1 And Target.Address = "$A$1" Then
If IsNumeric(Target.Value) Then Sheet1.txtVal.Text = CInt(Target.Value) + 1
End If
Application.EnableEvents = True
End Sub
