rilevante

salve,
ho una tabella con circa 10.000 righe e numerose colonne
in alcune collone devo inserire lo stesso dato (ad es. da B1 a B10. 000 una
data --> 12/08/2008)
come posso fare senza ricorrere al trascinamento del dato?

In alcune colonne devo verificare se i dati sono valori sono unici o se
esistono duplicati?
come si risolve?
antonio

"antonio" ha scritto:

> salve,
> ho una tabella con circa 10.000 righe e numerose colonne
> in alcune collone devo inserire lo stesso dato (ad es. da B1 a B10. 000 una
> data --> 12/08/2008)
> come posso fare senza ricorrere al trascinamento del dato?
>
> In alcune colonne devo verificare se i dati sono valori sono unici o se
> esistono duplicati?
> come si risolve?
> antonio
>

Ciao Antonio.
Ho la vaga impressione che tu (o forse io) senta il caldo; prina chiedi come
immettere per 10.000 righe nella stessa colonna lo stesso valore, poi chiedi
come verificare se i valori sono unici.:-))
A parte gli scherzi, per la prima parte prova:

Public Sub prova()
Dim rng As Range
Dim dacopiare As Date '<---- da variare
Set rng = Worksheets("Foglio1").Range("b1:b10000")
dacopiare = InputBox("Immettere dato da copiare")
rng = dacopiare
End Sub

Per il secondo punto forse è meglio se ci chiarisci un po' le idee, oppure
se cerchi sul NG una soluzione all'esatto problema.
Freschi saluti,
Eliano

"antonio" ha scritto:

> salve,
> ho una tabella con circa 10.000 righe e numerose colonne
> in alcune collone devo inserire lo stesso dato (ad es. da B1 a B10. 000 una
> data --> 12/08/2008)
> come posso fare senza ricorrere al trascinamento del dato?
>
> In alcune colonne devo verificare se i dati sono valori sono unici o se
> esistono duplicati?
> come si risolve?
> antonio
>

Ciao antonio.
Ripensandoci (potresti avere qualche problema con il tipo di dato da
copiare), prova:

Public Sub prova2()
'copia del primo valore del range nel range
Dim conferma As Integer
Dim rng As Range
Dim xr As String
xr = InputBox("Immettere range completo", , "B1:B10000")
If xr = "" Then Exit Sub
Set rng = Sheets("Foglio1").Range(xr) 'variare (sheets)
With rng
If .Cells(1, 1) = "" Then Exit Sub <--- non accetta blank
conferma = MsgBox("Il valore " & Cells(1, 1) _
& " sarà copiato in " & xr, vbYesNo)
If conferma = 7 Then Exit Sub
..Cells(1, 1).Copy Destination:=rng
End With
End Sub

Saluti
Eliano

"eliano" <eliano> ha scritto nel messaggio
news:ec33
[..]
> If .Cells(1, 1) = "" Then Exit Sub <--- non accetta blank
> conferma = MsgBox("Il valore " & Cells(1, 1) _
> & " sarà copiato in " & xr, vbYesNo)
> If conferma = 7 Then Exit Sub
> .Cells(1, 1).Copy Destination:=rng
> End With
> End Sub
>
> Saluti
> Eliano

salve eliano

Sto travasando dei dati da un db ad un altro ed uso excel come appoggio;
devo importare dati da un foglio excel a una tabella di un db dove alcuni
campi sono chiave primaria e richiedono valori unici; altri campi del DB di
destinazione (in relazione con altre tabelle) necessitano dello stesso dato.
Ad es in un campo (colonna) devo inserire in tutte le celle una data nel
formato anno-mese-giorno; in altro campo devo inserire il codice 00001
Forse non mi sono spiegato bene ma non è solo colpa del caldo!

grazie per l'interessamento

antonio

"eliano" <eliano> ha scritto nel messaggio
news:ec33
[..]
> If .Cells(1, 1) = "" Then Exit Sub <--- non accetta blank
> conferma = MsgBox("Il valore " & Cells(1, 1) _
> & " sarà copiato in " & xr, vbYesNo)
> If conferma = 7 Then Exit Sub
> .Cells(1, 1).Copy Destination:=rng
> End With
> End Sub
>
> Saluti
> Eliano

grazie eliano

Sto travasando dei dati da un db ad un altro ed uso excel come appoggio;
devo importare dati da un foglio excel a una tabella di un db dove alcuni
campi sono chiave primaria e richiedono valori unici; altri campi del DB di
destinazione (in relazione con altre tabelle) necessitano dello stesso dato.
Ad es in un campo (colonna) devo inserire in tutte le celle una data nel
formato anno-mese-giorno; in altro campo devo inserire il codice 00001
Forse non mi sono spiegato bene ma non è solo colpa del caldo!

grazie di nuovo

antonio

: salve,
: ho una tabella con circa 10.000 righe e numerose colonne
: in alcune collone devo inserire lo stesso dato (ad es. da B1 a B10.
000 una
: data --> 12/08/2008)
: come posso fare senza ricorrere al trascinamento del dato?

Per quanto riguarda questa parte della domanda posso suggerire:
1) seleziona la cella B1;
2) premi F5 (vai a);
3) inserisci il riferimento B10000;
4) tenendo premuto il tasto Maiusc dai l'OK nella finestra di dialogo
[a questo punto hai selezionato l'intervallo B1:B10000]
5) la cella selezionata è ancora la B1: puoi quindi inserire il valore
desiderato (nel tuo caso: 12/08/2008)
6) tenendo premuto il tasto Ctrl dai invio.

In pochi secondi hai quindi inserito il valore ripetuto in tutte le
10000 celle.

Roberto

"Roberto" <schebobchiocciolatinpuntoit> ha scritto nel messaggio
news:5048
[..]
> [a questo punto hai selezionato l'intervallo B1:B10000]
> 5) la cella selezionata è ancora la B1: puoi quindi inserire il valore
> desiderato (nel tuo caso: 12/08/2008)
> 6) tenendo premuto il tasto Ctrl dai invio.
>
> In pochi secondi hai quindi inserito il valore ripetuto in tutte le
> 10000 celle.
>
> Roberto
>
Grazie Roberto
ottimo il tuo suggerimento!
antonio

"antonio" ha scritto:

>> "eliano" <eliano> ha scritto nel messaggio
> news:ec33
>
> grazie eliano
>
> Sto travasando dei dati da un db ad un altro ed uso excel come appoggio;
> devo importare dati da un foglio excel a una tabella di un db dove alcuni
> campi sono chiave primaria e richiedono valori unici; altri campi del DB di
> destinazione (in relazione con altre tabelle) necessitano dello stesso dato.
> Ad es in un campo (colonna) devo inserire in tutte le celle una data nel
> formato anno-mese-giorno; in altro campo devo inserire il codice 00001
> Forse non mi sono spiegato bene ma non è solo colpa del caldo!
>

Ok Antonio, adesso è più chiaro, grazie.
La routine proposta dovrebbe risolvere anche il problema della
formattazione, dal momento che copia integralmente il contenuto della cella
di riga 1 nelle righe successive; e le caratteristiche del dato le vedi bene.
:-))
Per quanto riguarda l'univocità dei dati te ne ho propinata un'altra
sull'ultimo tuo thread.
Ciao,
Eliano