Risultati da 1 a 8 di 8

Discussione: LastRow non si ferma



  1. #1
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2

    LastRow non si ferma

    Ciao a tutti,
    ho un problema con LastRow... non ne vuole sapere di fermarsi e continua la sua discesa nonostante abbia impostato il numero max righe
    non riparte dalla cella A2 neanche se pulisco il foglio.

    Codice: 
    Option Explicit
    
    Private Sub Cmb1_Click()
    Dim LastRow As Long, messaggio
    Worksheets("Foglio1").Select
    If LastRow > 30 Then
        messaggio = MsgBox("IL MESE E' COMPLETO!" & vbCrLf & _
        "SALVARE IL FOGLIO!", vbOKOnly, "SCHEDA TERMINATA")
        Unload UserForm1
     
       
        Exit Sub
    End If
    LastRow = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(2, 2).Value = ComboBox4.Text       'MESE
    Cells(LastRow, 9).Value = ComboBox2.Text 'dalle
    Cells(LastRow, 10).Value = ComboBox3.Text 'alle
    Cells(LastRow, 14).Value = TextBox16.Text 'KM
    Cells(LastRow, 2).Value = TextBox1.Text  'luogo
    Cells(LastRow, 3).Value = TextBox15.Text 'lavoro
    Cells(LastRow, 13).Value = TextBox17.Text 'spese
    Cells(LastRow, 15).Value = TextBox18.Text 'avuti
    End Sub

    grazie

    (post anche su altra sezione ma per richiesta diversa)
    File Allegati File Allegati

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: LastRow non si ferma

    Citazione Originariamente Scritto da Ghibly69 Visualizza Messaggio
    Ciao a tutti,
    ho un problema con LastRow... non ne vuole sapere di fermarsi e continua la sua discesa nonostante abbia impostato il numero max righe
    non riparte dalla cella A2 neanche se pulisco il foglio.

    Codice: 
    Option Explicit
    
    Private Sub Cmb1_Click()
    Dim LastRow As Long, messaggio
    Worksheets("Foglio1").Select
    If LastRow > 30 Then
        messaggio = MsgBox("IL MESE E' COMPLETO!" & vbCrLf & _
        "SALVARE IL FOGLIO!", vbOKOnly, "SCHEDA TERMINATA")
        Unload UserForm1
     
       
        Exit Sub
    End If
    LastRow = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(2, 2).Value = ComboBox4.Text       'MESE
    Cells(LastRow, 9).Value = ComboBox2.Text 'dalle
    Cells(LastRow, 10).Value = ComboBox3.Text 'alle
    Cells(LastRow, 14).Value = TextBox16.Text 'KM
    Cells(LastRow, 2).Value = TextBox1.Text  'luogo
    Cells(LastRow, 3).Value = TextBox15.Text 'lavoro
    Cells(LastRow, 13).Value = TextBox17.Text 'spese
    Cells(LastRow, 15).Value = TextBox18.Text 'avuti
    End Sub

    grazie

    (post anche su altra sezione ma per richiesta diversa)
    LastRow = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row + 1

    LastRow = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlDown).Row + 1

    prova questa sostituzione.

    Cerca dal basso e non dall'alto perchè la cella A2 è vuota e quindi si ferma lì

    ciao. - Fammi sapere

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: LastRow non si ferma

    lastrow non lo troverà mai maggiore di 30 perchè viene calcolato dopo !!!

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. #4
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2

    Re: LastRow non si ferma

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    LastRow = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row + 1

    LastRow = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlDown).Row + 1

    prova questa sostituzione.

    Cerca dal basso e non dall'alto perchè la cella A2 è vuota e quindi si ferma lì

    ciao. - Fammi sapere
    Ciao Baloon,
    ne una ne l'altra, perchè se vedi il file in testa a tutto ho le descrizioni colonna e in fondo a tutto ho le caselle dei totali.
    Quello che serve è far lavorare il LastRow in un determinato RANGE tra le due righe , B4:O34
    non so se sia fattibile!

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: LastRow non si ferma

    Citazione Originariamente Scritto da Ghibly69 Visualizza Messaggio
    Ciao Baloon,
    ne una ne l'altra, perchè se vedi il file in testa a tutto ho le descrizioni colonna e in fondo a tutto ho le caselle dei totali.
    Quello che serve è far lavorare il LastRow in un determinato RANGE tra le due righe , B4:O34
    non so se sia fattibile!
    allora devi usare for next per trovare la prima riga in colonna B vuota (for i = 4 to 34).

    34 è l'ultimo giorno del mese

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: LastRow non si ferma

    Ti allego il tuo file modificato con for next

    Codice: 
    Private Sub Cmb1_Click()Dim LastRow As Long, messaggio
    Dim i As Integer
    
    
    Worksheets("Foglio1").Select
    
    
    'LastRow = Range("A" & Rows.Count).End(xlUp).Row
    'If LastRow > 30 Then
       ' messaggio = MsgBox("IL MESE E' COMPLETO!" & vbCrLf & _
       '"SALVARE IL FOGLIO!", vbOKOnly, "SCHEDA TERMINATA")
       ' Unload UserForm1
     
       
    '    Exit Sub
    'End If
    For i = 4 To 34
        If Cells(i, 2).Value = "" Then
            Cells(2, 2).Value = ComboBox4.Text       'MESE
            Cells(i, 9).Value = ComboBox2.Text 'dalle
            Cells(i, 10).Value = ComboBox3.Text 'alle
            Cells(i, 14).Value = TextBox16.Text 'KM
            Cells(i, 2).Value = TextBox1.Text  'luogo
            Cells(i, 3).Value = TextBox15.Text 'lavoro
            Cells(i, 13).Value = TextBox17.Text 'spese
            Cells(i, 15).Value = TextBox18.Text 'avuti
            Exit For
        End If
    Next
    
    
    End Sub
    
    
    'Pulisce (azzera) le caselle textcombo
    Private Sub Cmb2_Click()
    Dim ctrl As Control
    For Each ctrl In UserForm1.Controls
        If TypeName(ctrl) = "TextBox" Then
            ctrl.Value = ""
        End If
    Next ctrl
    UserForm1.ComboBox1.SetFocus
    
    
    End Sub
    
    
    'chiude la userform
    Private Sub Cmb4_Click()
    UserForm1.Hide
    End Sub
    
    
    Private Sub Cmb3_Click()
    UserForm1.Hide
    Worksheets("Foglio1").Select
    End Sub
    
    
    
    
    Private Sub ComboBox4_Change()
    
    
    End Sub
    Fammi sapere.
    File Allegati File Allegati
    Ultima modifica fatta da:Gerardo Zuccalà; 02/06/16 alle 22:01

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2

    Re: LastRow non si ferma

    Perfetto....
    grazie Baloon.
    ora devo risolvere il problema delle formule per i calcoli degli orari, extra, spese...
    che sta nella sezione excel normale.

    questa la chiudo.

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: LastRow non si ferma

    Citazione Originariamente Scritto da Ghibly69 Visualizza Messaggio
    Perfetto....
    grazie Baloon.
    ora devo risolvere il problema delle formule per i calcoli degli orari, extra, spese...
    che sta nella sezione excel normale.

    questa la chiudo.
    Grazie a te per il riscontro e... alla prossima

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

Discussioni Simili

  1. Cerca.Vert si ferma al primo elemento. Alternativa per analizzare tutti i risultati?
    Di DaylighterSL nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 02/12/15, 19:17

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •