eliminazione riga

Hai un problema con Excel?

Nuova discussione

eliminazione riga
di sandra (utente non iscritto) data: 29/01/2016 16:07:37
Buongiorno,
sto facendo esercizi di vba e sono bloccata. L'esercizio mi chiede di copiare una tabella dal foglio 3 al foglio4 pero se ci sono delle celle vuote dovrei chiedere al calcolatore di eliminare l'intera riga...
una dritta su come fare???
di alfrimpa data: 29/01/2016 16:27:13
Ciao Sandra

Ma le celle vuote sono sul foglio3 o su foglio4?

Puoi allegare un file di esempio dove, oltre alla situazione di partenza, mostri anche il risultato che vuoi ottenere?

Alfredo

di patel data: 30/01/2016 09:07:16
e magari riportare il testo dell'esercizio, ci sono 2 alternative
1) copiare la tabella intera e poi eliminare le righe
2) copiare soltanto le righe senza celle vuote
un esempio del primo caso è questo

Sub a()
Set Sh1 = Sheets(1)
Set Sh2 = Sheets(2)
Sh1.UsedRange.Copy Sh2.Range("A1")
With Sh2
   LR = .UsedRange.Rows.Count
   LC = .UsedRange.Rows.Count
   For arow = LR To 2 Step -1
     E = 0
     For acol = 1 To LC
       If .Cells(arow, acol).Value <> "" Then E = E + 1
     Next
     If E = 0 Then .Rows(arow).Delete
  Next
End With
End Sub

di Marius44 data: 30/01/2016 17:07:48
Ciao Sandra

attenta che patel (che saluto) è ... poco attento
Tu devi trasferire dal Foglio3 al Foglio4; come è impostata la macro il codice trasferisce il Foglio1 nel Foglio2.
Queste due righe indicano i Fogli che si trovano rispettivamente nella prima e nella seconda posizione (vedi le tab sotto il foglio stesso). Adattale ai tuoi fini.
Set Sh1 = Sheets(1) Set Sh2 = Sheets(2) Forse dovrebbero essere Set Sh1 = Sheets(3) Set Sh2 = Sheets(4)
di patel data: 30/01/2016 18:32:56
vero, la macro ce l'avevo già in archivio ho dimenticato di correggerla

Vuoi Approfondire?