Új hozzászólás Aktív témák

• #17867 Delila_1 Topikgazda Kobe #17866

  Új Válasz 2013-04-21 15:53:38 #17867

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  Topikgazda

  válasz Kobe #17866 üzenetére

  Felvettem 2 változót. Az egyik a WS, ami Worksheet típusú, és a test.xls INT nevű lapját adtam meg értékének. A másik, WF, WorksheetFunction típusú. Ezt azért vettem fel, hogy a VLookup-ot tartalmazó sor könnyebben olvasható legyen.
  Ha jól értettem, az indító füzet aktuális lapján az AB oszlopban lévő adatot keresed a test.xls INT lapjának A oszlopában, és a találat sorában az E oszlop tartalmát íratod az indító füzet T oszlopába.
  Betettem a Vlookup sor elé egy hibaelhárítást arra az esetre, ha a keresett érték nem szerepelne a másik füzetben (On Error Resume Next).

  Sub Keres()
  Dim sor As Long, usor As Long, WS As Worksheet, WF As WorksheetFunction
  
  Set WS = Workbooks("test.xls").Worksheets("INT")
  Set WF = Application.WorksheetFunction
  usor = Range("AB" & Rows.Count).End(xlUp).Row
  
  For sor = 2 To usor
  If Cells(sor, "AB") > "" Then
  On Error Resume Next
  Cells(sor, "T") = WF.VLookup(Cells(sor, "AB"), WS.Range("A:P"), 5, 0)
  End If
  Next
  End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Új hozzászólás Aktív témák