[excel] Inputbox, copia ed incolla

[biancocandido55]

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

[Flash30005]

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

[biancocandido55]

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:


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


Uploaded with ImageShack.us
come sempre grazie
ciao bianco

[biancocandido55]

Scusami Flash,
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

[Flash30005]

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

[biancocandido55]

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 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
bianco

[Anthony47]

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

[biancocandido55]

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

[biancocandido55]

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
bianco

P.S.
ragazzi, che partita!!

[Flash30005]

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?

[biancocandido55]

Ciao Flash,
come sempre grazie,
ciao a pre
bianco

P.S.
Quella della Nazionale!

[Flash30005]

Ciao

Ps. Ah! perché era una partita di calcio? Non un incontro di calcetto?

[biancocandido55]

Ciao Flash,
Mbè su dai! ................diciamo una passeggiata
Ciao Flash alla prossima e GRAZIE di nuovo
ciao Bianco