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

• #20157 the radish senior tag Delila_1 #20136

  Új Válasz 2014-01-19 10:27:44 #20157

  Ú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

  

  the radish

  senior tag

  válasz Delila_1 #20136 ü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

  Ezen kéne úgy módosítani, hogy a "MásikLap" A1 cellájába másolódjon minden, nyomtatás és jöhet a következő másolás.

  Megoldható ?
  Előre is köszi.

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