run-time '438' object doesn't support this property or metho

[Verwijderd]

Hoi,
Heb zojuist een macro in excel gemaakt met volgende bedoeling:
- macro moet een aantal kolommen (niet opeenvolgend) copieren vanuit een tabblad en plakken in een nieuw tabblad
- vervolgens moet de macro deze tabbladen plus nog een aantal andere tabbladen overzetten naar een tab delimited (txt) files die opgeslagen zijn op een andere server
Als ik macro run krijg ik bovenstaande foutmelding.
Ben zelf niet zo bekend met macros en kan zo snel geen oplossing vinden.
Zou het op prijs stellen indien iemand me met dit probleem kan helpen.
Bij voorbaat dank
Grtz
maarten

Sub Run()
'
' Run Macro
' Macro recorded 25/09/2007 by Maarten van Heur
'
Dim Fact_sheet_export As String
Dim Fact_sheet_bron As String
Dim Fact_txt_locatie As String
Dim Project_sheet_export As String
Dim Project_sheet_bron As String
Dim Project_txt_locatie As String
Dim Klant_sheet_export As String
Dim Klant_sheet_bron As String
Dim Klant_txt_locatie As String
Dim Personen_sheet_export As String
Dim Personen_sheet_bron As String
Dim Personen_txt_locatie As String

Fact_sheet_export = "Facturen_e-mergo"
Fact_sheet_bron = "Facturen"
Fact_txt_locatie = "\\Emergo03\Facturering_Data\Facturen_e-mergo.txt"
Project_sheet_export = "Projecten_e-mergo"
Project_sheet_bron = "Projecten"
Project_txt_locatie = "\\Emergo03\Facturering_Data\Projecten_e-mergo.txt"
Klant_sheet_export = "Klanten_e-mergo.txt"
Klant_sheet_bron = "Klanten"
Klant_txt_locatie = "\\Emergo03\Facturering_Data\Klanten_e-mergo.txt"
Personen_sheet_export = "Personen_e-mergo.txt"
Personen_sheet_bron = "Personen"
Personen_txt_locatie = "\\Emergo03\Facturering_Data\Personen_e-mergo.txt"


Sheets(Fact_sheet_bron).Select
Columns("A:N").Select
Range("A118").Activate
Selection.Copy
Sheets(Fact_sheet_export).Select
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.LargeScroll ToRight:=0
Sheets(Fact_sheet_bron).Select
ActiveWindow.SmallScroll ToRight:=8
Columns("R:S").Select
Range("R118").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets(Fact_sheet_export).Select
Range("O1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.LargeScroll ToRight:=1
Sheets(Fact_sheet_bron).Select
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.LargeScroll ToRight:=2
Columns("AH:AU").Select
Range("AH118").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets(Fact_sheet_export).Select
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Range("P1").Activate
Application.CutCopyMode = False

ActiveSheet.Export ActiveWorkbook.SaveAs Filename:=Fact_txt_locatie, FileFormat:=xlText, Local:=True, CreateBackup:=False
Sheets(Project_sheet_bron).Select
Columns("A:P").Select
Selection.Copy
Sheets(Project_sheet_export).Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=10
Sheets(Project_sheet_bron).Select
ActiveWindow.SmallScroll ToRight:=3
Columns("Q:X").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Project_sheet_export).Select
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Range("K1").Activate
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
Project_txt_locatie, FileFormat:=xlText, Local:=True, CreateBackup:=False
Sheets(Klant_sheet_bron).Select
Cells.Select
Range("A29").Activate
ActiveWorkbook.SaveAs Filename:= _
Klant_txt_locatie, FileFormat:=xlText, Local:=True, CreateBackup:=False
Sheets(Personen_sheet_bron).Select
Cells.Select
Range("D37").Activate
ActiveWorkbook.SaveAs Filename:= _
Personen_txt_locatie, FileFormat:=xlText, Local:=True, CreateBackup:=False
' Sheets("Personen_e-mergo").Select
' Sheets("Personen_e-mergo").Name = "Personen"
' Sheets("Klanten_e-mergo").Select
' Sheets("Klanten_e-mergo").Name = "Klanten"
' ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Transfer").Select
End Sub

[RobIII]

Welkom op GoT

Allereerst: als je code post, gebruik dan code tags. Post ook altijd alleen maar relevante code.
Daarnaast: Waar hoort mijn topic?, je topic hoort dus niet in [PRG] maar in [OFF]
Dan: we houden hier niet zo zeer van quickfixes; we zien graag wat je zélf al hebt geprobeerd (ook te lezen in onze Programming Beleid Quickstart, waar nog meer interessants in staat). GoT is geen afhaalbalie voor kant-en-klare oplossingen namelijk.

Ik denk dat je met dit leesvoer wel even verder kunt; je bent van harte welkom met een nieuw topic als je dan voorgenoemd leesvoer even in je achterhoofd houdt als je een nieuw topic opent

Overigens moet je probleem met wat debuggen ook prima op te lossen zijn: Debuggen: Hoe doe ik dat?. De foutmelding is relatief duidelijk en zonder regelnummer waar het exact fout gaat kunnen wij ook alleen maar gissen waar de fout nu precies optreedt.

[ Voor 25% gewijzigd door RobIII op 28-09-2007 13:27 ]