Verticaal zoeken op extern bestand testmacro2

[ozzyozzy]

nog een vraag

kan de volgende code vanaf rij 100 beginnen? iemand een idee?

Sub VenA()
  c00 = ThisWorkbook.Path & "\alles.xlsx"
  With GetObject(c00)
    ar = .Sheets(1).Cells(1).CurrentRegion
    .Close 0
  End With
  
  y = Application.Transpose(Application.Index(ar, 0, 1))
  ar1 = Sheets("namen").Cells(1).CurrentRegion.Resize(, 6)

  For j = 2 To UBound(ar1)
    x = Application.Match(ar1(j, 1), y, 0)
    If IsNumeric(x) Then
      For jj = 2 To 6
        ar1(j, jj) = ar(x, jj)
      Next jj
    End If
  Next j
  Sheets("namen").Cells(1).CurrentRegion.Resize(, 6) = ar1
End Sub

 

[VenA]

Daar waar Cells(1) staat aanpassen in Cells(100,1)? Welke van de drie mag je zelf uitvogelen.

 

[ozzyozzy]

zo is het correct bedankt. werkt pirma

Private Sub CommandButton1_Click()
  c00 = ThisWorkbook.Path & "\alles.xlsx"
  With GetObject(c00)
    ar = .Sheets(1).Cells(1).CurrentRegion
    .Close 0
  End With
  
  y = Application.Transpose(Application.Index(ar, 0, 1))
  ar1 = Sheets("namen").Cells(150, 1).CurrentRegion.Resize(, 19)

  For j = 2 To UBound(ar1)
    x = Application.Match(ar1(j, 1), y, 0)
    If IsNumeric(x) Then
      For jj = 2 To 19
        ar1(j, jj) = ar(x, jj)
      Next jj
    End If
  Next j
  Sheets("namen").Cells(150, 1).CurrentRegion.Resize(, 19) = ar1
End Sub

 

[ozzyozzy]

ik had nog een vraag regelafstand op A 150 laten beginnen is nu wel gelukt maar horizontaal naar kolom T 150 laten beginnen is nog niet gelukt.

iemand een idee?

Private Sub CommandButton1_Click()
  c00 = ThisWorkbook.Path & "\alles.xlsx"
  With GetObject(c00)
    ar = .Sheets(1).Cells(1).CurrentRegion
    .Close 0
  End With
  
  y = Application.Transpose(Application.Index(ar, 0, 1))
  ar1 = Sheets("namen").Cells(150, 1).CurrentRegion.Resize(, 19)

  For j = 2 To UBound(ar1)
    x = Application.Match(ar1(j, 1), y, 0)
    If IsNumeric(x) Then
      For jj = 2 To 19
        ar1(j, jj) = ar(x, jj)
      Next jj
    End If
  Next j
  Sheets("namen").Cells(150, 1).CurrentRegion.Resize(, 19) = ar1
End Sub

 

[HSV]

Welk cijfer zal de letter T krijgen in het alfabet als A=1.

 

[ozzyozzy]

T = 21, maar de kunst is welke in de code?

 

[HSV]

Ik zou er toch maar een vanaf doen.

De 150 wist je te vinden, deze staat er naast.

 

[ozzyozzy]

bedankt werkt weer het is trouwens 20