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

• Oly őstag

  #10175

  #9810 Delila_1

  2011-04-27 18:55:33

  Új Válasz

  Ú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

  

  Oly

  őstag

  #9810 Delila_1

  Szia macroTündér!

  Ezt a kódot próbáltam átültetni az én feladatomba, de nem sikerült.

  A feladatom az lenne, hogy a "make" sheeten lévő a11:i111 tartományból azokat a sorokat szúrja be a "table" sheet a1:i1 sora elé.
  Tehát tolja lentebb annyi sorral a táblázatot, amennyi adatot tartlamaz a "make" A11:A111 tartomány.

  Úgy próbáltam, hogy count fv-nyel megszámoltattam az A11:A111 teli celláit.
  Ezt a B1-ben tároltam.

  Egy ilyen kódot írtam, de most valamiért szenved, pedig múkodott már félig:

  Dim dbteli As Long
  Dim dbteli2 As Long
  dbteli = Cells(1, 2)
  
  dbteli2 = Cells(1, 2) + 10
  'MsgBox (dbteli2)
  'MsgBox (dbteli)
  Rows("11:" & dbteli2).Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("table").Select
  Rows("1:" & dbteli).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Sheets("make").Select
  Range("A11").Select
  Application.CutCopyMode = False

  Select methodof range class failed üzit dobja

  A dbteli-ből azért van kettő, mert egyik helyen A1-től a másiknál A11-től indul.

  Tudnál segíteni, hogy mit rontok el?
  Köszönöm

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