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

• #2190 bende126 csendes tag bende126 #2187

  Új Válasz 2013-08-30 19:37:37 #2190

  Ú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

  

  bende126

  csendes tag

  válasz bende126 #2187 üzenetére

  Sziasztok, még mindig ez előzményekben lévő makró megírása.
  Jelenleg itt tartok:
  Sub nyomtatas()
  s1 = 1
  s2 = 1
  o1 = 1
  
  Do While e1 < e2
  s2 = s1 + 1
  e2 = Cells(s2, 1).Value
  e1 = Cells(s1, 1).Value
  Do While Cells(s2, 1) = Empty
  s2 = s1 + 1
  Loop
  sork = s1
  sorv = s2
  Loop
  ' a nyomtatás részhez még nem kezdtem hozzá, ezt azért tettem bele, hogy lássam, milyen terülere vonatkozik a fentebbi kód
  For t = sork To sorv
  Cells(1, 20).Value = s2
  Cells(t, o1).Interior.Color = vbYellow
  Next
  
  End Sub

  , tudom, hogy nem jó, és, hogy mennyire jó poén tárgyává váltam, de ezt most hagyjuk!! )
  Lenne néhány kérdésem:
  - Lehet úgy változót deklarálni, hogy a do while utasítás alatt található? Vagy már korábban meg kéne tennem?
  - Jelenleg végtelen ciklus jön létre az excel kifagy. elvileg a Do While Cells(s2, 1) = Empty sor nem ennek elkerülésére lenne?
  - a kijelölésre a ActiveSheet.Range(Cells(s1, o1), Cells(s2, o2)).Select sor jó lehet? - o2 lesz majd később, még nincs
  Előre is köszönöm

  Rehor Gyula

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