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

• #17828 alfa20 senior tag Delila_1 #17818

  Új Válasz 2013-04-18 09:09:44 #17828

  Ú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

  

  alfa20

  senior tag

  válasz Delila_1 #17818 üzenetére

  Szia Delila_1,

  Kipróbáltam reggel, át ültettem a táblába, előbb volt egy hiba üzenet a "Dim sor%, usor%, szoveg$" ", usor%"-nál:
  "Compire error:
  Duplicate declaration in current scope
  mivel van már 'usor' a táblába így a 'Dim' sorbol kivettem a többi 'usor%'-ot át írtam 'usor'-ra, így már végigfut, de csak egy üres ablak jelenik meg. próbáltam, hogy rögzítem a képletet hogy csak szöveg legyen a cellában, de akkor is csak üres ablakot dob fel.
  Azt is megpróbáltam, hogy másik makróba tettem csak ezt a részt és egy 'CTRL+K'-val futtattam, de ez sem segített.
  most így néz ki:
  Dim sor%, szoveg$
  Dim OK%, AH%
  
  usor = Range("U" & Rows.Count).End(xlUp).Row
  For sor% = 2 To usor
  If InStr(Cells(sor%, 1), "OK") Then OK% = OK% + 1
  If InStr(Cells(sor%, 1), "ADAT HIBA!") Then AH% = AH% + 1
  
  Next
  If OK% > 0 And AH% > 0 Then szoveg$ = "Adathibák száma: " & AH% & " db."
  If OK% > 0 And AH% = 0 Then szoveg$ = "Nincsenek hibák."
  MsgBox szoveg$

  viszont ami érdekes, ha egy üres munkafüzetbe teszem bele csak ezt a részt, akkor szépen működik, akkor meg szépen teszi a dolgát.

  lenne ötleted?

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