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

• #8844 Vasinger! nagyúr

  Új Válasz 2014-08-03 20:55:46 #8844

  Ú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

  

  Vasinger!

  nagyúr

  Option Explicit
  
  Sub Frissites()
  Dim sor As Long, usor As Long, WS As Worksheet, talal
  usor = Range("A" & Rows.Count).End(xlUp).Row
  Set WS = Workbooks("kistabla.xlsx").Sheets("Munka1")
  
  For sor = 1 To usor
  On Error GoTo Tovabb
  Set talal = WS.Columns(2).Find(Cells(sor, 2))
  talal = talal.Row
  Cells(sor, 1) = "VALID"
  Cells(sor, 3) = WS.Cells(talal, 3)
  Cells(sor, 4) = WS.Cells(talal, 4)
  
  Tovabb:
  Next
  End Sub

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