copia tra due fogli con condizione

[grinchPartecipante grinch]

buongiorno , e il mio primo post , non sono pratico di Vb e vi chiedo se possibile avere un aiuto .

Avrei necessità di copiare dei dati inseriti nel foglio1 e incollarli nel foglio3 inserendoli nella giusta posizione , vi spiego meglio nel foglio1 cella c6 scrivo una data e nel foglio3 i dati devono essere copiati nei campi della medesima data . Grazie

Allegati:

You must be logged in to view attached files.

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Con l'operatore di assegnazione (segno di uguale, "=' ) puoi assegnare a una cella il valore di un'altra cella (proprieta' .Value dell'oggetto Range o Cell), se le celle sono su fogli diversi devi qualificare i riferimenti con il nome del proprio foglio.

[gianfranco55Partecipante gianfranco55 Karma: 91 pts]

ciao

vecchio

ci vuole il VBA i dati devono rimanere

il foglio1 ha una data sola

il foglio 3 ha il mensile

divertiti

[alexps81Moderatore alexps81 Karma: 58 pts]

Ciao @grinch

in fase d'iscrizione avresti dovuto leggere il regolamento che spiega che il Cross-posting pur non essendo vietato, non è ben visto su questo forum.

Ti è stato già fornito un suggerimento altrove, con lo scheletro commentato incluso di suggerimenti della soluzione al tuo problema. Perché non provi tu a risolvere il problema?

Questo è ciò che ti è stato già suggerito:

Option Explicit

Sub copiaDati()
Dim dateA As String 'data in C6
Dim dateB As Byte 'numero colonna della data trovata
Dim c As Byte 'x il ciclo For c...Next
Dim r As Byte 'x il ciclo For r...Next
Dim trovato As Boolean 'se data trovata, impostala a True

trovato = False
For r = 5 To 133 Step 32 'scorre le righe
    For c = 3 To 15 Step 2 ' scorre le colonne
        'qui fai un confronto tra la cella che ha coordinate r, c del "Foglio3" e la data scritta in C6 del Foglio1
        'se c'è corrispondenza ricavi il numero di colonna
        'qui copia
        'qui incolla speciale nella cella (r + 1, c)
        'qui imposto trovato = True
        'qui esci dal ciclo For c
        trovato = True
        Exit For
    Next c
    'se trovato = True allora esci dal ciclo For r
Next r

End Sub

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

gianfranco55 ha scritto:

ci vuole il VBA i dati devono rimanere

Non ho capito cosa intendi. Certo che parlavo di VBA, mica di formule.

range(b).value = range(a).value

[Autore]

Articoli