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

• #37764 Fferi50 Topikgazda valyogvisko #37762

  Új Válasz 2018-04-11 13:01:13 #37764

  Ú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 valyogvisko #37762 üzenetére

  Szia!

  Szerintem akkor jársz a legjobban, ha a feltételes formázásokat átírod erre a kereső munkalapra is, persze megfelelően módosítva. Gondolom néhány általános szabály van és nem minden cellára/munkalapra különböző.

  Üdv.

• #37763 lappy őstag valyogvisko #37762

  Új Válasz 2018-04-11 12:42:18 #37763

  Ú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

  

  lappy

  őstag

  válasz valyogvisko #37762 üzenetére

  Ezt nem is fogod függvénnyel megoldani csak makróval lehet!!!

• #28503 Delila_1 veterán valyogvisko #28502

  Új Válasz 2015-09-08 11:52:27 #28503

  Ú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 valyogvisko #28502 üzenetére

  Akkor nosza!

• #28501 Delila_1 veterán valyogvisko #28500

  Új Válasz 2015-09-08 11:28:02 #28501

  Ú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 valyogvisko #28500 üzenetére

  Feltételeztem, hogy mindkét lapon van címsorod, a tényleges adatok a 2. sorban kezdődnek.
  Másik feltételezésem, hogy a B lapon az AA oszlopban már nincsenek adataid.

  A lenti makró a B lap AA oszlopába beírja a DARABTELI függvényt, ami megnézi, megtalálható-e az A oszlopában szereplő név az A lapon.
  Ezután egy ciklusban törli az itt is, ott is szereplő nevek sorát, de csak a B lapon.

  A makróban megjegyzést tettem azokhoz a sorokhoz, ahol át kell írnod a lapok nevét, összesen 3 helyen.

  Sub Duplat_Szuntet()
  Dim sor As Long, usor As Long
  Dim WSA As Worksheet, WSB As Worksheet
  
  Set WSA = Sheets("A") '**********
  Set WSB = Sheets("B") '**********
  
  usor = Application.CountA(WSB.Columns(1))
  WSB.Range("AA2:AA" & usor) = "=COUNTIF(A!A:A,A2)" 'Itt az A! módosítandó *********
  
  With WSB
  For sor = usor To 2 Step -1
  If .Cells(sor, "AA") > 0 Then .Rows(sor).Delete Shift:=xlUp
  Next
  .Columns("AA") = ""
  End With
  End Sub

• #28496 Delila_1 veterán valyogvisko #28493

  Új Válasz 2015-09-08 06:41:51 #28496

  Ú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 valyogvisko #28493 üzenetére

  Add meg pontosan, melyik lapnak melyik oszlopában szerepelnek a nevek.
  Az ilyen "mondjuk legyen A" meghatározások miatt többször kell dolgozni annak, a segítségedre siet.

  Az sem mindegy, hogy a 2. lapon csak azt a bizonyos cellát kell törölni, vagy az egész sort.

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