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

• #9063 Delila_1 veterán Fire/SOUL/CD #9062

  Új Válasz 2011-01-10 14:39:45 #9063

  Ú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

  veterán

  válasz Fire/SOUL/CD #9062 üzenetére

  Kivitelezhető, kész van, csak még nem kaptam választ.

  Sub Oktat()
  Sheets("alapadat").Select
  usor = Range("A1").End(xlDown).Row
  sor_1 = 2
  For sor = 2 To usor
  For oszlop = 2 To 4
  If Cells(sor, oszlop) > "" Then
  Cells(sor, 1).Copy Sheets("DATA").Cells(sor_1, 3)
  nev = Cells(sor, oszlop)
  veznev = Left(Cells(sor, oszlop), Application.WorksheetFunction.Search(" ", Cells(sor, oszlop)) - 1)
  kernev = Right(Cells(sor, oszlop), Len(Cells(sor, oszlop)) - Application.WorksheetFunction.Search(" ", Cells(sor, oszlop)))
  Sheets("Data").Cells(sor_1, 1) = veznev
  Sheets("Data").Cells(sor_1, 2) = kernev
  sor_1 = sor_1 + 1
  End If
  Next
  Next
  Cells(1).Select
  End Sub

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