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

• #19549 hallgat csendes tag szata.68 #19541

  Új Válasz 2013-11-18 17:45:17 #19549

  Ú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

  

  hallgat

  csendes tag

  válasz szata.68 #19541 üzenetére

  Csak egy minta, nem a legelegánsabb megoldás...
  Feltételeztem, hogy adataid (amit szorozni kell) A2-től lefelé vannak.
  B1 értéke nálam a képlet, azaz =A1*1,5

  A makró megnézi, hogy meddig vannak adataid "A" oszlopban, addig a sorig "B" oszlopban bemásolja a képletet B1-ből B2-től az utolsó sorig.

  Ezt követően ezzel az értékkel felülírja "A" oszlop értékeit, majd törli "B" oszlopot.

  Sub Makró1()
  '
  ' Makró1 Makró
  '
  
  Dim usor As Integer
  
  usor = Sheets("Munka1").Range("A1").End(xlDown).Row
  
  Range("B1").Copy
  Range("B2:" & "B" & usor).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
  SkipBlanks:=False, Transpose:=False
  
  Range("B2:" & "B" & usor).Copy
  Range("A2:" & "A" & usor).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  
  Columns("B:B").Delete Shift:=xlToLeft
  
  Application.CutCopyMode = False
  
  End Sub

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