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

• #49566 Mutt senior tag MasterMark #49563

  Új Válasz 2022-09-08 21:47:17 #49566

  Ú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

  

  Mutt

  senior tag

  válasz MasterMark #49563 üzenetére

  Szia,

  Egy próba fájlon próbáld ki ezt a makrót.
  Csak pontos egyezés esetén cseréli a képletben az első találatot (Count:=1 -et törölve ez a korlátozás megszűnik) pontossan arra amit megadtál.

  Sub UpdateRangeInFormulas()
Dim ws As Worksheet
Dim rng As Range
Dim rngFormulas As Range
Dim mit As String
Dim mire As String
Dim keplet As String

mit = Application.InputBox(Prompt:="Mit cseréljünk?", Title:="Keresendõ", Default:="A1:A10", Type:=2)
mire = Application.InputBox(Prompt:="Mire cseréljük?", Title:="Új érték", Default:="A1:A11", Type:=2)

For Each ws In ThisWorkbook.Worksheets
Set rngFormulas = Selection.SpecialCells(xlCellTypeFormulas, 23)

For Each rng In rngFormulas
keplet = rng.Formula2
If InStr(1, keplet, mit) > 0 Then
rng.Formula2 = Replace(keplet, mit, mire, Count:=1)
End If
Next rng

Next ws
End Sub

  üdv

• #49565 Fferi50 Topikgazda MasterMark #49563

  Új Válasz 2022-09-08 19:53:06 #49565

  Ú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

  

  Fferi50

  Topikgazda

  válasz MasterMark #49563 üzenetére

  Szia!
  Irónia on:
  Esetleg kiadhatnád valakinek, aki jó pénzért biztosan szívesen megcsinálja az átalakításokat
  
  Irónia off
  Talán meg lehetne beszélni a forrás előállítójával, hogy komfortosabb formában adja meg számodra az adatokat.
  Egyébként pedig makró a legegyszerűbb megoldás, lehet paraméterezni is.
  Ha felteszel valahova egy mintát - valós szerkezettel, légből kapott adatokkal - akkor biztosan lesz itt valaki, aki csinál egy használható makrót rá.
  Sajnos nem vagyunk (még) gondolatolvasók.
  Üdv.
  Üdv.

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