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

• #5727 Delila_1 veterán Pulsar #5726

  Új Válasz 2009-11-23 18:46:24 #5727

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar #5726 üzenetére

  If Cells(sor, 4) = filteregy And _ 'első feltétel
  Cells(sor, 17) = "Visual Inspection - OOW" Then 'második feltétel
  If adat = " 1-10" Then q = q + 1 'harmadik feltétel
  If adat = "11-20" Then w = w + 1 'harmadik feltétel

  Megőrjít ez a "Programkód", teljesen elrontották a régit.

  Nézd meg a filterketto értékadását is, rossz helyen van az idézőjel, és a fil helyett fill szerepel a makródban.

  2 for-next ciklusod van, az egyiknek nem adtad meg a next-et, azt hiányolja. Az End Sub elé írd.

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