Ricerca cella vuota e contenuto cella in TextBox

[AlankanzPartecipante Alankanz]

Buongiorno a tutti.

Come da titolo sto cercando il modo di prendere il valore di una cella, esempio A2 quando T2 è vuota e inserirla nella textbox1 del mio Form.

L'ho pensata in questo modo (in realtà l'ho adattata da un vecchio progetto dove dovevo cercare una valore all'interno della cartella di excel)

 

Dim ulta As Long
Dim area As Range
Dim cella As Range
With Sheets("Dati")
    ulta = .Range("T" & Rows.Count).End(xlDown).Row
    Set area = .Range("T1:T" & ulta)
    Set cella = area.Find("", , xlValues, xlWhole)
    If Not cella Is Nothing Then
        riga = cella.Row
        Me.TextBox9.Value = cella.Offset(0, -20).Value ' Passo dalla Colonna T alla colonna A
    End If
    
End With
Set area = Nothing
Set cella = Nothing

 

Grazie per l'aiuto

[albatros54Moderatore albatros54 Karma: 89 pts]

forse cosi è meglio

Sub n()
Dim ulta As Long
Dim area As Range
Dim cella As Range
With Sheets("Dati")
    ulta = .Cells(Rows.Count, "T").End(xlUp).Row '.Range("T" & Rows.Count).End(xlDown).Row
    Set area = .Range("T1:T" & ulta)
    'Set cella = area.Find("", , xlValues, xlWhole)
    For Each cella In area
     If Not IsEmpty(cella) Then
        riga = cella.Rows
        Me.TextBox9.Value = riga.Offset(0, -20).Value ' Passo dalla Colonna T alla colonna A
    End If
    Next
End With
Set area = Nothing
Set cella = Nothing
End Sub

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[AlankanzPartecipante Alankanz]

Grazie per la risposta, ma mi da errore

'Qualificatore non valido' e mi seleziona "riga"

[albatros54Moderatore albatros54 Karma: 89 pts]

modifica questa riga

Me.TextBox9.Value =cella.Offset(0, -20)   ' Passo dalla Colonna T alla colonna A

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[AlankanzPartecipante Alankanz]

Niente dice Errore di run-time '13':

Tipo non corrispondente

😥

[albatros54Moderatore albatros54 Karma: 89 pts]

Vedi se puoi allegare un file, senza dati sensibili, perchè cosi brancoliamo nel buio.fai la prova a modificare cosi Me.TextBox9.text

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[AlankanzPartecipante Alankanz]

Ecco il file

Allegati:

You must be logged in to view attached files.

[albatros54Moderatore albatros54 Karma: 89 pts]

Bene, ma ci dovette mettere in condizione di poter capire cosa fare. nel file che hai allegato vedo delle userform, dovresti esporre lo scenario :

quale userform aprire?

in quale textbox debbo inserire i dati ?

quale pulsante associare per fare girare il codice?

che cosa debbo ottenere?

altrimente brancoliamo nel buoi.

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[AlankanzPartecipante Alankanz]

Oddio scusami hai perfettamente ragione.

 

Allora la userform che uso è Inserisci le altre le puoi tralasciare, in quanto sono di un progetto vecchio e le devo ancora adattare!

 Le textbox che devo popolare sono TextBox9 TextBox10 e TextBox1 rispettivamente con le celle A,B e C

=)

perdonami ancora

 

[albatros54Moderatore albatros54 Karma: 89 pts]

prova cosi

With Sheets("Dati")
    ulta = .Cells(Rows.Count, "T").End(xlUp).Row '.Range("T" & Rows.Count).End(xlDown).Row
    Set area = .Range("T2:T" & ulta)
    'Set cella = area.Find("", , xlValues, xlWhole)
    For Each cella In area
     If IsEmpty(cella) Then
        riga = cella.Row
        TextBox1.Text = cella.Offset(0, -17)
        TextBox10.Text = cella.Offset(0, -18)
       TextBox9.Text = cella.Offset(0, -19) ' Passo dalla Colonna T alla colonna A
    End If
    Next
End With

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[AlankanzPartecipante Alankanz]

Grazie mille funziona, solo che dopo quando ho valutato la prima la seconda mi da le box bianche

[albatros54Moderatore albatros54 Karma: 89 pts]

Ancora non riesco a capire con precisione cosa deve fare il codice.Il codice che ti ho postato fa quello che hai chiesto,mica la logica del codice deve fare un loop, e a ogni giro ti deve inserire i dati delle celle vuote nelle texbox?

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[Autore]

Articoli