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

• Amazonas senior tag

  #2989

  #2988 Delila_1

  2008-01-16 10:04:13

  Ú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

  

  Amazonas

  senior tag

  #2988 Delila_1

  #2988 Delila_1

  Itt egy kis makró, ami a 0-val kezdődő sorokat kitörli. Ha megadod a két lapod nevét, és azt, hogy a januári lapon melyik oszlopban van az állapotot jelző adat, megírom az automatikus másolást.

  Sub torles()
  sor = 1
  Do While Cells(sor, 1) <> ""
  Cells(sor, 1).Select
  If Cells(sor, 1) = 0 Then
  Selection.EntireRow.Delete
  Else
  sor = sor + 1
  End If
  Loop
  End Sub

  Köszi.
  A két lap neve:
  - forráslap: "Eri_08.01) Javítás"
  - céllap: "Eri_08.02) Beérkezés"

  Az X oszlop jelölné az állapotot. Viszont annyi változás van, hogy a "nem kész" állapotot nem szöveg, hanem üres cella jelölné. Tehát csak azon sorokat kellene átmásolni a második lapra, amelyek az X oszlopában nincsen semmi, hogy ezekkel kezdődhessen a második lap.
  Tulajdonképpen szűréssel és másolással egyszerűen megoldható lenne a dolog, csak az lenne a lényeg, hogy mindez automatikusan történjen meg.

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