Preencher TextBox Automaticamente - VBA & Macros

RE: Preencher TextBox Automaticamente

pedrobb — Fri, 10 Jun 2022 18:00:38 +0000

@edsonbr Perfeito! Muito Obrigado!

RE: Preencher TextBox Automaticamente

EdsonBR — Fri, 10 Jun 2022 11:59:40 +0000

Bom dia, @pedrobb

Segue uma sugestão:

Private Sub TxtNumerodaObra_Enter()
    Me.TxtNumerodaObra.BackColor = RGB(255, 255, 0)
    Dim máx As Long, i As Long
    If Me.ComboTipo <> vbNullString Then
      máx = 0
      With Plan6.Range("A1").CurrentRegion
        For i = 2 To .Rows.Count
          If .Cells(i, 2) = Me.ComboTipo And .Cells(i, 3) >= máx Then máx = .Cells(i, 3)
        Next i
        Me.TxtNumerodaObra = máx + 1
      End With
    End If
End Sub

Preencher TextBox Automaticamente

pedrobb — Wed, 08 Jun 2022 02:41:23 +0000

Pessoal,
Quero automatizar o Preenchimento da TextBox TxtNumerodaObra, conforme a quantidade já existente.
Se na ComboBox for selecionado CASA, a TextBox TxtNumerodaObra será 4 (Quarta CASA).
Se na ComboBox for selecionado APTO, a TextBox TxtNumerodaObra será 3 (Terceiro APTO).
Segue Planilha anexa.

Grato,
Pedro

Pasta1.zip