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

• #12991 Delila_1 veterán VGYke #12990

  Új Válasz 2012-02-23 16:38:03 #12991

  Ú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 VGYke #12990 üzenetére

  Egy kicsit egyszerűsítettem a 2. adatnál. Kevesebb változó, kevesebb számolás.
  El tudod küldeni? Megnézném, mi lassítja.
  A változók nevét érdemes úgy meghatározni, hogy utaljanak a tartalmukra.

  Sub Kitolt_1()
  Dim WS As Worksheet
  Dim sor%, usor%
  
  Set WS = Sheets("Lekérdezés")
  usor% = WS.UsedRange.Rows.Count
  For sor% = 1 To usor% - 1
  Cells(sor% + 1, 1) = WS.Cells(sor%, 1)
  szla = WS.Cells(sor%, 2)
  Cells(sor% + 1, 2) = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
  
  '......hasonló 8. oszlopig
  Next sor%
  End Sub

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