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

• #45779 Fferi50 Topikgazda Lokids #45774

  Új Válasz 2021-01-14 21:15:46 #45779

  Ú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 Lokids #45774 üzenetére

  Szia!
  Próbáld ki ezt a makrót (a munkalap neveket írd át a sajátodnak megfelelően lsz.):
  Sub atmasol()
Dim alap As Range, masolt As Range
Set alap = Sheets("Munka1").UsedRange
Set masolt = Sheets("Munka2").UsedRange
Application.ScreenUpdating = False
With masolt
Set masolt = .Offset(2, 2).Resize(.Rows.Count - 2, .Columns.Count - 2)
End With
With masolt
.Formula = "=IFERROR(VLOOKUP(" & .Cells(1, 1).Offset(0, -2).Address(rowabsolute:=False, columnabsolute:=True) & "," & alap.Parent.Name & "!" & alap.Address(rowabsolute:=True, columnabsolute:=True) & ",MATCH(" & masolt.Cells(1, 1).Offset(-1, 0).Address(rowabsolute:=True, columnabsolute:=False) & "," & alap.Parent.Name & "!" & alap.Rows(2).Address(rowabsolute:=True) & ",0),0),"""")"
.Value = .Value
.Replace what:=0, replacement:="", lookat:=xlWhole
.NumberFormat = "0%"
End With
masolt.Parent.Activate
Application.ScreenUpdating = True
End Sub
  Üdv.

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