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

• #38897 Fferi50 Topikgazda dm1970 #38896

  Új Válasz 2018-08-17 13:56:21 #38897

  Ú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 dm1970 #38896 üzenetére

  Szia!

  Sajnos nem látok igazán direkt képletes megoldást.
  Viszont a keres-cserél képletekben szerintem elég gyorsan működik, nem kell kézzel átírni az egészet.
  Vagy ugyanaz makróval:
  Range("D1").Formula = Left([a1].Formula, InStr([a1].Formula, "[")) & [i1].Value & Mid([a1].Formula, InStr([a1].Formula, "]"))
  Ez a sor a D1 cellába beírja az A1 cellában levő képletet, módosítva az I1 cellában levő fájlnévre.

  A makrót beírhatod pl. a munkalap Change eseménykezelőjébe.
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then 'ha az a1 cella v?ltozott
Range("D1").Formula = Left([a1].Formula, InStr([a1].Formula, "[")) & [i1].Value & Mid([a1].Formula, InStr([a1].Formula, "]"))
End If
End Sub

  Valahányszor az A1 cella értékét módosítod, a D1 cella képlete módosulni fog.

  Ez persze csak elindító gondolatnak jó, a pontos paramétereket neked kell kiókumulálni.
  Természetesen ha a fájlnevekben van szabályosság, azt lehet a makróban is kezelni.

  Üdv.

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