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

• #10175 Oly őstag Delila_1 #9810

  Új Válasz 2011-04-27 18:55:33 #10175

  Ú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

  

  Oly

  őstag

  válasz Delila_1 #9810 üzenetére

  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