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

• #29716 cs_dy tag

  Új Válasz 2015-12-04 14:03:29 #29716

  Ú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

  

  cs_dy

  tag

  Sziasztok!

  Adott egy makró és adatbázis. Az adatbázis:
  1. és a 3. oszlopban: pl nevek szerepelnek: De eltérnek.
  a 2 és a 4-es oszlopban számok szerepelnek: pl. a nevekhez tartozó nyeremény

  A különbséget akarom megtalálni. Ez a kód lefut de egyenlőre nem csinál semmit. A Cells-ek helyett a Range-el mindenhova "Nincs egyezést" tett.

  Mi lehet a megoldása?

  Köszönöm előre is a segítséget.

  Sub Makró_hasonlító()
  Dim i, j As Integer
  i = 2
  j = 2
  Do Until j >= 883
  Do Until i >= 883
  If (Cells(i, 1).Value = Cells(j, 6).Value) And (Cells(i, 2).Value = Cells(j, 7).Value) Then
  Range("I" & j).Value = "Van egyezés"
  Else: Range("I" & j).Value = "Nincs egyezés"
  End If
  j = j + 1
  If j >= 883 Then
  Exit Do
  End If
  Loop
  j = 2
  i = i + 1
  If i = 883 Then
  Exit Do
  End If
  Loop
  End Sub

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