macro per copia dati

Hai un problema con Excel?

Nuova discussione

macro per copia dati
di asansciasc (utente non iscritto) data: 07/04/2016 15:13:16
Buon giorno a tutti, sono nuovo del forum è da poco che mi sto cimentando con le macro e con il linguaggio vba, quindi vi chiedo una mano per poter ultimare questo mio progetto.
Mi sarebbe comoda una macro che copi i dati dal foglio “inserimento dati” e alimentasse le celle del foglio “distinta”seguendo alcuni specifiche da me indicate.
….ma prima è possibile importa un file excel come esempio da sottoporvi in visione al fine di rendere piu chiara l’esecuzione della macro? Se si, come si fa?
grazie per la disponibilità
di enzino83 data: 07/04/2016 15:39:11
FACCIO PROGRESSI MI SONO ISCRITTO AL FORUM, ED HO CAPITO COME ALLEGARE I FILE.

Almeno questo è risolto.... di seguito vi indico come dovrebbe funzionare la macro.

Nel “foglio inserimento dati” nella cella:
a7 e seguenti inserisco nome e cognome degli operatori;
b7 e seguenti il loro status che si differenzia semplicemente in “C o A”;
c6 la data,
c7 e seguenti il corrispettivo emolumento da assegnare.
Per ciascun giorno dovrei stampare un report che sarebbe il file “distinta”, mi sarebbe comoda una macro che copi i dati dal foglio “inserimento dati” e alimentasse le celle del foglio “distinta”, cosi come indicato nel file d’ esempio.
Tendendo conto di importare nel foglio “distinta” nella cella :
a23 e seguenti il numero progressivo;
bcde23 e seguenti il nome dell’operatore;
f23 e seguenti il loro status;
gh23 o ij23 lasciare vuote la cella per il quale corrisponde l’emolumento ovviamente barrando l’altra, mentre invece se l’emolumento è FULL lasciare libere entrambe.
Spero di essere stato chiaro, ma guardando l’esempio sembra abbastanza intuitivo.
Grazie

di enzino83 (utente non iscritto) data: 09/04/2016 17:20:03
assieme ad altri colleghi abbiamo generato questa macro che funziona e di questo siamo fieri.......(essendo tutti negati già è tanto) solo che andrebbe perfezionata quando copia, lo fa dal primo foglio nella prima cella e incolla nel secondo folgio nella prima cella, e no dove serve......

basterebbe che incolli i dati come da specifiche indicate nel precedente post.
grazie a colui/e - loro che mi dia una mano

Sub copia() 
Dim ws1 As Worksheet, ws2 As Worksheet 
Dim ur As Integer, i As Integer, r As Integer 

Set ws1 = Sheets("INSERIMETO DATI") 'Foglio con i dati 
Set ws2 = Sheets("DISTINTA") 'Foglio di destinazione 

'individuo l'ultima cella occupata della colonna A (1) del foglio dati 
ur = ws1.Cells(Rows.Count, 1).End(xlUp).Row 

For i = 1 To ur 
If ws1.Cells(i, "A") <> "" Then 
r = r + 1 
ws1.Cells(i, "A").Copy ws2.Cells(r, "A") 
End If 
Next 
End Sub

Vuoi Approfondire?