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

• #5195 Delila_1 veterán Ch4os #5190

  Új Válasz 2009-08-06 11:20:07 #5195

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

  Jó vicc volt, hogy az előző válaszomhoz elfelejtettem csatolni a makrót.
  A tiédben az ELSE sor beteszi az üres sort az I oszlopba, vagyis ugyanott vagy vele, mint makró nélkül.

  A lenti makrót a lapodhoz kell rendelni: lapfülön jobb klikk, Kód megjelenítése, üres lapra bemásolás.

  Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Or Target.Column = 6 Then
  sor_1 = 2
  E = Range("E65536").End(xlUp).Row
  F = Range("F65536").End(xlUp).Row
  usor = Application.WorksheetFunction.Max(E, F)
  
  Range(Cells(2, 9), Cells(usor, 9)).ClearContents 'előző adatok törlése
  
  For fogyi = 2 To usor
  If Cells(fogyi, 5) > 0 And Cells(fogyi, 6) > 0 Then
  Cells(sor_1, 9) = Round(Cells(fogyi, 6) / (Cells(fogyi, 5) / 100), 2)
  sor_1 = sor_1 + 1
  End If
  Next fogyi
  End If
  End Sub

  Gyorsan elküldöm, mert ezelőtt 4 db pillanatnyi áramszünet megsemmisítette a válaszomat.

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