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

• #23411 Delila_1 veterán bteebi #23407

  Új Válasz 2014-09-23 15:50:09 #23411

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

  Teljesen jó lenne (szemre, nem próbáltam ki), ha nem lennének az 5. sorban összevont cellák.
  Javaslom, hogy a 4. sorban minden cellába írd be a Város 1-et, Város 2-t, stb. Itt a karakterek színe egyezzen meg a háttér színével, és erre az új sorra hivatkozz. El is rejtheted a 4. sort.

• #23410 Fferi50 Topikgazda bteebi #23407

  Új Válasz 2014-09-23 15:47:42 #23410

  Ú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

  

  Fferi50

  Topikgazda

  válasz bteebi #23407 üzenetére

  Szia!

  "For i = 1 To Worksheets.Count
  If Left(ws.Name, 5) = "Lista" Then"

  Hol adod meg a ws értékét?

  Helyette: For each ws in activeworkbook.worksheets
  if left(ws.name,5)="Lista" then

  " ws.Activate
  For Each cella In ActiveSheet.UsedRange"

  Nem kell aktívvá tenni a munkalapot, hogy tudj vele dolgozni.
  Helyette: For Each cella in ws.usedrange

  Viszont akkor e helyett " Sheets("Összefoglaló").Cells(j, 3).Value = Cells(5, cella.Column) & " - " & Cells(cella.Row, 1) & " - " & Cells(6, cella.Column)"

  ezt kell írnod: Sheets("Összefoglaló").Cells(j, 3).Value = ws.Cells(5, cella.Column) & " - " & ws.Cells(cella.Row, 1) & " - " & ws.Cells(6, cella.Column)

  A végén levő next i helyett pedig sima next (az első for each bezárására).

  Üdv.

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