Aktív témák

• #9 lapa veterán

  2005-08-26 14:14:52 #9

  Ö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

  hoppá: uccsó msgbox... sor elé még nem ártana egy ilyen: application.screenupdating = true

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

• #6 lapa veterán Gh0sT #4

  2005-08-26 13:00:52 #6

  Ö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 #4 üzenetére

  még az =IGAZ sem kell. de ezt csak infoként, gondolom nem véletlenül írtad így

Aktív témák