Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Array dinamico in VBA
662 views
Skip to first unread message
Ricky
Feb 2, 2012, 9:02:08 AM2/2/12
to
Ciao,
nello sheet1, nel Range ("A9:A30") ho un elenco di codici cliente che
popolo tramite macro.
Il numero dei codici restituiti è variabile, e dove non ho il codice
cliente, la macro inserisce nella cella "-"
(per ragioni legate all'attività che devo fare, non posso far
restituire dalla macro solo i codici <> da "-")
Esempio
A9: Pippo
A10: Pluto
A11: "-"
....
A29: Paperino
A30: "-"
Sto cercando di creare un array che contenga solo i codici diversi da
"-",
tipo: MyArray=(Pippo, Pluto, Paperino)
Utilizzerò poi tale array in un'altra macro.
Come posso fare?
Vi ringrazio
Ricky
nello sheet1, nel Range ("A9:A30") ho un elenco di codici cliente che
popolo tramite macro.
Il numero dei codici restituiti è variabile, e dove non ho il codice
cliente, la macro inserisce nella cella "-"
(per ragioni legate all'attività che devo fare, non posso far
restituire dalla macro solo i codici <> da "-")
Esempio
A9: Pippo
A10: Pluto
A11: "-"
....
A29: Paperino
A30: "-"
Sto cercando di creare un array che contenga solo i codici diversi da
"-",
tipo: MyArray=(Pippo, Pluto, Paperino)
Utilizzerò poi tale array in un'altra macro.
Come posso fare?
Vi ringrazio
Ricky
plinius
Feb 2, 2012, 11:33:55 AM2/2/12
to
"Ricky" <rick...@libero.it> ha scritto nel messaggio
news:4361e81f-3ed5-43e4...@y10g2000vbn.googlegroups.com...
Sub m()
Dim rng As Range, r As Range, cnt As Long
Set rng = Sheets(1).Range("A9:A30")
Dim arr() As String
For Each r In rng
If Not IsEmpty(r) And r.Value <> "-" Then
ReDim Preserve arr(cnt)
arr(cnt) = r.Value
cnt = cnt + 1
End If
Next
End Sub
Ciao,
E.
Ricky
Feb 3, 2012, 3:13:03 AM2/3/12
to
Ciao E.,
grazie per aver risolto il mio problema!
Buona giornata
Ricky
grazie per aver risolto il mio problema!
Buona giornata
Ricky
0 new messages