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

• #10069 Delila_1 veterán Delila_1 #10067

  Új Válasz 2011-04-12 20:02:58 #10069

  Ú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 Delila_1 #10067 üzenetére

  Egy kicsit átláthatóbban az előbbi makró:

  Sub Leiras()
  Dim sor%, oszlop%, betu%, nev$, cnev As Range
  
  Range("K57:K75,M57:M75,P57:P75").ClearContents
  
  For sor% = 57 To 75
  oszlop% = 10: GoSub Beir
  oszlop% = 12: GoSub Beir
  oszlop% = 15: GoSub Beir
  Next
  Exit Sub
  
  Beir:
  nev$ = Cells(sor%, oszlop%)
  Set cnev = Cells(sor%, oszlop% + 1)
  For betu% = 1 To Len(nev$)
  cnev = cnev & Application.VLookup(Mid(nev, betu%, 1), Range("R57:S70"), 2, 0) & " "
  Next
  cnev = Left(cnev, Len(cnev) - 1)
  Return
  End Sub

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