Condividi:        

[Excel] Ricerca prima riga vuota in foglio excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Ricerca prima riga vuota in foglio excel

Postdi antom » 07/09/08 16:08

Ciao. E' il mio primo intervento su questo forum e quindi grazie per l'accoglienza come prima cosa.
Ci sono arrivata dopo giri "rocamboleschi" dunque attendo risposta da chi mi ha trovato! :lol:

Per formica74: domani a lavoro potrò utilizzare tutto quello che mi hai suggerito in questi giorni e spero di poter arricchire la sezione con la soluzione trovata e funzionante.

Come vedi il mio nick è il medesimo ;)

A presto,
Antom
antom
Utente Junior
 
Post: 24
Iscritto il: 07/09/08 09:26

Sponsor
 

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi Anthony47 » 07/09/08 18:32

Ciao e benvenuta nel forum; ti aspettavamo.
Come da messaggio privato, mi sembra che per la "ricerca della riga vuota" hai risolto consultando il post viewtopic.php?f=26&t=74561; se non e' cosi' ...siamo qua.
Solo una osservazione piu' teorica che pratica: se lavori con excel2007 allora invece di usare Range("A65356").End(xlUp).Row e' piu' corretto usare
Codice: Seleziona tutto
Range("A" & Rows.Count).End(xlUp).Row


Per le operazioni da fare su tutti i files di una directory, ti avevo rimandato a quest' altro post: viewtopic.php?f=26&t=61079

Anche qui, vedi se quella discussione e' esaustiva; comunque fatti sentire.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

[Excel] Ricerca prima riga vuota in foglio excel

Postdi antom » 09/09/08 12:12

Eccomi.
Ho risolto la ricerca della prima riga vuota consultando i link che mi sono stati forniti e apportando qualche modifica.
Riepilogando, il mio problema consisteva nel concatenare i dati presenti in 3 diversi file in un unico foglio di un quarto file.
Ecco il codice:
Codice: Seleziona tutto
Sub AllRow()

Dim doc1 As String
Dim doc2 As String
Dim doc3 As String
Dim docTot As String

doc1 = "DOC1.xls"
doc2 = "DOC2.xls"
doc3 = "DOC3.xls"
docTot = "DOC_TOT.xls"

' copia e incolla dati dal file1
Windows(doc1).Activate
Sheets("Foglio1").Select
Range("B2:H15").Select
Selection.Copy
    Windows(docTot).Activate
    Sheets("Foglio1").Select
    Range("B2").Select  'la prima volta posso esplicitare la cella dove incollare i dati
    ActiveSheet.Paste

Windows(doc2).Activate
Sheets("Foglio1").Select
Range("B2:H15").Select
Selection.Copy
    Windows(docTot).Activate
    Sheets("Foglio1").Select
    UltimaRiga = Range("B" & Rows.Count).End(xlUp).Row  'questa riga di codice mi individua l'ultima riga piena
    Cells(UltimaRiga + 1, 2).Select     'quindi seleziono la cella nella riga successiva ovvero la PRIMA RIGA VUOTA
    ActiveSheet.Paste

Windows(doc3).Activate
Sheets("Foglio1").Select
Range("B2:H15").Select
Selection.Copy
    Windows(docTot).Activate
    Sheets("Foglio1").Activate
    UltimaRiga = Range("B" & Rows.Count).End(xlUp).Row
    Cells(UltimaRiga + 1, 2).Select
    ActiveSheet.Paste

End Sub


Suppongo che la parte che riguarda il "copia", cioè quella senza indentanzione, possa essere racchiusa in un for... si accettano suggerimenti ed ottimizzazioni! ;)

Ringrazio tutti per l'attenzione!!
A presto: ho ancora tanto da imparare!

Antom
antom
Utente Junior
 
Post: 24
Iscritto il: 07/09/08 09:26

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi Anthony47 » 09/09/08 14:45

Brava...
Ogni macro che funziona e' una buona macro; si, con un po' di esperienza in piu' avresti potuto mettere la parte ripetuta in una seconda macro che poi chiamavi della macro principale, o in un ciclo For /Next.
Sara' il tuo prossimo impegno!

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi antom » 17/09/08 09:23

Ciao a tutti.
Mi riaffaccio su questo topic perchè il mio problema si è complicato.
Infatti la mia ricerca della prima riga vuota dev'essere effettuata su un foglio che ha delle formule e che non devono essere parsate nella ricerca!
Ho allegato uno screenshot del foglio excel.
Nelle celle bianche ci sono formule del tipo riportate nella barra della formula.
La ricerca deve quindi avvenire nelle celle colorate: è lì che cerco l'ultimo valore inserito.
Inoltre, altra difficoltà, le celle colorate possono essere compilate in modo "random" ( :eeh: ) ovvero posso scrivere nella cella C23 e G23,G24,scrivere nella cella E28 e infine nella cella D33, G33,G34,G35.

