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

• #9803 m.zmrzlina senior tag Sir Pocok #9801

  Új Válasz 2011-03-28 11:39:38 #9803

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Sir Pocok #9801 üzenetére

  Nem állítom, hogy hibátlan de kiindulásnak jó lesz aztán majd pontosítasz, hogy mit szeretnél:

  Sub kerescserel()
  Dim amitkeres As String, amirecserel As String
  
  Cells(1, 1).Select
  amitkeres = InputBox("Add meg a keresni kívánt számot!", "Keresés")
  amirecserel = InputBox("Mire szeretnéd cserélni?", "Keresés")
  
  Do Until IsEmpty(ActiveCell.Offset(1, 0)) = True
  On Error GoTo nincstobb
  Cells.Find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Select
  If ActiveCell.Value = amitkeres Then ActiveCell.Value = amirecserel
  Loop
  
  nincstobb:
  MsgBox ("A számok cseréje megtörtént.")
  End Sub

  Az A1 cellától keres lefelé a legutolsóig és ha megtalálta az első inputboxban bevitt karaktersorozatot akkor kicseréli arra amit a második inputboxban bevittél. Ez kicsit gyorsabb mint a beépített (Ctrl+H) módszer.

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