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

• #33997 Delila_1 veterán fogtunder #33995

  Új Válasz 2017-01-31 11:26:01 #33997

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

  Meg kellene adnod a C, D és I oszlop függvényeit a Sheet1 lapon, akkor azokat is beírnám a makróval.

  Sub Masolatok()
Dim usor As Long

Sheets("Sheet2").Range("A:B").Copy Sheets("Sheet1").Range("A1")

usor = Sheets("Sheet2").Range("K" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("K4:K" & usor).Copy Sheets("Sheet1").Range("H1")

Sheets("Sheet2").Range("N:P").Copy Sheets("Sheet1").Range("K1")

Sheets("Sheet3").Range("C:E").Copy
Sheets("Sheet1").Range("E1").PasteSpecial xlPasteValues

' Ide a C, D és I oszlop függvényeit add meg

usor = Sheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("J1:J" & usor) = "=I1*J1"

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

  Az utolsó sor a Sheets1 lapon az A:M tartományt értékként ugyanoda beilleszti.

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