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

• Baboka tag

  #10883 2011-07-19 12:08:49

  Ú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

  

  Baboka

  tag

  sziasztok!

  Elkezdtem egy táblaösszemásoló makrót megírni, még kezdő vagyok nagyon, ezt kérem figyelembe venni, de az a problémám hogy mindig a jó kis runtime error 1004 jön ki a program ciklusainál

  For i = fk + 1 To ssz
  If (Sheets(2).Cells(i, eo).Value <> "") Then <-------- itt halódik meg az egész
  For j = fk + 1 To ssz
  If (Sheets(1).Cells(j, mo1).Value = Sheets(2).Cells(i, mo1).Value) And (Sheets(1).Cells(j, mo2) = Sheets(2).Cells(i, mo2)) And (Sheets(1).Cells(j, mo3) = Sheets(2).Cells(i, mo3)) Then
  For k = 1 To osz
  Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k)
  Next k
  End If
  Next j
  End If
  Next i

  fk: táblafejléc kezdete
  eo: ellenőrző oszlop, ha üres akkor meg sem kell vizsgálni
  mo1,2,3: adatoszlopok száma, amiket meg kell vizsgálnia

  ha tudtok segíteni akkor előre is köszönöm!

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