Codice Macro

Hai un problema con Excel?

Nuova discussione

Codice Macro
di Diego (utente non iscritto) data: 27/11/2014 11:01:37
Avrei bisogno di una macro che cerchi un certo dato "x" per essere copiato in altro foglio di lavoro xls.
Devo far in modo che mi cerchi un certo nr. di codici alfanumerici su di un foglio e che mi copi la relativa riga di riferimento di quei codici cercati su di altro foglio xls.
Qualcuno puo' darmi un amano io non sono esperte di macro vba.

Ringrazio anticipatamente.
di lepat (utente non iscritto) data: 27/11/2014 12:01:42
io ho dato un'occhiata al file, ma non ci ho capito nulla
di Diego (utente non iscritto) data: 27/11/2014 12:17:52
Chiedo scusa, provo a spiegarmi meglio.
Nell'allegato è presente uno schema, che va dalla cella B3 alla J13.
Sono presenti nove colonne, su questo schema ci sono il nome della Matricola,Ruolo,Cognome,Nome,Straordinario A,Straordinario B,Straordinario C,Totale,COD; vorrei estrapolare dei dati su un altro floglio di lavoro.

I dati che vorrei sono quelli inerenti lo starordinario, vorrei che mi cercasse un certo codice presente in colonna J da me richiesto o richiesti, e che copiasse i dati di riferimento a tali codici/ce come in altro foglio di lavoro.

Praticamente cerca codice: C4, C7 in colonna J "COD.", ricopia lo straordinario presente nelle quattro colonne F,G,H,I in altro foglio di lavoro.
Grazie mille
di Diego (utente non iscritto) data: 27/11/2014 16:37:45
Ho inserito un nuovo file chiamato "fileA", in cui ho cercato di spiegare cosa vorrei avere con un amacro,
Ringrazio in anticipo tutti quelli che mi vorranno dare una mano data la mia scarsa preparazione di macro.
di lepat (utente non iscritto) data: 27/11/2014 16:55:19
tu parli di fileA e fileB, dove è il file B ?
di Diego (utente non iscritto) data: 28/11/2014 08:13:49
Si scusa,
il fileA è quello che ho caricato,
il fileB è quello da creare quindi un file in bianco ma con gli stessi della tabella dei campi del fileA.

Grazie.
di lepat (utente non iscritto) data: 28/11/2014 12:06:31
questo è riportato sul tuo file
-----------
I dati che vorrei copiare sono inerenti la colonna J, cioè se il fileB trova una corrispondenza di codice di questa colonna al suo interno, mi deve copiare i dati relativi al suo codice relativamente agli straordinari presenti sul fileA "straordinario colonna F,G,H, ed I colonna totale. Spero di essermi spiegato abbastanza bene.
----------------
come è possibile con un file vuoto ?
di Diego (utente non iscritto) data: 01/12/2014 12:51:08
Gli spazi di tabella dei due file sono identici, inserendo nel fileB nella colonna J i codici per esempio C3, C6 mi deve trovare la corrispondenza nel fileA di questi due e ricopiarli sul medesimo fileB, deve estrapolare dal fileA solo i dati richiesti con i codici da me inseriti.
Credi si possa fare in qualche modo.
Grazie mille
di Diego (utente non iscritto) data: 10/12/2014 08:55:49
C'è qualcuno che riesce a darmi una mano, sono davvero incasinato.
Grazie mille
di lepat (utente non iscritto) data: 10/12/2014 09:15:11
probabilmente nessuno ha capito quello che vuoi
di Diego (utente non iscritto) data: 10/12/2014 12:20:51
Io ho due file:
1. fileA dove ho una tabella con dei dati,
2. fileB qua vorrei che copiare i dati del fileA relativamente lo straordinario,
cioè che la macro permetta di copiare le colonne F,G,H,I del fileA su questo.

Su entrambi i file nella colonna J sono presenti dei codici (C1,C2,C3, ecc….)
sul fileB ho solo i codici e la tabella bianca non scritta, mentre sul fileA e tutta scritta,
la macro deve trovare i codici della colonna J presenti sul fileA che corrispondono a quelli presenti sul fileB, e copiarne i dati relativi a quei codici cioè lo straordinario.

Esempio:
fileB nella colonna J c’è il cod. c1 e c2,
la macro deve trovare questi due codici sul fileA e copiarne i dati relativi allo straordinario sulla tabella presente sul fileB.

di lepat (utente non iscritto) data: 10/12/2014 15:43:36
prova questa

Sub OpenFileCopyRows()
Set sh = ThisWorkbook.Sheets(1)
LR1 = sh.Cells(Rows.Count, "J").End(xlUp).Row
Filename = ThisWorkbook.Path & "fileA.xlsx"
Workbooks.Open (Filename)
LR2 = Cells(Rows.Count, "J").End(xlUp).Row
For r = 4 To LR1
  cod = sh.Range("J" & r)
  For rr = 4 To LR2
    If Range("J" & rr) = cod Then
      sh.Range("B" & r & ":I" & r).Value = Range("B" & rr & ":I" & rr).Value
    End If
  Next
Next
ActiveWorkbook.Close
End Sub

di Diego (utente non iscritto) data: 10/12/2014 16:44:16
Grazie mille lepat per il tuo interessamento, ma non riesco a farla funzionare.
Ho inserito la macro nel fileB, ma nulla.
Sai darmi qualche altro consiglio.
di lepat (utente non iscritto) data: 10/12/2014 17:06:09
spiegati meglio, cosa non funziona ? hai provato a lanciarla con f8 step by step
di Diego (utente non iscritto) data: 11/12/2014 08:07:25
Lepat scusami ma non sono molto pratico, potresti spiegarmi meglio come fare.
Grazie mille
di lepat (utente non iscritto) data: 11/12/2014 09:34:29
spiegami tu cosa hai fatto per inserire la macro nel file e lanciarla
di Diego (utente non iscritto) data: 11/12/2014 13:08:35
copiata all'interno del tasto commandbutton.
Dovevo fare altro.
Per piacere spiegami te.
Grazie
di lepat (utente non iscritto) data: 11/12/2014 16:05:54
prova il file allegato, i due file devono trovarsi nella stessa cartella
di Diego (utente non iscritto) data: 15/12/2014 21:30:29
Grazie veramente, scusa se ho aspettato a risponderti ma sono stato poco bene.
Sei stao unico funziona tutto perfettamente Lepat .
Grazie ancora

Vuoi Approfondire?