|
Login
  • Page:
  • 1

TOPIC: Errore posizione copiatura celle

Errore posizione copiatura celle 8 years 6 months ago #7579

  • MCDUE
  • MCDUE's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 7
  • Karma: 0
Buongiorno a tutti!
Sono ancora qui :)
Ho questo file macro:

Sub importafilesaldi()
Application.ScreenUpdating = False
oldfile = ActiveWorkbook.Name
FILETOOPEN = Application.GetOpenFilename("xls Files (*.xls), *.xls", , "Selezionare il file dal quale importare le colonne", "Apri", "False")
file_selezionato = ActiveWorkbook.Name
If FILETOOPEN = False Then
Application.CutCopyMode = False
Exit Sub
End
End If
Workbooks.OpenText Filename:=FILETOOPEN

nuovo = ActiveWorkbook.Name


Dim SourceFile As Workbook
Set SourceFile = ActiveWorkbook


ActiveSheet.Range("a2:" & ActiveSheet.Range("a2"). _
End(xlDown).Address).Select
Selection.Copy


Windows(oldfile).Activate
ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Range("A1").Select
Application.ScreenUpdating = True

SourceFile.Activate


ActiveSheet.Range("I2:" & ActiveSheet.Range("I2"). _
End(xlDown).Address).Select
Selection.Copy

Windows(oldfile).Activate
ActiveSheet.Range("d1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Range("A1").Select
Application.ScreenUpdating = True

SourceFile.Activate
SourceFile.Close


Windows(oldfile).Activate
End Sub

Che copia due colonne, la A e la I da un file esterno e le inserisce dove trova l'ultima cella libera del file originale rispettivamente nella cololla A e nella colonna D.
Ora, la prima parte, cioè copiare da colonna A a colonna A lo fa.
Quando invece copia le celle della colonna D fa un pasticcio perchè non copia dall'ultima cella libera in poi, ma dalla cella D2!
Sostanzialmente è come se questo comando:
ActiveSheet.Range("d1").End(xlDown).Offset(1, 0).Select
non funzionasse.
C'è qualcuno che è in grado di spiegarmi l'errore commesso?
Grazie
Patrizia
The administrator has disabled public write access.

Errore posizione copiatura celle 8 years 6 months ago #7580

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
MCDUE wrote:
...Sostanzialmente è come se questo comando:
ActiveSheet.Range("d1").End(xlDown).Offset(1, 0).Select
non funzionasse.
C'è qualcuno che è in grado di spiegarmi l'errore commesso?
prova a sostituire la riga con questa:
ActiveSheet.Paste Destination:=Worksheets("foglio1").Range("D1").End(xlDown).Offset(1, 0)
avendo cura di sostituire a foglio1 il nome del foglio dove vuoi copiare.
ciao, Lo
Last Edit: 8 years 6 months ago by lorenzo1957.
The administrator has disabled public write access.
The following user(s) said Thank You: MCDUE

Errore posizione copiatura celle 8 years 6 months ago #7582

  • p3pq3
  • p3pq3's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 175
  • Thank you received: 28
  • Karma: 10
Bisognerebbe vedere anche la struttura del file, io comunque per inserire dati nella prima cella vuota utilizzerei

ActiveSheet.Range("d1048576").End(xlUp).Offset(1, 0).Select

ActiveSheet.Range("d65539").End(xlUp).Offset(1, 0).Select (Versione 97-03)

prova questa istruzione magari risolvi.
Last Edit: 8 years 6 months ago by p3pq3.
The administrator has disabled public write access.
The following user(s) said Thank You: MCDUE

Errore posizione copiatura celle 8 years 6 months ago #7584

  • MCDUE
  • MCDUE's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 7
  • Karma: 0
Funzionavano entrambi! Grazie! B)
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.296 seconds