Aktív témák

• #10 Grafiqs őstag

  2005-11-08 12:17:47 #10

  Ö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

  

  Grafiqs

  őstag

  Itt [link] folytassátok kérlek!

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

• #7 Gh0sT addikt Lord Zero #5

  2005-08-26 13:01:27 #7

  Ö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

  

  Gh0sT

  addikt

  válasz Lord Zero #5 üzenetére

  Lehet, hogy a topicnyitó ezt alkalmazta, mert nagyon eltűnt... Sebaj, rendszer-install után visszavárjuk...
  
  lapa: nem tudtam, hogy nem kell... Tényleg mi van akkor, ha egész sort akarok így törölni? Nem akarsz írni rá egy makrót?
  
  
  
  [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

• #5 Lord Zero addikt Gh0sT #4

  2005-08-26 12:58:03 #5

  Ö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

  

  Lord Zero

  addikt

  válasz Gh0sT #4 üzenetére

  cella és tartalom törlésére van egy sokkal tutibb metódus:
  format c
  

• #4 Gh0sT addikt lacko81 #1

  2005-08-26 11:12:29 #4

  Ö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

  

  Gh0sT

  addikt

  válasz lacko81 #1 üzenetére

  A cellát kell törölni, vagy csak a tartalmát?
  
  A tartalmára itt egy képlet: (feltételezve, hogy az adatok az A oszlopban vannak, ezt a B oszlopba kell beszúrni)
  
  =HA(HIBÁS(SZÖVEG.KERES(''tét'';A1))=IGAZ;A1;'''')

• #3 lacko81 tag

  2005-08-26 11:05:52 #3

  Ö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

  

  lacko81

  tag

  Bocsánat...

• #2 sbazsi veterán lacko81 #1

  2005-08-26 10:59:51 #2

  Ö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

  

  sbazsi

  veterán

  válasz lacko81 #1 üzenetére

  minek új topic?
  Bővebben: link

• #1 lacko81 tag

  2005-08-26 10:46:37 #1

  Ö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

  

  lacko81

  tag

  Aki tud kérem segítsen. Szóval a problámám:
  
  Van nagyon sok különböző szó egy oszlopban és ki kellene (automatikusan) törölni minden olyan cellát, amiben szerepel például a ''tét'' részszó.
  
  autó
  lámpa
  villany
  sötét <---ezt a cellát törölni
  péntek
  ...
  ..
  
  Próbálkoztam a cserével, de akkor csak az adott részszöveget törli...
  Öteletek?
  

Aktív témák