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

• #29913 Delila_1 veterán huliganboy #29911

  Új Válasz 2015-12-17 07:49:10 #29913

  Ú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 huliganboy #29911 üzenetére

  Nem tudom, a C oszlopban meghagyandó adat szöveges, vagy szám típusú, ezért mindkettőre rákérdezek.

  A makró

  Sub Kigyomlal()
  Dim sor As Long, usor As Long, marad, eddig As Long
  
  marad = InputBox("Melyik adat maradjon meg a C oszlopban?")
  Application.ScreenUpdating = False
  
  usor = Range("C" & Rows.Count).End(xlUp).Row
  For sor = usor To 2 Step -1
  eddig = Range("C" & Rows.Count).End(xlUp).Row
  If Cells(sor, "C") = marad Or Cells(sor, "C") = marad * 1 Then GoTo Tovabb
  If Application.WorksheetFunction.CountIf(Range("C2:C" & eddig), Cells(sor, "C")) > 1 Then _
  Rows(sor).Delete Shift:=xlUp
  Tovabb:
  Next
  Application.ScreenUpdating = True
  End Sub

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