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

• Delila_1 veterán

  #6789

  #6785 Badb0y

  2010-04-06 08:54:46

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #6785 Badb0y

  Itt van nagybetűsen, és szóközökkel az előbbi.

  Sub tipus_1()
  Dim sor As Integer
  Dim b As Integer
  Dim szoveg As String
  
  Sheets("DB").Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  szoveg = Left(Cells(sor, 2), Len(Cells(sor, 2)) - 4)
  For b = Len(szoveg) To 1 Step -1
  If Mid(szoveg, b, 1) = "/" Then
  Cells(sor, 3) = Mid(szoveg, b + 1)
  Cells(sor, 1).FormulaR1C1 = "=UPPER(SUBSTITUTE(RC[2],""-"","" ""))"
  Exit For
  End If
  Next
  Next
  Columns("A:A").Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues
  Columns("C:C").Select
  Selection.ClearContents
  Application.CutCopyMode = False
  Cells(1).Select
  End Sub

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