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

• #16540 Delila_1 veterán #05304832 #16537

  Új Válasz 2013-01-30 15:29:13 #16540

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

  Kész a makró.

  Sub csere()
  Dim sor As Integer, usor As Integer, V As Variant
  
  usor = Cells(Rows.Count, "C").End(xlUp).Row
  For sor = 16 To usor
  If Right(Cells(sor, "D"), 4) = "_ker" Then
  V = Cells(sor, "D")
  Cells(sor, "D") = Left(V, Len(V) - 4)
  V = Cells(sor, "H")
  Cells(sor, "H") = Cells(sor, "I")
  Cells(sor, "I") = V
  V = Cells(sor, "K")
  Cells(sor, "K") = Cells(sor, "M")
  Cells(sor, "M") = V
  V = Cells(sor, "N")
  Cells(sor, "N") = Cells(sor, "P")
  Cells(sor, "P") = V
  End If
  Next
  End Sub

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