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

• #6789 Delila_1 veterán Badb0y #6785

  Új Válasz 2010-04-06 08:54:46 #6789

  Ú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 Badb0y #6785 üzenetére

  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