Notifications

Clear all

Loop em Textbox

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

2 Usuários

0 Reactions

1,022 Visualizações

RSS

jorgep.tec

(@jorgep-tec)

Posts: 37

Eminent Member

Topic starter

Boa tarde pessoal,

Estou com dificuldade no loop com textbox.
Tenho os seguintes textbox:

textbox1 - textbox6
textbox2 - textbox7
textbox3 - textbox8
textbox4 - textbox9
textbox5 - textbox10

Preciso que o código analise as textbox1 ,2 , 3, 4, e 5 e caso elas sejam diferentes de vazias que ele copie os valores da textbox ao lado para Plan1, A1.

Ex.:
textbox1 = casa
textbox2 = loja
textbox3 = cidade
textbox6 = laranja
textbox7 = preto
textbox8 = branco

Resultado:
A1=casa B1=laranja
A2=loja B2=preto
A3=cidade B3= branco

PS: As textbox serão preenchidas em ordem, ou seja, não tem como preencher a textbox3 sem antes ter preenchido a 2 e a 1.

Desde já agradeço a todos!

Postado : 12/01/2015 2:40 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Temos várias postagens desse tipo.

Como fonte de inspiração você pode usar algo assim..

Private Sub CommandButton1_Click()

Dim ctl As Control

For Each ctl In Me.Controls
    If TypeName(ctl) = "TextBox" Then
        If ctl.Value = "" Then
            MsgBox "Favor preencher as caixas de texto"
            Exit Sub
        End If
    End If
Next ctl

End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/01/2015 2:44 pm