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

• #19599 hallgat csendes tag szata.68 #19574

  Új Válasz 2013-11-20 18:21:37 #19599

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

  Nincs mit!

• #19578 Delila_1 veterán szata.68 #19574

  Új Válasz 2013-11-19 14:25:48 #19578

  Ú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 szata.68 #19574 üzenetére

  Részemről szívesen.

• #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