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

• #29621 Delila_1 veterán m.zmrzlina #29610

  Új Válasz 2015-11-25 16:47:43 #29621

  Ú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 m.zmrzlina #29610 üzenetére

  Amint megírtam a makrót, elszállt az internet, de most visszajött.

  Sub Szetcincal()
  Dim oszlop As Integer, usor As Long
  Dim szoveg As String, betu As Integer
  Dim szoveg1 As String, nagy As Integer
  Dim ekezet As String
  
  ' Csere
  With Columns("A:Z")
  .Replace What:=",", Replacement:=""
  .Replace What:=" ", Replacement:=""
  End With
  
  
  ekezet = "á,é,í,ó,ö,ő,ú,ü,ű"
  For oszlop = 1 To 26 'A:Z oszlopok
  Kezd:
  szoveg = Cells(1, oszlop)
  szoveg1 = ""
  nagy = 0
  For betu = 1 To Len(szoveg)
  Do
  If betu = 1 Then
  szoveg1 = Left(szoveg, 1)
  GoTo Tovabb
  End If
  
  If (Asc(Mid(szoveg, betu, 1)) > 96 And Asc(Mid(szoveg, betu, 1)) < 123 And _
  betu > 1) Or InStr(ekezet, Mid(szoveg, betu, 1)) > 0 Then
  szoveg1 = szoveg1 & Mid(szoveg, betu, 1)
  Else
  nagy = nagy + 1
  usor = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
  Cells(usor, oszlop) = szoveg1
  szoveg = Right(szoveg, Len(szoveg) - Len(szoveg1))
  Cells(1, oszlop) = szoveg
  GoTo Kezd
  End If
  Loop While nagy <> 0
  
  Tovabb:
  Next
  Next
  End Sub

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