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

• #20136 Delila_1 veterán the radish #20131

  Új Válasz 2014-01-18 13:27:43 #20136

  Ú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 the radish #20131 üzenetére

  Sub Feltetel()
  Dim sor As Long
  
  For sor = 1 To 18
  If Cells(sor, "A") = 1 Then Cells(sor, "B").Copy Sheets("MásikLap").Cells(sor, "I")
  Next
  End Sub

  A feltétel sorában a másolás helyét (Copy és szóköz után) írd át.

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