[Excel] Ricerca prima riga vuota in foglio excel

di **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

di **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.

di **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

di **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.

di **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

di **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.

di **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.

di **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

di **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

di **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?

di **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

di **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