Mi sapete dare una mano?

Grazie mille,
antom
Allegati
Sreenshot.jpg
celle bianche: contengono formule;
celle colorate: sono editabili random dall'utente;
(71.68 KiB) Scaricato 91 volte
antom
Utente Junior
 
Post: 24
Iscritto il: 07/09/08 09:26

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi Anthony47 » 17/09/08 13:09

Ho capito che vuoi calcolare la prima cella vuota esaminando le colonne C,D,E e G; giusto?
Se e' cosi', allora invece della semplice UltimaRiga = Range("B" & Rows.Count).End(xlUp).Row
userai questa:
ultimaR = Application.WorksheetFunction.Max( _
Range("C" & Rows.Count).End(xlUp).Row, _
Range("D" & Rows.Count).End(xlUp).Row, _
Range("E" & Rows.Count).End(xlUp).Row, _
Range("G" & Rows.Count).End(xlUp).Row)


Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi Marcello Ferrau » 01/11/13 13:46

Salve a tutti ragazzi,
mi rifaccio vivo rispolverando questo vecchio post perché sono in cerca di una macro che "effettivamente" mi consenta di posizionarmi sulla prima cella vuota di una riga...
Infatti la Range("A" & Rows.Count).End(xlUp).Row mi porta a prescindere a fondo foglio, anche se magari è presente una cella vuota tra le altre piene.
Ecco tramite esempio cosa intendo:
nella colonna A mi dovrei posizionare in A7, in quanto la vera prima cella vuota, mentre con la formula scritta prima finisco in A17
http://www.mondometalwebzine.com/Image1.jpg

Si può fare?
Grazie in anticipo.
Marcello Ferrau
Win7 + Office 2010 Ita
Xp + Office 2003 Ita
Avatar utente
Marcello Ferrau
Utente Junior
 
Post: 13
Iscritto il: 24/10/12 20:47

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi Flash30005 » 01/11/13 15:32

Puoi usare questa macro
Codice: Seleziona tutto
Sub SelVuota()
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = 1 To UR
If Range("A" & RR).Value = "" Then
Range("A" & RR).Select
Exit Sub
End If
Next RR
End Sub


Poi attivarla con tasti scelta rapida o altro da definire...

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi peppo55 » 01/11/13 16:16

Ciao Marcello Ferrau

un' alternativa

Codice: Seleziona tutto

Dim iRow As Long
iRow = 1
While Cells(iRow, 1) <> ""
iRow = iRow + 1
Wend
Cells(iRow, 1).Select

peppo

Excel 2010
peppo55
Utente Senior
 
Post: 167
Iscritto il: 30/09/12 13:51

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi scossa » 01/11/13 17:26

Ma un semplice:
Codice: Seleziona tutto
Sub Macro1()
    Range("A1").End(xlDown).Offset(1).Select
End Sub

non funziona altrettanto bene?
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi Marcello Ferrau » 01/11/13 19:35

Salve ragazzi, grazie a tutti per le proposte.
Le macro di Flash 3005 e peppo55 funzionano bene, mentre quella di scossa ho notato che funziona se la cella vuota è dalla terza riga in poi. Se è nella prima o nella seconda allora viene selezionata la cella che sta due posizioni sotto :/

Grazie a tutti
Ciao
Marcello Ferrau
Win7 + Office 2010 Ita
Xp + Office 2003 Ita
Avatar utente
Marcello Ferrau
Utente Junior
 
Post: 13
Iscritto il: 24/10/12 20:47

Re: [Excel] Ricerca prima riga vuota in foglio excel

Postdi scossa » 01/11/13 20:13

Marcello Ferrau ha scritto:Salve ragazzi, grazie a tutti per le proposte.
Le macro di Flash 3005 e peppo55 funzionano bene, mentre quella di scossa ho notato che funziona se la cella vuota è dalla terza riga in poi. Se è nella prima o nella seconda allora viene selezionata la cella che sta due posizioni sotto :/


La mia proposta era basata sull'imnagine da te postata.
Comunque è semplice correggerla:
Codice: Seleziona tutto
Sub Prova()
  If Range("A1").Value = "" Then
    Range("A1").Select
  ElseIf Range("A2").Value = "" Then
    Range("A2").Select
  Else
    Range("A1").End(xlDown).Offset(1).Select
  End If
End Sub


e sarà sempre più veloce di un ciclo for..next
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Ricerca prima riga vuota in foglio excel":


Chi c’è in linea

Visitano il forum: Nessuno e 50 ospiti