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

• #34797 pigster senior tag lostprophet #34795

  Új Válasz 2017-04-03 08:43:01 #34797

  Ú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

  

  pigster

  senior tag

  válasz lostprophet #34795 üzenetére

  A következő makró megcsinálja amit akarsz a kiválasztás melletti oszlopban:
  Option Explicit

Public Sub kivalasztastSorokba()

Const separator As String = " -- LINE BREAK -- "

Dim cella As Range
Dim kivalasztas As Range
Dim tomb As Variant
Dim sorSzamlalo As Long
Dim i As Integer
Dim cellaErtek As Variant

Set kivalasztas = Application.Selection
sorSzamlalo = 0
For Each cella In kivalasztas.Cells
cellaErtek = cella.Value
If (cellaErtek <> "") Then
tomb = Split(cellaErtek, separator)
For i = LBound(tomb) To UBound(tomb)
Cells(sorSzamlalo + 1, kivalasztas.Column + 1) = tomb(i)
sorSzamlalo = sorSzamlalo + 1
Next i
End If
Next cella
End Sub
  Nem vagyok nagy guru, a töbiek majd kijavítják, szépítik. Nekem működött a példáddal.

  Epistoryval (http://store.steampowered.com/app/398850/) nem foglalkozol esetleg?

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