Gegevens uit ander blad

[Jarodxxx]

Hallo!

Ik gebruik nu onderstaande code om gegevens uit een blad in hetzelfde excelbestand te halen.

Ik wil nu graag de gegevens uit een ander bestand halen C:\Temp\Excel\TEST2.xls TEST2 (=sheet)

Iemand een idee hoe dat moet? voor mij een groot ?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, rngToDo As Range, firstAddress As String, SHTEST1 As Object
    If Target.Count > 1 Then Exit Sub
    
'Naamtoewijzing voor een werkblad of bestandslocatie. Hierna kan de naam worden aangeroepen'
    Set SHTEST1 = Sheets("TEST1")

Jarod.

 

[Demeter]

Workbooks.Open Filename:="C:\Temp\Excel\TEST2.xls"
Sheets("TEST2").Cells.Select

Opent je blad en selecteerd alle cellen op sheet 2.

Groet,
Ferenc

 

[Jarodxxx]

integreren

Euh...

Hoe intergreer ik dat in de rest?

Jarod

 

[Demeter]

Probeer deze eens:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, rngToDo As Range, firstAddress As String, SHTEST1 As Object
    If Target.Count > 1 Then Exit Sub
    
'Naamtoewijzing voor een werkblad of bestandslocatie. Hierna kan de naam worden aangeroepen'
    Set SHTEST1 = Workbook("TEST2.xls").Sheets("TEST2")

 

[Jarodxxx]

sub of function probleem

Vorige werkte alleen, dan ben ik SHTEST1 (naam defineren) kwijt en werkt de rest niet
bij onderstaande krijg ik sub of function niet gedefineerd....

Set SHTEST1 = Workbook("TEST2.xls").Sheets("TEST2")

Jarod

 

[Demeter]

uhhhh. s vergeten:

Set SHTEST1 = Workbook[COLOR="Red"]s[/COLOR]("TEST2.xls").Sheets("TEST2")

 

[Jarodxxx]

2 bestanden dan maar

2 bestanden dan maar, want ik kom d'r niet uit

Test2.xls 'moet' in C:\
Code staat achter "home" in het andere bestand

De Sheet Test2.xls wordt prima geopend, alleen dan ontstaat er een nieuw probleem met target.select

Waarschijnlijk komt dat door gebruik van het andere workbook ipv een sheet? (het moet uit het workbook, weet alleen niet helemaal de oplossing)

Bedankt

Jarod

 

[Jarodxxx]

Krijg na zoeken

SHTEST1.Range("F" & c.Row).Copy
                Range("B" & Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial xlPasteValues

voor C.Row krijg ik een error met c.row = <object vereist>
iemand een idee hoe ik dat oplos?

Jarod.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, rngToDo As Range, firstAddress As String, SHTEST1 As Object
    If Target.Count > 1 Then Exit Sub
    
'Naamtoewijzing voor een werkblad of bestandslocatie. Hierna kan de naam worden aangeroepen'
     Set SHTEST1 = Workbooks.Open("C:\TEST2.xls").Sheets("TEST2")


'Invoercel met waarde welke later wordt vergeleken'
    If Target.Address = "$B$5" Then
        Application.ScreenUpdating = False

'Op het actieve werkblad wordt vanaf Cel X alles gewist'
        Range("A32").CurrentRegion.Offset(1).ClearContents
        
'Op het gegevensblad kijk vanaf Cel X naar rechts en naar beneden (kijk naar het geheel)'
        Set rngToDo = SHTEST1.Range("A2", SHTEST1.Range("A2").End(xlDown))
        Set c = rngToDo.Find(Target, after:=SHTEST1.Cells(Rows.Count, rngToDo.Column).End(xlUp), LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.Copy
                Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
                
                
'Hier wordt aangegeven welke kolommen op het gegevensblad gekopieerd moeten worden naar het doel werkblad'
'_____________________________________________________________________________________________________________'

                'Verander in de 1e regel tussen de "" de kolomletter waar de gegevens vandaan komen'
                'Verander in de 2e regel de eerste "" in de kolomletter waar de gegevens naar toe moeten'
                SHTEST1.Range("F" & c.Row).Copy
                Range("B" & Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial xlPasteValues
                
                'Uitbereiding door kopieren'
                SHTEST1.Range("H" & c.Row).Copy
                Range("C" & Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial xlPasteValues
                
'_____________________________________________________________________________________________________________'
'Hierboven kan uitbereiding plaats vinden van de kolommen die gekopieerd moeten worden'
                
                
                Set c = rngToDo.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
        Application.EnableEvents = False

 

[Jarodxxx]

wat vergeten

Code:
SHTEST1.Range("F" & c.Row).Copy
Range("B" & Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial xlPasteValues

voor C.Row krijg ik een error met c.row = object vereist
iemand een idee hoe ik dat oplos?

Jarod.