resultaat van zoekfunctie aanéénsluitend in andere file plaatsen

[Havana100]

beste,

Heeft er iemand een idee (formule) om volgend probleem op te lossen?

In de file "info" staat de originele data. In de file " resultaat" zou ik graag het resultaat te zien krijgen. In de file "resultaat" zou dus in kolom A enkel de namen mogen komen ( uit file info) waarvoor geldt dat de waarde in kolom B ( ook van de info file) gelijk is aan A. Het aantal waarden in de kolom A (info file) kunnen oplopen tot een paar duizend. In het resultaat zou in kolom aanéénsluitend de resultaten moeten komen ongeacht het aantal waarden die in de info ( kolom A) staan.

Hopelijk een beetje duidelijk uitgelegd en iemand een idee?

Tuurlijk al bedankt voor het bekijken!

groeten.

 

[HSV]

Wat doet Sophie er tussen met een F.

 

[Havana100]

Beste HSV,


Hmmm typ foutje hoor!

 

[HSV]

De rode tekst aanpassen.


Code in het resultaat bestand.

Sub hsv()
Dim sv, hs, i As Long, s0 As String
With GetObject("[COLOR=#ff0000]c:\users\havanna100\documents\info.xlsx[/COLOR]")
  sv = .Sheets(1).Cells(1).CurrentRegion
.Close False
End With
  For i = 1 To UBound(sv)
          If sv(i, 2) = "A" Then s0 = s0 & i & vbLf
        Next
     hs = Application.Transpose(Split(s0, vbLf))
   Cells(1).Resize(UBound(hs) - 1, 2) = Application.Index(sv, hs, Array(1, 2))
End Sub

 

[Havana100]

Beste HSV,

bedankt hoor, werkt prima maar toch nog een paar vraagjes door een niet specialist!

De macro gaat nu in de file info zoeken in kolom B (2). Wat moet ik veranderen als ik wil laten zoeken in kolom AR (44)?

En wat als ik enkel in kolom A enkel de naam wil en niets in de kolom B?

 

[HSV]

Kun je een gelijkend bestand plaatsen?

Ik weet nl. niet of de namen nog in kolom A staan en of het een aaneensluitend bereik is.

 

[Havana100]

Beste HSV,

in bijlage de twee voorbeelden. In de info file , kolom A , de namen die als resultaat in file resultaat zouden moeten komen, startend in cel A5. In kolom A van de resultaat file zouden dus eigenlijk ook enkel de namen mogen komen. Hopelijk een beetje duidelijk uitgelegd ...

 

[HSV]

In het bestand 'info' is het geen aaneengesloten bereik dus dan maar zo.

Sub hsv()
Dim sv, hs, i As Long, s0 As String
With GetObject([COLOR=#3E3E3E]"[/COLOR][COLOR=#ff0000]c:\users\havanna100\documents\info.xlsx[/COLOR][COLOR=#3E3E3E]")[/COLOR]
  sv = .Sheets(1).Cells(1).CurrentRegion.Columns(1).Resize(, 44)
.Close False
End With
        For i = 1 To UBound(sv)
          If sv(i, 44) = "A" Then s0 = s0 & i & vbLf
        Next
     hs = Application.Transpose(Split(s0, vbLf))
   Cells(6, 1).Resize(UBound(hs) - 1) = Application.Index(sv, hs, 1)
End Sub

Of minder moeilijk.

Sub hsv()
Dim sv, hs, i As Long, v As Long
With GetObject([COLOR=#3E3E3E]"[/COLOR][COLOR=#ff0000]c:\users\havanna100\documents\info.xlsx[/COLOR][COLOR=#3E3E3E]")[/COLOR]
  sv = .Sheets(1).Cells(1).CurrentRegion.Columns(1).Resize(, 44)
.Close False
End With
hs = sv
        For i = 1 To UBound(sv)
          If sv(i, 44) = "A" Then
            v = v + 1
            hs(v, 1) = sv(i, 1)
          End If
        Next
   Cells(6, 1).Resize(v) = hs
End Sub

 

[Havana100]

Beste Harry,

Werkt perfect !!!!! Bedankt !!!!