Macro Excel Copia Incolla

giovedì 07 ottobre 2010 - 12.20

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

lucavox Profilo | Newbie

1 messaggi | Data Invio: gio 7 ott 2010 - 12:20

Ciao a tutti!!! Parto dal presupposto che non conosco un "H" del linguaggio VB, e cerco una anima pia che mi dia una mano a risolvere il mio problemino!! (cosi cerco anche di imparare cose nuove!!)

Ho la necessità di creare una macro che all'apertura di un file xls (test.xls) mi apra un secondo file (verifica.xls)... e fino a qui non credo di aver problemi il codice che posterò funziona!!!
la seconda cosa che deve fare questa macro in apertura (dopo aver aperto il secondo file) è che mi copi tutte le colonne (A:E) del verifica.xls in un foglio del file test.xls.

questo è il mio codice!

Private Sub Workbook_Open()
On Error GoTo RigaErrore
Dim Sh As Worksheet
Dim wrk As Workbook
Dim sPath As String
Dim sNomeFile As String
Dim lRisposta As Long
sPath = "C:\Documents and Settings\admin\Desktop\macro\"
Set Sh = Worksheets("Foglio1")
With Sh
sNomeFile = .Range("A1").Value & "Verifica.xls"
lRisposta = MsgBox(Prompt:="Vuoi aprire il file: " _
& sNomeFile, Title:="Attenzione", _
Buttons:=vbYesNo + vbQuestion)
If lRisposta = vbYes Then
Workbooks.Open (sPath & sNomeFile)
End If
End With
RigaChiusura:
Set Sh = Nothing
Exit Sub
RigaErrore:

End Sub

Grazie mille per i consigli!!!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !