Procedimentos do Aplicativo Microsoft Excel VBA, usando objetos userforms e Textboxes, retornam o primeiro e o ultimo registro percebidos na coluna(A)

Private Sub UserForm_Activate()
Me.TextBox1 = Plan1.Cells(2, 1)
Me.TextBox2 = Plan1.Cells(65536, 1).End(xlUp) 'Range("B65536").End(xlUp)
Frame1.Caption = "1ºReg. [" & TextBox1.Value & " ] 2ºReg. [ " & TextBox2.Value
End Sub

Aprenda Microsoft Excel VBA - (Saberexcel)

Saberexcel - site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, insere na folha de planilha cada frase para cada linha, todas as frases com quebra de linhas que foram carregadas no objeto TextBox pelo evento Initialize do Userform(abaixo). Baixe o exemplo de planilha no final da Página.
Esse exemplo faz parte dos Módulos: COMO FAZER - Programação Aplicativo Microsoft Excel VBA- SaberExcel.

Option Explicit

Private Sub cmdEntre_Click()
Dim vLinha As Integer
Dim vTexto As String

vTexto = txtText.Text
vTexto = WorksheetFunction.Substitute(vTexto, vbLf, "")

Do
vLinha = vLinha + 1
If InStr(vTexto, vbCr) Then
Cells(vLinha, 1).Value = Left(vTexto, InStr(vTexto, vbCr) - 1)
vTexto = Right(vTexto, Len(vTexto) - InStr(vTexto, vbCr))
Else
Cells(vLinha, 1).Value = vTexto
Exit Do
End If
Loop
Unload Me
End Sub

'Ao abrir o userform, carregará com as seguintes frases, com quebra de texto, depois executando a macro acima irá inserir cada frase 'em linhas 'diferentes.
Private Sub UserForm_Initialize()
txtText.Text = _
"Excel VBA Estudos® - Saberexcel" & vbCr & _
"Site das Macros" & vbCr & _
"Ensinando VBA Macros" & vbCr & _
"http://www.saberexcel.com.br" & vbCr & _
"[email protected]"
cmdEntre.SetFocus
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel

Procedimentos do Aplicativo MS Excel VBA, usando objetos textbox, no final da digitação dia, mes e ano, formata automaticamente o texto em uma outra textbox e também retorna o valor data para folha de planilha, no formato data(dd/mmm/aaaa).
1 - Userform
4 - Textbox
1 - CommandButton


Dim Dia As Integer
Dim Mês As Integer
Dim Ano As Integer

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
If Len(TextBox1) = 2 Then
Dia = TextBox1
TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
If Len(TextBox2) = 2 Then
Mês = TextBox2
TextBox3.SetFocus
End If
End Sub

Private Sub TextBox3_Change()
On Error Resume Next
If Len(TextBox3) = 4 Then
Ano = TextBox3
Call Validando_data
End If
End Sub

Private Sub Validando_data()
If Dia < 1 Or Dia > 31 Then
MsgBox "Dia Inválido"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox1.SetFocus
Exit Sub
End If

If Mês < 1 Or Mês > 12 Then
MsgBox "Mês Inválido"
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox2.SetFocus
Exit Sub
End If

If Ano < 1990 Or Ano > 2011 Then
MsgBox "Mês Inválido"
TextBox3 = ""
TextBox4 = ""
TextBox3.SetFocus
Exit Sub
End If

TextBox4 = Format(Dia, "00") & "/" & Format(Mês, "00") _
& "/" & Format(Ano, "0000")
Sheets(1).Range("b5") = TextBox4

If IsError(Sheets(1).Range("B8")) Then
MsgBox "Data Inválida"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""

Sheets(1).Range("B5").Value = Format(Now, "DD/MM/YYYY")
TextBox1.SetFocus
End If
'Frame1.Caption = "Data: " & TextBox1.Value & "/" & TextBox2.Value & "/" & TextBox3.Value 'ou
Frame1.Caption = "Data Digitada: " & Format(Dia, "00") & "/" & Format(Mês, "00") _
& "/" & Format(Ano, "0000")
End Sub


Aprenda tudo sobre o Aplicativo MS Excel VBA com SaberExcel

Publicidade:
Compre com Segurança, garantia e ótimos preços nas lojas submarino

Saberexcel - o site das macros
Essas macros e procedimentos do Aplicativo Microsoft Excel VBA, abre um determinado objeto Userform(Formulário) em diversos posições na folha de planilhas, com auxílio de objetos Options, voce poderá escolher o lugar para o posicionamento do Userform.

EM UM MÓDULO COMUM INSIRA OS CÓDIGOS
Sub Abrir_userform()
If Sheets(1).ComboBox1.Text = "" Then
MsgBox "Selecione uma das opções"
Else

Select Case Sheets(1).ComboBox1.Text
Case "Centro"
UserForm1.StartUpPosition = 2
Case "Qualquer Lugar"
UserForm1.StartUpPosition = 1
End Select

UserForm1.Show
End If
End Sub

NA FOLHA [MÓDULO] DE CÓDIGO DO OBJETO USERFORM INSIRA OS PROCEDIMENTOS

Dim X As Integer, Y As Integer

Private Sub optCentro_Click()
If optCentro.Value Then
UserForm1.Left = X
UserForm1.Top = Y
End If
End Sub

Private Sub optDirAba_Click()
If optDirAba.Value Then
UserForm1.Left = ActiveWindow.Width - UserForm1.Width
UserForm1.Top = ActiveWindow.Height - UserForm1.Height
End If
End Sub

Private Sub optDirAci_Click()

If optDirAci.Value Then
UserForm1.Left = ActiveWindow.Width - UserForm1.Width
UserForm1.Top = 0
End If

End Sub

Private Sub optEsqAba_Click()
If optEsqAba.Value Then
UserForm1.Left = 0
UserForm1.Top = ActiveWindow.Height - UserForm1.Height
End If
End Sub

Private Sub optEsqAci_Click()
If optEsqAci.Value Then
UserForm1.Left = 0
UserForm1.Top = 0
End If
End Sub

Private Sub UserForm_Activate()
X = UserForm1.Left
Y = UserForm1.Top
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel

Saberexcel - o site das macros
Exemplo de planilha do Aplicativo Microsoft Excel VBA usando spinbutton relacionado a duas tabelas buscando dados.




Aprenda microsoft Excel VBA com SaberExcel