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

• ArchElf addikt

  #1397

  #1396 Baboka

  2011-07-19 11:24:13

  Ú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

  

  ArchElf

  addikt

  #1396 Baboka

  #1396 Baboka

  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) <> "") Then <----------------itt áll le
  For j = fk + 1 To ssz
  If (Sheets(1).Cells(j, mo1) = Sheets(2).Cells(i, mo1)) 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!

  így próbáltad?
  (Sheets(2).Cells(i, eo).Value
  Ja és használj kódbeillesztést, mert tagolatlan kódot kínszenvedés olvasni...
  A változónevek sem mondanak amúgy sokat...

  AE

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