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

• #27394 sedyke tag Delila_1 #27392

  Új Válasz 2015-06-16 17:14:12 #27394

  Ú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

  

  sedyke

  tag

  válasz Delila_1 #27392 üzenetére

  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

• #27393 Fferi50 Topikgazda Delila_1 #27392

  Új Válasz 2015-06-16 16:57:47 #27393

  Ú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

  

  Fferi50

  Topikgazda

  válasz Delila_1 #27392 üzenetére

  Szia!

  Szerintem egy
  if instr("lapok neve ideírva",sheets(lap).name)=0 then
  sorba nem feltétlenül nehéz beírni a kivételezett lapok nevét.

  Üdv.

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