COMO VERIFICAR SE TEXTBOX ESTA PREENCHIDO
Boa tarde a todos..
Sou novo aqui no forúm por tanto desculpem se estiver colocando ess questão no lugar errado.
Mas tenho uma dúvida,
Tenho uma plnilha no excell onde coloquei vários textbox e preciso de uma rotima que verifique se estes foram preenchido.
De preferencia no evento Workbook_BeforeSave.
Obrigado!!
Sou novo aqui no forúm por tanto desculpem se estiver colocando ess questão no lugar errado.
Mas tenho uma dúvida,
Tenho uma plnilha no excell onde coloquei vários textbox e preciso de uma rotima que verifique se estes foram preenchido.
De preferencia no evento Workbook_BeforeSave.
Obrigado!!
if textbox.Text = [Ô][Ô] then msgbox [Ô]não está preechido[Ô]
Olá...MARCELO-TREZE, dessa forma sei que funciona mas no meu caso tenho uns 30 textbox na planilha..
Tentei usar esta rotima :
Public Sub verifica_txtbox()
Dim cCont As OLEObject
Dim txtbox
Dim i As Integer
For Each cCont In Sheets([Ô]Formulário[Ô]).OLEObjects
If cCont.progID = [Ô]Forms.TextBox.1[Ô] Then
txtbox = cCont.Name
If IsNull(txtbox) Then
i = i + 1
End If
End If
Next cCont
MsgBox [Ô]Foram preenchidos - [Ô] & i & [Ô] - TextBox[Ô]
End Sub
Mas com ela não consigo verificar se o Texbox está com a propriedade valeu vazia ou não...
Entendeu??
Obrigado pela atenção...
Tentei usar esta rotima :
Public Sub verifica_txtbox()
Dim cCont As OLEObject
Dim txtbox
Dim i As Integer
For Each cCont In Sheets([Ô]Formulário[Ô]).OLEObjects
If cCont.progID = [Ô]Forms.TextBox.1[Ô] Then
txtbox = cCont.Name
If IsNull(txtbox) Then
i = i + 1
End If
End If
Next cCont
MsgBox [Ô]Foram preenchidos - [Ô] & i & [Ô] - TextBox[Ô]
End Sub
Mas com ela não consigo verificar se o Texbox está com a propriedade valeu vazia ou não...
Entendeu??
Obrigado pela atenção...
Tenta isso cara:
[txt-color=#e80000]
[txt-color=#e80000]
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To Form1.Controls.Count - 1
If TypeOf Form1.Controls(i) Is TextBox Then
If Not (Form1.Controls(i).Text = [Ô][Ô]) Then
MsgBox [Ô]Campos preenchidos[Ô]
Else
MsgBox [Ô]Existem campos em branco[Ô]
End If
End If
Next i
End Sub
Bom dia SNNIFFER...
Desculpe não fui bem claro na minha questão...
Na verdade estou usando os Textbox direto na Planilha e não em um Form...
Testei o cod que vc passou em um form mas tb não deu certo...
Fico no aguardo..
Obrigado!!
Desculpe não fui bem claro na minha questão...
Na verdade estou usando os Textbox direto na Planilha e não em um Form...
Testei o cod que vc passou em um form mas tb não deu certo...
Fico no aguardo..
Obrigado!!
Esta usando vb6?
Boa tarde SNNIFFER...
Estou utilizando o VBA no Excel...
Estou utilizando o VBA no Excel...
Bom dia a todos!!...
Agradeço a atenção mas este código que o amigo MENUDO colocou funciona perfeitamente em um form mas no meu caso não estou usando um form eu coloquei os textbox direto na planilha, sem o uso de formulário esse é o meu problema pois em um form posso usar [Ô]Form1.Controls[Ô] mas direto na planilha não...
Obrigado!!!
Agradeço a atenção mas este código que o amigo MENUDO colocou funciona perfeitamente em um form mas no meu caso não estou usando um form eu coloquei os textbox direto na planilha, sem o uso de formulário esse é o meu problema pois em um form posso usar [Ô]Form1.Controls[Ô] mas direto na planilha não...
Obrigado!!!
Tópico encerrado , respostas não são mais permitidas