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

• #9211 bugizozi őstag Mesike8114 #9210

  Új Válasz 2011-01-24 08:15:22 #9211

  Ú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

  

  bugizozi

  őstag

  válasz Mesike8114 #9210 üzenetére

  Esetleg ez hasznos lehet...

  Vagy itt valamelyik link?!

• #9201 Delila_1 veterán Mesike8114 #9200

  Új Válasz 2011-01-23 13:59:32 #9201

  Ú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 Mesike8114 #9200 üzenetére

  Azért nézd meg a for kezdetű sort, mert a /16-tal nem viszi végig.

• #9199 Fire/SOUL/CD félisten Mesike8114 #9196

  Új Válasz 2011-01-23 13:48:30 #9199

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

  Ja és még annyi, hogy ellenőrizd le alaposan, hogy M oszlopba bekerülő cucc, az tényleg belefér-e a cellába, mert nem tudom milyen hosszúak az azonosítóid, így aztán azt sem, hogy a 2003-as Excelnek ez nem fog-e megjelenítési problémát okozni. (Én 2010 x64 alatt készítettem, de 2003-as munkafüzetként mentettem, csak az azonosítók egy betűsek voltak)
  (Lehet, hogy nem fér bele a cellába annyi anyag)

• #9198 Fire/SOUL/CD félisten Mesike8114 #9196

  Új Válasz 2011-01-23 13:33:37 #9198

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

  1. Először is készíts egy másolatot a munkafüzetedről, biztos ami biztos alapon.
  2. Nyisd meg az excel, töltsd be a munkafüzetet
  3. ALT+F11/Insert menü/Module és a megjelenő ablakba másold be a a makrokódot, majd futtasd (egy kis zöld, play gombra emlékeztető ikon a gyorsmenüben, vagy F5)

  Nem tudom hogy sikerült így összehoznom, de sajnos a szubrutin neve rossz, már szóltam a modi topikban, hogy cseréljék ki. Szóval nem Sub _FSCD_CONCATENATE() hanem csak simán Sub FSCD_CONCATENATE()

  Delila_1
  Kivételesen ez nem hiba nálam. Én is láttam, hogy Mesike8114 által megadott ÖSSZEFŰZ képlet csak 14-esével dolgozik, de mivel mindenhol 16-os csoportosításról írt, meg azt is kérte, ezért azt is építettem be.

• #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 ]

• #9193 Delila_1 veterán Mesike8114 #9191

  Új Válasz 2011-01-23 13:03:35 #9193

  Ú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 Mesike8114 #9191 üzenetére

  Nem lehet, nem tud ennyi karaktert értelmezni egy 2003-as cella.

  A próbához 2-3 jegyű számokat írtam az L oszlopba (ami az M oszlopban szövegként jelenik meg az összefűzések miatt), és az utolsó karaktereket már lehagyta a végéről.

  Próbálj az állandó ( OR 'azonosító' = ) szöveg helyett valami rövidebbet kreálni.

• #9190 Delila_1 veterán Mesike8114 #9186

  Új Válasz 2011-01-23 12:56:14 #9190

  Ú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 Mesike8114 #9186 üzenetére

  Egy makró megoldja képletek nélkül. Nem túl szép, mert a futás idején az AX oszlopba íratok egy-egy értéket, amit a makró végén töröltetek.

  Biztosan meg lehet oldani enélkül is.

  Sub osszefuz()
  Dim sor As Integer, sor_1 As Integer
  Dim sz As String, sz_1 As String
  
  sz = " OR 'azonosító'= "
  For sor = 2 To Int(2001 / 16)
  If sor = 2 Then
  Cells(sor, 50) = 2
  Else
  Cells(sor, 50) = Cells(sor - 1, 50) + 15
  End If
  
  sz_1 = ""
  For sor_1 = Cells(sor, 50) To Cells(sor, 50) + 14
  sz_1 = sz_1 & Cells(sor_1, 12) & sz
  Next
  Cells(sor, 13) = Left(sz_1, Len(sz_1) - 18)
  Next
  
  Columns("AX:AX").Delete
  End Sub

• #9189 Fire/SOUL/CD félisten Mesike8114 #9188

  Új Válasz 2011-01-23 12:49:13 #9189

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

  Milyen értékek vannak a 2000 cellában, úgy értem csak számok, csak szöveg vagy esetleg vegyesen?

• #9187 Fire/SOUL/CD félisten Mesike8114 #9186

  Új Válasz 2011-01-23 12:23:09 #9187

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

  2 kérdés

  1. 2003-as Excelt használsz?
  2. 2000 sort szeretnél 1 cellában összefűzni?

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