Notifications
Clear all

Preencher um textbox

6 Posts
2 Usuários
0 Reactions
1,330 Visualizações
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Boa tarde, preciso de uma ajuda.
Estou querendo o retorno do ultimo valor de uma celula no excel para dentro de um textbox.
Utilizei esta linha de comando:
Dim sValor As String
If txt_nfeace > 0 Then
sValor = Worksheets("Acetona").Cells(Worksheets("Acetona").Rows.Count, "f").End(xlUp).Value
End if

Agradeço por uma luz para solucionar a questão acima

 
Postado : 28/02/2015 11:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu entendi, oque você quer, mas a forma explicada, não como quer..

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
Dim i As Long
 
Set ws = ThisWorkbook.Sheets("Plan1")
 
With ws
    i = .Rows.Count
    lstdt = .Range("F" & i).End(xlUp).Value
    Me.TextBox1.Value = lstdt
     
End With

End Sub

Veja se ajuda..

Att

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

 
Postado : 28/02/2015 3:09 pm
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Funcionou como necessito, porem estou colocando a condição que somente um determinado campo for maior que zero ele recupera esta informação caso contrario o campo que recebe esta informação ele recebera zero.

 
Postado : 28/02/2015 3:56 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

porem estou colocando a condição que somente um determinado campo for maior que zero ele recupera

Mas tu conseguiu adaptar?

Obrigado pelo retorno!

Att

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

 
Postado : 28/02/2015 3:59 pm
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

O que pode estar errado que sempre que lanço o numero da nota fiscal o campo ele zera
Se o numero da nota for maior que zero ele me preencheria o campo desejado. Segue a sintaxe

Private Sub userform_Initialize()
If Txt_Data > 0 Then
If nface > 0 Then
Dim ws As Worksheet
Dim i As Long

Set ws = ThisWorkbook.Sheets("acetona")

With ws

i = .Rows.Count
lstdt = .Range("F" & i).End(xlUp).Value
Me.Txt_MedIniAce.Value = lstdt

'End If
End With
End If
End If
End Sub

 
Postado : 28/02/2015 4:28 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Como eu não tenho seu arquivo modelo, ao testar o código dentro do evento Initialize, eu não tenho erros ou problema!

Att

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

 
Postado : 28/02/2015 4:39 pm