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

• m.zmrzlina senior tag

  2015-06-18 16:06:11 #27423

  Ú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

  

  m.zmrzlina

  senior tag

  A problémám a következő: össze kell hasonlítani kér oszlop tartalmát (cellánként egy egy szöveges érték és ha van közöttük különbség akkor a helyet ahol hiba van és a hibák darabszámát egy MsgBox-ban a felhasználó tudomására hozni.

  Úgy próbálkozom, hogy tömb változóba írom a két tartományt és a tömb elemein végzem az összehasonlítást de az értékadásnál a "Object doesn't support this property or method." hibaüzenetet kapom

  arr_Analist() = wb_Temp.ws_Kabelo.Range(Cells(2, 1), Cells(int_usor, 1))
  arr_Digilist() = wb_Temp.ws_Kabelo.Range(Cells(2, int_uoszlop + 1), Cells(int_usor, int_uoszlop + 1))
  
  For intI = 1 To UBound(arr_Analist)
  If Trim(arr_Analist(intI, 1)) <> Trim(arr_Digilist(intI, 1)) Then
  int_Hibakszama = int_Hibakszama + 1
  str_Hibahely = str_Hibahely & intI + 1 & ".sor, "
  End If
  Next
  
  If int_Hibakszama > 0 Then
  MsgBox "Összesen " & int_Hibakszama & " különbség a következő helye(ke)n: " & str_Hibahely
  Else
  MsgBox "A két lista azonos."
  End If

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