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

• #8100 zsotesz81 senior tag

  Új Válasz 2010-09-10 18:58:58 #8100

  Ú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

  

  zsotesz81

  senior tag

  Hali!

  Újabb gond, az előbbi példában lévő számokat egy másik munkalapra szeretném másolni, úgy hogy az adott sor első üres cellájától kezdve egymás mellé.
  Ezzel próbálkoztam:
  For b = 1 To 33
  If Cells(b, 2) <> "" And (IsNumeric(Cells(b, 2)) = True And Cells(b, 2) <> "Resolved") Then
  Worksheets("result").Select
  Range("A1").End(xlToRight).Offset(0, 1).Select
  ActiveCell.Value = Sheets("data").Cells(b, 2)

  Tehát a result munkalap első sorába gyűjteném őket egymás mellé. Viszont a fenti kóddal Application defined or object defined error-t ad. Viszont ha kiveszem a Worksheets("result").Select sort, vagyis nem váltok munkalapot, akkor lefut, viszont akkor a számokat arra a munkalapra másolja amelyiken ömlesztve vannak az adatok, ami nem jó.
  Van valami megoldás erre?

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