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

• #20160 Delila_1 veterán the radish #20157

  Új Válasz 2014-01-19 16:47:26 #20160

  Ú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 #20157 ü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").Range("A1")
  Sheets("MásikLap").Range("A1:I30").PrintOut Copies:=1, Collate:=True
  End if
  Next
  End Sub

  A másolás területét írd át a saját területed címére.

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