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

• #9195 Fire/SOUL/CD félisten Mesike8114 #9192

  Új Válasz 2011-01-23 13:14:48 #9195

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Mesike8114 #9192 üzenetére

  Rendben, de ha már megírtam a makrót, azért beteszem. Pár fontos infó

  1. 16-onként csoportosít M2-től kerülnek be az eredmények
  2. A sorok számának maradék nélkül oszthatónak kell lennie 16-al
  3. Ez 2000 sort dolgoz fel, amit korábban megadtál
  4. Szöveg típusra kell formázni az L oszlopot

  Sub FSCD_CONCATENATE()
  
  Dim My_String As String
  
  Application.ScreenUpdating = False
  Range("L2").Select
  
  For i = 1 To 2000 \ 16
  My_String = ""
  For j = 0 To 15
  If j = 15 Then
  My_String = My_String + ActiveCell.Value
  Else
  My_String = My_String + ActiveCell.Value + " OR 'azonosító' = "
  End If
  ActiveCell.Offset(1, 0).Select
  Next j
  Range("M2").Offset(i - 1, 0).Value = My_String
  Next i
  
  Range("M2").Select
  Application.ScreenUpdating = True
  
  End Sub

  [ Módosította: #65675776 ]

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

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