Aktív témák

• #8 lapa veterán Gh0sT #7

  2005-08-26 14:02:40 #8

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz Gh0sT #7 üzenetére

  jólmegizzasztós-kerülősös megoldást tudok csak:
  

  
  option explicit
  
  Dim firstaddress
  Dim c As Variant
  Dim szoveg As String
  Dim d, e As Long
  
  Sub torol()
  
  Do Until szoveg <> ''''
  szoveg = Application.InputBox(''milyen szövegrészt tartalmazó cellákat törölnél szívesen?'', ''sok a szöveg'')
  If szoveg = '''' Then
  MsgBox ''jólenne beprüntyögné valamit.'', vbCritical + vbOKOnly, ''figyellek ám...''
  End If
  Loop
  
  If szoveg = False Then
  MsgBox ''ha nem akarod nem erőltetem. a viszontlátásra'', vbCritical + vbOKOnly, ''jót játszottunk...''
  End
  End If
  
  Application.ScreenUpdating = False
  On Error Resume Next
  
  With Worksheets(1).Range(''a1:a500'')
      Set c = .Find(szoveg, LookIn:=xlValues)
      If Not c Is Nothing Then
          firstaddress = c.Address
          Do
              c.Value = ''valamiamiseholmásholnincsenremélem''
  
              Set c = .FindNext(c)
          Loop While Not c Is Nothing And c.Address <> firstaddress
      End If
  End With
  
  If Not c Is Nothing Then
  For d = 1 To 500
  If Cells(d, 1).Text = ''valamiamiseholmásholnincsenremélem'' Then
  Cells(d, 1).Delete (xlShiftUp)
  e = e + 1
  d = d - 1
  End If
  Next d
  Application.ScreenUpdating = True
  
  MsgBox ''most jól kitöröltem neked '' & e & '' cellát.'', vbOKOnly + vbInformation, ''eredmény''
  Else
  MsgBox ''lehet én vagyok béna, de sehol nem találtam '' & szoveg & '' szövegrészt. én kérek elnézést.'', vbOKOnly + vbCritical, ''ájájáj''
  End If
  End Sub
  

  
  
  [Szerkesztve]

Aktív témák