Makro, které zjistí řádek a prohodí buňky Vyřešeno

[Lucinka_BUBU]

Ahoj,

potřebovala bych jednoduché makro, které zjistí, na kterém řádku se aktuálně nacházím a na tom řádku, aby mi prohodil sloupečky B do C, C do D a samozřejmě D do B. Ale nejen hodnoty, ale i formátování.

Sloupeček A můžete využít jako dočasnou proměnou.

Děkuji

[Reklama]

[lubo.]

Třeba:

Kód: Vybrat vše

Sub Makro()
   With ActiveCell.EntireRow
      .Cells(4).Cut
      .Cells(2).Insert Shift:=xlToRight
   End With
End Sub