| | Post: 94 | Registrato il: 19/10/2009
| Città: SORRENTO | Età: 58 | Utente Junior | excel 2011 per mac | | OFFLINE | |
|
26/01/2018 22:08 | |
Buonasera,
potreste suggerirmi il codice vba per cercare la prima riga libera in range di celle
che va da A1 a E360.
Grazie
|
|
| | Post: 511 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
26/01/2018 22:13 | |
Ciao
Prova così
MsgBox ActiveSheet.UsedRange.SpecialCells(xlLastCell, xlNumbers).Address
all'interno di una macro.
Ciao,
Mario |
| | Post: 636 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
26/01/2018 22:41 | |
Un saluto a tutti.
Data la richiesta specifica su una determinata area viene a pensare che ci potrebbero essere altri dati in altre aree del foglio e pertanto propongo quest'altro metodo per rilevare la prima riga vuota nel range A1:E360
PRV = ActiveSheet.Range("A1:E360").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 [Modificato da rollis13 26/01/2018 22:46]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 2.051 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
27/01/2018 10:05 | |
ciao
per chi sarebbe interessato questo lavoro lo possiamo fare tranquillamente anche con formule di Excel
=MAX(INDICE((A1:E360<>"")*RIF.RIGA(1:360);))+1
Ciao da locate
excel 2007 / 13 |
| | Post: 94 | Registrato il: 19/10/2009
| Città: SORRENTO | Età: 58 | Utente Junior | excel 2011 per mac | | OFFLINE | |
|
27/01/2018 22:24 | |
Grazie per i suggerimenti ma non riesco ad ottenere il risultato voluto.
Interessante la soluzione di locate ma la formula mi restituisce il seguente messaggio d'errore: "Per la funzione sono stati immessi insufficienti argomenti" e mi evidenzia le "" virgolette.
Marius ho provato ad inserire il tuo suggerimento nella mia macro ma restituisce il seguente messaggio d'errore: "proprietà o metodo non supportato dall'oggetto" ti allego il codice utilizzato.
Grazie a tutti
Range("B3").Select
Selection.Copy
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D3").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B3").Select
Selection.ClearContents
End Sub
|
| | Post: 1.514 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
28/01/2018 09:42 | |
ciao
per la macro non so cosa dirti
ma la formula di Locate
va più che bene
ti restituisce la prima riga vuota del range in questione.
un mini file non l'hai per postarlo? |
|
|