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

• #2416 Delila_1 veterán Zolkoszrvas #2414

  Új Válasz 2007-09-01 17:52:05 #2416

  Ú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 Zolkoszrvas #2414 üzenetére

  Szia Zolkoszrvas!
  Másold be ezt a makrót:
  Sub Utca()
  Range(''A1'').Select ' Ha ''A'' oszlopban van a címed
  Selection.End(xlDown).Select ' Ez kikeresi az alsó sort, és addig végzi a műveletet
  alsó = Selection.Row
  
  For sor = 1 To alsó
  név = Cells(sor, 1).Value
  For a = Len(név) To 1 Step -1
  If Mid(név, a, 1) = '' '' Then
  Cells(sor, 2).Value = Right(név, Len(név) - a) ' Beírja B oszlopba a cím végét
  Exit For
  End If
  Next
  Next
  End Sub
  

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