Condividi:        

[excel] Inputbox, copia ed incolla

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[excel] Inputbox, copia ed incolla

Postdi biancocandido55 » 23/06/10 07:56

Ciao ragazzi, un cordiale saluto a tutto il forum,
mi occorre il vostro aiuto, per una procedura di copia ed incolla parziale, tramite inserimento dati in un inputbox, mi spiego:
in un file dati “Foglio Archivio”
colonna A : Numeri decrescenti
colonna B : Data Decrescente formato “gg-mm-aa”, 12-01-1980
colonne da C a BE : Dati numerici
la macro dovrebbe aprire un Inputbox e “selezionare” la colonna B (Data), “che anno scegli?” (4 cifre formato “aaaa”, es.: 1980), andare sul Foglio ‘Archivio’, trovare nella colonna B dalla prima occorrenza tutte le righe dell’anno selezionato con l’input, copiarle ed incollarle sul Foglio2 dalla cella A2 in poi.
Come sempre un caloroso abbraccio,
grazie, in attesa
biancocandido
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Sponsor
 

Re: [excel] Inputbox, copia ed incolla

Postdi Flash30005 » 23/06/10 10:03

Prova questa macro
Codice: Seleziona tutto
Sub FiltraCopia()
    VariabileInput = _
    InputBox("Inserire l'anno (aaaa)")
    If IsNumeric(VariabileInput) Then
        If Len(VariabileInput) <> 4 Then
            MsgBox "Inserire Anno in formato aaaa", vbInformation
            Exit Sub
        End If
        VariabileInput = Val(VariabileInput)
        UR = Sheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row
        For RR = 2 To UR
            If Year(Sheets("Foglio1").Range("B" & RR).Value) = VariabileInput Then
                UR2 = Sheets("Foglio2").Range("B" & Rows.Count).End(xlUp).Row + 1
                Sheets("Foglio1").Rows(RR & ":" & RR).Copy Destination:=Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            End If
        Next RR
    Else
        MsgBox "la variabile è una stringa di caratteri", _
        vbInformation, "Messaggio Errore"
    End If
End Sub



Fai sapere se ok
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [excel] Inputbox, copia ed incolla

Postdi biancocandido55 » 23/06/10 12:11

Ciao Flash,
nella macro ho corretto i nomi dei due fogli in uso, Foglio1 con Archivio e Foglio2 con Foglio1, incollata in un modulo mi da il seguente messaggio d'errore:
Immagine

Uploaded with ImageShack.us
mentre nel Debug mi segnala la riga dell'img allegata:
Immagine

Uploaded with ImageShack.us
come sempre grazie
ciao bianco
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [excel] Inputbox, copia ed incolla

Postdi biancocandido55 » 23/06/10 13:51

Scusami Flash,
Oops :oops:, mi sono accorto di un errore da parte mia, correggo, le celle della colonna B dell'Archivio hanno il formato seguente:
gg/mm/aaaa
e non gg/mm/aa, come avevo scritto.
grazie, ciao
bianco
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [excel] Inputbox, copia ed incolla

Postdi Flash30005 » 23/06/10 15:36

Il funzionamento previsto è il seguente:
l'anno inserito nell'InputBox deve essere un numero
della lunghezza di 4 cifre
(se meno o più di 4 appare un messaggio di inserimento anno in formato "aaaa")
Se invece nell'InputBox viene immesso un testo
appare un messaggio che quanto scritto è un testo.

Avevo capito dal primo post che il formato era gg-mm-aaaa
quindi o inserisci gg-mm-aaaa o gg/mm/aaaa non dovresti avere problemi
purché in formato data.

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [excel] Inputbox, copia ed incolla

Postdi biancocandido55 » 23/06/10 22:56

Ciao Flash,
ho provato ad usare tutti i formati data, nulla da fare, se metto // o -- mi dice formato stringa, se metto solo le 4 cifre dell'anno mi da l'errore visto sul topic precedente, sono ImmagineImmagine confuso, comunque non demordo,
ti allego il file per una eventuale valutazione soggettiva da parte tua http://www.megaupload.com/?d=TC5SPS24,
un saluto ed un abbraccio,
ciao
biancoImmagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [excel] Inputbox, copia ed incolla

Postdi Anthony47 » 23/06/10 23:37

Poiche' i tuoi dati cominciano su riga 8 dovrai usare
Codice: Seleziona tutto
        For RR = 8 To UR '<<

Inoltre il tuo secondo foglio si chiama Foglio1, quindi modificherai in Foglio1 le parti della macro che invece fanno riferimento a Foglio2.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [excel] Inputbox, copia ed incolla

Postdi biancocandido55 » 24/06/10 08:05

Un buon giorno a voi tutti, ragazzi
allora Anthony e Flash, come sempre vi ringrazio, fatte le dovute correzioni è tutto OK!
pace e prosperità
alla prossima, ciao
bianco55 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [excel] Inputbox, copia ed incolla

Postdi biancocandido55 » 24/06/10 18:01

Ciao ragazzi, eccomi di nuovo qui,
volevo chiedere se si può creare un'altra macro che fa la stessa cosa della precedente, seleziona anno, trova righe , copia le righe ed incolla sul foglio 1 ma dalla colonna A fino alla colonna BE.
Come sempre, un abbraccio
Ciao e grazie
biancoImmagine

P.S.
ragazzi, che partita!! :( :( :cry:
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [excel] Inputbox, copia ed incolla

Postdi Flash30005 » 24/06/10 19:45

Sostituisci solo questa riga

Codice: Seleziona tutto
             If Year(Sheets("Foglio1").Range("B" & RR).Value) = VariabileInput Then  '<<< riga esistente
               ' UR2 = Sheets("Foglio2").Range("B" & Rows.Count).End(xlUp).Row + 1  '<<<<<riga inutile da commentare o cancellare
                Sheets("Foglio1").Range("A" & RR & ":BE" & RR).Copy Destination:=Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)  ' <<<<Riga da modificare
            End If


Ciao

P.s. Quale partita? :roll:
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [excel] Inputbox, copia ed incolla

Postdi biancocandido55 » 24/06/10 20:26

Ciao Flash,
come sempre grazie,
ciao a pre
biancoImmagine

P.S.
Quella della Nazionale! :( :(
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [excel] Inputbox, copia ed incolla

Postdi Flash30005 » 25/06/10 07:39

Ciao ;)

Ps. Ah! perché era una partita di calcio? :eeh: Non un incontro di calcetto?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [excel] Inputbox, copia ed incolla

Postdi biancocandido55 » 25/06/10 07:45

Ciao Flash,
Mbè su dai! ................diciamo una passeggiata :lol: :lol:
Ciao Flash alla prossima e GRAZIE di nuovo
ciao Bianco Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15


Torna a Applicazioni Office Windows


Topic correlati a "[excel] Inputbox, copia ed incolla":


Chi c’è in linea

Visitano il forum: Nessuno e 60 ospiti