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

• #3381 Delila_1 veterán lacko81 #3377

  Új Válasz 2008-03-24 13:07:03 #3381

  Ú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 lacko81 #3377 üzenetére

  Tegnap a D oszlopba került az utca és a házszám.
  Van itt egy kis makró, ami az E oszlopba írja az utcát, az F-be a házszámot.

  Sub hazszam()
  sor = 1
  Do While Cells(sor, 4) <> ""
  nev = Cells(sor, 4)
  For b = Len(nev) To 1 Step -1
  If Mid(nev, b, 1) = Chr(32) Then
  Cells(sor, 5) = Left(nev, b - 1)
  Cells(sor, 6) = Right(nev, Len(nev) - b)
  Exit For
  End If
  Next
  sor = sor + 1
  Loop
  End Sub

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