Met userform uit ander werkboek de data halen

[Bendepater]

Ik gebruik onderstaande code in mijn userform om data uit een tabblad te halen.

Private Sub haalgegevensop_Click()
Application.ScreenUpdating = False
Dim code As Integer
With Worksheets("data")
sq = .Range("A1:A" & .Cells(Rows.Count, 5).End(xlUp).Row)
    For i = LBound(sq) To UBound(sq)
        If CStr(sq(i, 1)) = Me.contractnummer Then code = i + 2
    Next
    If code = 0 Then
        MsgBox "Sorry niets gevonden in de database, probeer opnieuw"
    Else
        data1.Text = .Range("A" & code).Text
        data2.Text = .Range("B" & code).Text
        data3.Text = .Range("C" & code).Text
        data4.Text = .Range("D" & code).Text
        data5.Text = .Range("E" & code).Text

      End If
On Error GoTo 0
End With
Application.ScreenUpdating = True
End Sub

Nu is het zo dat er zoveel data in deze sheet staat dat het saven van het werkboek zo`n 25 seconden doet. werkboek is zo`n 21 mb groot. Dit duurt veel te lang en nu is mijn vraag kan deze data ook gelezen worden uit een ander werkboek? die er naast open staat? of zijn er nog andere mogelijkheden?

 

[Roncancio]

Er zijn verschillende mogelijkheden:
- Zoeken naar de betreffende contractnummer.
- Eventueel filteren van de lijst.
- Gegevens halen uit een ander bestand.
etc.

In ieder geval niet per regel controleren. Dat kost enorm veel tijd.

Met vriendelijke groet,


Roncancio

 

[Bendepater]

Het gaat mij om het saven wat zo af en toe moet gebeuren. Ik zoek met het userform en wanneer het is gevonden wordt dit weggeschreven op een ander tabblad. Een soort logging zeg maar. Het zoeken werkt zeer snel en dat het is probleem niet. Dus ik dacht zoeken uit een ander document met daarin de database zodat het document met het zoek formulier klein blijft en snel gesaved kan worden tussen door.

 

[Warme bakkertje]

With [COLOR="red"]Workbooks("naam van je bestand.xls").[/COLOR]Worksheets("data")

Het betreffende bestand moet dan wel geopend zijn anders krijg je een foutmelding.
Je kan natuurlijk ook eerst een controle toevoegen om te kijken of het workbook wel degelijk geopend is en dit anders eerst openen alvorens er gezocht wordt.

 

[Bendepater]

Hallo Rudi,

Top dit is precies wat ik nodig had..

Thx

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost.