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

• #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

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