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

• #34005 Delila_1 veterán fogtunder #34003

  Új Válasz 2017-01-31 13:11:53 #34005

  Ú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 fogtunder #34003 üzenetére

  A megjegyzésbe tett utolsó sor végzi a Sheet1 lapon az értékké alakítást.

  Sub Masolatok()
Dim usor As Long

usor = Sheets("Sheet2").Cells.SpecialCells(xlLastCell).Row

Sheets("Sheet2").Range("A4:B" & usor).Copy Sheets("Sheet1").Range("A4")
Sheets("Sheet2").Range("K4:K" & usor).Copy Sheets("Sheet1").Range("H4")
Sheets("Sheet2").Range("N4:P" & usor).Copy Sheets("Sheet1").Range("K4")

Sheets("Sheet3").Range("C1:E1").Copy Sheets("Sheet1").Range("E1")

Sheets("Sheet1").Range("J4:J" & usor) = "=H4*I4"
Sheets("Sheet1").Range("C4:C" & usor) = "=vlookup(A4,Support!L:Q,4,0)"
Sheets("Sheet1").Range("D4:D" & usor) = "=vlookup(A4,Support!L:Q,3,0)"
Sheets("Sheet1").Range("I4:I" & usor) = "=iferror(vlookup(A4,MAP!B:E,4,0),0)"

' Sheets("Sheet1").Range("A:M") = Sheets("Sheet1").Range("A:M").Value
End Sub

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