[Excel] Ricerca prima riga vuota in foglio excel

[antom]

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!

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

[Anthony47]

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.

[antom]

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

[Anthony47]

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.

[antom]

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" ( ) 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

[Anthony47]

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.

[Marcello Ferrau]

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.

[Flash30005]

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

[peppo55]

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



[scossa]

Ma un semplice:

Codice: Seleziona tutto

Sub Macro1()
    Range("A1").End(xlDown).Offset(1).Select
End Sub


non funziona altrettanto bene?

[Marcello Ferrau]

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

[scossa]

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