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

• #23285 bteebi veterán bteebi #23281

  Új Válasz 2014-09-16 12:50:15 #23285

  Ú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

  

  bteebi

  veterán

  válasz bteebi #23281 üzenetére

  És azt hogy lehetne megcsinálni, hogy egy input box-ba beírt értéket cseréljen le (mindig ugyanarra, ""-re)? Beírnám az értéket, lecseréli, és addig menne, amíg cancel-t nem nyomok.

  Mások kódjai alapján egyelőre eddig jutottam, minden bizonnyal több hiba is van benne.
  Először is: le se fut , "Object required" hibát ír ki. Meg minden bizonnyal a ws.Cells.Replace What rész se stimmel. Meg tudnátok mondani, hogy hol hibáztam?

  Sub csere()
  Dim ws As Worksheet, cserelni As String
  On Error Resume Next
  Application.DisplayAlerts = False
  Set cserelni = Application.InputBox(Prompt:="Írja be a cserélendő szót.", _
  Title:="Csere", Type:=2)
  On Error GoTo 0
  Application.DisplayAlerts = True
  If cserelni Is Nothing Then
  Exit Sub
  Else
  For Each ws In ActiveWorkbook.Worksheets
  ws.Cells.Replace What:="cserelni", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
  Next
  End If
  End Sub

• #23283 m.zmrzlina senior tag bteebi #23281

  Új Válasz 2014-09-16 11:58:51 #23283

  Ú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 bteebi #23281 üzenetére

  A Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
  SearchOrder:=xlByRows
  helyesen: ws.Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
  SearchOrder:=xlByRows

  Vagy kevésbé elegánsan: a
  For Each ws In ActiveWorkbook.Worksheets
  sor után ted be a következő sort:
  ws.Activate

• #23282 Delila_1 veterán bteebi #23281

  Új Válasz 2014-09-16 11:55:46 #23282

  Ú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 bteebi #23281 üzenetére

  A ciklusmagban meg kell adnod, melyik lapon akarsz cserélni.

  ws.Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
  SearchOrder:=xlByRows

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