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

• Homer tag

  #1556

  #1551 26centi

  2011-12-07 19:09:37

  Ú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

  

  Homer

  tag

  #1551 26centi

  #1551 26centi

  sziasztok,
  én is most teszem kezdőlépéseimet vba-ban. és nem szeret engem. se.

  egy óriási adathalmaz adott feltétel alapján kiválasztott sorát szeretném egy másik munkalap, változóban (n) tárolt számú sorába másolni. kreáltam is egy kódot.

  Do
  Sheets("tools in SAP 3100").Activate 'forrás munkalap

  If Cells(i, 14) = "#Hiányzik" Then
  Rows(i).Select ' átmásolandó sor
  Selection.Copy
  Sheets("missing cost centers").Select 'cél munkalap
  Rows(n).Select 'ezen a ponton kiakad, Application-defined or object defined error üzenettel Hibakód:1004
  ActiveSheet.rows(n).Paste
  n = n + 1

  End If
  i = i + 1

  Loop Until Cells(i, 1) = ""

  sajnos a hibakód helpjét elolvasva sem kaptam a leghalványabb utalást sem hogy mi a nyűgje. két sorral feljebb pedig ugyanez az utasítás működik.

  van valakinek ötlete, hogy miért nem vagyunk barátok?

  előre is kösz,
  derűs, dolgos munkanapot

  Ha tudod a sorok számát akkor még ehhez hasonlóval is próbálkozhatsz:

  For Each elem In Range("A1:A10")
  MsgBox (elem.Text)
  Next

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