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

• #29729 m.zmrzlina senior tag bteebi #29728

  Új Válasz 2015-12-07 12:23:47 #29729

  Ú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

  

  m.zmrzlina

  senior tag

  válasz bteebi #29728 üzenetére

  Lehet, hogy az adat lapodon lévő néhány cellában van egy-két nem kinyomtatható karakter (pl:szóköz vagy aposztróf). Próbáld ki, hogy lefut-e így:

  Sub kivalaszt()
  Dim ar As String, lastrow As Double, lr As Double, sor As Double
  Dim tiszta As String
  lastrow = Sheets("forras").UsedRange.Rows.Count
  lr = Sheets("adat").UsedRange.Rows.Count
  For sor = 2 To lr
  tiszta = Application.WorksheetFunction.Trim(Sheets("adat").Cells(sor, 1))
  ar = WorksheetFunction.VLookup(tiszta, Sheets("forras").Range("A1:B" & lastrow), 2, False)
  Sheets("adat").Cells(sor, 2) = ar
  Next
  End Sub

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