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

• #17724 Delila_1 veterán Kobe #17723

  Új Válasz 2013-04-12 20:37:05 #17724

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

  Sub Osszefuz()
  Dim sor As Long, usor As Long
  usor = Range("W" & Rows.Count).End(xlUp).Row
  
  For sor = 2 To usor
  If Cells(sor, "X") = "Hazai" Then _
  Cells(sor, "Y") = Cells(sor, "X") & "-" & Round(Cells(sor, "W"), 0)
  Next
  End Sub

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