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

• #3191 Delila_1 veterán rebel56 #3182

  Új Válasz 2008-02-16 10:03:36 #3191

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

  Ez meg azt automatizálja, amit lúzer írt a #3185-ben, hogy ne kelljen kézzel beszúrni minden sor elé egy másikat, összevonni két-két cellát, és beírni a hivatkozást:

  Sub Sorok_beszurasa()
  usor = ActiveSheet.UsedRange.Rows.Count
  For sor = 1 To usor * 2 Step 2
  Cells(sor, 1).Select
  Selection.EntireRow.Insert
  Range(Cells(sor, 1), Cells(sor + 1, 1)).Select
  Selection.Merge
  Next
  sor = 1
  Do While sor < usor * 2
  Cells(sor, 2).Select
  Selection.Formula = "=A" & sor
  Cells(sor + 1, 2).Select
  Selection.Formula = "=A" & sor
  sor = sor + 2
  Loop
  End Sub

  Ehhez is hozzáírható az a pár sor, ami az előző hozzászólásomban a Next után van.

• #3190 Delila_1 veterán rebel56 #3178

  Új Válasz 2008-02-16 08:31:57 #3190

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

  Van itt egy kis makró a problémádra:

  Sub valami()
  usor = ActiveSheet.UsedRange.Rows.Count
  s = 2
  For sor = 2 To 2 * usor - 1 Step 2
  Cells(sor, 2).Select
  ActiveCell.Formula = "=A" & s
  Cells(sor + 1, 2).Select
  ActiveCell.Formula = "=A" & s
  s = s + 1
  Next
  Columns("B:B").Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Range("A1").Select
  Application.CutCopyMode = False
  End Sub

  A Next utáni sorok elhagyhatók, azok a beírt hivatkozásokat alakítják át értékekké.

  lúzer!
  A #3185-ös hozzászólásodban a mintát a saját gépedről tetted fel, így csak akkor látható, mikor te is "képben vagy". Pedig biztosan jó megoldást adtál.

• #3185 lúzer veterán rebel56 #3182

  Új Válasz 2008-02-15 22:24:44 #3185

  Ú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

  

  lúzer

  veterán

  válasz rebel56 #3182 üzenetére

  bár találtam valamit:

  

• #3184 zso73 veterán rebel56 #3182

  Új Válasz 2008-02-15 22:20:20 #3184

  Ú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

  

  zso73

  veterán

  válasz rebel56 #3182 üzenetére

  És $a$1 vagy valamelyik verziót próbáltad? a$1........

• #3183 lúzer veterán rebel56 #3182

  Új Válasz 2008-02-15 22:19:45 #3183

  Ú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

  

  lúzer

  veterán

  válasz rebel56 #3182 üzenetére

  Delila_1 megoldja

• #3181 lúzer veterán rebel56 #3180

  Új Válasz 2008-02-15 21:31:24 #3181

  Ú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

  

  lúzer

  veterán

  válasz rebel56 #3180 üzenetére

  a3 -> b5,b6

  és stb?

• #3179 lúzer veterán rebel56 #3178

  Új Válasz 2008-02-15 20:46:01 #3179

  Ú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

  

  lúzer

  veterán

  válasz rebel56 #3178 üzenetére

  b1-be, b2-be: =A1

  b3,b4-be: =A2

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