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

• #29427 Delila_1 veterán m.zmrzlina #29426

  Új Válasz 2015-11-06 16:51:21 #29427

  Ú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 m.zmrzlina #29426 üzenetére

  Nálad elég sok változó van, amiknek az eredete nem látható az ábrán.

  A lenti makró üzenetet küld, ha a Dkioszt aktuális cellája nem üres, és nem azonos a tőle 2 oszloppal balra lévő tartomány azonos sorával.

  Sub mm()
  Dim rng_Dkioszt As Range, CV As Range
  Set rng_Dkioszt = Range("E2:E15")
  
  For Each CV In rng_Dkioszt
  If CV.Value > "" And CV.Value <> Range(CV.Address).Offset(, -2) Then
  MsgBox "Eltérés a(z) " & CV.Row & ".sorban"
  End If
  Next
  End Sub

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