Cercare cella vuota e scrivere

Hai un problema con Excel?

Nuova discussione

Cercare cella vuota e scrivere
di Alessio (utente non iscritto) data: 05/05/2011
Salve,

ho un problemino.
il codice sotto riportato riesce ad andarmi sul rigo giusto da cui iniziare ad inserire i dati del userform (precedentemente ne uso n'altro che mi trova il rigo giusto). adesso vorrei che se uso di nuovo lo stesso form i nuovi dati inseriti vadano in successione.
mi spiego meglio: con questo codice riesco ad inserire i dati dalla cella at alla cella ax, ma se uso per la seconda volta lo stesso form me li sovrascrive senza andare a cercare la prima cella vuota (in questo caso la ay).

se fosse possibile il top sarebbe controllare se ogni 5 celle dopo la at il campo è vuoto e se è vuoto inserire i nuovi dati (questo form può essere usato più volte e quindi incrementare dati).

grazie

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

If ComboBox2.Text = "" Then
MsgBox "MANCA MACCHINA"
ComboBox2.SetFocus
Exit Sub
End If

ActiveCell.Offset(0).Select

ActiveCell.Offset(0, 15).Select
ActiveCell.Value = ComboBox2.Value 'MACCHINA
ComboBox2.Value = ""

ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox6.Value  'SECONDI
TextBox6.Value = ""

ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox3.Value  'VELOCITA
TextBox3.Value = ""

ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox2.Value  'GRADI
TextBox2.Value = ""

ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox4.Value  'PRESSIONE
TextBox4.Value = ""


UserForm7.Hide
UserForm1.Hide

UserForm4.TextBox8.SetFocus

End Sub

di Isy (utente non iscritto) data: 05/05/2011
Ciao

prima di rispondere ho notato:

userform7.hide
userform1.hide
userform4.textbox8.setfocus
end sub

sei sicuro del codice utilizzato! se ben gestito ok altrimenti allega il file alla discussione.
a risentirci
Cercare cella vuota e scrivere
di Alessio (utente non iscritto) data: 07/05/2011
Si sono sicuro è tutto funzionante ed arriva a questo form dopo altri 2 form.

di Isy (utente non iscritto) data: 07/05/2011
Ciao

prova così, evita come nell'allegato di selezionare le celle per immettere i dati dovrebbe funzionare!

Private Sub CommandButton1_Click()
    Dim Riga As Long
    Dim Colonna As Integer
    Application.ScreenUpdating = False
    If ComboBox2.Text = "" Then
        Info = MsgBox("MANCA MACCHINA                ", vbInformation, "Avviso")
        ComboBox2.SetFocus
        Exit Sub
    End If
    Riga = ActiveCell.Row
    Colx = ActiveCell.Column
    Cells(Riga, Colx).Value = ComboBox2.Value 'MACCHINA
    ComboBox2.Value = ""
    Cells(Riga, Colx + 1).Value.Value = TextBox6.Value 'SECONDI
    TextBox6.Value = ""
    Cells(Riga, Colx + 2).Value = TextBox3.Value 'VELOCITA
    TextBox3.Value = ""
    Cells(Riga, Colx + 3).Value = TextBox2.Value 'GRADI
    TextBox2.Value = ""
    Cells(Riga, Colx + 4).Value = TextBox4.Value 'PRESSIONE
    TextBox4.Value = ""
    Cells(Riga, Colx + 5).Select
    UserForm7.Hide
    UserForm1.Hide
    UserForm4.TextBox8.SetFocus
End Sub

Cercare cella vuota e scrivere
di Alessio (utente non iscritto) data: 08/05/2011
Grazie, con il tuo aiuto ho inserito un ciclo e adesso funziona.

Vuoi Approfondire?