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

• #11313 Delila_1 veterán mr.nagy #11312

  Új Válasz 2011-09-13 14:58:35 #11313

  Ú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 mr.nagy #11312 üzenetére

  Sub Négy()
  Dim sor As Integer, usor As Integer, sor_1 As Integer
  sor_1 = 1
  usor = Range("A65536").End(xlUp).Row
  
  For sor = 10 To usor
  If sor_1 < 5 Then
  Cells(sor_1, 1) = Cells(sor, 1)
  sor_1 = sor_1 + 1
  Else
  sor_1 = 1
  sor = sor - 1
  MsgBox "Ide jön a nyomtatás"
  'ide jön a nyomtatás
  Range("A1:A4").ClearContents
  End If
  Next
  End Sub

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