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

• #4893 Delila_1 veterán [HUN]Tyson #4891

  Új Válasz 2009-05-05 15:58:47 #4893

  Ú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 [HUN]Tyson #4891 üzenetére

  Egy-egy cella 32767 karakter bír el. A 100 cím 3-4000 karakternél nem lesz több.
  Itt a makró hozzá, ami Fire beígért Mintha ő nem tudná megírni!

  Sub email()
  Dim a, b, c, d As Long
  c = 1: d = 100
  
  For a = 1 To 28
  For b = c To d
  Cells(a, 2) = Cells(a, 2) & "; " & Cells(b, 1)
  Next
  Cells(a, 2) = Right(Cells(a, 2), Len(Cells(a, 2)) - 2)
  c = a * 100 + 1: d = d + 100
  Next
  End Sub

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