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

• sedyke tag

  2015-06-16 17:14:12 #27394

  Ú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

  

  sedyke

  tag

  válasz Delila_1 üzenetére #27392

  Eleg nagy munkafuzet, 17MB, 33 munkalappal.
  Eddig az osszesitom a masodik volt, de atraktam az elso helyre. A ket munkalap, amit ki szeretnek hagyni a keresesbol, a 29. es 33. (leszamoltam 3x).

  A leirasod alapjan igy egeszitettem ki. Fut a makro, a problema annyi, hogy megis minden egyes sorba beirja, hogy az adott termek hasznalatban van, pedig ha kihagyna a ket szoban forgo lapot, akkor nem lenne.

  Sub Van_e()
  Dim talal, sor As Long, usor As Long, nev, lap As Integer
  Dim WS As Worksheet

  Set WS = Sheets(1)

  usor = WS.Range("A" & Rows.Count).End(xlUp).Row

  For sor = 4 To usor
  nev = WS.Cells(sor, "A")

  For lap = 1 To Sheets.Count
  If lap = 29 Or lap = 33 Then Exit For
  Sheets(lap).Select
  Set talal = Cells.Find(nev, LookIn:=xlValues, lookat:=xlWhole)
  If talal Is Nothing Then
  GoTo Tovabb
  Else
  WS.Cells(sor, "W") = "in use"
  Exit For
  End If
  Tovabb:
  Next
  Next
  End Sub

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