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

• Baboka tag

  #1398

  #1397 ArchElf

  2011-07-19 11:43: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

  #1397 ArchElf

  #1397 ArchElf

  í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

  sajna value-vel sem megy ugyan azt dobja ki, kérdezz meg bármit válaszolok mindenre csak már nem ez az első makró aminél ezt a hibát kapom

  For i = fk + 1 To ssz
  If (Sheets(2).Cells(i, eo).Value <> "") Then
  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

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